From: yamaoka <yamaoka>
Date: Fri, 25 Dec 1998 03:31:30 +0000 (+0000)
Subject: * (gnus-article-check-buffer): Rewrite (checking for buffer object).
X-Git-Tag: pgnus-ichikawa-199812251900~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a9f56f8eb7f5e61d7026f46b0942b9e1fb892f31;p=elisp%2Fgnus.git-

* (gnus-article-check-buffer): Rewrite (checking for buffer object).
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a5f094a..a409e50 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3099,11 +3099,7 @@ Argument LINES specifies lines to be scrolled down."
 
 (defun gnus-article-check-buffer ()
   "Beep if not in an article buffer."
-  (unless (or (equal major-mode 'gnus-article-mode)
-	      (equal (save-current-buffer
-		       (set-buffer gnus-original-article-buffer)
-		       major-mode)
-		     'gnus-original-article-mode))
+  (unless (eq (get-buffer gnus-article-buffer) (current-buffer))
     (error "Command invoked outside of a Gnus article buffer")))
 
 (defun gnus-article-read-summary-keys (&optional arg key not-restore-window)