[Emacs-diffs] master 4134e6f 12/13: Use decoded time accessors in pop3

[Lars Ingebrigtsen]

branch: master
commit 4134e6f87c955d89d6baff07fa15f25b19db99cf
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 599e230..ddb4139 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))))