(open-tls-stream): Use with-current-buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 624b527c7b926561069facb191783ef30aa1f88d..1ffa5c2f08d8b8ef8d380b7ca27b56a4ba7a2647 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * net/tls.el: Don't require rx when compiling.
        (tls-end-of-info): Rewrite without using rx.
+       (open-tls-stream): Use with-current-buffer.
 
 2008-03-18  Dan Nicolaescu  <dann@ics.uci.edu>
 

diff --git a/lisp/net/tls.el b/lisp/net/tls.el
index ee8477c3a39043efc1e6371bd44423a284d6a1a0..2b0ee8318887593fea6311e4b4f9d91cfdc01143 100644 (file)
--- a/lisp/net/tls.el
+++ b/lisp/net/tls.el
@@ -153,8 +153,7 @@ Fourth arg PORT is an integer specifying a port to connect to."
        process cmd done)
     (if use-temp-buffer
        (setq buffer (generate-new-buffer " TLS")))
-    (save-excursion
-      (set-buffer buffer)
+    (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)