From: Glenn Morris <rgm@gnu.org>
Date: Wed, 27 Feb 2008 09:19:28 +0000 (+0000)
Subject: (nnmairix-request-group): Bind nnmairix-fast and nnmairix-group around
X-Git-Tag: emacs-pretest-23.0.90~7629
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be021c015f9c56f67a1f399f8105f5a5a0306554;p=emacs.git

(nnmairix-request-group): Bind nnmairix-fast and nnmairix-group around
nnmairix-request-group-with-article-number-correction call.
(nnmairix-fast, nnmairix-group): New, less general names, for free
variables passed from nnmairix-request-group to
nnmairix-request-group-with-article-number-correction.  Declare.
(nnmairix-request-group-with-article-number-correction):
Use nnmairix-fast, nnmairix-group rather than fast, group.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 798064a35d7..d7f16a7c610 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,6 +1,21 @@
 2008-02-27  Glenn Morris  <rgm@gnu.org>
 
 	* nnmairix.el: Change defcustom :version from 23.0 to 23.1.
+	(nnmairix-group-regexp, nnmairix-valid-backends): Convert from free
+	variables to defconsts.  Convert comments to doc-strings.
+	(nnmairix-last-server, nnmairix-current-server): Convert from free
+	variables to defvars.  Convert comments to doc-strings.
+	(gnus-registry-fetch-group): Autoload.
+	(nnmairix-replace-group-and-numbers): Use mapc rather than mapcar.
+	(nnmairix-widget-get-values, nnmairix-widget-make-query-from-widgets)
+	(nnmairix-widget-build-editable-fields): Use car cddr rather than caddr.
+	(nnmairix-request-group): Bind nnmairix-fast and nnmairix-group around
+	nnmairix-request-group-with-article-number-correction call.
+	(nnmairix-fast, nnmairix-group): New, less general names, for free
+	variables passed from nnmairix-request-group to
+	nnmairix-request-group-with-article-number-correction.  Declare.
+	(nnmairix-request-group-with-article-number-correction):
+	Use nnmairix-fast, nnmairix-group rather than fast, group.
 
 2008-02-26  David Engster  <dengste@eml.cc>
 
diff --git a/lisp/gnus/nnmairix.el b/lisp/gnus/nnmairix.el
index aa635b2d99c..27f8fa035d7 100644
--- a/lisp/gnus/nnmairix.el
+++ b/lisp/gnus/nnmairix.el
@@ -434,7 +434,10 @@ Other backends might or might not work.")
 	 "request-scan" folder nnmairix-backend-server)
 	(if fast
 	    t
-	  (nnmairix-request-group-with-article-number-correction folder qualgroup)))
+          (let ((nnmairix-fast fast)
+                (nnmairix-group group))
+            (nnmairix-request-group-with-article-number-correction
+             folder qualgroup))))
        ((and (= rval 1)
 	     (save-excursion (set-buffer nnmairix-mairix-output-buffer)
 			     (goto-char (point-min))
@@ -975,11 +978,17 @@ search in raw mode."
 
 ;;; ==== Helper functions
 
+;; Set locally in nnmairix-request-group, which is the only caller of
+;; this function.
+(defvar nnmairix-fast)
+(defvar nnmairix-group)
+
 (defun nnmairix-request-group-with-article-number-correction (folder qualgroup)
   "Request FOLDER on backend for nnmairix QUALGROUP and article number correction."
   (save-excursion
+    ;; FIXME nnmairix-request-group only calls this when fast is nil (?).
     (nnmairix-call-backend
-     "request-group" folder nnmairix-backend-server fast)
+     "request-group" folder nnmairix-backend-server nnmairix-fast)
     (set-buffer nnmairix-mairix-output-buffer)
     (goto-char (point-min))
     (re-search-forward "^Matched.*messages")
@@ -1011,7 +1020,8 @@ search in raw mode."
 		(gnus-group-set-parameter
 		 qualgroup 'numcorr (list nil 0 high))))
 	    (erase-buffer)
-	    (insert (format "%d %d %d %d %s" status total low high group))
+	    (insert (format "%d %d %d %d %s" status total low high
+                            nnmairix-group))
 	    t)
 	(progn
 	  (nnheader-report