[mew-dist 24921] Re: trace path

[Koga Youichirou]

Kazu Yamamoto <kazu at example.com> (山本和彦):
> さぁ、cvs update して、";" を押してみよう。

これは便利ですね。

RFC では Received: に ; date-time が必須ですが、違反しているメッセージ
(たとえば amazon.co.jp からのメールがそう) で
(wrong-type-argument stringp nil) と言われてしまうのは、ちょっと悲しい
です。

手元ではとりあえず手っ取り早く、1970/01/01 00:00:00 +0000 にして逃げて
います。

Index: mew-summary2.el
===================================================================
RCS file: /cvsmew/mew/mew-summary2.el,v
retrieving revision 1.39
diff -u -r1.39 mew-summary2.el
--- mew-summary2.el	20 May 2004 06:35:11 -0000	1.39
+++ mew-summary2.el	20 May 2004 10:03:23 -0000
@@ -530,7 +530,8 @@
        (unless date
 	 ;; for broken MTAs
 	 (if (string-match "Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun" ent)
-	     (setq date (substring ent (match-beginning 0)))))
+	     (setq date (substring ent (match-beginning 0)))
+	   (setq date "Thu, 01 Jan 1970 00:00:00 +0000")))
        (setq date (mew-time-rfc-to-sortkey date))
        (setq tmp (cons (list date svr) tmp)))
      (setq lst (sort tmp (lambda (x y) (string< (car x) (car y)))))

----
こがよういちろう