From: yamaoka Date: Fri, 7 Jun 2002 13:09:34 +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_7-02-quimby~4 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=221daf7ed12c3fd471041c39e1d9e113b64752ee;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 c78cece..70e25f5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2002-06-07 Katsumi Yamaoka + + * 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 * 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