* elmo-pop3.el (elmo-network-close-session): Do nothing if session process

[elisp/wanderlust.git] / elmo / elmo-imap4.el

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index f3d1327..450c68b 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -551,6 +551,10 @@ BUFFER must be a single-byte buffer."
     (unless (string= (elmo-imap4-spec-username spec)
                     elmo-default-imap4-user)
       (setq append-serv (concat ":" (elmo-imap4-spec-username spec))))
+    (unless (eq (elmo-imap4-spec-auth spec)
+                    elmo-default-imap4-authenticate-type)
+      (setq append-serv 
+           (concat append-serv "/" (symbol-name (elmo-imap4-spec-auth spec)))))
     (unless (string= (elmo-imap4-spec-hostname spec)
                     elmo-default-imap4-server)
       (setq append-serv (concat append-serv "@" (elmo-imap4-spec-hostname