diff options
Diffstat (limited to 'lisp/gnus/nndiary.el')
| -rw-r--r-- | lisp/gnus/nndiary.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el index 3798be10582..c8b7eed9870 100644 --- a/lisp/gnus/nndiary.el +++ b/lisp/gnus/nndiary.el @@ -1278,27 +1278,27 @@ all. This may very well take some time.") (push (cond ((eq (cdr reminder) 'minute) (time-subtract - (apply 'encode-time 0 (nthcdr 1 date-elts)) + (apply #'encode-time 0 (nthcdr 1 date-elts)) (encode-time (* (car reminder) 60.0)))) ((eq (cdr reminder) 'hour) (time-subtract - (apply 'encode-time 0 0 (nthcdr 2 date-elts)) + (apply #'encode-time 0 0 (nthcdr 2 date-elts)) (encode-time (* (car reminder) 3600.0)))) ((eq (cdr reminder) 'day) (time-subtract - (apply 'encode-time 0 0 0 (nthcdr 3 date-elts)) + (apply #'encode-time 0 0 0 (nthcdr 3 date-elts)) (encode-time (* (car reminder) 86400.0)))) ((eq (cdr reminder) 'week) (time-subtract - (apply 'encode-time 0 0 0 monday (nthcdr 4 date-elts)) + (apply #'encode-time 0 0 0 monday (nthcdr 4 date-elts)) (encode-time (* (car reminder) 604800.0)))) ((eq (cdr reminder) 'month) (time-subtract - (apply 'encode-time 0 0 0 1 (nthcdr 4 date-elts)) + (apply #'encode-time 0 0 0 1 (nthcdr 4 date-elts)) (encode-time (* (car reminder) 18748800.0)))) ((eq (cdr reminder) 'year) (time-subtract - (apply 'encode-time 0 0 0 1 1 (nthcdr 5 date-elts)) + (apply #'encode-time 0 0 0 1 1 (nthcdr 5 date-elts)) (encode-time (* (car reminder) 400861056.0))))) res)) (sort res 'time-less-p))) |