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

2 files changed, 10 insertions, 5 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 60679f8250a..7fa3fb61ce5 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2004-03-04  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * message.el (message-mode): Set comment-start-skip.
+
 2004-02-08  Andreas Schwab  <schwab@suse.de>
 
         * nnlistserv.el (nnlistserv-kk-wash-article): Fix paren nesting.
@@ -30,8 +34,8 @@
 
 2003-05-06  Jesper Harder  <harder@ifa.au.dk>
 
-        * gnus-cus.el (gnus-group-customize, gnus-score-parameters): Don't
-        quote nil and t in docstrings.
+        * gnus-cus.el (gnus-group-customize, gnus-score-parameters):
+        Don't quote nil and t in docstrings.
 
         * gnus-score.el (gnus-score-lower-thread): Likewise.
 
@@ -47,8 +51,7 @@
 
 2003-02-18  Juanma Barranquero  <lektu@terra.es>
 
-        * ietf-drums.el (ietf-drums-remove-whitespace): Fix character
-        constant.
+        * ietf-drums.el (ietf-drums-remove-whitespace): Fix character constant.
 
 2003-02-14  Juanma Barranquero  <lektu@terra.es>
 
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 8edb5142ddd..874307383c2 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1,5 +1,5 @@
 ;;; message.el --- composing mail and news messages  -*- coding: iso-latin-1 -*-
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2004
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -1532,6 +1532,8 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
   (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 (fboundp 'mail-hist-define-keys)
   ;;  (mail-hist-define-keys))
   (if (featurep 'xemacs)