diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-30 13:11:14 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-30 13:11:14 +0200 |
| commit | 4134e6f87c955d89d6baff07fa15f25b19db99cf (patch) | |
| tree | c4ade6b032c0eb74ae1c620d15848d7cab6a5602 /lisp/net/pop3.el | |
| parent | 2b5fe44faad82afd393b0470ff05577520d766e9 (diff) | |
| download | emacs-4134e6f87c955d89d6baff07fa15f25b19db99cf.tar.gz emacs-4134e6f87c955d89d6baff07fa15f25b19db99cf.tar.bz2 emacs-4134e6f87c955d89d6baff07fa15f25b19db99cf.zip | |
Use decoded time accessors in pop3
* lisp/net/pop3.el (pop3-make-date): Use decoded time
accessors.
Diffstat (limited to 'lisp/net/pop3.el')
| -rw-r--r-- | lisp/net/pop3.el | 4 |
1 files 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)))) |