Mercurial > emacs
changeset 87235:1efb9854eedf
Add declare-function compatibility definition.
(nndb-request-article): Declare as a function.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 11 Dec 2007 05:25:51 +0000 |
| parents | 532e902090ef |
| children | 8cbce6c6b6c0 |
| files | lisp/gnus/nndb.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/nndb.el Tue Dec 11 05:25:23 2007 +0000 +++ b/lisp/gnus/nndb.el Tue Dec 11 05:25:51 2007 +0000 @@ -48,6 +48,12 @@ ;; * make the backend TOUCH an article when marked as expireable (will ;; make article expire 'expiry' days after that moment). +;;; Code: + +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + ;;- ;; Register nndb with known select methods. @@ -55,8 +61,6 @@ (unless (assoc "nndb" gnus-valid-select-methods) (gnus-declare-backend "nndb" 'mail 'respool 'address 'prompt-address)) -;;; Code: - (require 'nnmail) (require 'nnheader) (require 'nntp) @@ -240,6 +244,9 @@ (nndb-request-expire-articles-remote articles group server force) (nndb-request-expire-articles-local articles group server force))) +;; _Something_ defines it... +(declare-function nndb-request-article "nndb" t t) + (deffoo nndb-request-move-article (article group server accept-form &optional last move-is-internal) "Move ARTICLE (a number) from GROUP on SERVER.