aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/obsolete
diff options
context:
space:
mode:
authorPaul Eggert2019-01-15 14:08:41 -0800
committerPaul Eggert2019-01-15 14:09:11 -0800
commit2a3bd6798e9670828f0402079fcc116d6d6b042d (patch)
treefaed45fcd905138435b9100758f5bcc44e60ec3a /lisp/obsolete
parent9fc02ff5ea95c31a8d81eabb5634aa135fcd8786 (diff)
downloademacs-2a3bd6798e9670828f0402079fcc116d6d6b042d.tar.gz
emacs-2a3bd6798e9670828f0402079fcc116d6d6b042d.zip
Avoid using obsolete accept-process-output arg
* lisp/gnus/nnheader.el (nnheader-accept-process-output): * lisp/net/dns.el (dns-query): * lisp/net/imap.el (imap-wait-for-tag): * lisp/net/network-stream.el (network-stream-get-response): * lisp/net/pop3.el (pop3-accept-process-output): * lisp/obsolete/starttls.el (starttls-negotiate-gnutls) (starttls-open-stream-gnutls): * lisp/server.el (server-eval-at): * lisp/textmodes/ispell.el (ispell-accept-output): Do not depend on the obsolete milliseconds argument of accept-process-output.
Diffstat (limited to 'lisp/obsolete')
-rw-r--r--lisp/obsolete/starttls.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/obsolete/starttls.el b/lisp/obsolete/starttls.el
index b89e612e4a3..e0a09688f45 100644
--- a/lisp/obsolete/starttls.el
+++ b/lisp/obsolete/starttls.el
@@ -217,7 +217,7 @@ handshake, or nil on failure."
217 starttls-success nil t)) 217 starttls-success nil t))
218 (setq done-bad (re-search-forward 218 (setq done-bad (re-search-forward
219 starttls-failure nil t)))))) 219 starttls-failure nil t))))))
220 (accept-process-output process 1 100) 220 (accept-process-output process 1.1)
221 (sit-for 0.1)) 221 (sit-for 0.1))
222 (setq info (buffer-substring-no-properties old-max (point-max))) 222 (setq info (buffer-substring-no-properties old-max (point-max)))
223 (delete-region old-max (point-max)) 223 (delete-region old-max (point-max))
@@ -251,7 +251,7 @@ handshake, or nil on failure."
251 (goto-char old-max) 251 (goto-char old-max)
252 (not (setq done (re-search-forward 252 (not (setq done (re-search-forward
253 starttls-connect nil t))))) 253 starttls-connect nil t)))))
254 (accept-process-output process 0 100) 254 (accept-process-output process 0.1)
255 (sit-for 0.1)) 255 (sit-for 0.1))
256 (if done 256 (if done
257 (with-current-buffer buffer 257 (with-current-buffer buffer