Mew の summary-mode のカスタマイズ
書き忘れてた。
Mew の summary-mode のフォーマットで、年を表示しようとすると 4 桁になってしまう。でも、人間の寿命をからすると、表示は 2 桁で十分なので、下のような奴を見様見真似で .emacs に書き加えた。(Version 4 用)
(defun mew-summary-form-year2 () "A function to return a message year, YY" (let ((s (MEW-DATE)) year) (when (or (string= s "") (not (string-match mew-time-rfc-regex s))) (setq s (mew-time-ctz-to-rfc (mew-file-get-time (mew-expand-folder (MEW-FLD) (MEW-NUM)))))) (if (not (string-match mew-time-rfc-regex s)) "00" (setq year (% (mew-time-rfc-year) 100)) (format "%02d" year))) ) (setq mew-summary-form `(type " " (-2 year2) "/" (5 date) " " (14 from) " " t (24 subj) "|" (0 body)))
" マーク YY/MM/DD Fromの頭 Subject|本文の頭" という形式になるはず。