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

all windows containing it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cbb1714dc77e3604bc67482b31e1e8b23355fa7c..924c35dae6ccfb547e1b0b69fbec44461882c855 100644 (file)
--- 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 997568714b6f989499803a58dde2abdb802850c3..d55c070b403e97dc66c78d7d5adadc4a28a1d223 100644 (file)
--- 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)