Mercurial > emacs

changeset 54287:5284e720208b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(message-mode): Fix last change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 05 Mar 2004 12:56:55 +0000
parents 1395db493830
children 835062cf7863
files lisp/gnus/message.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)