diff options
| author | Ted Zlatanov <tzz@lifelogs.com> | 2013-06-05 11:03:37 -0400 |
|---|---|---|
| committer | Ted Zlatanov <tzz@lifelogs.com> | 2013-06-05 11:03:37 -0400 |
| commit | 28f5da6df34eb64677e25afd001c1f48b012aec7 (patch) | |
| tree | 3397800bfe14bfaf5805efa8c9934679fcf6316d /lisp/net/tls.el | |
| parent | 781b4af61d662b0a67989776c9f281d7bd4b26ac (diff) | |
| download | emacs-28f5da6df34eb64677e25afd001c1f48b012aec7.tar.gz emacs-28f5da6df34eb64677e25afd001c1f48b012aec7.tar.bz2 emacs-28f5da6df34eb64677e25afd001c1f48b012aec7.zip | |
(open-tls-stream): Remove unneeded buffer contents when opening the connection.
Diffstat (limited to 'lisp/net/tls.el')
| -rw-r--r-- | lisp/net/tls.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/net/tls.el b/lisp/net/tls.el index 7fc314ef088..3d8d8decf47 100644 --- a/lisp/net/tls.el +++ b/lisp/net/tls.el @@ -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 |