diff options
author | Glenn Morris <rgm@gnu.org> | 2013-05-28 19:40:43 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2013-05-28 19:40:43 -0700 |
commit | cf6a9685f1a33ff97bcbcb5010b56652cdbc8617 (patch) | |
tree | f9b2a838332aa993d771ceee057495704abcb2e8 /lisp/gnus/spam.el | |
parent | 22513e526eba97bd1014e4bacde0a8649fbe7870 (diff) | |
download | emacs-cf6a9685f1a33ff97bcbcb5010b56652cdbc8617.tar.gz |
Silence some gnus compilation warnings
* gnus/gnus-ems.el (set-process-plist): Every supported Emacs has this.
* gnus/gnus-group.el (gnus-sequence-of-unread-articles)
(gnus-summary-add-mark, gnus-mark-article-as-read)
(gnus-group-make-articles-read): Declare.
* gnus/gnus-sum.el (gnus-parameter-list-identifier)
(gnus-article-stop-animations, gnus-stop-downloads)
(gnus-article-only-boring-p, article-goto-body)
(gnus-flush-original-article-buffer, article-narrow-to-head)
(gnus-article-hidden-text-p, gnus-delete-wash-type)
(gnus-summary-save-in-pipe, gnus-article-show-summary): Declare.
* gnus/gnus.el: No need to eval-and-compile autoloads.
* gnus/gravatar.el (help-function-arglist): Autoload.
* gnus/nnimap.el (gnus-refer-thread-use-nnir): Declare.
* gnus/nnmail.el (nnmail-fancy-expiry-target): Maybe use mail-dont-reply-to.
* gnus/spam.el: No need to load spam-report when compiling.
No need to eval-and-compile autoloads.
(spam-report-resend-to): Declare.
(spam-report-resend-register-routine): Require 'spam-report.
Diffstat (limited to 'lisp/gnus/spam.el')
-rw-r--r-- | lisp/gnus/spam.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el index 725017ca116..8d689bf26bd 100644 --- a/lisp/gnus/spam.el +++ b/lisp/gnus/spam.el @@ -50,7 +50,6 @@ ;;; for the definitions of group content classification and spam processors (require 'gnus) -(eval-when-compile (require 'spam-report)) (eval-when-compile (require 'hashcash)) ;; for nnimap-split-download-body-default @@ -60,11 +59,10 @@ (autoload 'query-dig "dig") ;; autoload spam-report -(eval-and-compile - (autoload 'spam-report-gmane "spam-report") - (autoload 'spam-report-gmane-spam "spam-report") - (autoload 'spam-report-gmane-ham "spam-report") - (autoload 'spam-report-resend "spam-report")) +(autoload 'spam-report-gmane "spam-report") +(autoload 'spam-report-gmane-spam "spam-report") +(autoload 'spam-report-gmane-ham "spam-report") +(autoload 'spam-report-resend "spam-report") ;; autoload gnus-registry (autoload 'gnus-registry-group-count "gnus-registry") @@ -2473,7 +2471,10 @@ With a non-nil REMOVE, remove the ADDRESSES." (defun spam-report-resend-register-ham-routine (articles) (spam-report-resend-register-routine articles t)) +(defvar spam-report-resend-to) + (defun spam-report-resend-register-routine (articles &optional ham) + (require 'spam-report) (let* ((resend-to-gp (if ham (gnus-parameter-ham-resend-to gnus-newsgroup-name) |