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|本文の頭" という形式になるはず。