From: keiichi <keiichi>
Date: Mon, 14 Feb 2000 05:40:13 +0000 (+0000)
Subject: (mail-source-keyword-map): Sync up with T-gnus 6.14 for supporting
X-Git-Tag: nana-gnus-7_1_0_16~39
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a4014e62b02a9691dad46643c169d01a0bf95e9d;p=elisp%2Fgnus.git-

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