Make sure that the error message doesn't error out.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e93300e..6b7f0f5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,6 +8,7 @@
        (nnimap-request-move-article): When moving an article from nnimap,
        request the article first so the accepting form has an article to
        accept.  Reported by Dan Christensen.
        (nnimap-request-move-article): When moving an article from nnimap,
        request the article first so the accepting form has an article to
        accept.  Reported by Dan Christensen.

+       (nnimap-command): Make sure that the error message doesn't error out.

 
 2010-09-20  David Edmondson  <dme@dme.org>  (tiny change)
 
 
 2010-09-20  David Edmondson  <dme@dme.org>  (tiny change)
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index cc6f4f8..888101c 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -877,7 +877,9 @@ textual parts.")
     (if (equal (caar response) "OK")
        (cons t response)
       (nnheader-report 'nnimap "%s"
     (if (equal (caar response) "OK")
        (cons t response)
       (nnheader-report 'nnimap "%s"

-                      (mapconcat #'identity (car response) " "))
+                      (mapconcat (lambda (a)
+                                   (format "%s"))
+                                 (car response) " "))

       nil)))
 
 (defun nnimap-get-response (sequence)
       nil)))
 
 (defun nnimap-get-response (sequence)