(open-tls-stream): Remove unneeded buffer contents when opening the connection.

This commit is contained in:
Ted Zlatanov 2013-06-05 11:03:37 -04:00
parent 781b4af61d
commit 28f5da6df3
2 changed files with 11 additions and 1 deletions

View file

@ -286,7 +286,10 @@ NOT trusted. Accept anyway? " host)))))
(format "Host name in certificate doesn't \
match `%s'. Connect anyway? " host))))))
(setq done nil)
(delete-process process)))
(delete-process process))
;; Delete all the informational messages that could confuse
;; future uses of `buffer'.
(delete-region (point-min) (point)))
(message "Opening TLS connection to `%s'...%s"
host (if done "done" "failed"))
(when use-temp-buffer