* pop3.el: Don't autoload "ssl".

(pop3-open-ssl-stream-1): Require `ssl' before binding ssl-* vars.

diff --git a/ChangeLog b/ChangeLog
index d338949..bd21efb 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/pop3.el: Don't autoload "ssl".
+       (pop3-open-ssl-stream-1): Require `ssl' before binding ssl-* vars.
+
 2002-07-18  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus-namazu.el (gnus-namazu/truncate-article-list): Remove

diff --git a/lisp/pop3.el b/lisp/pop3.el
index fb34cc2..78038c3 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -100,7 +100,6 @@ Nil means no, t means yes, not-nil-or-t means yet to be determined.")
 (defvar pop3-debug nil)
 
 (eval-and-compile
-  (autoload 'open-ssl-stream "ssl")
   (autoload 'starttls-open-stream "starttls")
   (autoload 'starttls-negotiate "starttls"))
 
@@ -224,6 +223,7 @@ Argument PORT specifies connecting port."
       process)))
 
 (defun pop3-open-ssl-stream-1 (name buffer host service extra-arg)
+  (require 'ssl)
   (let* ((ssl-program-name
          pop3-ssl-program-name)
         (ssl-program-arguments