[Emacs-diffs] /srv/bzr/emacs/trunk r102191: Silence nnir.el compilation.

[Glenn Morris]

------------------------------------------------------------
revno: 102191
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-31 19:38:33 -0700
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnir.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-01 02:21:42 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-01 02:38:33 +0000
@@ -1,5 +1,9 @@
 2010-11-01  Glenn Morris  <address@hidden>
 
+       * 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.

=== modified file 'lisp/gnus/nnir.el'
--- a/lisp/gnus/nnir.el 2010-10-31 22:31:24 +0000
+++ b/lisp/gnus/nnir.el 2010-11-01 02:38:33 +0000
@@ -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