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

Re: IMAP parse error

Am 26.05.2014 um 22:52 schrieb Juliusz Chroboczek:

>> 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 ()

Thank you very much. Seems to work and looks right to me.