[mew-dist 22929] Re: mew-draft-header
Tatsuya Kinoshita
tats at example.com
2003年 1月 20日 (月) 21:20:34 JST
On January 20, 2003, [mew-dist 22912],
Kazu Yamamoto <kazu at example.com> wrote:
> 極端な例としては
> To: kazu
> From: kazu
> に返答すると、木下さんのコードでは、
> To:
> From: kazu
> と To: が空になってしまいます。
mew-vars.el:
| (defvar mew-reply-fromme-keep-my-address t
| "*When the message to be replied is sent/posted by ME, this variable
| is checked. If non-nil, my address on a new To:/Cc: is not deleted.
| Otherwise, my address is deleted like normal cases. ")
Fromが自分なら自分のアドレスを消したくない、重複するアドレスを消す
のはかまわない、ということであれば、下記のコードでどうでしょうか。
(mew-reply-fromme-alistにReply-To等を指定した場合に有用です)
--
木下達也
--- mew-draft.el 2003/01/20 05:33:03 1.84
+++ mew-draft.el 2003/01/20 12:11:58
@@ -338,7 +338,8 @@
;; cc -- string or list
;; nl -- one empty line under "----", which is necessary if
;; attachment is prepared
- (let ((del mew-regex-my-address-list) ;; deleting list for Cc:
+ (let ((del (unless (and fromme mew-reply-fromme-keep-my-address)
+ mew-regex-my-address-list)) ;; deleting list for Cc:
case body)
(goto-char (point-min))
(if newsgroups
@@ -357,17 +358,13 @@
(mew-draft-header-insert mew-to: to))
;; To: collected by reply
((listp to)
- (if (and fromme mew-reply-fromme-keep-my-address)
- (mew-insert-address-list2 mew-to: to)
- (setq del (mew-insert-address-list mew-to: to del t)))))
+ (setq del (mew-insert-address-list mew-to: to del t))))
(cond
((null cc) ()) ;; do nothing
((stringp cc) ;; Cc: inputed from the mini-buffer.
(mew-draft-header-insert mew-cc: cc))
((listp cc) ;; Cc: collected by reply.
- (if (and fromme mew-reply-fromme-keep-my-address)
- (mew-insert-address-list2 mew-cc: cc)
- (mew-insert-address-list mew-cc: cc del nil)))))
+ (mew-insert-address-list mew-cc: cc del nil))))
(if mew-case-guess-when-prepared
(mew-draft-set-case-by-guess))
(setq case (mew-tinfo-get-case))
Mew-dist メーリングリストの案内