changeset 54286:1395db493830

(mail-mode): Fix last change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 05 Mar 2004 12:56:03 +0000
parents 73cd5983fdb9
children 5284e720208b
files lisp/mail/sendmail.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Fri Mar 05 11:31:58 2004 +0000
+++ b/lisp/mail/sendmail.el	Fri Mar 05 12:56:03 2004 +0000
@@ -512,8 +512,9 @@
   ;; Allow using comment commands to add/remove quoting (this only does
   ;; anything if mail-yank-prefix is set to a non-nil value).
   (set (make-local-variable 'comment-start) mail-yank-prefix)
-  (set (make-local-variable 'comment-start-skip)
-       (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*"))
+  (if mail-yank-prefix
+      (set (make-local-variable 'comment-start-skip)
+	   (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*")))
   (make-local-variable 'adaptive-fill-regexp)
   (setq adaptive-fill-regexp
 	(concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|"