--- lisp/nnmail.el.~1~	Tue Jan 23 09:12:11 2001
+++ lisp/nnmail.el	Wed Jan 31 09:30:30 2001
@@ -1097,9 +1097,12 @@
     (when regexp
       (goto-char (point-min))
       (when (re-search-forward
-	     (concat "^Subject: +\\(Re: +\\)?\\(" regexp " *\\)")
+	     (concat "^Subject: +\\(R[Ee]: +\\)?\\(" regexp " *\\)")
 	     nil t)
-	(delete-region (match-beginning 2) (match-end 0))))))
+	(delete-region (match-beginning 2) (match-end 0)))
+      (goto-char (point-min))
+      (when (re-search-forward "^Subject: +\\(R[Ee]: +\\)+R[Ee]: +" nil t)
+	(delete-region (match-beginning 1) (match-end 1))))))
 
 (defun nnmail-remove-tabs ()
   "Translate TAB characters into SPACE characters."