# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1078491415 0
# Node ID 5284e720208bf360494e5eb8c8137c5c013e161a
# Parent  1395db4938306a9fe334c3efbd8cb9188871a390
(message-mode): Fix last change.

diff -r 1395db493830 -r 5284e720208b lisp/gnus/message.el
--- a/lisp/gnus/message.el	Fri Mar 05 12:56:03 2004 +0000
+++ b/lisp/gnus/message.el	Fri Mar 05 12:56:55 2004 +0000
@@ -1531,9 +1531,10 @@
   (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)