(mail-source-keyword-map): Sync up with T-gnus 6.14 for supporting

`pop3-connection-type'.
(mail-source-fetch-pop): Likewise.

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 13be412..be06416 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -112,6 +112,7 @@ Common keywords should be listed here.")
        (:program)
        (:function)
        (:password)
+       (:connection)
        (:authentication password))
       (maildir
        (:path "~/Maildir/new/")
@@ -476,7 +477,8 @@ If ARGS, PROMPT is used as an argument to `format'."
                    (pop3-mailhost server)
                    (pop3-port port)
                    (pop3-authentication-scheme
-                    (if (eq authentication 'apop) 'apop 'pass)))
+                    (if (eq authentication 'apop) 'apop 'pass))
+                   (pop3-connection-type connection))
                (save-excursion (pop3-movemail mail-source-crash-box))))))
       (if result
          (progn