Mercurial > emacs

changeset 100433:9c48475923d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pmail): Call pmail-swap-buffers-maybe. (pmail-search): Call pmail-swap-buffers-maybe.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 15 Dec 2008 14:56:06 +0000
parents 0bc687931a56
children f4b6b3bfdeae
files lisp/mail/pmail.el
diffstat 1 files changed, 22 insertions(+), 23 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/pmail.el	Mon Dec 15 14:55:32 2008 +0000
+++ b/lisp/mail/pmail.el	Mon Dec 15 14:56:06 2008 +0000
@@ -871,7 +871,7 @@
 	 (find-file-noselect file-name))))
     ;; Insure that the collection and view buffers are in sync and
     ;; insure that a message is not being edited.
-    (setq pmail-buffers-swapped-p nil)
+    (pmail-swap-buffers-maybe)
     (if (eq major-mode 'pmail-edit-mode)
 	(error "Exit Pmail Edit mode before getting new mail"))
     ;; Insure that the Rmail file is in mbox format, the buffer is in
@@ -2795,28 +2795,27 @@
 	   (if (< n 0) "Reverse " "")
 	   regexp)
   (set-buffer pmail-buffer)
-  (pmail-maybe-set-message-counters)
-  (let ((omin (point-min))
-	(omax (point-max))
-	(opoint (point))
-	win
+  (let ((orig-message pmail-current-message)
+	(msg pmail-current-message)
 	(reversep (< n 0))
-	(msg pmail-current-message))
+	(opoint (if pmail-buffers-swapped-p (point)))
+	found)
+    (pmail-swap-buffers-maybe)
+    (pmail-maybe-set-message-counters)
+    (widen)
     (unwind-protect
-	(progn
-	  (widen)
-	  (while (/= n 0)
-	    ;; Check messages one by one, advancing message number up or down
-	    ;; but searching forward through each message.
-	    (if reversep
-		(while (and (null win) (> msg 1))
-		  (setq msg (1- msg)
-			win (pmail-search-message msg regexp)))
-	      (while (and (null win) (< msg pmail-total-messages))
-		(setq msg (1+ msg)
-		      win (pmail-search-message msg regexp))))
-	    (setq n (+ n (if reversep 1 -1)))))
-      (if win
+	(while (/= n 0)
+	  ;; Check messages one by one, advancing message number up or
+	  ;; down but searching forward through each message.
+	  (if reversep
+	      (while (and (null found) (> msg 1))
+		(setq msg (1- msg)
+		      found (pmail-search-message msg regexp)))
+	    (while (and (null found) (< msg pmail-total-messages))
+	      (setq msg (1+ msg)
+		    found (pmail-search-message msg regexp))))
+	  (setq n (+ n (if reversep 1 -1))))
+      (if found
 	  (progn
 	    (pmail-show-message-maybe msg)
 	    ;; Search forward (if this is a normal search) or backward
@@ -2834,8 +2833,8 @@
 	    (message "%sPmail search for %s...done"
 		     (if reversep "Reverse " "")
 		     regexp))
-	(goto-char opoint)
-	(narrow-to-region omin omax)
+	(pmail-show-message-maybe orig-message)
+	(if opoint (goto-char opoint))
 	(ding)
 	(message "Search failed: %s" regexp)))))