(nnir-run-waissearch, nnir-run-swish++): Remove unused local variable.

(nnimap-server-buffer): Silence compiler warning.

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index 7a15818..d768eae 100644 (file)
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,9 @@
+2008-05-08  Reiner Steib  <reiner.steib@gmx.de>
+
+       * nnir.el (nnir-run-waissearch, nnir-run-swish++): Remove unused local
+       variable.
+       (nnimap-server-buffer): Silence compiler warning.
+
 2008-04-24  Christoph Conrad <christoph.conrad@gmx.de>
 
        * nnir.el: Fix byte compiler warnings.

diff --git a/contrib/nnir.el b/contrib/nnir.el
index b6c074f..8b106df 100644 (file)
--- a/contrib/nnir.el
+++ b/contrib/nnir.el
@@ -14,7 +14,7 @@
 
 ;; FIXME: This file should be move to ../lisp/ after all copyright assignments
 ;; are on file.  As of 2008-04-13, we don't have an assignment/disclaimer from
-;; Torsten Hilbrich, but he's willing to sign.  I've sent hmm the form.
+;; Torsten Hilbrich, but he's willing to sign.  I've sent him the form.
 ;; -- rsteib
 
 ;; TODO: Documentation in the Gnus manual
@@ -895,7 +895,7 @@ pairs (also vectors, actually)."
   (save-excursion
     (let ((qstring (cdr (assq 'query query)))
          (prefix (nnir-read-server-parm 'nnir-wais-remove-prefix server))
-          artlist score artno dirnam group)
+          artlist score artno dirnam)
       (set-buffer (get-buffer-create nnir-tmp-buffer))
       (erase-buffer)
       (message "Doing WAIS query %s..." query)
@@ -939,6 +939,7 @@ pairs (also vectors, actually)."
 ;; handle errors
 
 (autoload 'nnimap-open-server "nnimap")
+(defvar nnimap-server-buffer) ;; nnimap.el
 (autoload 'imap-mailbox-select "imap")
 (autoload 'imap-search "imap")
 (autoload 'imap-quote-specials "imap")
@@ -1176,7 +1177,7 @@ Windows NT 4.0."
           (article-pattern (if (string= server "nnmaildir:")
                                ":[0-9]+"
                              "^[0-9]+\\(\\.[a-z0-9]+\\)?$"))
-           score artno dirnam group filenam )
+           score artno dirnam filenam)
 
       (when (equal "" qstring)
         (error "swish++: You didn't enter anything."))