Added feature: allow email address as user name for imap.

Some imap servers (for example, gmx.com) requires email as user name to login.
Sign `@' is a delimeter for network server name in folders-file, so use `*'
instead of it in user names and convert it to `@' in place. You have to write
your real user name `xxx@gmx.com' like `xxx*gmx.com' in ~/.folders or config
file.

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 92bec96..1f2576d 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1907,9 +1907,15 @@ Return nil if no complete line has arrived."
                                            (elmo-imap4-encode-folder-string
                                             (cdr (assq 'mailbox tokens))))
     ;; user
-    (elmo-net-folder-set-user-internal folder
-                                      (or (cdr (assq 'user tokens))
-                                          default-user))
+    (elmo-net-folder-set-user-internal 
+     folder
+     (let ((user (cdr (assq 'user tokens))))
+       (if user
+          (if (string-match "*" user)
+              (replace-match "@" nil nil user)
+            user)
+        default-user)))
+
     ;; auth
     (elmo-net-folder-set-auth-internal
      folder