[mew-dist 23992] Q date, time in summary mode

[moto kawasaki]

お世話になります。
Mew version 4.0.58 on Emacs 21.2 / Mule 5.0 (SAKAKI) をいつも使わせて
頂いています。Mew については今朝 cvs で取り込んだものです。

Summary mode の表示に「時分」も表示させたくて、info を見ながら
mew-summary-form をいじった

    (setq mew-summary-form
      '(type (5 date) " " (5 time) " " (14 from) " " t (30 subj)
             "|" (0 body)))

のですが、「月日」も「時分」もタイムゾーンを気にしていないのですよね。
つまり、

    Date: Wed, 27 Aug 2003 13:49:53 +0900   ==> 08/27 13:49

    Date: Wed, 27 Aug 2003 04:49:42 +0000   ==> 08/27 04:49

のように表示されるのですが、僕個人としてはこれを両方 JST へ持ってきて "08/27
13:49" と表示させたいと思いました。
＃ Message mode の Date: ヘッダは上記のママで僕には十分。

で、mew-summary-form-date と mew-summary-form-time を以下のように
書き換えているのですが、なにか悪い副作用があるでしょうか？

また、（僕には発見できなかったのですが）実はすでに Mew の何かの変数を定義する
とかで対応できたりするのでしょうか？


(defun mew-summary-form-time ()
  "A function to return a message time, HH:MM"
  (let ((s (timezone-make-date-arpa-standard (MEW-DATE))))
    (if (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 (string-match mew-time-rfc-regex s)
        (format "%02d:%02d"
                (or (mew-time-rfc-hour) 0)
                (or (mew-time-rfc-min)  0))
      "00:00")))

(defun mew-summary-form-date ()
  "A function to return a date, MM/DD."
  (let ((s (timezone-make-date-arpa-standard (MEW-DATE))))
    (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 (string-match mew-time-rfc-regex s)
	(format "%02d/%02d"
		(mew-time-mon-str-to-int (mew-time-rfc-mon))
		(mew-time-rfc-day))
      "")))

書き換えたといっても大したことはなくて、let で s に MEW-DATE を代入(?) してい
るところを timezone.el の timezone-make-date-arpa-standard でくるんだだけです。

ちょっと要領を得ない文章になってしまいました。ごめんなさい。


moto kawasaki <kawasaki at example.com>
              +81 90-2464-8454