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

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

2 files changed, 10 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 120e9990062..b0f39f42cc0 100644
--- 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 45df1aa08be..1ab32aba45d 100644
--- 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