# HG changeset patch
# User Magnus Henoch <mange@freemail.hu>
# Date 1222904937 0
# Node ID aa00c07b3f627e69dff7413a55036ed2572a58a4
# Parent  3984a4da51ca2dddb2f3928e76d5c43ef70925b2
net/tls.el (open-tls-stream): Show the actual command being executed,
instead of the format string.

diff -r 3984a4da51ca -r aa00c07b3f62 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Oct 01 17:15:16 2008 +0000
+++ b/lisp/ChangeLog	Wed Oct 01 23:48:57 2008 +0000
@@ -1,3 +1,8 @@
+2008-10-01  Magnus Henoch  <mange@freemail.hu>
+
+	* net/tls.el (open-tls-stream): Show the actual command being
+	executed, instead of the format string.
+
 2008-10-01  Eli Zaretskii  <eliz@gnu.org>
 
 	* term/internal.el (dos-locale-alist): New alist.
diff -r 3984a4da51ca -r aa00c07b3f62 lisp/net/tls.el
--- a/lisp/net/tls.el	Wed Oct 01 17:15:16 2008 +0000
+++ b/lisp/net/tls.el	Wed Oct 01 23:48:57 2008 +0000
@@ -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)
+	      (formatted-cmd
+	       (format-spec
+		cmd
+		(format-spec-make
+		 ?h host
+		 ?p (if (integerp port)
+			(int-to-string port)
+		      port))))
 	      response)
+	  (message "Opening TLS connection with `%s'..." formatted-cmd)
 	  (setq process (start-process
 			 name buffer shell-file-name shell-command-switch
-			 (format-spec
-			  cmd
-			  (format-spec-make
-			   ?h host
-			   ?p (if (integerp port)
-				  (int-to-string port)
-				port)))))
+			 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)