Mercurial > emacs
changeset 111288:6bc575569d37
Silence nnir.el compilation.
* lisp/gnus/nnir.el (declare-function): Add compat stub.
(mm-url-insert, mm-url-encode-www-form-urlencoded): Declare.
(nnir-run-gmane): Require 'mm-url.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 31 Oct 2010 19:38:33 -0700 |
| parents | 70b65e81d10e |
| children | 7579acd0b490 |
| files | lisp/gnus/ChangeLog lisp/gnus/nnir.el |
| diffstat | 2 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Oct 31 19:33:11 2010 -0700 +++ b/lisp/gnus/ChangeLog Sun Oct 31 19:38:33 2010 -0700 @@ -1,5 +1,9 @@ 2010-11-01 Glenn Morris <rgm@gnu.org> + * nnir.el (declare-function): Add compat stub. + (mm-url-insert, mm-url-encode-www-form-urlencoded): Declare. + (nnir-run-gmane): Require 'mm-url. + * mm-util.el (mm-string-to-multibyte): Simplify. * shr.el (declare-function): Add compat stub.
--- a/lisp/gnus/nnir.el Sun Oct 31 19:33:11 2010 -0700 +++ b/lisp/gnus/nnir.el Sun Oct 31 19:38:33 2010 -0700 @@ -164,6 +164,10 @@ ;;; Setup Code: +;; For Emacs <22.2 and XEmacs. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (require 'nnoo) (require 'gnus-group) (require 'gnus-sum) @@ -1382,6 +1386,9 @@ artlist))) grouplist)))) +(declare-function mm-url-insert "mm-url" (url &optional follow-refresh)) +(declare-function mm-url-encode-www-form-urlencoded "mm-url" (pairs)) + ;; gmane interface (defun nnir-run-gmane (query srv &optional groups) "Run a search against a gmane back-end server." @@ -1401,6 +1408,7 @@ (search (format "%s %s %s" qstring groupspec authorspec)) artlist) + (require 'mm-url) (with-current-buffer nntp-server-buffer (erase-buffer) (mm-url-insert