From a9f56f8eb7f5e61d7026f46b0942b9e1fb892f31 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 25 Dec 1998 03:31:30 +0000 Subject: [PATCH] * (gnus-article-check-buffer): Rewrite (checking for buffer object). --- lisp/gnus-art.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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) -- 1.7.10.4