[mew-dist 18308] Re: mew-config-alistとMessage-id

[Tatsuya Kinoshita]

In message [mew-dist 18275], on Sun, 29 Jul 2001,
Tatsuya Kinoshita <tats at example.com> wrote:

> >       mew-case-guess-when-composed t

> バグが潜んでいました。パッチをお試しください。

mew-send-hookが、従来どおりwhen-composedより手前で実行されるよう、
パッチを作りなおしました。

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

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

--- mew/mew-draft.el	Mon Jul  9 00:21:57 2001
+++ mew-tats/mew-draft.el	Tue Jul 31 12:03:34 2001
@@ -760,17 +760,22 @@
 (defun mew-draft-process-message (action &optional privacy signer)
   (let* ((buf (current-buffer))
 	 (case (mew-tinfo-get-case))
-	 (server (mew-smtp-server case))
-	 (ssh-server (mew-smtp-ssh-server case))
-	 (pnm (mew-smtp-info-name server ssh-server))
-	 (old-case (mew-tinfo-get-case))
-	 sendit err)
+	 (old-case case)
+	 guessed-case server ssh-server pnm sendit err)
+    (run-hooks 'mew-send-hook)
+    (when mew-case-guess-when-composed
+      (setq guessed-case (mew-draft-get-case-by-guess))
+      (when guessed-case
+	(if mew-case-guess-addition
+	    (setq case (mew-draft-add-case case guessed-case))
+	  (setq case guessed-case))))
+    (setq server (mew-smtp-server case))
+    (setq ssh-server (mew-smtp-ssh-server case))
+    (setq pnm (mew-smtp-info-name server ssh-server))
     (if (mew-smtp-get-lock pnm)
 	(message "Another message is being sent. Try later.")
-      (run-hooks 'mew-send-hook)
-      (if mew-case-guess-when-composed
-	  (mew-draft-set-case-by-guess))
-      (unless (string= old-case (mew-tinfo-get-case))
+      (when guessed-case
+	(mew-tinfo-set-case case)
 	(mew-draft-replace-fields old-case)
 	(when (eq action 'send)
 	  (mew-highlight-header)