summaryrefslogtreecommitdiff
path: root/lisp/net/pop3.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/net/pop3.el')
-rw-r--r--lisp/net/pop3.el2
1 files changed, 1 insertions, 1 deletions
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))