diff options
| author | Lars Ingebrigtsen | 2019-07-30 13:11:14 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-07-30 13:11:14 +0200 |
| commit | 4134e6f87c955d89d6baff07fa15f25b19db99cf (patch) | |
| tree | c4ade6b032c0eb74ae1c620d15848d7cab6a5602 | |
| parent | 2b5fe44faad82afd393b0470ff05577520d766e9 (diff) | |
| download | emacs-4134e6f87c955d89d6baff07fa15f25b19db99cf.tar.gz emacs-4134e6f87c955d89d6baff07fa15f25b19db99cf.zip | |
Use decoded time accessors in pop3
* lisp/net/pop3.el (pop3-make-date): Use decoded time
accessors.
| -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." | |||
| 611 | If NOW, use that time instead." | 611 | If NOW, use that time instead." |
| 612 | (require 'parse-time) | 612 | (require 'parse-time) |
| 613 | (let* ((now (or now (current-time))) | 613 | (let* ((now (or now (current-time))) |
| 614 | (zone (nth 8 (decode-time now)))) | 614 | (zone (decoded-time-zone (decode-time now)))) |
| 615 | (when (< zone 0) | 615 | (when (< zone 0) |
| 616 | (setq zone (- zone))) | 616 | (setq zone (- zone))) |
| 617 | (concat | 617 | (concat |
| 618 | (format-time-string "%d" now) | 618 | (format-time-string "%d" now) |
| 619 | ;; The month name of the %b spec is locale-specific. Pfff. | 619 | ;; The month name of the %b spec is locale-specific. Pfff. |
| 620 | (format " %s " | 620 | (format " %s " |
| 621 | (capitalize (car (rassoc (nth 4 (decode-time now)) | 621 | (capitalize (car (rassoc (decoded-time-month (decode-time now)) |
| 622 | parse-time-months)))) | 622 | parse-time-months)))) |
| 623 | (format-time-string "%Y %H:%M:%S %z" now)))) | 623 | (format-time-string "%Y %H:%M:%S %z" now)))) |
| 624 | 624 | ||