aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog1
-rw-r--r--lisp/net/tls.el3
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 @@
2 2
3 * net/tls.el: Don't require rx when compiling. 3 * net/tls.el: Don't require rx when compiling.
4 (tls-end-of-info): Rewrite without using rx. 4 (tls-end-of-info): Rewrite without using rx.
5 (open-tls-stream): Use with-current-buffer.
5 6
62008-03-18 Dan Nicolaescu <dann@ics.uci.edu> 72008-03-18 Dan Nicolaescu <dann@ics.uci.edu>
7 8
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."
153 process cmd done) 153 process cmd done)
154 (if use-temp-buffer 154 (if use-temp-buffer
155 (setq buffer (generate-new-buffer " TLS"))) 155 (setq buffer (generate-new-buffer " TLS")))
156 (save-excursion 156 (with-current-buffer buffer
157 (set-buffer buffer)
158 (message "Opening TLS connection to `%s'..." host) 157 (message "Opening TLS connection to `%s'..." host)
159 (while (and (not done) (setq cmd (pop cmds))) 158 (while (and (not done) (setq cmd (pop cmds)))
160 (message "Opening TLS connection with `%s'..." cmd) 159 (message "Opening TLS connection with `%s'..." cmd)