From 94347b0d7c138a77042cea96942b3efab7bf1f4e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 22 Dec 1998 02:59:52 +0000 Subject: [PATCH] * (gnus-article-check-buffer): Check a major-mode in `gnus-original-article-buffer' as well. (gnus-article-prepare-display): Set `gnus-article-current-summary' to `gnus-summary-buffer'. --- lisp/gnus-art.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 5d34e5d..07442cf 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2373,7 +2373,7 @@ If ALL-HEADERS is non-nil, no headers are hidden." ;; Display message. (funcall method) ;; Associate this article with the current summary buffer. - (setq gnus-article-current-summary (current-buffer)) + (setq gnus-article-current-summary gnus-summary-buffer) ;; Perform the article display hooks. (gnus-run-hooks 'gnus-article-display-hook))) @@ -3079,7 +3079,11 @@ Argument LINES specifies lines to be scrolled down." (defun gnus-article-check-buffer () "Beep if not in an article buffer." - (unless (equal major-mode 'gnus-article-mode) + (unless (or (equal major-mode 'gnus-article-mode) + (equal (save-current-buffer + (set-buffer gnus-original-article-buffer) + major-mode) + 'gnus-original-article-mode)) (error "Command invoked outside of a Gnus article buffer"))) (defun gnus-article-read-summary-keys (&optional arg key not-restore-window) -- 1.7.10.4