# HG changeset patch # User Stefan Monnier # Date 1078430265 0 # Node ID d6041d05bc8610c7d4d21735f612a46a0c027003 # Parent 0c512d4c08e176d1365f99fe3f1eb0d57b7c91bc (message-mode): Set comment-start-skip. diff -r 0c512d4c08e1 -r d6041d05bc86 lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Thu Mar 04 19:20:35 2004 +0000 +++ b/lisp/gnus/ChangeLog Thu Mar 04 19:57:45 2004 +0000 @@ -1,3 +1,7 @@ +2004-03-04 Stefan Monnier + + * message.el (message-mode): Set comment-start-skip. + 2004-02-08 Andreas Schwab * nnlistserv.el (nnlistserv-kk-wash-article): Fix paren nesting. @@ -30,8 +34,8 @@ 2003-05-06 Jesper Harder - * 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 - * 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 diff -r 0c512d4c08e1 -r d6041d05bc86 lisp/gnus/message.el --- a/lisp/gnus/message.el Thu Mar 04 19:20:35 2004 +0000 +++ b/lisp/gnus/message.el Thu Mar 04 19:57:45 2004 +0000 @@ -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 @@ -1532,6 +1532,8 @@ (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)