[Emacs-diffs] master 97d5d1a 1/3: Move tls.el and starttls.el to lisp/obsolete/ (Bug#31457)

[Noam Postavsky]

branch: master
commit 97d5d1a1f4790f959d1bee64e552b492103eddbe
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Move tls.el and starttls.el to lisp/obsolete/ (Bug#31457)
    
    * lisp/obsolete/tls.el: Moved from lisp/net/tls.el.
    * lisp/gnus/nnimap.el:
    * lisp/url/url-http.el: Don't require tls, since it's obsolete.
    * lisp/net/network-stream.el: Only require tls if we actually try to
    use it (i.e., when (gnutls-available-p) returns nil).  Declare some
    functions to fix compilation warnings.
    
    * lisp/obsolete/starttls.el: Moved from lisp/net/starttls.el.
    * lisp/net/sieve-manage.el:
    * lisp/net/network-stream.el: Don't require `starttls' at the
    top-level, declare the variables and functions used instead.
    (network-stream-open-starttls): Only require `starttls' if
    needed (i.e., gnutls-available-p fails).
    
    * etc/NEWS: Announce obsoletion.
---
 etc/NEWS                           |  4 ++++
 lisp/gnus/nnimap.el                |  1 -
 lisp/net/network-stream.el         | 22 ++++++++++++++++++----
 lisp/net/sieve-manage.el           |  1 -
 lisp/{net => obsolete}/starttls.el |  0
 lisp/{net => obsolete}/tls.el      |  0
 lisp/url/url-http.el               |  1 -
 7 files changed, 22 insertions(+), 7 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index f290e76..632627b 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -485,6 +485,10 @@ Tramp for some look-alike remote file names.
 ** The options.el library has been removed.
 It was obsolete since Emacs 22.1, replaced by customize.
 
+** The tls.el and starttls.el libraries are now marked obsolete.
+Use of built-in libgnutls based functionality (described in the Emacs
+GnuTLS manual) is recommended instead.
+
 
 ** Message
 
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index dc51b5f..3b39731 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -36,7 +36,6 @@
 (require 'nnoo)
 (require 'netrc)
 (require 'utf7)
-(require 'tls)
 (require 'parse-time)
 (require 'nnmail)
 
diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el
index 19e0c64..a0589e2 100644
--- a/lisp/net/network-stream.el
+++ b/lisp/net/network-stream.el
@@ -42,14 +42,20 @@
 
 ;;; Code:
 
-(require 'tls)
-(require 'starttls)
 (require 'auth-source)
 (require 'nsm)
 (require 'puny)
 
+(declare-function starttls-available-p "starttls" ())
+(declare-function starttls-negotiate "starttls" (process))
+
 (autoload 'gnutls-negotiate "gnutls")
 (autoload 'open-gnutls-stream "gnutls")
+(defvar starttls-extra-arguments)
+(defvar starttls-extra-args)
+(defvar starttls-use-gnutls)
+(defvar starttls-gnutls-program)
+(defvar starttls-program)
 
 ;;;###autoload
 (defun open-network-stream (name buffer host service &rest parameters)
@@ -255,7 +261,8 @@ gnutls-boot (as returned by `gnutls-boot-parameters')."
                     (or (gnutls-available-p)
                         (and (or require-tls
                                  (plist-get parameters 
:use-starttls-if-possible))
-                             (starttls-available-p))))
+                             (require 'starttls)
+                              (starttls-available-p))))
               (not (eq (plist-get parameters :type) 'plain)))
       ;; If using external STARTTLS, drop this connection and start
       ;; anew with `starttls-open-stream'.
@@ -336,7 +343,8 @@ gnutls-boot (as returned by `gnutls-boot-parameters')."
              ;; See `starttls-available-p'.  If this predicate
              ;; changes to allow running under Windows, the error
              ;; message below should be amended.
-             (if (memq system-type '(windows-nt ms-dos))
+             (if (or (memq system-type '(windows-nt ms-dos))
+                      (not (featurep 'starttls)))
                  (concat "Emacs does not support TLS")
                (concat "Emacs does not support TLS, and no external `"
                        (if starttls-use-gnutls
@@ -373,6 +381,8 @@ gnutls-boot (as returned by `gnutls-boot-parameters')."
        (unless (= start (point))
          (buffer-substring start (point)))))))
 
+(declare-function open-tls-stream "tls" (name buffer host port))
+
 (defun network-stream-open-tls (name buffer host service parameters)
   (with-current-buffer buffer
     (let* ((start (point-max))
@@ -380,6 +390,7 @@ gnutls-boot (as returned by `gnutls-boot-parameters')."
             (if (gnutls-available-p)
                 (open-gnutls-stream name buffer host service
                                     (plist-get parameters :nowait))
+              (require 'tls)
               (open-tls-stream name buffer host service)))
           (eoc (plist-get parameters :end-of-command)))
       (if (plist-get parameters :nowait)
@@ -406,6 +417,9 @@ gnutls-boot (as returned by `gnutls-boot-parameters')."
                   (network-stream-command stream capability-command eo-capa)
                   'tls)))))))
 
+(declare-function format-spec "format-spec" (format spec))
+(declare-function format-spec-make "format-spec" (&rest pairs))
+
 (defun network-stream-open-shell (name buffer host service parameters)
   (require 'format-spec)
   (let* ((capability-command (plist-get parameters :capability-command))
diff --git a/lisp/net/sieve-manage.el b/lisp/net/sieve-manage.el
index cd40307..8c70ae0 100644
--- a/lisp/net/sieve-manage.el
+++ b/lisp/net/sieve-manage.el
@@ -77,7 +77,6 @@
 
 (eval-when-compile (require 'cl-lib))
 (require 'sasl)
-(require 'starttls)
 (autoload 'sasl-find-mechanism "sasl")
 (autoload 'auth-source-search "auth-source")
 
diff --git a/lisp/net/starttls.el b/lisp/obsolete/starttls.el
similarity index 100%
rename from lisp/net/starttls.el
rename to lisp/obsolete/starttls.el
diff --git a/lisp/net/tls.el b/lisp/obsolete/tls.el
similarity index 100%
rename from lisp/net/tls.el
rename to lisp/obsolete/tls.el
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 0b95453..53798f7 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1600,7 +1600,6 @@ p3p
 
 ;; HTTPS.  This used to be in url-https.el, but that file collides
 ;; with url-http.el on systems with 8-character file names.
-(require 'tls)
 
 (defconst url-https-asynchronous-p t "HTTPS retrievals are asynchronous.")