diff options
| author | Katsumi Yamaoka | 2011-07-04 06:40:46 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2011-07-04 06:40:46 +0000 |
| commit | 8db5f6627827ad5b230a9f8e2ca92815793c7d5a (patch) | |
| tree | 173cd39cc2d3064b0fc7061407b23103a279b66a | |
| parent | 396cec7251b26e5d37e9359dbf6a1b63c8f3a9e2 (diff) | |
| download | emacs-8db5f6627827ad5b230a9f8e2ca92815793c7d5a.tar.gz emacs-8db5f6627827ad5b230a9f8e2ca92815793c7d5a.zip | |
nndraft.el: Require gnus-group.
(nndraft-request-list): Declare.
| -rw-r--r-- | lisp/gnus/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/gnus/nndraft.el | 7 |
2 files changed, 10 insertions, 0 deletions
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 @@ | |||
| 1 | 2011-07-04 Katsumi Yamaoka <yamaoka@jpl.org> | 1 | 2011-07-04 Katsumi Yamaoka <yamaoka@jpl.org> |
| 2 | 2 | ||
| 3 | * nndraft.el: Require gnus-group. | ||
| 4 | (nndraft-request-list): Declare. | ||
| 5 | |||
| 3 | * nndraft.el (nndraft-update-unread-articles): Don't show group having | 6 | * nndraft.el (nndraft-update-unread-articles): Don't show group having |
| 4 | no unread article unless it matches gnus-permanently-visible-groups. | 7 | no unread article unless it matches gnus-permanently-visible-groups. |
| 5 | 8 | ||
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 @@ | |||
| 24 | 24 | ||
| 25 | ;;; Code: | 25 | ;;; Code: |
| 26 | 26 | ||
| 27 | ;; For Emacs <22.2 and XEmacs. | ||
| 28 | (eval-and-compile | ||
| 29 | (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) | ||
| 30 | |||
| 27 | (require 'nnheader) | 31 | (require 'nnheader) |
| 28 | (require 'nnmail) | 32 | (require 'nnmail) |
| 29 | (require 'gnus-start) | 33 | (require 'gnus-start) |
| 34 | (require 'gnus-group) | ||
| 30 | (require 'nnmh) | 35 | (require 'nnmh) |
| 31 | (require 'nnoo) | 36 | (require 'nnoo) |
| 32 | (require 'mm-util) | 37 | (require 'mm-util) |
| 33 | (eval-when-compile (require 'cl)) | 38 | (eval-when-compile (require 'cl)) |
| 34 | 39 | ||
| 40 | (declare-function nndraft-request-list "nnmh" (&rest args)) | ||
| 41 | |||
| 35 | (nnoo-declare nndraft | 42 | (nnoo-declare nndraft |
| 36 | nnmh) | 43 | nnmh) |
| 37 | 44 | ||