diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-02-09 19:22:53 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-02-09 19:23:53 -0800 |
| commit | 57646401f1cb3e09169da5e768e74d4de9d19aed (patch) | |
| tree | 4b50f4580d5e39bda35c78802fd57ecf65b8378f /lisp/mh-e | |
| parent | 1e155dcc8dcbaed926a1574bc543d404d2859866 (diff) | |
| download | emacs-57646401f1cb3e09169da5e768e74d4de9d19aed.tar.gz | |
Don’t assume CURRENT_TIME_LIST
* 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.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/mh-alias.el | 4 |
1 files changed, 1 insertions, 3 deletions
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) |