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.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index cd87019dd147e02e9c6a72de782204f4f00112a9..37c262ad3d01d1257ca2d4917080cd5fdde6337e 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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.

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 3e00158aad7ff04a5576c9d10ab69c8399e4b3a8..073df1928bc8ed1c98e4ab1298b6f2e9867c5f11 100644 (file)
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -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 @@ Tested with Namazu 2.0.6 on a GNU/Linux system."
                   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 @@ Tested with Namazu 2.0.6 on a GNU/Linux system."
             (search (format "%s %s %s"
                             qstring groupspec authorspec))
             artlist)
+       (require 'mm-url)
        (with-current-buffer nntp-server-buffer
          (erase-buffer)
          (mm-url-insert