diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-08-05 01:10:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-08-05 01:10:28 +0000 |
| commit | df8a44dd8a72d29cb0daff4913bf5868ba955b6f (patch) | |
| tree | e36fc12e453e53634883edf05445fe65215a55c3 /lisp | |
| parent | 9cac31b8423b3d4afbb2d3ad1dfc9bc80ecf085f (diff) | |
| download | emacs-df8a44dd8a72d29cb0daff4913bf5868ba955b6f.tar.gz emacs-df8a44dd8a72d29cb0daff4913bf5868ba955b6f.tar.bz2 emacs-df8a44dd8a72d29cb0daff4913bf5868ba955b6f.zip | |
*** empty log message ***
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index ba2a9766411..64b8729e08d 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1133,7 +1133,7 @@ Interactively, empty argument means use same regexp used last time." (prefix-numeric-value current-prefix-arg)))) (or n (setq n 1)) (message "%sRmail search for %s..." - (if reversep "Reverse " "") + (if (< n 0) "Reverse " "") regexp) (rmail-maybe-set-message-counters) (let ((omin (point-min)) @@ -1156,7 +1156,7 @@ Interactively, empty argument means use same regexp used last time." (while (and (null win) (< msg rmail-total-messages)) (goto-char (rmail-msgbeg (setq msg (1+ msg)))) (setq win (re-search-forward regexp (rmail-msgend msg) t)))) - (setq n (+ n (if (< n 0) -1 1))))) + (setq n (+ n (if reversep 1 -1))))) (if win (progn ;; If this is a reverse search and we found a message, @@ -1183,7 +1183,7 @@ Prefix argument gives repeat count; negative argument means search forward (through later messages). Interactively, empty argument means use same regexp used last time." (interactive - (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0)) + (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0)) (prompt (concat (if reversep "Reverse " "") "Rmail search (regexp): ")) regexp) |