From: Julien Danjou Date: Mon, 25 Jun 2012 11:21:59 +0000 (+0200) Subject: nnimap: use nnimap-request-articles-find-limit in nnimap-request-articles-find-limit X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=d5907c1b1080a53a1ac1a2d1adbd4afa0bd4b8b6 nnimap: use nnimap-request-articles-find-limit in nnimap-request-articles-find-limit Signed-off-by: Julien Danjou --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fde5c95d0..05183518e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2012-06-25 Julien Danjou + + * nnimap.el (nnimap-request-articles-find-limit): Rename from + `nnimap-request-move-articles-find-limit' since we do not use it only + for move operations. + (nnimap-request-accept-article): Use + `nnimap-request-articles-find-limit' to limit search by message-id. + 2012-06-22 Paul Eggert Support higher-resolution time stamps (Bug#9000). diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 06695636d..d3bb68550 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -127,7 +127,7 @@ textual parts.") "IMAP for Gnus." :group 'gnus) -(defcustom nnimap-request-move-articles-find-limit nil +(defcustom nnimap-request-articles-find-limit nil "Limit the number of articles to look for after moving an article." :type 'integer :version "24.2" @@ -878,7 +878,7 @@ textual parts.") (or (nnimap-find-uid-response "COPYUID" (cadr result)) (nnimap-find-article-by-message-id internal-move-group server message-id - nnimap-request-move-articles-find-limit))))) + nnimap-request-articles-find-limit))))) ;; Move the article to a different method. (let ((result (eval accept-form))) (when result @@ -1112,7 +1112,8 @@ If LIMIT, first try to limit the search to the N last articles." (cons group (or (nnimap-find-uid-response "APPENDUID" (car result)) (nnimap-find-article-by-message-id - group server message-id)))))))))) + group server message-id + nnimap-request-articles-find-limit)))))))))) (defun nnimap-process-quirk (greeting-match type data) (when (and (nnimap-greeting nnimap-object)