From 8e7d4ca1f6a0a9f51c6f0769effa7c1471432f3e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 17 Aug 2010 00:00:16 -0700 Subject: [PATCH] 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. --- lisp/gnus/ChangeLog | 8 ++++++++ lisp/gnus/gnus-art.el | 2 ++ lisp/gnus/gnus-sum.el | 2 ++ lisp/gnus/mm-url.el | 2 ++ 4 files changed, 14 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5b2635f8d6e..0fb01f2bb21 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,11 @@ +2010-08-17 Glenn Morris + + * 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 * 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 51be4517a77..618d8e410cb 100644 --- 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 53a247078c5..ba3f6a910ea 100644 --- 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 c72f520d60a..c963bdae00b 100644 --- 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 -- 2.39.2