From: yamaoka <yamaoka>
Date: Tue, 22 Dec 1998 02:59:52 +0000 (+0000)
Subject: * (gnus-article-check-buffer): Check a major-mode in
X-Git-Tag: pgnus-ichikawa-199812221900~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=94347b0d7c138a77042cea96942b3efab7bf1f4e;p=elisp%2Fgnus.git-

* (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'.
---

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)