From: morioka <morioka>
Date: Fri, 11 Sep 1998 04:46:18 +0000 (+0000)
Subject: (message-send): Don't call `message-fix-before-sending' before
X-Git-Tag: gnus-6_8_18~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=571a34d2d202a0fdb506d859624a692987da5b1b;p=elisp%2Fgnus.git-

(message-send): Don't call `message-fix-before-sending' before
`message-encode-function' is called.
---

diff --git a/lisp/message.el b/lisp/message.el
index 784dcda..7ea4415 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1981,7 +1981,6 @@ the user from the mailer."
     (undo-boundary)
     (let ((inhibit-read-only t))
       (put-text-property (point-min) (point-max) 'read-only nil))
-    (message-fix-before-sending)
     (run-hooks 'message-send-hook)
     (message "Sending...")
     (let ((message-encoding-buffer
@@ -1996,6 +1995,7 @@ the user from the mailer."
 	(erase-buffer)
 	(insert-buffer message-edit-buffer)
 	(funcall message-encode-function)
+	(message-fix-before-sending)
 	(while (and success
 		    (setq elem (pop alist)))
 	  (when (and (or (not (funcall (cadr elem)))