Mercurial > emacs
changeset 87246:977e07d44319
Add declare-function compatibility definition.
(gnus-compress-sequence): Autoload.
(imap-capability): Declare as a function.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 11 Dec 2007 05:43:42 +0000 |
| parents | 6207f5a83057 |
| children | 9d87abf9e764 |
| files | lisp/gnus/mail-source.el |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/mail-source.el Tue Dec 11 05:42:15 2007 +0000 +++ b/lisp/gnus/mail-source.el Tue Dec 11 05:43:42 2007 +0000 @@ -27,6 +27,10 @@ ;;; Code: +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (require 'format-spec) (eval-when-compile (require 'cl) @@ -997,9 +1001,14 @@ (autoload 'imap-range-to-message-set "imap") (autoload 'nnheader-ms-strip-cr "nnheader")) +(autoload 'gnus-compress-sequence "gnus-range") + (defvar mail-source-imap-file-coding-system 'binary "Coding system for the crashbox made by `mail-source-fetch-imap'.") +;; Autoloads will bring in imap before this is called. +(declare-function imap-capability "imap" (&optional identifier buffer)) + (defun mail-source-fetch-imap (source callback) "Fetcher for imap sources." (mail-source-bind (imap source)