(rmail-reply-regexp): Also ignore mailing list

identifiers sometimes added in square brackets at the beginning of
subject lines.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 120e99900627821d9dcd55e33542fe922730c4cf..b0f39f42cc02f49ff33ac71f6b9225473ee5bfd7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-01-09  Alex Schroeder  <alex@gnu.org>
+
+       * mail/rmail.el (rmail-reply-regexp): Also ignore mailing list
+       identifiers sometimes added in square brackets at the beginning of
+       subject lines.
+
 2006-01-07  Richard M. Stallman  <rms@gnu.org>
 
        * cus-edit.el (Custom-set, Custom-save): Doc fix.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 45df1aa08be5cfab0d639a49f730ed8e8ba89245..1ab32aba45d583712230465e7c09e7fce41d0b1a 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -447,8 +447,10 @@ examples:
   "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