(message-mode): Fix last change.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 874307383c2a859c13b378b41ae988e0d0382cfa..4c6284b6d85cb6314a790755d955a1e35e51e649 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1531,9 +1531,10 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
   (set (make-local-variable 'message-mime-part) 0)
   (message-setup-fill-variables)
   ;; Allow using comment commands to add/remove quoting.
-  (set (make-local-variable 'comment-start) message-yank-prefix)
-  (set (make-local-variable 'comment-start-skip)
-       (concat "^" (regexp-quote message-yank-prefix) "[ \t]*"))
+  (when message-yank-prefix
+    (set (make-local-variable 'comment-start) message-yank-prefix)
+    (set (make-local-variable 'comment-start-skip)
+        (concat "^" (regexp-quote message-yank-prefix) "[ \t]*")))
   ;;(when (fboundp 'mail-hist-define-keys)
   ;;  (mail-hist-define-keys))
   (if (featurep 'xemacs)