(nnimap-request-accept-article): Message the error on error.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index a99ee08..c84bc6d 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -772,7 +772,10 @@ some servers.")
                                 "\n"
                               "\r\n"))
        (let ((result (nnimap-get-response sequence)))
-         (when result
+         (if (not (car result))
+             (progn
+               (message "%s" (nnheader-get-report-string 'nnimap))
+               nil)
            (cons group
                  (nnimap-find-article-by-message-id group message-id))))))))