From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 21 Jul 1996 19:21:11 +0000 (+0000)
Subject: (rmail-next-same-subject): Don't set search-regexp
X-Git-Tag: emacs-19.34~116
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8417bb000216ccf357b3b7f602338e7701f2838;p=emacs.git

(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 61cc9938870..3663bdf29d5 100644
--- 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)