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

all windows containing it.

2 files changed, 10 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cbb1714dc77..924c35dae6c 100644
--- a/lisp/ChangeLog
+++ b/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.
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 997568714b6..d55c070b403 100644
--- a/lisp/mail/rmail.el
+++ b/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)