[Mew-dist 07500] Re: mew-summary-reply

Shun-ichi GOTO gotoh at example.com
1999年 2月 18日 (木) 02:37:14 JST 

後藤＠太陽計測です

>>>>> at Wed, 17 Feb 1999 22:31:15 +0900
>>>>> eguchi <eguchi at example.com> said,
eguchi> メールってのは非常に事故がおこりやすいものだと思っています。特に頻繁に
eguchi> やってしまうのが、メーリングリストに個人あてのメールを流してしまうこと
eguchi> です。もちろん私が粗忽だからそういうことになってしまうのですが、MUAが
eguchi> そういう事故を少しでも減らせるようにできないかと常々思っていました。

普段はML宛てのメールを個人向けにリダイレクトして返信することはほとんどな
いのですが、気持ちは分かります。(^^;
たまにやるときは慎重になりますし、危ういこともたまにあります。


eguchi> 昨日もひさびさに1件やってしまって後で考えると、
eguchi> mewのsummaryモードで "a" (mew-summary-reply)したときに、
eguchi> To:にもCc:も最初は空の状態になっていれば、
eguchi> 少しは事故が減るのではないかと思いました。

mewの範囲内でこれを行うとしたら白井さんの提案した方法になりますが、こ
れだと通常の返信をするときにも影響しちゃいますからかなり不便ですよね。

本来は「メール送信時には常にアドレスに注意する」ことこそが本筋だと思い
ますし、そうでないといずれは間違いは起きてしまいます。

ところで、そういう返信をしたい場合って、"a"や"A"で返信する時点で既に意
識しているものではないかと考えます。であれば別途、「From:に対してのみ
返信する」というキー定義をできれば良いでしょう。

上記仕様でよければ添付したパッチで実現できるかと思います。

通常の a や A での動作は今まで通り。個人(From:)宛てにのみ返信したい場
合はプリフィックス(C-u)をつけてC-u a あるいは C-u A として使用するもの
です。

どんなもんでしょーか

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN


-------------- next part --------------
--- mew-summary.el.orig	Wed Feb 17 16:05:02 1999
+++ mew-summary.el	Wed Feb 17 17:15:34 1999
@@ -1051,10 +1051,10 @@
      (mew-draft-header subject nil to cc)
      (mew-draft-mode))))
 
-(defun mew-summary-reply ()
+(defun mew-summary-reply (&optional personal)
   "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))
@@ -1090,6 +1090,7 @@
 	(cond 
 	 ;; This message was sent by me.
 	 ;; So, maintain To: and Cc:.
+	 (personal (setq to from))
 	 ((and from (string-match (concat "^" mew-mail-address "$") from))
 	  (setq to (mew-header-parse-address-list
 		    (list mew-to: mew-apparently-to:)))
@@ -1150,13 +1151,13 @@
       (undo-boundary)
       (mew-draft-mode)))))
 
-(defun mew-summary-reply-with-citation ()
+(defun mew-summary-reply-with-citation (&optional personal)
   "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 personal))
    (save-excursion
      (goto-char (mew-header-end))
      (forward-line)

Mew-dist メーリングリストの案内