(rmail-show-message): Show beginning of message in

all windows containing it.

lisp/ChangeLog

@@ -6,6 +6,11 @@
 	* startup.el (normal-top-level): Don't operate on the initial
 	frame if we failed to create one.
 
+2001-07-10  Markus Rost  <rost@math.ohio-state.edu>
+
+	* mail/rmail.el (rmail-show-message): Show beginning of message in
+	all windows containing it.
+
 2001-07-10  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* term/tty-colors.el: Fix the header line and copyright years.

lisp/mail/rmail.el

@@ -2389,6 +2389,11 @@ If summary buffer is currently displayed, update current message there also."
 	    (search-forward "\n*** EOOH ***\n" end t)
 	    (narrow-to-region (point) end)))
 	(goto-char (point-min))
+	(walk-windows
+	 (function (lambda (window)
+		     (if (eq (window-buffer window) (current-buffer))
+			 (set-window-point window (point)))))
+	 nil t)
 	(rmail-display-labels)
 	(if (eq rmail-enable-mime t)
 	    (funcall rmail-show-mime-function)