nnimap: use nnimap-request-articles-find-limit in nnimap-request-articles-find-limit

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fde5c95..0518351 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2012-06-25  Julien Danjou  <julien@danjou.info>
+
+       * 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  <eggert@cs.ucla.edu>
 
        Support higher-resolution time stamps (Bug#9000).

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 0669563..d3bb685 100644 (file)
--- 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)