(rmail-reply-regexp): New var.

(rmail-reply): Delete text matching rmail-reply-regexp.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 457b443a6a1ef04e0d5b583b0d385267558df0a2..0bc70936edb8270c0fa702a3b98ab04ab910d2a3 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1,6 +1,6 @@
 ;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
 
-;; Copyright (C) 1985,86,87,88,93,94 Free Software Foundation, Inc.
+;; Copyright (C) 1985,86,87,88,93,94,95 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: mail
@@ -122,6 +122,11 @@ Called with region narrowed to the message, including headers.")
 (defvar rmail-reply-prefix "Re: "
   "String to prepend to Subject line when replying to a message.")
 
+;; Some mailers use "Re(2):" or "Re^2:" or "Re: Re:".
+;; This pattern should catch all the common variants.
+(defvar rmail-reply-regexp "\\`\\(Re\\(([0-9]+)\\|\\^[0-9]+\\)?: *\\)*"
+  "Regexp to delete from Subject line before inserting rmail-reply-prefix.")
+
 (defvar rmail-display-summary nil
   "If non nil, the summary buffer is always displayed.")
 
@@ -1975,9 +1980,11 @@ use \\[mail-yank-original] to yank the original message into it."
                                (mail-fetch-field "resent-message-id" t))
                               ((mail-fetch-field "message-id"))))))
     (and (stringp subject)
-        (or (string-match (concat "\\`" (regexp-quote rmail-reply-prefix))
-                          subject)
-            (setq subject (concat rmail-reply-prefix subject))))
+        (setq subject
+              (concat rmail-reply-prefix
+                      (if (string-match rmail-reply-regexp subject)
+                          (substring subject (match-end 0))
+                        subject))))
     (rmail-start-mail nil
       (mail-strip-quoted-names reply-to)
       subject