[Mew-dist 04931] Re: [mew 00244] Re: Mail-Followup-To: patch for Semi-gnus

[Araki Yasuhiro 荒木靖宏]

あらきです。

以前にMail-Followup-To:を扱うパッチを出しましたが、
Reply-To:とMail-Followup-To:が両方あるときはMail-Followup-To:を
使うべきでした。
(小林さん、ありがとうございます)

>   MUA の動作に関する話題になりそうなので(なることを期待:-))
> > #まだdraftの更新とか、RFCになったとかいう情報はないですよね?
> 
>   IETF DRUMS WG の (Mail-Followup-To: を含む) Reply-To: 関連の議論は
> suspend されたように思います。

了解です。

>   Mail-Followup-To/Mail-Reply-To は MUA が group reply と personal reply
> の両方の機能を持つことを想定して設計されたが、Mew は group reply しか持
> たない、ということが原因だと思います。

そうかもしれません。(かずさんにお任せ)

>   Mew (+ 荒木さん patch) の動作は
>     3. Mail-Followup-To: がある場合
>         To: は mew-replyto-to-list から集める

mew-mailfollowupto-to-list から集めるに変えてみました。
Fromがいらなければ、.emacsに書くのは同じです。

>         CC: は mew-replyto-cc-list から集める

>     4. それ以外の場合
>         To: は mew-noreplyto-to-list から集める
>         CC: は mew-noreplyto-cc-list から集める
>         
>     ※ Newsgroups: は Mail-Followup-To: の有無に関係なく Followup-To:
>        または Newsgroups: を使用する
---
 Araki Yasuhiro // NAIST  yasuhi-a at example.com, yasu at example.com
 
-------------- next part --------------
--- mew-summary.el.original	Thu May 28 22:27:01 1998
+++ mew-summary.el	Thu May 28 22:12:59 1998
@@ -1195,12 +1195,16 @@
  	      (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 "Mail-Followup-To:")
+		(setq to (mew-header-address-collect mew-mailfollowupto-to-list))
+		(setq cc (mew-header-address-collect mew-replyto-cc-list)))
 	       ((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-vars.el.original	Thu May 28 22:30:44 1998
+++ mew-vars.el	Thu May 28 22:26:00 1998
@@ -489,7 +489,7 @@
 (defvar mew-fields
   '("To:" "Cc:" "Subject:" "Dcc:" "Fcc:" "Bcc:"
     "Reply-To:" "Followup-To:" "From:" "Newsgroups:"
-    "Config:")
+    "Config:" "Mail-Followup-To:")
   "*Completion field list in Draft mode."
   )
 
@@ -499,6 +499,7 @@
     ("Dcc:"      . mew-complete-address)
     ("Bcc:"      . mew-complete-address)
     ("Reply-To:" . mew-complete-address)
+    ("Mail-Followup-To:" . mew-complete-address)
     ("Fcc:"      . mew-complete-folder)
     ("Config:"   . mew-complete-config))
   "*Completion function alist concerned with the key."
@@ -510,6 +511,7 @@
     ("Dcc:"      . mew-circular-complete-domain)
     ("Bcc:"      . mew-circular-complete-domain)
     ("Reply-To:" . mew-circular-complete-domain)
+    ("Mail-Followup-To:" . mew-circular-complete-domain)
     ("From:"     . mew-circular-complete-from)
     ("Config:"   . mew-circular-complete-config))
   "*Circular completion function alist concerned with the key."
@@ -582,6 +584,8 @@
 (defvar mew-replyto-cc-list '("To:" "Cc:" "Apparently-To:")
   "*Cc: field list picked at mew-summary-reply if Reply-To: exists.")
 
+(defvar mew-mailfollowupto-to-list '("Mail-Followup-To:" "From:")
+  "*To: field list picked at mew-summary-reply if Mail-Followup-To: exists.")
 ;;
 ;; Encoding and Decoding
 ;;