[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 メーリングリストの案内