[mew-dist 22391] Mail-Followup-To:

[Koyama Mituru]

小山です。

　あるメーリングリストでReply-To:の代わりにMail-Followup-To:がつい
て配信されてくるものがあります。そこで、Infoの「メッセージへの返答
と宛先の決定」の末尾にある「Reply-To: がある場合に、Reply-To: だけ
に返答したい」に関してMail-Followup-To:もReply-To:と同じ働きにする
ようにして見ました。(邪道なんでしょうか？)

　~/.emacsに、

(setq mew-replyto-to-list '("Mail-Followup-To:" "Reply-To:"))
(setq mew-replyto-cc-list nil)
(setq mew-use-mail-followup-to t)   ;; 俺が追加した変数

とします。

-- 
小山満    mkoya at example.com
-------------- next part --------------
Index: mew-const.el
===================================================================
RCS file: /cvsmew/mew/mew-const.el,v
retrieving revision 1.39
diff -u -r1.39 mew-const.el
--- mew-const.el	2002/11/11 09:07:46	1.39
+++ mew-const.el	2002/12/03 16:11:03
@@ -47,6 +47,7 @@
 (defconst mew-resent-message-id: "Resent-Message-Id:")
 
 (defconst mew-reply-to:     "Reply-To:")
+(defconst mew-mail-followup-to:  "Mail-Followup-To:")
 (defconst mew-organization: "Organization:")
 (defconst mew-newsgroups:   "Newsgroups:")
 (defconst mew-distribution: "Distribution:")
Index: mew-summary3.el
===================================================================
RCS file: /cvsmew/mew/mew-summary3.el,v
retrieving revision 1.14
diff -u -r1.14 mew-summary3.el
--- mew-summary3.el	2002/11/19 11:24:47	1.14
+++ mew-summary3.el	2002/12/03 16:11:05
@@ -129,7 +129,7 @@
 	  (msg (mew-summary-message-number2))
 	  cwin cbuf draft case
 	  from reply-to to cc newsgroups subject in-reply-to references
-	   encrypted fromme)
+	   encrypted fromme mail-followuo-to)
       (if (string= (mew-summary-folder-name) mew-draft-folder)
 	  (message "Cannot reply to draft message")
 	(setq draft (mew-folder-new-message mew-draft-folder))
@@ -160,6 +160,7 @@
 	   ;; now cache buffer
 	   (setq from (mew-header-parse-address mew-from:))
 	   (setq reply-to (mew-header-parse-address mew-reply-to:))
+	   (setq mail-followup-to (mew-header-parse-address mew-mail-followup-to:))
 	   (cond 
 	    (onlytofrom (setq to from))
 	    ((mew-is-my-address mew-regex-my-address-list from)
@@ -170,7 +171,7 @@
 	     (unless to (setq to (or reply-to from)))) ;; do not use list
 	    (t
 	     (cond 
-	      (reply-to
+	      ((or reply-to (and mew-use-mail-followup-to mail-followup-to))
 	       (setq to (mew-header-parse-address-list2 mew-replyto-to-list))
 	       (setq cc (mew-header-parse-address-list2 mew-replyto-cc-list)))
 	      (t
Index: mew-vars.el
===================================================================
RCS file: /cvsmew/mew/mew-vars.el,v
retrieving revision 1.154
diff -u -r1.154 mew-vars.el
--- mew-vars.el	2002/12/02 06:08:39	1.154
+++ mew-vars.el	2002/12/03 16:11:15
@@ -1576,6 +1576,8 @@
 ;;; Draft mode
 ;;;
 
+(defvar mew-use-mail-followup-to nil)
+
 (defcustom mew-reply-to nil
   "*A value inserted into Reply-To: field in Draft mode if *non-nil*.
 See also 'mew-config-alist'."
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     189 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/20021204/4305fe61/attachment.bin>