From d1e12aefa680dced77cd2b1c93a9a818a8bf0160 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Sun, 5 Jan 2014 23:38:42 +0000 Subject: [PATCH] Gnus: Silence the byte compiler --- lisp/gnus/ChangeLog | 7 +++++++ lisp/gnus/gnus-sum.el | 5 ++++- lisp/gnus/mm-util.el | 2 ++ 3 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 351e66cab1e..bcf26ac9f9c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,10 @@ +2014-01-05 Katsumi Yamaoka + + * gnus-sum.el (gnus-article-stop-animations): Declare it before using. + (nnimap-split-fancy, nnimap-split-methods): Declare. + + * mm-util.el (help-function-arglist): Declare. + 2013-12-28 Glenn Morris * gnus-sieve.el (gnus-sieve-select-method): diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 38a77c6f487..a1c0a0abdbf 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -7216,6 +7216,7 @@ If FORCE (the prefix), also save the .newsrc file(s)." (gnus-dribble-save))) (declare-function gnus-cache-write-active "gnus-cache" (&optional force)) +(declare-function gnus-article-stop-animations "gnus-art" ()) (defun gnus-summary-exit (&optional temporary leave-hidden) "Exit reading current newsgroup, and then return to group selection mode. @@ -7320,7 +7321,6 @@ If FORCE (the prefix), also save the .newsrc file(s)." (unless quit-config (setq gnus-newsgroup-name nil))))) -(declare-function gnus-article-stop-animations "gnus-art" ()) (declare-function gnus-stop-downloads "gnus-art" ()) (defalias 'gnus-summary-quit 'gnus-summary-exit-no-update) @@ -10659,6 +10659,9 @@ groups." ;;; Respooling +(defvar nnimap-split-fancy) +(defvar nnimap-split-methods) + (defun gnus-summary-respool-query (&optional silent trace) "Query where the respool algorithm would put this article." (interactive) diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index 6433ec96938..38ee8a563e5 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -1378,6 +1378,8 @@ If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'." (write-region start end filename append visit lockname))) (autoload 'gmm-write-region "gmm-utils") +(declare-function help-function-arglist "help-fns" + (def &optional preserve-names)) ;; It is not a MIME function, but some MIME functions use it. (if (and (fboundp 'make-temp-file) -- 2.39.2