diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/ntlm.el | 2 | ||||
| -rw-r--r-- | lisp/net/pop3.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/ntlm.el b/lisp/net/ntlm.el index 88c561910cb..aae77006202 100644 --- a/lisp/net/ntlm.el +++ b/lisp/net/ntlm.el @@ -151,7 +151,7 @@ signed integer." ;; tenths of microseconds between ;; 1601-01-01 and 1970-01-01 "116444736000000000)") - 'rawnum (encode-time nil 'list))) + 'rawnum (time-convert nil 'list))) result-bytes) (dotimes (_byte 8) (push (calc-eval "and($1,16#FF)" 'rawnum tenths-of-us-since-jan-1-1601) diff --git a/lisp/net/pop3.el b/lisp/net/pop3.el index 4bf50c0d226..5f1cd94eb60 100644 --- a/lisp/net/pop3.el +++ b/lisp/net/pop3.el @@ -379,7 +379,7 @@ Use streaming commands." (defun pop3-uidl-dele (process) "Delete messages according to `pop3-leave-mail-on-server'. Return non-nil if it is necessary to update the local UIDL file." - (let* ((ctime (encode-time nil 'list)) + (let* ((ctime (time-convert nil 'list)) (age-limit (and (numberp pop3-leave-mail-on-server) (* 86400 pop3-leave-mail-on-server))) (srvr (assoc pop3-mailhost pop3-uidl-saved)) |