# HG changeset patch
# User Reiner Steib <Reiner.Steib@gmx.de>
# Date 1205961698 0
# Node ID af4d6ac258a1c02bf1984c92febd8da5d8f0e729
# Parent  07ebd0fc42b8fb4f0a5ec1bda80686936fdbc771
(open-tls-stream): Use with-current-buffer.

diff -r 07ebd0fc42b8 -r af4d6ac258a1 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Mar 19 21:01:37 2008 +0000
+++ b/lisp/ChangeLog	Wed Mar 19 21:21:38 2008 +0000
@@ -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 -r 07ebd0fc42b8 -r af4d6ac258a1 lisp/net/tls.el
--- a/lisp/net/tls.el	Wed Mar 19 21:01:37 2008 +0000
+++ b/lisp/net/tls.el	Wed Mar 19 21:21:38 2008 +0000
@@ -153,8 +153,7 @@
 	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)