diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-30 13:05:17 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-30 13:05:17 +0200 |
| commit | bd26eff54779bfd5739c1d663bcabd19246682d8 (patch) | |
| tree | b362161824f4959630f7fc10690f81d23401aed1 /lisp/gnus/gnus-art.el | |
| parent | 608832acc35420fc7140f73cd8e18f1a00f93ec6 (diff) | |
| download | emacs-bd26eff54779bfd5739c1d663bcabd19246682d8.tar.gz emacs-bd26eff54779bfd5739c1d663bcabd19246682d8.tar.bz2 emacs-bd26eff54779bfd5739c1d663bcabd19246682d8.zip | |
Use decoded time accessors in Gnus
* lisp/gnus/nnimap.el (nnimap-find-expired-articles):
* lisp/gnus/nndiary.el (nndiary-compute-reminders)
(nndiary-last-occurrence, nndiary-next-occurrence):
* lisp/gnus/message.el (message-make-expires-date):
* lisp/gnus/gnus-util.el (gnus-seconds-today)
(gnus-seconds-month, gnus-seconds-year):
* lisp/gnus/gnus-demon.el (gnus-demon-time-to-step):
* lisp/gnus/gnus-art.el (article-make-date-line): Use decoded time
accessors.
Diffstat (limited to 'lisp/gnus/gnus-art.el')
| -rw-r--r-- | lisp/gnus/gnus-art.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 89f57712c56..a38300ef66a 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -3598,22 +3598,22 @@ possible values." (let ((dtime (decode-time time))) (concat "Date: the " - (number-to-string (nth 3 dtime)) - (let ((digit (% (nth 3 dtime) 10))) + (number-to-string (decoded-time-day dtime)) + (let ((digit (% (decoded-time-day dtime) 10))) (cond - ((memq (nth 3 dtime) '(11 12 13)) "th") + ((memq (decoded-time-day dtime) '(11 12 13)) "th") ((= digit 1) "st") ((= digit 2) "nd") ((= digit 3) "rd") (t "th"))) " of " - (nth (1- (nth 4 dtime)) gnus-english-month-names) + (nth (1- (decoded-time-month dtime)) gnus-english-month-names) " " - (number-to-string (nth 5 dtime)) + (number-to-string (decoded-time-year dtime)) " at " - (format "%02d" (nth 2 dtime)) + (format "%02d" (decoded-time-hour dtime)) ":" - (format "%02d" (nth 1 dtime))))))) + (format "%02d" (decoded-time-minute dtime))))))) (foo (format "Date: %s (from Gnus)" date)))) |