[mew-dist 23993] Re: Q date, time in summary mode

[INOUE Hiroyuki]

いのうえ＠京都です。

>>>>  At Wed, 27 Aug 2003 15:03:46 +0900 (JST) [ML Count: 23992],
>>>>  `mk'==  moto kawasaki <kawasaki at example.com> wrote:

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

「おぉ!」と思い，私もやってみました。が，Date ヘッダが存在しない
ときに失敗します。(Mew2.2 では) +draft を scan したところ，いやん
なことになってしまいました。

ということで，string= etc. をチェックした後にした方がいいのでは。
つまり:

mk>   (let ((s (timezone-make-date-arpa-standard (MEW-DATE))))
mk>     (if (or (string= s "")
mk>             (not (string-match mew-time-rfc-regex s)))
mk>         (setq s (mew-time-ctz-to-rfc
mk>                  (mew-file-get-time (mew-expand-folder (MEW-FLD) (MEW-NUM))))))

  (let ((s (MEW-DATE)))
    (setq s (timezone-make-date-arpa-standard
             (if (or (string= s "")
                     (not (string-match mew-time-rfc-regex s)))
                 (mew-time-ctz-to-rfc
                  (mew-file-get-time (mew-expand-folder (MEW-FLD) (MEW-NUM))))
               s)))

という感じでどうでしょう。

--
井上 博之 / INOUE Hiroyuki
E-Mail: dombly at example.com
PGP Fingerprint: CAF3 05AB B2C6 0869 2876  1F68 3C49 F871 BC66 3D8D