From 57646401f1cb3e09169da5e768e74d4de9d19aed Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 9 Feb 2019 19:22:53 -0800 Subject: =?UTF-8?q?Don=E2=80=99t=20assume=20CURRENT=5FTIME=5FLIST?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * lisp/gnus/gnus-delay.el (gnus-delay-send-queue): * lisp/gnus/nnmail.el (nnmail-activate): * lisp/mh-e/mh-alias.el (mh-alias-tstamp): * lisp/net/newst-backend.el (newsticker--cache-item-compare-by-time): Use time-less-p instead of assuming timestamp format. --- lisp/mh-e/mh-alias.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'lisp/mh-e') diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el index 3f895f4ecdf..49f55475a72 100644 --- a/lisp/mh-e/mh-alias.el +++ b/lisp/mh-e/mh-alias.el @@ -80,9 +80,7 @@ If ARG is non-nil, set timestamp with the current time." (when (and file (file-exists-p file)) (setq stamp (file-attribute-modification-time (file-attributes file))) - (or (> (car stamp) (car mh-alias-tstamp)) - (and (= (car stamp) (car mh-alias-tstamp)) - (> (cadr stamp) (cadr mh-alias-tstamp))))))) + (time-less-p mh-alias-tstamp stamp)))) (mh-alias-filenames t))))))) (defun mh-alias-filenames (arg) -- cgit v1.2.1