diff lisp/net/tls.el @ 93084:b4e2fb288547

(open-tls-stream): Reindent.

--- a/lisp/net/tls.el	Wed Mar 19 21:06:37 2008 +0000
+++ b/lisp/net/tls.el	Wed Mar 19 21:32:23 2008 +0000
@@ -251,19 +251,19 @@
 	    ;; `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