[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: IMAP parse error



> elmo-imap4-read-response: Wrong type argument: listp, "IMAP server information: Mailbox is at 90% of quota"

Heh.  Funny.

Please try this (completely untested).

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 964dc06..0b9346b 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1582,8 +1582,9 @@ Return nil if no complete line has arrived."
 				  (match-string 2)
 				  (match-string 3))))
 	    ((search-forward "ALERT] " nil t)
-	     (message "IMAP server information: %s"
-		      (buffer-substring (point) (point-max))))
+	     (let ((message (buffer-substring (point) (point-max))))
+	       (message "IMAP server information: %s" message)
+	       (list 'alert message)))
 	    (t (list 'unknown))))))
 
 (defun elmo-imap4-parse-data-list ()