diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-07-21 19:21:11 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-07-21 19:21:11 +0000 |
| commit | e8417bb000216ccf357b3b7f602338e7701f2838 (patch) | |
| tree | 5f16639f58aa61dadfe17cbffb8c1f1aaa9c91d8 /lisp | |
| parent | c22161a406eeb054583bb1249597fe4e2439ec59 (diff) | |
| download | emacs-e8417bb000216ccf357b3b7f602338e7701f2838.tar.gz | |
(rmail-next-same-subject): Don't set search-regexp
until after adjusting subject string.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 14 |
1 files 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) |