[Mew-dist 05435] Re: Reply-to: が反映されない？

[SAKAI Kiyotaka]

>> In article <19980704100401R.motonori at example.com>, Motonori Nakamura <motonori at example.com> writes:

> 自分のメールへの返事や議論ならそうすべきなのでしょうし、訂正や補足なら
> もう一度 ml-1 に出すべきなのかも知れません。そうすると、結局、自動判定は
> 不可能でしょうから、いっそ、たとえば C-u a にした場合に To: や Cc: を
> そのまま使う、という仕様の方がいいのかもしれません。
> そうすれば、アドレスのチェックもいらないですね。

このような仕様にするのであれば話は簡単で、以下のパッチのようにすればい
いのですが、これでいいのでしょうか？
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: mew-summary.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b45/mew-summary.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-summary.el
--- mew-summary.el	1998/07/06 01:10:16	1.1.1.1
+++ mew-summary.el	1998/07/07 03:03:44
@@ -1010,10 +1010,10 @@
      (mew-draft-header subject nil to cc)
      (mew-draft-mode))))
 
-(defun mew-summary-reply ()
+(defun mew-summary-reply (&optional arg)
   "Answer to this message. A new draft is prepared in Draft mode. 
 Mew automatically decides To: and Cc:."
-  (interactive)
+  (interactive "P")
   (mew-summary-msg-or-part
    (mew-summary-toggle-disp-msg 'on)
    (mew-current-set 'window (current-window-configuration))
@@ -1047,10 +1047,7 @@
 	;; now cache buffer
 	(setq from (mew-header-address-collect '("From:")))
 	(cond 
-	 ;; This message was sent by me.
-	 ;; So, maintain To: and Cc:.
-	 ((and from (string-match (concat "^" mew-mail-address "$")
-				  (car from)))
+	 (arg
 	  (setq to (mew-header-address-collect '("To:" "Apparently-To:")))
 	  (if (and (null (cdr to))
 		   (car to) ;; not null
@@ -1087,13 +1084,13 @@
       (undo-boundary)
       (mew-draft-mode)))))
 
-(defun mew-summary-reply-with-citation ()
+(defun mew-summary-reply-with-citation (&optional arg)
   "Answer to this message. A new draft is prepared in Draft mode. 
 Mew automatically decides To: and Cc: and cites the body."
-  (interactive)
+  (interactive "P")
   (mew-summary-msg-or-part
    (let ((mew-summary-reply-position nil))
-     (mew-summary-reply))
+     (mew-summary-reply arg))
    (save-excursion
      (goto-char (mew-header-end))
      (forward-line)