[Mew-dist 08432] reply to a mail without references header

[SAKAI Kiyotaka]

References ヘッダがなくて、

  In-Reply-To: <msgid-1>
  Message-ID: <msgid-2>

というメールに Reply すると

  In-Reply-To: <msgid-2>
  References: <msgid-1>

というヘッダが入ってしまいますが、

  In-Reply-To: <msgid-2>
  References: <msgid-1>
	<msgid-2>

となるのが正しいですよね？

もしそうなのであれば、以下のパッチのようにした方がいいと思います。

# パッチの量を減らすために、インデントは変更してありません。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
--- mew-summary.el.~1~	Thu Apr  1 08:05:29 1999
+++ mew-summary.el	Fri Apr  2 13:53:15 1999
@@ -1137,18 +1137,18 @@
 	      () ;; we don't care even if old-references exist.
 	    (setq in-reply-to old-message-id)
 	    (if (null old-references)
-		(setq references (or old-in-reply-to old-message-id))
+		(setq tmp-ref (list old-in-reply-to old-message-id))
 	      (while (string-match "<[^>]+>" old-references start)
 		(setq start (match-end 0))
 		(setq tmp-ref (cons (mew-match 0 old-references) tmp-ref)))
 	      (if (and old-in-reply-to (not (member old-in-reply-to tmp-ref)))
 		  (setq tmp-ref (cons old-in-reply-to tmp-ref)))
-	      (setq tmp-ref (nreverse (cons old-message-id tmp-ref)))
+	      (setq tmp-ref (nreverse (cons old-message-id tmp-ref))))
 	      (if (integerp mew-references-max-count)
 		  (setq skip (- (length tmp-ref) mew-references-max-count)))
 	      (if (and (numberp skip) (> skip 0))
 		  (setq tmp-ref (nthcdr skip tmp-ref)))
-	      (setq references (mew-join "\n\t" tmp-ref))))))
+	      (setq references (mew-join "\n\t" tmp-ref)))))
       ;;
       (mew-pop-to-buffer cbuf) ;; draft
       (mew-draft-header subject nil to cc newsgroups in-reply-to references)