# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 837976871 0
# Node ID d7a83c7ea12a1608326da48928c0627d13ea41a5
# Parent  982e70ecd0deba737d39f7eec71c09aaa615c1e3
(rmail-next-same-subject): Don't set search-regexp
until after adjusting subject string.

diff -r 982e70ecd0de -r d7a83c7ea12a lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun Jul 21 18:38:38 1996 +0000
+++ b/lisp/mail/rmail.el	Sun Jul 21 19:21:11 1996 +0000
@@ -1914,15 +1914,15 @@
 With prefix argument N, do this N times.
 If N is negative, go backwards instead."
   (interactive "p")
-  (let* ((subject (mail-fetch-field "Subject"))
-	 (search-regexp (concat "^Subject: *\\(Re: *\\)?"
+  (let ((subject (mail-fetch-field "Subject"))
+	(forward (> n 0))
+	(i rmail-current-message)
+	search-regexp found)
+    (if (string-match "Re:[ \t]*" subject)
+	(setq subject (substring subject (match-end 0))))
+    (setq search-regexp (concat "^Subject: *\\(Re: *\\)?"
 				(regexp-quote subject)
 				"\n"))
-	 (forward (> n 0))
-	 (i rmail-current-message)
-	 found)
-    (if (string-match "Re:[ \t]*" subject)
-	(setq subject (substring subject (match-end 0))))
     (save-excursion
       (save-restriction
 	(widen)