From 769996d3748cf4db21892015b6df1411973cdb85 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 4 Mar 2004 19:57:45 +0000 Subject: [PATCH] (message-mode): Set comment-start-skip. --- lisp/gnus/ChangeLog | 11 +++++++---- lisp/gnus/message.el | 4 +++- 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 + + * 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 --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 @@ -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) -- 2.39.5