From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Mon, 4 Jul 2011 06:40:46 +0000 (+0000)
Subject: nndraft.el: Require gnus-group.
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8db5f6627827ad5b230a9f8e2ca92815793c7d5a;p=emacs.git

nndraft.el: Require gnus-group.
 (nndraft-request-list): Declare.
---

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  <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 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)