Silence some Gnus compiler warnings.

From Glenn Morris <rgm@gnu.org>.

* gnus-sync.el: Require gnus components whose functions are used.

* gnus-art.el (bookmark-make-record-function):
* gnus-sum.el (bookmark-yank-point, bookmark-current-bookmark):
Declare for compiler.

* mm-url.el (mml-compute-boundary): Autoload.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 893297b..fd6fc2a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2010-08-17  Glenn Morris  <rgm@gnu.org>
+
+       * gnus-sync.el: Require gnus components whose functions are used.
+
+       * gnus-art.el (bookmark-make-record-function):
+       * gnus-sum.el (bookmark-yank-point, bookmark-current-bookmark):
+       Declare for compiler.
+
+       * mm-url.el (mml-compute-boundary): Autoload.
+
 2010-08-15  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-start.el (gnus-start-draft-setup): Move doc string forward.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 51be451..618d8e4 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4414,6 +4414,8 @@ If variable `gnus-use-long-file-name' is non-nil, it is
 
     (gnus-run-hooks 'gnus-article-menu-hook)))
 
+(defvar bookmark-make-record-function)
+
 (defun gnus-article-mode ()
   "Major mode for displaying an article.
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 53a2470..ba3f6a9 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -12626,6 +12626,8 @@ If ALL is a number, fetch this number of articles."
 (declare-function bookmark-prop-get "bookmark" (bookmark prop))
 (declare-function bookmark-default-handler "bookmark" (bmk))
 (declare-function bookmark-get-bookmark-record "bookmark" (bmk))
+(defvar bookmark-yank-point)
+(defvar bookmark-current-bookmark)
 
 (defun gnus-summary-bookmark-make-record ()
   "Make a bookmark entry for a Gnus summary buffer."

diff --git a/lisp/gnus-sync.el b/lisp/gnus-sync.el
index ce43bbc..c0e52b6 100644 (file)
--- a/lisp/gnus-sync.el
+++ b/lisp/gnus-sync.el
@@ -43,6 +43,8 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
+(require 'gnus)
+(require 'gnus-start)
 (require 'gnus-util)
 
 (defgroup gnus-sync nil

diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index c72f520..c963bda 100644 (file)
--- a/lisp/mm-url.el
+++ b/lisp/mm-url.el
@@ -418,6 +418,8 @@ spaces.  Die Die Die."
             (mm-url-form-encode-xwfu (cdr data))))
    pairs "&"))
 
+(autoload 'mml-compute-boundary "mml")
+
 (defun mm-url-encode-multipart-form-data (pairs &optional boundary)
   "Return PAIRS encoded in multipart/form-data."
   ;; RFC1867