From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Wed, 19 Mar 2008 21:32:23 +0000 (+0000)
Subject: (open-tls-stream): Reindent.
X-Git-Tag: emacs-pretest-23.0.90~7039
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea666a77e120ad8f6e8e9e1d0c9d0038cf8f792d;p=emacs.git

(open-tls-stream): Reindent.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ed6f30769b0..0616e34f96e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-19  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* net/tls.el (open-tls-stream): Reindent.
+
 2008-03-19  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-let-maybe): Removed.
diff --git a/lisp/net/tls.el b/lisp/net/tls.el
index 9360a905861..7dc563af995 100644
--- a/lisp/net/tls.el
+++ b/lisp/net/tls.el
@@ -251,19 +251,19 @@ Fourth arg PORT is an integer specifying a port to connect to."
 	    ;; `openssl s_client' and `gnutls' print
 	    (let ((start-of-data nil))
 	      (while
-		   (not (setq start-of-data
-			      ;; the string matching `tls-end-of-info'
-			      ;; might come in separate chunks from
-			      ;; `accept-process-output', so start the
-			      ;; search where `tls-success' ended
-			      (save-excursion
-				(if (re-search-forward tls-end-of-info nil t)
-				    (match-end 0)))))
+		  (not (setq start-of-data
+			     ;; the string matching `tls-end-of-info'
+			     ;; might come in separate chunks from
+			     ;; `accept-process-output', so start the
+			     ;; search where `tls-success' ended
+			     (save-excursion
+			       (if (re-search-forward tls-end-of-info nil t)
+				   (match-end 0)))))
 		(accept-process-output process 1))
 	      (if start-of-data
 		  ;; move point to start of client data
 		  (goto-char start-of-data)))
-	  (setq done process))))
+	    (setq done process))))
       (when (and done
 		 (or
 		  (and tls-checktrust