[Mew-dist 17430] Re: config

[Tatsuya Kinoshita]

In message "[Mew-dist 17416] Re: config"
SAKAI Kiyotaka <ksakai at example.com> wrote:

> > メールを書き終えて宛先が確定した時点で、mew-config-guess-alistに指
> > 定したルールに「必ず」従いたいなら、when-composedを使いたくなりそう
> > です。
> 
> 1.94 までは、いきなり C-cC-c を実行しても書き換えられたヘッダをユーザー
> が確認した上で送信できましたので、その仕様でも問題ありませんでしたが、
> 1.95 からは、いきなり C-cC-c を実行すると確認するタイミングなく送信さ
> れてしまいますので、そのような使い方は危険だと思います。

送信前に確認できるよう、when-composedのタイミングを変更してみました。
いかがでしょうか。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -ur mew/mew-draft.el mew-tats20010519/mew-draft.el
--- mew/mew-draft.el	Wed May  9 12:16:13 2001
+++ mew-tats20010519/mew-draft.el	Sat May 19 01:49:14 2001
@@ -725,11 +725,6 @@
 ;;;
 
 (defun mew-draft-process-message (action &optional privacy signer)
-  (let ((old-case (mew-tinfo-get-config)))
-    (if mew-config-guess-when-composed
-	(mew-draft-set-config-by-guess))
-    (if (not (string= old-case (mew-tinfo-get-config)))
-	(mew-draft-replace-fields old-case)))
   (let* ((buf (current-buffer))
 	 (case (mew-tinfo-get-config))
 	 (server (mew-smtp-server case))
@@ -761,6 +756,11 @@
   "Compose a MIME message then put it into a queue folder."
   (interactive)
   (run-hooks 'mew-send-hook)
+  (let ((old-case (mew-tinfo-get-config)))
+    (if mew-config-guess-when-composed
+	(mew-draft-set-config-by-guess))
+    (if (not (string= old-case (mew-tinfo-get-config)))
+	(mew-draft-replace-fields old-case)))
   (mew-draft-process-message 'queue privacy signer)
   (run-hooks 'mew-real-send-hook))
 
@@ -768,6 +768,12 @@
   "Compose a MIME message then send it."
   (interactive)
   (run-hooks 'mew-send-hook)
+  (let ((old-case (mew-tinfo-get-config)))
+    (if mew-config-guess-when-composed
+	(mew-draft-set-config-by-guess))
+    (when (not (string= old-case (mew-tinfo-get-config)))
+      (mew-draft-mode-name (mew-tinfo-get-hdr-file))
+      (mew-draft-replace-fields old-case)))
   (when (or (not mew-ask-send) (y-or-n-p "Really send this message? "))
     (mew-draft-process-message 'send)
     (run-hooks 'mew-real-send-hook)))