# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1236068036 0
# Node ID 6a06f943ee6defcef5b1c675dc51c660939b8bcc
# Parent  8e96a66e8df3f138c8054f274e682b69930b1be0
(rmail-summary-search): Ensure the selected message shows.

diff -r 8e96a66e8df3 -r 6a06f943ee6d lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Mar 03 07:36:19 2009 +0000
+++ b/lisp/ChangeLog	Tue Mar 03 08:13:56 2009 +0000
@@ -11,6 +11,7 @@
 	(rmail-summary-mode-map): Bind C-o to output-as-seen, not output.
 	Make the output menu-items consistent with rmail-mode-map.
 	Bind rmail-summary-by-senders to C-M-f.
+	(rmail-summary-search): Ensure the selected message shows.
 
 2009-03-03  Kenichi Handa  <handa@m17n.org>
 
diff -r 8e96a66e8df3 -r 6a06f943ee6d lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Tue Mar 03 07:36:19 2009 +0000
+++ b/lisp/mail/rmailsum.el	Tue Mar 03 08:13:56 2009 +0000
@@ -1034,6 +1034,8 @@
   (define-key rmail-summary-mode-map "Q"      'rmail-summary-wipe)
   (define-key rmail-summary-mode-map "r"      'rmail-summary-reply)
   (define-key rmail-summary-mode-map "s"      'rmail-summary-expunge-and-save)
+  ;; See rms's comment in rmail.el
+;;;  (define-key rmail-summary-mode-map "\er"    'rmail-summary-search-backward)
   (define-key rmail-summary-mode-map "\es"    'rmail-summary-search)
   (define-key rmail-summary-mode-map "t"      'rmail-summary-toggle-header)
   (define-key rmail-summary-mode-map "u"      'rmail-summary-undelete)
@@ -1535,11 +1537,13 @@
 	    (prefix-numeric-value current-prefix-arg))))
   ;; Don't use save-excursion because that prevents point from moving
   ;; properly in the summary buffer.
-  (let ((buffer (current-buffer)))
+  (let ((buffer (current-buffer))
+	(selwin (selected-window)))
     (unwind-protect
 	(progn
-	  (set-buffer rmail-buffer)
+	  (pop-to-buffer rmail-buffer)
 	  (rmail-search regexp n))
+      (select-window selwin)
       (set-buffer buffer))))
 
 (defun rmail-summary-toggle-header ()