Mercurial > emacs
changeset 38352:37bce1f38f0a
(rmail-show-message): Show beginning of message in
all windows containing it.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 10 Jul 2001 14:21:48 +0000 |
| parents | a46ae523cdb2 |
| children | ff4a8bdab138 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)