[mew-dist 21792] mew-scan-form-date, in-reply-to

[Murata Takashi]

  村田@NSGです。

  自前で 2.x の頃から修正していた分で、本体に取り込んで貰えれば、と
思うパッチを送っておきます。

  - Date: が異常なメールは、ファイルの修正日だけ参照しているが、時刻も
    参照するようにする。

  - 複数メールを引用すると、In-Reply-To: が References: のように改行
    されるので、行の連結をしないようにする。
-- 
村田 隆 / Takashi.Murata at example.com       .      .     .    .  . ..

*** mew-scan.el.orig	Mon Sep  9 11:38:06 2002
--- mew-scan.el	Fri Sep 27 14:20:25 2002
***************
*** 95,104 ****
    (let ((s (MEW-DATE)))
      (if (or (string= s "")
  	    (not (string-match mew-time-rfc-regex s)))
! 	"00:00"
!       (format "%02d:%02d"
! 	      (or (mew-time-rfc-hour) 0)
! 	      (or (mew-time-rfc-min)  0)))))
  
  (defun mew-scan-form-date ()
    "A function to return a date, MM/DD."
--- 95,107 ----
    (let ((s (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-scan-form-date ()
    "A function to return a date, MM/DD."
  
*** mew-vars2.el.orig	Tue Sep 17 18:24:35 2002
--- mew-vars2.el	Thu Sep 26 14:39:36 2002
***************
*** 497,502 ****
--- 497,503 ----
      (,mew-keywords:      comma-text text)
      (,mew-received:      unstruct   unstruct)
      (,mew-references:    unstruct   unstruct)
+     (,mew-in-reply-to:   unstruct   unstruct)
      (,mew-x-face:	 unstruct   unstruct))
    "(field enc dec)")