X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmessage.el;h=a6e007a07b0a18719d234e661a19527b69d8f8d6;hb=554522c045d2306eca66e7407fb9797ae722d35e;hp=c8a706e44dec9f0bb377ff64c9c5c4c26fa46dc6;hpb=b2ea476e0bc6e2973976b376c15be5381fe3127f;p=gnus

diff --git a/lisp/message.el b/lisp/message.el
index c8a706e44..a6e007a07 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1858,7 +1858,12 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
 
 (defvar	message-options nil
   "Some saved answers when sending message.")
-(make-variable-buffer-local 'message-options)
+;; FIXME: On XEmacs this causes problems since let-binding like:
+;; (let ((message-options message-options)) ...)
+;; as in `message-send' and `mml-preview' loses to buffer-local
+;; variable initialization.
+(unless (featurep 'xemacs)
+  (make-variable-buffer-local 'message-options))
 
 (defvar message-send-mail-real-function nil
   "Internal send mail function.")