From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 19 Feb 2011 09:40:02 +0000 (-0800)
Subject: (nnimap-parse-copied-articles): Allow for "<foo> OK" outputs from the server.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=de7be48d498c7d1b46f4e29d817dcb1b8c749fe4

(nnimap-parse-copied-articles): Allow for "<foo> OK" outputs from the server.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79a6f9e71..c422cdba3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-19  Lars Ingebrigtsen  <larsi@gnus.org>
+
+	* nnimap.el (nnimap-parse-copied-articles): Allow for "<foo> OK"
+	outputs from the server.
+
 2011-02-18  Antoine Levitt  <antoine.levitt@gmail.com>  (tiny change)
 
 	* gnus-art.el (gnus-article-prepare): Run gnus-article-prepare-hook
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 9c93ee8bb..6b726b237 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1823,7 +1823,7 @@ textual parts.")
 (defun nnimap-parse-copied-articles (sequences)
   (let (sequence copied range)
     (goto-char (point-min))
-    (while (re-search-forward "^\\([0-9]+\\) OK " nil t)
+    (while (re-search-forward "^\\([0-9]+\\) OK\\b" nil t)
       (setq sequence (string-to-number (match-string 1)))
       (when (setq range (cadr (assq sequence sequences)))
 	(push (gnus-uncompress-range range) copied)))