Gnus: Silence the byte compiler

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 351e66cab1e4f4ce1390f76ce6cace8aa28304e6..bcf26ac9f9c5ba7fa3dc132a83d7024a5db434e2 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,10 @@
+2014-01-05  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * 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  <rgm@gnu.org>
 
        * gnus-sieve.el (gnus-sieve-select-method):

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 38a77c6f487946c291a941b3f416194812f64b73..a1c0a0abdbfcb32792f4ba12c591eceed1f40e21 100644 (file)
--- 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 6433ec969388d1e2992a5f95cb24142627fbde20..38ee8a563e54a616623fddbee936ff34952fe522 100644 (file)
--- 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)