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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 60679f8250aa47116aa7265c7e8e35eb7e1ddf3a..7fa3fb61ce5b94290b2c90c0b27adc6e05bb1eba 100644 (file)
--- 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 8edb5142ddd51157034f5ec1004d61d6564f988e..874307383c2a859c13b378b41ae988e0d0382cfa 100644 (file)
--- 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)