From e8003104ac8dedf55dca6c1b02f0a71b0a4c58f4 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 12 Feb 2007 04:51:25 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-clear-login): Don't send LOGIN command when the LOGINDISABLED capability is advertised. --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index f57d16f..42f4cf1 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2007-02-12 Yoichi NAKAYAMA + + * elmo-imap4.el (elmo-imap4-clear-login): Don't send LOGIN command + when the LOGINDISABLED capability is advertised. + 2007-01-27 Yoichi NAKAYAMA * elmo-msgdb.el (elmo-msgdb-extra-fields): Make it non-destructive. diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index b8d850a..11804c8 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -937,6 +937,8 @@ If CHOP-LENGTH is not specified, message set is not chopped." (concat "(" (downcase (elmo-match-string 1 string)) ")")))) (defun elmo-imap4-clear-login (session) + (when (elmo-imap4-session-capable-p session 'logindisabled) + (signal 'elmo-authenticate-error '(elmo-imap4-clear-login))) (let ((elmo-imap4-debug-inhibit-logging t)) (or (elmo-imap4-read-ok -- 1.7.10.4