(rmail-next-same-subject): Don't set search-regexp

until after adjusting subject string.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 61cc9938870d9d5f5b415d3706b5c00708f046d0..3663bdf29d5a9726b06c8ae8e6e5b2ed44d08e33 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1914,15 +1914,15 @@ Interactively, empty argument means use same regexp used last time."
 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: *\\)?"
-                               (regexp-quote subject)
-                               "\n"))
-        (forward (> n 0))
-        (i rmail-current-message)
-        found)
+  (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"))
     (save-excursion
       (save-restriction
        (widen)