# HG changeset patch # User Glenn Morris # Date 1282028416 25200 # Node ID 93dfb9cac00ff98907a285122f567b39790b0659 # Parent 012ed5d2e4dd784e23575b3929a6c7b2382249ba 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 -r 012ed5d2e4dd -r 93dfb9cac00f lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Mon Aug 16 23:54:03 2010 -0700 +++ b/lisp/gnus/ChangeLog Tue Aug 17 00:00:16 2010 -0700 @@ -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 -r 012ed5d2e4dd -r 93dfb9cac00f lisp/gnus/gnus-art.el --- a/lisp/gnus/gnus-art.el Mon Aug 16 23:54:03 2010 -0700 +++ b/lisp/gnus/gnus-art.el Tue Aug 17 00:00:16 2010 -0700 @@ -4414,6 +4414,8 @@ (gnus-run-hooks 'gnus-article-menu-hook))) +(defvar bookmark-make-record-function) + (defun gnus-article-mode () "Major mode for displaying an article. diff -r 012ed5d2e4dd -r 93dfb9cac00f lisp/gnus/gnus-sum.el --- a/lisp/gnus/gnus-sum.el Mon Aug 16 23:54:03 2010 -0700 +++ b/lisp/gnus/gnus-sum.el Tue Aug 17 00:00:16 2010 -0700 @@ -12626,6 +12626,8 @@ (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 -r 012ed5d2e4dd -r 93dfb9cac00f lisp/gnus/mm-url.el --- a/lisp/gnus/mm-url.el Mon Aug 16 23:54:03 2010 -0700 +++ b/lisp/gnus/mm-url.el Tue Aug 17 00:00:16 2010 -0700 @@ -418,6 +418,8 @@ (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