nndraft.el: Require gnus-group.

 (nndraft-request-list): Declare.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index d621333f287028c394252238756efa3c7029a7b8..e5f6250c7613272e6b71deca8fa1c4353bbc26d1 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2011-07-04  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * 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 459778bf4b337fe7e164649da9aee96ca7b697d8..f528222dd1662e7c8201b937e09706714d78def2 100644 (file)
--- 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)