From ff68cca86ada04bcf29226994ed98fdb083c6270 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 17 Aug 2010 11:42:48 +0000 Subject: [PATCH] Silence some Gnus compiler warnings. From Glenn Morris . * 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. --- lisp/ChangeLog | 10 ++++++++++ lisp/gnus-art.el | 2 ++ lisp/gnus-sum.el | 2 ++ lisp/gnus-sync.el | 2 ++ lisp/mm-url.el | 2 ++ 5 files changed, 18 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 893297b03..fd6fc2a42 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2010-08-17 Glenn Morris + + * 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 * gnus-start.el (gnus-start-draft-setup): Move doc string forward. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 51be4517a..618d8e410 100644 --- 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 53a247078..ba3f6a910 100644 --- 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 ce43bbcf8..c0e52b6a8 100644 --- 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 c72f520d6..c963bdae0 100644 --- 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 -- 2.34.1