[gnus git] branch master updated: =1= Give an error message if the APPEND wasn't successful.

       via  7fa6b3db3cebd6fa64684f1cd4535653501f22bb (commit)
      from  26be1f2820f24c95bc97369e86c6f0bd9b389cea (commit)


- Log -----------------------------------------------------------------
commit 7fa6b3db3cebd6fa64684f1cd4535653501f22bb
Author: Lars Ingebrigtsen <[email protected]>
Date:   Thu Feb 3 13:08:53 2011 -0800

    Give an error message if the APPEND wasn't successful.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2eccd6..0eae505 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-03  Lars Ingebrigtsen  <[email protected]>
+
+	* nnimap.el (nnimap-request-accept-article): Give an error message if
+	the APPEND wasn't successful.
+
 2011-02-03  Adam Sjøgren  <[email protected]>
 
 	* gnus-start.el (gnus-get-unread-articles): Fix the call to methods
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index e7c2f32..b50d656 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -985,15 +985,20 @@ textual parts.")
 				 "\n"
 			       "\r\n"))
 	(let ((result (nnimap-get-response sequence)))
-	  (if (not (car result))
+	  (if (not (nnimap-ok-p result))
 	      (progn
-		(nnheader-message 7 "%s" (nnheader-get-report-string 'nnimap))
+		(nnheader-report 'nnimap "%s" result)
 		nil)
 	    (cons group
 		  (or (nnimap-find-uid-response "APPENDUID" (car result))
 		      (nnimap-find-article-by-message-id
 		       group message-id)))))))))
 
+(defun nnimap-ok-p (value)
+  (and (consp value)
+       (consp (car value))
+       (equal (caar value) "OK")))
+
 (defun nnimap-find-uid-response (name list)
   (let ((result (car (last (nnimap-find-response-element name list)))))
     (and result

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    5 +++++
 lisp/nnimap.el |    9 +++++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project