>>513 さんきゅ。
もう一個、日本人のモードラインにはこれ。
(defconst dayname-to-youbi
'(("Mon" . "月")("Tue" . "火")("Wed" . "水")("Thu" . "木")
("Fri" . "金")("Sat" . "土")("Sun" . "日")))
(setq display-time-string-forms
'((format "%s月%s日(%s)%s:%s"
month day (cdr (assoc dayname dayname-to-youbi))
12-hours minutes)))