Silence some Gnus compiler warnings.

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

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5b2635f8d6ef697804bc45effe8af03bd345007b..0fb01f2bb219fde26e8b3e645dba99741c063ec1 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,11 @@
+2010-08-17  Glenn Morris  <rgm@gnu.org>
+
+       * 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/gnus-art.el b/lisp/gnus/gnus-art.el
index 51be4517a7709ff564d27847ee787400161ce3ad..618d8e410cbb86e3a4256cb97911e42f7e506fdf 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/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/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 53a247078c5d52a093f7c5d842e49447b293bef5..ba3f6a910ea4feadf645143250d27bb933588046 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/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/mm-url.el b/lisp/gnus/mm-url.el
index c72f520d60ae251f8e07ae1f77b855167d6db24e..c963bdae00bbc76e0a4b8ba21af064af72d826a1 100644 (file)
--- a/lisp/gnus/mm-url.el
+++ b/lisp/gnus/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