From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 4 Mar 2004 19:58:24 +0000 (+0000)
Subject: (mail-mode): Set comment-start-skip.
X-Git-Tag: ttn-vms-21-2-B4~7345
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa83be2adf1a889b0ad3fd2d43909e8b02edb3d4;p=emacs.git

(mail-mode): Set comment-start-skip.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index c44ea46243a..659de4f227c 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -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 @@ Turning on Mail mode runs the normal hooks `text-mode-hook' and
   ;; 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]*\\|"