This commit is contained in:
Adam Porter 2020-11-30 21:12:55 -06:00
parent 180f3337d5
commit f17c1da97c

View file

@ -163,11 +163,10 @@ If SESSION has a `next-batch' token, it's used."
:params params
:else (lambda (plz-error)
(setf (map-elt ement-syncs session) nil)
(pcase-let (((cl-struct plz-error curl-error) plz-error))
(pcase curl-error
(28 ; Timeout: sync again if enabled.
(ement--auto-sync session))
(_ (ement-api-error plz-error)))))
(pcase (plz-error-curl-error plz-error)
(`(28 . ,_) ; Timeout: sync again if enabled.
(ement--auto-sync session))
(_ (ement-api-error plz-error))))
:json-read-fn (lambda ()
"Print a message, then call `json-read'."
(require 'files)