nnir.el: Code cleanup.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d8407fa..231aa9d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-11-21  Andrew Cohen  <cohen@andy.bu.edu>
+
+       * nnir.el: Fix typo in comments.
+       (nnir-run-imap): Simplify code. No need to reverse artlist.
+       (nnir-run-gmane): Use nnir-tmp-buffer for web results.
+
 2010-11-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-srvr.el (gnus-server-show-server): New command and keystroke.

diff --git a/lisp/nnir.el b/lisp/nnir.el
index 1983a0a..e5ba3c6 100644 (file)
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -41,7 +41,7 @@
 ;; Retrieval Status Value (score).
 
 ;; When looking at the retrieval result (in the Summary buffer) you
-;; can type `A W' (aka M-x gnus-warp-article RET) on an article.  You
+;; can type `A W' (aka M-x gnus-warp-to-article RET) on an article.  You
 ;; will be warped into the group this article came from. Typing `A W'
 ;; (aka M-x gnus-summary-refer-thread RET) will warp to the group and
 ;; also show the thread this article is part of.
@@ -682,9 +682,8 @@ details on the language and supported extensions"
       (apply
        'vconcat
        (mapcar
-       (lambda (x)
-         (let ((group x)
-               artlist)
+       (lambda (group)
+         (let (artlist)
            (condition-case ()
                (when (nnimap-possibly-change-group
                       (gnus-group-short-name group) server)
@@ -706,7 +705,7 @@ details on the language and supported extensions"
                      (message "Searching %s... %d matches" group arts)))
                  (message "Searching %s...done" group))
              (quit nil))
-           (reverse artlist)))
+           artlist))
        groups)))))
 
 (defun nnir-imap-make-query (criteria qstring)
@@ -1316,7 +1315,7 @@ Tested with Namazu 2.0.6 on a GNU/Linux system."
             (gnus-inhibit-demon t)
             artlist)
        (require 'mm-url)
-       (with-current-buffer nntp-server-buffer
+       (with-current-buffer (get-buffer-create nnir-tmp-buffer)
          (erase-buffer)
          (mm-url-insert
           (concat