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/gnus/nnmail.el | |
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/gnus/nnmail.el')
-rw-r--r-- | lisp/gnus/nnmail.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 2173e84773e..c2e84c47035 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -1543,11 +1543,8 @@ See the documentation for the variable `nnmail-split-fancy' for details." (format "%s-active-timestamp" backend))) (error 'none)))) - (not (consp timestamp)) - (equal timestamp '(0 0)) - (> (nth 0 file-time) (nth 0 timestamp)) - (and (= (nth 0 file-time) (nth 0 timestamp)) - (> (nth 1 file-time) (nth 1 timestamp)))))) + (eq timestamp 'none) + (time-less-p timestamp file-time)))) (save-excursion (or (eq timestamp 'none) (set (intern (format "%s-active-timestamp" backend)) |