diff options
| author | Reiner Steib <Reiner.Steib@gmx.de> | 2008-03-19 21:32:23 +0000 |
|---|---|---|
| committer | Reiner Steib <Reiner.Steib@gmx.de> | 2008-03-19 21:32:23 +0000 |
| commit | ea666a77e120ad8f6e8e9e1d0c9d0038cf8f792d (patch) | |
| tree | 71f1502ec4916d06335c6e49c40b28fc768e9c53 /lisp/net/tls.el | |
| parent | aff67808c108e2b24bbc626d66647d6c759134b9 (diff) | |
| download | emacs-ea666a77e120ad8f6e8e9e1d0c9d0038cf8f792d.tar.gz emacs-ea666a77e120ad8f6e8e9e1d0c9d0038cf8f792d.tar.bz2 emacs-ea666a77e120ad8f6e8e9e1d0c9d0038cf8f792d.zip | |
(open-tls-stream): Reindent.
Diffstat (limited to 'lisp/net/tls.el')
| -rw-r--r-- | lisp/net/tls.el | 18 |
1 files changed, 9 insertions, 9 deletions
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 |