diff options
Diffstat (limited to 'lisp/gnus/starttls.el')
-rw-r--r-- | lisp/gnus/starttls.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/gnus/starttls.el b/lisp/gnus/starttls.el index 5355119f40..763b3d0131 100644 --- a/lisp/gnus/starttls.el +++ b/lisp/gnus/starttls.el @@ -254,8 +254,7 @@ handshake, or nil on failure." (starttls-set-process-query-on-exit-flag process nil) (while (and (processp process) (eq (process-status process) 'run) - (save-excursion - (set-buffer buffer) + (with-current-buffer buffer (goto-char old-max) (not (setq done (re-search-forward starttls-connect nil t))))) @@ -270,6 +269,7 @@ handshake, or nil on failure." host port (if done "done" "failed")) process)) +;;;###autoload (defun starttls-open-stream (name buffer host port) "Open a TLS connection for a port to a host. Returns a subprocess object to represent the connection. @@ -311,5 +311,4 @@ GNUTLS requires a port number." (provide 'starttls) -;; arch-tag: 648b3bd8-63bd-47f5-904c-7c819aea2297 ;;; starttls.el ends here |