Commit be021c01 authored by Glenn Morris's avatar Glenn Morris

(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.
parent e80c7164
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>
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment