[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a20d2e6: * lisp/gnus/gnus-art.el (gnus-article-prep
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master a20d2e6: * lisp/gnus/gnus-art.el (gnus-article-prepare): Fix previous commit, |
Date: |
Fri, 13 Apr 2018 03:42:41 -0400 (EDT) |
branch: master
commit a20d2e6625392cced400f5983f998bf2673c9d57
Author: martin rudalics <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
* lisp/gnus/gnus-art.el (gnus-article-prepare): Fix previous commit,
in which selecting the article window is not necessary (bug#25526).
---
lisp/gnus/gnus-art.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index f8a29ea..ed6e77f 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -4697,9 +4697,10 @@ If ALL-HEADERS is non-nil, no headers are hidden."
(set-window-point (get-buffer-window (current-buffer)) (point))
(gnus-configure-windows 'article)
;; Make sure the article begins with the top of the header.
- (save-selected-window
- (select-window (get-buffer-window gnus-article-buffer))
- (goto-char (point-min)))
+ (let ((window (get-buffer-window gnus-article-buffer)))
+ (when window
+ (with-current-buffer (window-buffer window)
+ (set-window-point window (point-min)))))
(gnus-run-hooks 'gnus-article-prepare-hook)
t))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master a20d2e6: * lisp/gnus/gnus-art.el (gnus-article-prepare): Fix previous commit,,
Katsumi Yamaoka <=