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 599e2305f772378bc29a00f1919f4414fd35f686..ddb4139610e17452afffcd8926caf8cc7b49f232 100644 (file)
--- 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))))