[Emacs-diffs] Changes to emacs/lisp/net/tls.el,v

[Magnus Henoch]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Magnus Henoch <legoscia>        08/10/01 23:49:00

Index: net/tls.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tls.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- net/tls.el  18 Jul 2008 00:59:10 -0000      1.37
+++ net/tls.el  1 Oct 2008 23:49:00 -0000       1.38
@@ -224,18 +224,20 @@
     (with-current-buffer buffer
       (message "Opening TLS connection to `%s'..." host)
       (while (and (not done) (setq cmd (pop cmds)))
-       (message "Opening TLS connection with `%s'..." cmd)
        (let ((process-connection-type tls-process-connection-type)
-             response)
-         (setq process (start-process
-                        name buffer shell-file-name shell-command-switch
+             (formatted-cmd
                         (format-spec
                          cmd
                          (format-spec-make
                           ?h host
                           ?p (if (integerp port)
                                  (int-to-string port)
-                               port)))))
+                     port))))
+             response)
+         (message "Opening TLS connection with `%s'..." formatted-cmd)
+         (setq process (start-process
+                        name buffer shell-file-name shell-command-switch
+                        formatted-cmd))
          (while (and process
                      (memq (process-status process) '(open run))
                      (progn
@@ -244,7 +246,7 @@
                                         tls-success nil t)))))
            (unless (accept-process-output process 1)
              (sit-for 1)))
-         (message "Opening TLS connection with `%s'...%s" cmd
+         (message "Opening TLS connection with `%s'...%s" formatted-cmd
                   (if done "done" "failed"))
          (if (not done)
              (delete-process process)