]> git.eshelyaron.com Git - emacs.git/commitdiff
(open-tls-stream): Reindent.
authorReiner Steib <Reiner.Steib@gmx.de>
Wed, 19 Mar 2008 21:32:23 +0000 (21:32 +0000)
committerReiner Steib <Reiner.Steib@gmx.de>
Wed, 19 Mar 2008 21:32:23 +0000 (21:32 +0000)
lisp/ChangeLog
lisp/net/tls.el

index ed6f30769b0ac5bdfa2ff1ad9c444acccb7e3916..0616e34f96efbed7c4b4b12698a1baac08e579dd 100644 (file)
@@ -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.
index 9360a905861074e7c126408b3288f196adc95b97..7dc563af9950fca64dea75d542bb24c3e9973388 100644 (file)
@@ -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