[Mew-dist 535] (gnus) adding old references: (Re:contrib/gnus/mew-gnus.el)

[Makoto]

                                     Fri Feb 28 16:58:06 1997
                                             千葉市中央区長洲
                                                     藤原  誠
                               makoto at example.com

[Mew-dist 525] でお送りした差分は、ちょっといい加減でした。
References: がないものに反応を書こうとすると、余分な改行と桁送
(tab)を加えるだけだったはずです。

> 〇 References: について 
>   これは Mew-1.54 に [Mew-dist 512] の修正をした後のものか
>   らの差分です。

同じ条件のものです。
---
(藤原)
-------------- next part --------------
--- contrib/gnus/mew-gnus.el-1.54+	Tue Feb 25 21:42:12 1997
+++ contrib/gnus/mew-gnus.el	Fri Feb 28 16:50:10 1997
@@ -82,18 +82,31 @@
 	  reply-to (gnus-fetch-field "Reply-to")
 	  to (or reply-to from)
 	  cc (gnus-fetch-field "Cc")
+          distribution (gnus-fetch-field "Distribution")
 	  newsgroups (or (gnus-fetch-field "Followup-To")
 			 (gnus-fetch-field "Newsgroups"))
 	  date (gnus-fetch-field "Date")
 	  in-reply-to (mew-header-get-value "Date:")
-	  references (mew-header-get-value "Message-ID:"))
+	  references (mew-header-get-value "Message-ID:")
+          ref-old    (mew-header-get-value "References:")
+	  )
+    (if (stringp ref-old)
+	  (setq  references    
+		 (concat references "\n\t" ref-old ))
+      )
     (switch-to-buffer-other-window (find-file-noselect file))
     (mew-draft-rename file)
     (mew-draft-header subject nil to cc in-reply-to references)
     (mew-draft-mode) ;; for hilight
     (save-excursion
       (goto-char (point-min))
-      (insert (concat "Newsgroups: " newsgroups "\n")))
+      (insert (concat "Newsgroups: " newsgroups "\n")
+	      )
+      (if (stringp distribution)
+        (insert (concat "Distribution: " distribution "\n")
+	      )
+	)
+      )
     (make-variable-buffer-local 'mew-message-citation-buffer) 
     (setq mew-message-citation-buffer gnus-article-buffer))
   (if yank (mew-draft-cite)))