Remove some timestamp format assumptions

Don’t assume that current-time and plain encode-time return
timestamps in (HI LO US PS) format.
* lisp/gnus/gnus-art.el (article-make-date-line)
(article-lapsed-string):
* lisp/gnus/gnus-demon.el (gnus-demon-time-to-step):
* lisp/gnus/gnus-diary.el (gnus-user-format-function-d):
* lisp/gnus/nnmaildir.el (nnmaildir-request-expire-articles):
* lisp/net/pop3.el (pop3-uidl-dele):
* lisp/org/ox-publish.el (org-publish-sitemap):
* lisp/vc/vc-hg.el (vc-hg-state-fast):
Simplify and remove assumptions about timestamp format.
* lisp/gnus/gnus-art.el (article-lapsed-string):
* lisp/gnus/gnus-diary.el (gnus-user-format-function-d):
Do not worry about time-subtract returning nil; that's not possible.
* lisp/gnus/gnus-diary.el (gnus-user-format-function-d):
Avoid race due to duplicate current-time calls.
* lisp/vc/vc-hg.el (vc-hg--time-to-integer): Remove; no longer used.

1 files changed, 4 insertions, 6 deletions

diff --git a/lisp/org/ox-publish.el b/lisp/org/ox-publish.el
index cd49cd0afc5..bc86a4d5635 100644
--- a/lisp/org/ox-publish.el
+++ b/lisp/org/ox-publish.el
@@ -793,13 +793,11 @@ Default for SITEMAP-FILENAME is `sitemap.org'."
                            (not (string-lessp B A))))))
                 ((or `anti-chronologically `chronologically)
                  (let* ((adate (org-publish-find-date a project))
-                        (bdate (org-publish-find-date b project))
-                        (A (+ (ash (car adate) 16) (cadr adate)))
-                        (B (+ (ash (car bdate) 16) (cadr bdate))))
+                        (bdate (org-publish-find-date b project)))
                    (setq retval
-                         (if (eq sort-files 'chronologically)
-                             (<= A B)
-                           (>= A B)))))
+                         (not (if (eq sort-files 'chronologically)
+                                  (time-less-p bdate adate)
+                                (time-less-p adate bdate))))))
                 (`nil nil)
                 (_ (user-error "Invalid sort value %s" sort-files)))
               ;; Directory-wise wins: