# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1175920828 0
# Node ID 26293d3a753d25d4e18224a6ef2e40fd3853547d
# Parent  15108eee2bb34b9ee8666328380d0a5969a7954f
Fix last fix.

diff -r 15108eee2bb3 -r 26293d3a753d lisp/net/tls.el
--- a/lisp/net/tls.el	Sat Apr 07 04:33:00 2007 +0000
+++ b/lisp/net/tls.el	Sat Apr 07 04:40:28 2007 +0000
@@ -160,7 +160,7 @@
     (message "Opening TLS connection to `%s'...%s"
 	     host (if done "done" "failed"))
     (when use-temp-buffer
-      (or done (set-process-buffer process nil))
+      (if done (set-process-buffer process nil))
       (kill-buffer buffer))
     done))