# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1288579113 25200
# Node ID 6bc575569d37d8a5e1869e520c415c20ef0df301
# Parent  70b65e81d10e47947cdb3d336f115b7dd0f3893b
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 -r 70b65e81d10e -r 6bc575569d37 lisp/gnus/ChangeLog
--- 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.
diff -r 70b65e81d10e -r 6bc575569d37 lisp/gnus/nnir.el
--- 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