# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 994774908 0
# Node ID 37bce1f38f0aab7742793ae4c8272c4ab4f92c74
# Parent  a46ae523cdb2ebc5a20422abfd2260ff9888421d
(rmail-show-message): Show beginning of message in
all windows containing it.

diff -r a46ae523cdb2 -r 37bce1f38f0a lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Tue Jul 10 14:18:41 2001 +0000
+++ b/lisp/mail/rmail.el	Tue Jul 10 14:21:48 2001 +0000
@@ -2389,6 +2389,11 @@
 	    (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)