From: yamaoka <yamaoka>
Date: Fri, 7 Jun 2002 13:09:12 +0000 (+0000)
Subject: * pop3.el: Add a comment for the use of `ssl' or `tls' connection with Gnus;
X-Git-Tag: t-gnus-6_15_6-02~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fef500887a29b0a26911239dde8aaa71e56c007e;p=elisp%2Fgnus.git-

* pop3.el: Add a comment for the use of `ssl' or `tls' connection with Gnus;
 always require `pces' and `path-util' for Gnus.
(pop3-open-ssl-stream-1): Don't require `path-util' here.
---

diff --git a/ChangeLog b/ChangeLog
index 9b48c9c..40c1233 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2002-06-07  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/pop3.el: Add a comment for the use of `ssl' or `tls'
+	connection with Gnus; always require `pces' and `path-util' for
+	Gnus.
+	(pop3-open-ssl-stream-1): Don't require `path-util' here.
+
 2002-06-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/pop3.el: Make it can be byte-compiled in the Gnus source
diff --git a/lisp/pop3.el b/lisp/pop3.el
index 8571f33..ce64d09 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -35,10 +35,23 @@
 
 ;; This program was inspired by Kyle E. Jones's vm-pop program.
 
+;; You have to set the variable `pop3-connection-type' to `ssl' or
+;; `tls' expressly, if you would like to use this module with Gnus
+;; (not T-gnus) for those connection types.  For examples:
+;;
+;;(setq mail-sources '((pop :server "POPSERVER" :port 995 :connection ssl
+;;                          :authentication apop)))
+;;(setq pop3-connection-type 'ssl)
+
 ;;; Code:
 
 (eval-when-compile (require 'cl))
 
+;; as-binary-process, open-network-stream-as-binary, write-region-as-binary
+(require 'pces)
+;; exec-installed-p
+(require 'path-util)
+
 (require 'mail-utils)
 
 (defvar pop3-maildrop (or (user-login-name) (getenv "LOGNAME") (getenv "USER") nil)
@@ -211,7 +224,6 @@ Argument PORT specifies connecting port."
       process)))
 
 (defun pop3-open-ssl-stream-1 (name buffer host service extra-arg)
-  (require 'path-util)
   (let* ((ssl-program-name
 	  pop3-ssl-program-name)
 	 (ssl-program-arguments