# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1078430304 0
# Node ID e83b2d0cd6148e1336af5ad16424ea0663d9ead6
# Parent  d6041d05bc8610c7d4d21735f612a46a0c027003
(mail-mode): Set comment-start-skip.

diff -r d6041d05bc86 -r e83b2d0cd614 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Thu Mar 04 19:57:45 2004 +0000
+++ b/lisp/mail/sendmail.el	Thu Mar 04 19:58:24 2004 +0000
@@ -1,6 +1,6 @@
 ;;; sendmail.el --- mail sending commands for Emacs.  -*- byte-compile-dynamic: t -*-
 
-;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001, 2002, 2003
+;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001, 2002, 03, 2004
 ;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -512,6 +512,8 @@
   ;; 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]*"))
   (make-local-variable 'adaptive-fill-regexp)
   (setq adaptive-fill-regexp
 	(concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|"