[gnus git] branch master updated: m0-7-36-g6348ae8 =1= tls.el (open-tls-stream): Remove unneeded buffer contents when opening the connection

       via  6348ae89aa9f57b8822084c6d156819e92961f8e (commit)
      from  47dca68db32d58b1ea5ad98f5038c51ca605a0ee (commit)


- Log -----------------------------------------------------------------
commit 6348ae89aa9f57b8822084c6d156819e92961f8e
Author: Ted Zlatanov <[email protected]>
Date:   Wed Jun 5 22:19:15 2013 +0000

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f53f608..7a43360 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,13 @@
 	ranges, since `nnimap-retrieve-group-data-early' also uses it as a flag
 	to see whether the group was synced before.
 
+2013-06-05  Teodor Zlatanov  <[email protected]>
+
+	* net/tls.el (open-tls-stream): Remove unneeded buffer contents up
+	to point when opening the connection.
+	Suggested by João Távora <[email protected]> in
+	<http://lists.gnu.org/archive/html/emacs-devel/2013-05/msg00464.html>.
+
 2013-06-04  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-art.el (article-date-ut, article-update-date-lapsed): Don't
diff --git a/lisp/tls.el b/lisp/tls.el
index 7fc314e..3d8d8de 100644
--- a/lisp/tls.el
+++ b/lisp/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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    7 +++++++
 lisp/tls.el    |    5 ++++-
 2 files changed, 11 insertions(+), 1 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project