From fef500887a29b0a26911239dde8aaa71e56c007e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 7 Jun 2002 13:09:12 +0000 Subject: [PATCH] * 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. --- ChangeLog | 7 +++++++ lisp/pop3.el | 14 +++++++++++++- 2 files changed, 20 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 9b48c9c..40c1233 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 -- 1.7.10.4