From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Mon, 20 Sep 2010 21:44:34 +0000 (+0200)
Subject: Make sure that the error message doesn't error out.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=d8a1e36b61370cac2eb5249b16e1d0f4ced511b9

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e93300e57..6b7f0f502 100644
--- 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-command): Make sure that the error message doesn't error out.
 
 2010-09-20  David Edmondson  <dme@dme.org>  (tiny change)
 
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index cc6f4f856..888101c89 100644
--- 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"
-		       (mapconcat #'identity (car response) " "))
+		       (mapconcat (lambda (a)
+				    (format "%s"))
+				  (car response) " "))
       nil)))
 
 (defun nnimap-get-response (sequence)