# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1078491363 0
# Node ID 1395db4938306a9fe334c3efbd8cb9188871a390
# Parent  73cd5983fdb97fd84777d8058993ec00ad0b0f62
(mail-mode): Fix last change.

diff -r 73cd5983fdb9 -r 1395db493830 lisp/mail/sendmail.el
--- 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]*\\|"