* 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 c78cece..70e25f5 100644 (file)
--- 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 (file)
--- 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