Mercurial > emacs
changeset 54277:d6041d05bc86
(message-mode): Set comment-start-skip.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 04 Mar 2004 19:57:45 +0000 |
| parents | 0c512d4c08e1 |
| children | e83b2d0cd614 |
| files | lisp/gnus/ChangeLog lisp/gnus/message.el |
| diffstat | 2 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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 <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>
--- 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 <larsi@gnus.org> @@ -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)