From 8db5f6627827ad5b230a9f8e2ca92815793c7d5a Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 4 Jul 2011 06:40:46 +0000 Subject: [PATCH] nndraft.el: Require gnus-group. (nndraft-request-list): Declare. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/nndraft.el | 7 +++++++ 2 files changed, 10 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index d621333f287..e5f6250c761 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2011-07-04 Katsumi Yamaoka + * nndraft.el: Require gnus-group. + (nndraft-request-list): Declare. + * nndraft.el (nndraft-update-unread-articles): Don't show group having no unread article unless it matches gnus-permanently-visible-groups. diff --git a/lisp/gnus/nndraft.el b/lisp/gnus/nndraft.el index 459778bf4b3..f528222dd16 100644 --- a/lisp/gnus/nndraft.el +++ b/lisp/gnus/nndraft.el @@ -24,14 +24,21 @@ ;;; Code: +;; For Emacs <22.2 and XEmacs. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (require 'nnheader) (require 'nnmail) (require 'gnus-start) +(require 'gnus-group) (require 'nnmh) (require 'nnoo) (require 'mm-util) (eval-when-compile (require 'cl)) +(declare-function nndraft-request-list "nnmh" (&rest args)) + (nnoo-declare nndraft nnmh) -- 2.39.2