Fix my last change.

[gnus] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index f8e0cc2..38073b4 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -665,8 +665,9 @@ Valid valued are `unique' and `unsent'."
                 (const :tag "unsent" unsent)))
 
 (defcustom message-default-charset 
-  (and (featurep 'xemacs) (not (featurep 'mule)) 'iso-8859-1)
-  "Default charset used in non-MULE XEmacsen."
+  (and (not (mm-multibyte-p)) 'iso-8859-1)
+  "Default charset used in non-MULE Emacsen.
+If nil, you might be asked to input the charset."
   :group 'message
   :type 'symbol)
 
@@ -910,6 +911,7 @@ The first matched address (not primary one) is used in the From field."
 
 ;;; Internal variables.
 
+(defvar message-sending-message "Sending...")
 (defvar message-buffer-list nil)
 (defvar message-this-is-news nil)
 (defvar message-this-is-mail nil)
@@ -2118,7 +2120,7 @@ It should typically alter the sending method in some way or other."
     (put-text-property (point-min) (point-max) 'read-only nil))
   (message-fix-before-sending)
   (run-hooks 'message-send-hook)
-  (message "Sending...")
+  (message message-sending-message)
   (let ((alist message-send-method-alist)
        (success t)
        elem sent)