mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(open-tls-stream): Reindent.

Browse source
This commit is contained in:
Reiner Steib 2008-03-19 21:32:23 +00:00
parent aff67808c1
commit ea666a77e1
2 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/net/tls.el
View 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