[mew-dist 22623] Re: Mail-Followup-To:

[Koyama Mituru]

小山です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-dist 22424] Re: Mail-Followup-To:
Date: Thu, 05 Dec 2002 10:52:48 +0900 (JST)

> > 　はい、了解です。パッチは個人的に使っていきます。
> 
> カスタマイズできるようにするコードならマージされます。
> 
> こんな感じ：何かの変数を定義。ユーザがその変数に Mail-Followup-To: を
>             追加すれば、期待通りに動く。

　どうもありがとうございます。やってみました。
　mew-mailfollowupto-to-listを定義しましたので、

(setq mew-mailfollowupto-to-list '("Mail-Followup-To:"))

と.emacsに書くと、Mail-Followup-To:ヘッダがあるとそれのみをTo:に設
定します。Cc:は設定しません。

-- 
小山満    mkoya at example.com
-------------- next part --------------
Index: mew-summary3.el
===================================================================
RCS file: /cvsmew/mew/mew-summary3.el,v
retrieving revision 1.15
diff -u -r1.15 mew-summary3.el
--- mew-summary3.el	2002/12/11 14:48:42	1.15
+++ mew-summary3.el	2002/12/17 15:30:22
@@ -181,6 +181,7 @@
 	     (unless to (setq to (or reply-to from)))) ;; do not use list
 	    (t
 	     (cond 
+	      ((setq to (mew-header-parse-address-list2 mew-mailfollowupto-to-list)))
 	      (reply-to
 	       (setq to (mew-header-parse-address-list2 mew-replyto-to-list))
 	       (setq cc (mew-header-parse-address-list2 mew-replyto-cc-list)))
Index: mew-vars.el
===================================================================
RCS file: /cvsmew/mew/mew-vars.el,v
retrieving revision 1.157
diff -u -r1.157 mew-vars.el
--- mew-vars.el	2002/12/16 14:19:04	1.157
+++ mew-vars.el	2002/12/17 15:30:32
@@ -1815,6 +1815,10 @@
   :group 'mew-reply
   :type '(repeat string))
 
+(defcustom mew-mailfollowupto-to-list nil
+  "*To: field list picked at mew-summary-reply if this valiable is not nil."
+  :group 'mew-reply
+  :type '(repeat string))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     189 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/20021218/a1c32f2e/attachment.bin>