Mercurial > emacs

changeset 68094:b62da271055d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-reply-regexp): Also ignore mailing list identifiers sometimes added in square brackets at the beginning of subject lines.
author Alex Schroeder <alex@gnu.org>
date Sun, 08 Jan 2006 23:47:07 +0000
parents 2212a4afa3ce
children 0a239e9952a6
files lisp/mail/rmail.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Sun Jan 08 21:29:46 2006 +0000
+++ b/lisp/mail/rmail.el	Sun Jan 08 23:47:07 2006 +0000
@@ -447,8 +447,10 @@
   "String to prepend to Subject line when replying to a message.")
 
 ;; Some mailers use "Re(2):" or "Re^2:" or "Re: Re:" or "Re[2]:".
-;; This pattern should catch all the common variants.
-(defvar rmail-reply-regexp "\\`\\(Re\\(([0-9]+)\\|\\[[0-9]+\\]\\|\\^[0-9]+\\)?: *\\)*"
+;; This pattern should catch all the common variants.  The pattern
+;; also ignores mailing list identifiers sometimes added in square
+;; brackets at the beginning of subject lines.
+(defvar rmail-reply-regexp "\\`\\(\\[.+?\\] \\)?\\(Re\\(([0-9]+)\\|\\[[0-9]+\\]\\|\\^[0-9]+\\)?: *\\)*"
   "Regexp to delete from Subject line before inserting `rmail-reply-prefix'.")
 
 (defcustom rmail-display-summary nil