From: yamaoka <yamaoka>
Date: Fri, 19 Jul 2002 06:41:59 +0000 (+0000)
Subject: * pop3.el: Don't autoload "ssl".
X-Git-Tag: t-gnus-6_15_8-00-quimby~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c85cb874ede7d8caa6d0740e72f3f8d247668e45;p=elisp%2Fgnus.git-

* pop3.el: Don't autoload "ssl".
(pop3-open-ssl-stream-1): Require `ssl' before binding ssl-* vars.
---

diff --git a/ChangeLog b/ChangeLog
index 64e87b5..bd9dfea 100644
--- 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
--- 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