[Mew-dist 04756] patch for Mail-Followup-To

[Araki Yasuhiro 荒木靖宏]

あらきです。

Mail-Followup-ToのついているMailに返事をするときにそこに
示されているアドレスをToにいれるようにするパッチをつくりました。
---
 Araki Yasuhiro // NAIST  yasuhi-a at example.com, yasu at example.com

--- mew-summary.el.original	Tue May 19 17:56:04 1998
+++ mew-summary.el	Tue May 19 18:32:43 1998
@@ -1189,13 +1189,17 @@
  	      (if (and (null (cdr to))
 		       (car to) ;; not null
 		       (string-match ":;" (car to)))
-		  (setq to (or (mew-header-address-collect '("Reply-To:"))
+		  (setq to (or (or (mew-header-address-collect '("Reply-To:"))
+				   (mew-header-address-collect '("Mail-Followup-To:")))
 			       from)))
 	      (setq cc (mew-header-address-collect '("Cc:"))))
 	     ;;
 	     (t
 	      (cond 
 	       ((mew-header-get-value "Reply-To:")
+		(setq to (mew-header-address-collect mew-replyto-to-list))
+		(setq cc (mew-header-address-collect mew-replyto-cc-list)))
+	       ((mew-header-get-value "Mail-Followup-To:")
 		(setq to (mew-header-address-collect mew-replyto-to-list))
 		(setq cc (mew-header-address-collect mew-replyto-cc-list)))
 	       (t