mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(nnmairix-request-group): Bind nnmairix-fast and nnmairix-group around

Browse Source 
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.
This commit is contained in:
Glenn Morris 2008-02-27 09:19:28 +00:00
parent e80c716461
commit be021c015f
2 changed files with 28 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/gnus/ChangeLog
View File

@ -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>

16
lisp/gnus/nnmairix.el
View File

@ -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