Mercurial > emacs

changeset 15746:d7a83c7ea12a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-next-same-subject): Don't set search-regexp until after adjusting subject string.
author Karl Heuer <kwzh@gnu.org>
date Sun, 21 Jul 1996 19:21:11 +0000
parents 982e70ecd0de
children a0933adcee9e
files lisp/mail/rmail.el
diffstat 1 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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)