From a4014e62b02a9691dad46643c169d01a0bf95e9d Mon Sep 17 00:00:00 2001
From: keiichi <keiichi>
Date: Mon, 14 Feb 2000 05:40:13 +0000
Subject: [PATCH] (mail-source-keyword-map): Sync up with T-gnus 6.14 for
 supporting `pop3-connection-type'. (mail-source-fetch-pop):
 Likewise.

---
 lisp/mail-source.el |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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