From cef98b1310b1feb4201618067d7fcae4bc04923f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Dec 2007 05:48:08 +0000 Subject: [PATCH] Add declare-function compatibility definition. Require gnus-sum not just when compiling. (nnvirtual-find-group-art): Declare as a function. --- lisp/gnus/ChangeLog | 71 +++++++++++++++++++++++++++++++++++++++++ lisp/gnus/gnus-cache.el | 11 +++++-- 2 files changed, 80 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4bddd344115..a09d3da95c0 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,74 @@ +2007-12-11 Glenn Morris + + * gnus-cache.el: Require gnus-sum not just when compiling. + + * gnus-fun.el (gnus-display-x-face-in-from): Require gnus-art. + + * gnus-int.el (gnus-server-opened, gnus-status-message): Move + definitions before use. + + * mm-decode.el: Require gnus-util. + (mm-remove-part): Only call delete-annotation on XEmacs. + + * mm-uu.el (gnus-original-article-buffer): Define for compiler. + + * nnmail.el: Require gnus-int. + + * spam.el: Move `require's before `eval-when-compile's. + + * gnus-ems.el (gnus-alive-p): + * gnus-fun.el (message-goto-eoh): + * mail-source.el (gnus-compress-sequence): + * message.el (Info-goto-node, format-spec): + * mm-bodies.el (message-options-get): + * mm-decode.el (mm-view-pkcs7): + * mm-util.el (gmm-write-region): + * mml-smime.el (mml-compute-boundary) + (gnus-completing-read-with-default): + * mml.el (widget-button-press, gnus-make-hashtable): + * mml1991.el (mm-decode-content-transfer-encoding) + (mm-encode-content-transfer-encoding) + (message-options-get, message-options-set): + * mml2015.el (gnus-buffer-live-p, gnus-get-buffer-create): + * nnfolder.el (gnus-request-group): + * nnheader.el (ietf-drums-unfold-fws): + * rfc1843.el (mail-header-parse-content-type, message-narrow-to-head): + * smime.el (gnus-run-mode-hooks): + * spam-stat.el (gnus-message): Autoload. + + * gnus-cache.el, gnus-fun.el, gnus-group.el, gnus.el, mail-source.el: + * mm-bodies.el, mm-decode.el, mm-extern.el, mm-util.el: + * mml-smime.el, mml.el, mml1991.el, mml2015.el, nndb.el, nnfolder.el: + * nnmail.el, nnmaildir.el, nnrss.el, rfc1843.el, spam.el: + Add declare-function compatibility definition. + + * gnus-cache.el (nnvirtual-find-group-art): + * gnus-fun.el (article-narrow-to-head, gnus-article-goto-header) + (gnus-add-image, gnus-add-wash-type): + * gnus-group.el (nnkiboze-score-file): + * gnus-sum.el (turn-on-gnus-mailing-list-mode) + (gnus-cache-write-active, mm-uu-dissect, idna-to-unicode): + * gnus.el (gnus-group-decoded-name): + * mail-source.el (imap-capability): + * mm-bodies.el (message-options-set): + * mm-decode.el (gnus-configure-windows): + * mm-extern.el (message-goto-body): + * mm-util.el (mm-delete-duplicates, mm-detect-coding-region): + * mml-smime.el (epg-key-sub-key-list, epg-sub-key-capability) + (epg-sub-key-validity, message-options-set): + * mml.el (widget-event-point, gnus-configure-windows): + * mml1991.el (mc-encrypt-generic, gpg-sign-encrypt, gpg-encrypt): + * mml2015.el (epg-check-configuration, epg-configuration) + (message-options-set): + * nndb.el (nndb-request-article): + * nnfolder.el (gnus-request-create-group): + * nnmail.el (gnus-activate-group, gnus-group-mark-article-read): + * nnmaildir.el (gnus-group-mark-article-read): + * nnrss.el (w3-parse-buffer, gnus-group-make-rss-group): + * rfc1843.el (message-fetch-field): + * spam.el (gnus-extract-address-components): + Declare as functions. + 2007-12-09 Glenn Morris * gnus-uu.el (gnus-uu-yenc-article): Use insert-buffer-substring. diff --git a/lisp/gnus/gnus-cache.el b/lisp/gnus/gnus-cache.el index 4f61a0f2759..72c88600a5e 100644 --- a/lisp/gnus/gnus-cache.el +++ b/lisp/gnus/gnus-cache.el @@ -27,13 +27,18 @@ ;;; Code: +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (eval-when-compile (require 'cl)) (require 'gnus) +(require 'gnus-sum) + (eval-when-compile (unless (fboundp 'gnus-agent-load-alist) - (defun gnus-agent-load-alist (group))) - (require 'gnus-sum)) + (defun gnus-agent-load-alist (group)))) (defcustom gnus-cache-active-file (expand-file-name "active" gnus-cache-directory) @@ -91,6 +96,8 @@ it's not cached." (defvar gnus-cache-active-altered nil) (defvar gnus-cache-total-fetched-hashtb nil) +(declare-function nnvirtual-find-group-art "nnvirtual" (group article)) + (eval-and-compile (autoload 'nnml-generate-nov-databases-directory "nnml") (autoload 'nnvirtual-find-group-art "nnvirtual")) -- 2.39.2