[Mew-dist 1138] Re: Reply to the forwarded mail.
SAKAI Kiyotaka
ksakai at example.com
1997年 7月 1日 (火) 15:49:24 JST
>> In article <19970625134252M.nosuzuki at example.com>, nosuzuki at example.com (Norio Suzuki) writes:
> 転送されて来た手紙に対して、a または A で返事を書こうとすると、To: が
> 元の手紙を書いた人でなく、forward してきた人になってしまい、元の手紙を
> 書いた人のアドレスがどこにも反映されません。返事を書くコマンドを入力す
> るのは、転送されてきた手紙のパートを表示させている状態で入力しています。
> それで希望なのですが。To: に元の手紙を書いた人のアドレスが入って、Cc:
> に転送してきた人のアドレスが入るようにならないでしょうか。サブジェクト
> も元の手紙のものが入るといいと思います。
ただ、使っていると今のままの仕様の方が便利の場合もありますので、このよ
うな決め打ちをするのがいいとは言えないと思います。
そうすると、prefix argument を与えるかどうかで、現在表示している part
への reply か、メール全体への reply かを決めるようにした方がいいのでは
ないでしょうか。
以下に、これを実現するための mew-1.85 へのパッチを付けておきます。
--
酒井 清隆 (E-mail: ksakai at example.com)
-------------- next part --------------
===================================================================
RCS file: RCS/mew-summary.el,v
retrieving revision 1.1
diff -u -r1.1 mew-summary.el
--- mew-summary.el 1997/07/01 06:14:51 1.1
+++ mew-summary.el 1997/07/01 06:45:57
@@ -1150,8 +1150,8 @@
(message "Draft is prepared")
)
-(defun mew-summary-reply ()
- (interactive)
+(defun mew-summary-reply (&optional arg)
+ (interactive "P")
(cond
((or (mew-summary-message-number)
(mew-summary-part-number))
@@ -1175,10 +1175,12 @@
;;
;; (setq cache (mew-summary-display)) ;; force to display
;; to reply scrambled mail. Is this okay?
- (setq cache (mew-summary-display 'notforce))
- (if cache
- (set-buffer cache)
- (set-buffer (mew-buffer-message)))
+ (if arg
+ (set-buffer (mew-buffer-message))
+ (setq cache (mew-summary-display 'notforce))
+ (if cache
+ (set-buffer cache)
+ (set-buffer (mew-buffer-message))))
;; now cache buffer
(setq from (mew-header-address-collect '("From:")))
(cond
@@ -1229,10 +1231,10 @@
)
)
-(defun mew-summary-reply-with-citation ()
+(defun mew-summary-reply-with-citation (&optional arg)
"Reply to current message and insert it in draft-buffer."
- (interactive)
- (if (mew-summary-reply)
+ (interactive "P")
+ (if (mew-summary-reply arg)
(mew-draft-cite)
))
Mew-dist メーリングリストの案内