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

2 files changed, 2 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 624b527c7b9..1ffa5c2f08d 100644
--- 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 ee8477c3a39..2b0ee831888 100644
--- 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)