Mercurial > emacs
changeset 93084:b4e2fb288547
(open-tls-stream): Reindent.
| author | Reiner Steib <Reiner.Steib@gmx.de> |
|---|---|
| date | Wed, 19 Mar 2008 21:32:23 +0000 |
| parents | 3f66e01387bb |
| children | d3840ccbe2f6 |
| files | lisp/ChangeLog lisp/net/tls.el |
| diffstat | 2 files changed, 13 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Mar 19 21:06:37 2008 +0000 +++ b/lisp/ChangeLog Wed Mar 19 21:32:23 2008 +0000 @@ -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.
--- 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