[Mew-dist 17430] Re: config
Tatsuya Kinoshita
tats at example.com
2001年 5月 19日 (土) 01:58:37 JST
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)))
Mew-dist メーリングリストの案内