From e8417bb000216ccf357b3b7f602338e7701f2838 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 21 Jul 1996 19:21:11 +0000 Subject: [PATCH] (rmail-next-same-subject): Don't set search-regexp until after adjusting subject string. --- lisp/mail/rmail.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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) -- 2.39.5