(open-tls-stream): Reindent.

2 files changed, 13 insertions, 9 deletions

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