changeset 10640:937cc7f2a790

(rmail-reply-regexp): New var. (rmail-reply): Delete text matching rmail-reply-regexp.
author Karl Heuer <kwzh@gnu.org>
date Fri, 03 Feb 1995 04:21:05 +0000
parents dc32b19de050
children 88afc23d1474
files lisp/mail/rmail.el
diffstat 1 files changed, 11 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Thu Feb 02 23:07:44 1995 +0000
+++ b/lisp/mail/rmail.el	Fri Feb 03 04:21:05 1995 +0000
@@ -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 @@
 (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 @@
 				(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