diff options
| author | martin rudalics | 2018-04-13 07:42:19 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2018-04-13 07:42:19 +0000 |
| commit | a20d2e6625392cced400f5983f998bf2673c9d57 (patch) | |
| tree | 6d76655a6ebf7590d38cb5c3741e9b8d9a06a236 | |
| parent | 93678bffe6427b9d83dae032c56a4e480539a4a7 (diff) | |
| download | emacs-a20d2e6625392cced400f5983f998bf2673c9d57.tar.gz emacs-a20d2e6625392cced400f5983f998bf2673c9d57.zip | |
* lisp/gnus/gnus-art.el (gnus-article-prepare): Fix previous commit,
in which selecting the article window is not necessary (bug#25526).
| -rw-r--r-- | lisp/gnus/gnus-art.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index f8a29ea2e51..ed6e77fb329 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." | |||
| 4697 | (set-window-point (get-buffer-window (current-buffer)) (point)) | 4697 | (set-window-point (get-buffer-window (current-buffer)) (point)) |
| 4698 | (gnus-configure-windows 'article) | 4698 | (gnus-configure-windows 'article) |
| 4699 | ;; Make sure the article begins with the top of the header. | 4699 | ;; Make sure the article begins with the top of the header. |
| 4700 | (save-selected-window | 4700 | (let ((window (get-buffer-window gnus-article-buffer))) |
| 4701 | (select-window (get-buffer-window gnus-article-buffer)) | 4701 | (when window |
| 4702 | (goto-char (point-min))) | 4702 | (with-current-buffer (window-buffer window) |
| 4703 | (set-window-point window (point-min))))) | ||
| 4703 | (gnus-run-hooks 'gnus-article-prepare-hook) | 4704 | (gnus-run-hooks 'gnus-article-prepare-hook) |
| 4704 | t)))))) | 4705 | t)))))) |
| 4705 | 4706 | ||