Re: Eliminating repetitious "Re: Re: Re: ..."

[Karl Kleinpaste <karl@charcoal.com>]

[-- Attachment #1: Type: text/plain, Size: 322 bytes --]

ShengHuo ZHU <zsh@cs.rochester.edu> writes:
> What if the header is
>      Subject: [foo] Re: [foo] Re: [foo] Re: the original subject

Then the identifiers should be removed one at a time.

Below is a new patch (from original source) which loops until no more
identifiers are present, and then eliminates excess "Re: ".


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: updated nnmail Re: patch --]
[-- Type: text/x-patch, Size: 856 bytes --]

--- lisp/nnmail.el.~1~	Tue Jan 23 09:12:11 2001
+++ lisp/nnmail.el	Wed Jan 31 14:09:26 2001
@@ -1096,10 +1096,14 @@
 		  (mapconcat 'identity nnmail-list-identifiers " *\\|"))))
     (when regexp
       (goto-char (point-min))
-      (when (re-search-forward
-	     (concat "^Subject: +\\(Re: +\\)?\\(" regexp " *\\)")
-	     nil t)
-	(delete-region (match-beginning 2) (match-end 0))))))
+      (while (re-search-forward
+              (concat "^Subject: +\\(R[Ee]: +\\)*\\(" regexp " *\\)")
+              nil t)
+        (delete-region (match-beginning 2) (match-end 0))
+        (beginning-of-line))
+      (when (re-search-forward "^Subject: +\\(\\(R[Ee]: +\\)+\\)R[Ee]: +" nil t)
+        (delete-region (match-beginning 1) (match-end 1))
+	(beginning-of-line)))))
 
 (defun nnmail-remove-tabs ()
   "Translate TAB characters into SPACE characters."