Mercurial > emacs
changeset 109810:93dfb9cac00f
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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 17 Aug 2010 00:00:16 -0700 |
| parents | 012ed5d2e4dd |
| children | d06b7ff1ea84 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-art.el lisp/gnus/gnus-sum.el lisp/gnus/mm-url.el |
| diffstat | 4 files changed, 14 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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 <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.
--- 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.
--- 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."
--- 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