From 4134e6f87c955d89d6baff07fa15f25b19db99cf Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 30 Jul 2019 13:11:14 +0200 Subject: [PATCH] Use decoded time accessors in pop3 * lisp/net/pop3.el (pop3-make-date): Use decoded time accessors. --- lisp/net/pop3.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/net/pop3.el b/lisp/net/pop3.el index 599e2305f77..ddb4139610e 100644 --- a/lisp/net/pop3.el +++ b/lisp/net/pop3.el @@ -611,14 +611,14 @@ Return the response string if optional second argument is non-nil." If NOW, use that time instead." (require 'parse-time) (let* ((now (or now (current-time))) - (zone (nth 8 (decode-time now)))) + (zone (decoded-time-zone (decode-time now)))) (when (< zone 0) (setq zone (- zone))) (concat (format-time-string "%d" now) ;; The month name of the %b spec is locale-specific. Pfff. (format " %s " - (capitalize (car (rassoc (nth 4 (decode-time now)) + (capitalize (car (rassoc (decoded-time-month (decode-time now)) parse-time-months)))) (format-time-string "%Y %H:%M:%S %z" now)))) -- 2.39.2