From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 30 Jul 2019 11:11:14 +0000 (+0200)
Subject: Use decoded time accessors in pop3
X-Git-Tag: emacs-27.0.90~1817^2~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4134e6f87c955d89d6baff07fa15f25b19db99cf;p=emacs.git

Use decoded time accessors in pop3

* lisp/net/pop3.el (pop3-make-date): Use decoded time
accessors.
---

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))))