mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1992-08-05 01:10:28 +00:00
parent 9cac31b842
commit df8a44dd8a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/rmail.el
View File

@ -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)