Mercurial > emacs

changeset 937:0f082d63bfd6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Wed, 05 Aug 1992 01:10:28 +0000
parents d91c2a61a3ad
children 7a14bb062617
files lisp/mail/rmail.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Tue Aug 04 22:31:21 1992 +0000
+++ b/lisp/mail/rmail.el	Wed Aug 05 01:10:28 1992 +0000
@@ -1133,7 +1133,7 @@
 	    (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 @@
 	      (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 @@
 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)