Add sanity check to not delete marks outside the active range.

[gnus] / lisp / nnmail.el

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index e17465a..95a9835 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1884,7 +1884,7 @@ If TIME is nil, then return the cutoff time for oldness instead."
             (setq days (days-to-time days))
             ;; Compare the time with the current time.
             (if (null time)
-                (time-minus (current-time) days)
+                (time-subtract (current-time) days)
               (ignore-errors (time-less-p days (time-since time)))))))))
 
 (declare-function gnus-group-mark-article-read "gnus-group" (group article))