* message.el (message-default-charset): Set default value in

non-MULE XEmacsen as iso-8859-1.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0dd0f10..c9ef545 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-20 17:37:46  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-default-charset): Set default value in
+       non-MULE XEmacsen as iso-8859-1.
+
 2000-09-20 12:02:24  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-demon.el: Use (featurep 'xemacs).

diff --git a/lisp/message.el b/lisp/message.el
index 15bcb2a..ff50ef5 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -664,7 +664,8 @@ Valid valued are `unique' and `unsent'."
   :type '(choice (const :tag "unique" unique)
                 (const :tag "unsent" unsent)))
 
-(defcustom message-default-charset nil
+(defcustom message-default-charset 
+  (and (featurep 'xemacs) (not (featurep 'mule)) 'iso-8859-1)
   "Default charset used in non-MULE XEmacsen."
   :group 'message
   :type 'symbol)