*** pub/sgnus/lisp/gnus.el Sat Dec 9 10:22:29 1995 --- sgnus/lisp/gnus.el Sat Dec 9 11:05:07 1995 *************** *** 1439,1445 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.19" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1439,1445 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.20" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 5349,5355 **** (expirable (if (gnus-group-total-expirable-p group) (cons nil (gnus-list-of-read-articles group)) (assq 'expire (gnus-info-marks info)))) ! (expiry-wait (gnus-group-get-parameter 'expiry-wait))) (when expirable (setcdr expirable (gnus-compress-sequence --- 5349,5355 ---- (expirable (if (gnus-group-total-expirable-p group) (cons nil (gnus-list-of-read-articles group)) (assq 'expire (gnus-info-marks info)))) ! (expiry-wait (gnus-group-get-parameter group 'expiry-wait))) (when expirable (setcdr expirable (gnus-compress-sequence *************** *** 10374,10380 **** (gnus-list-of-read-articles gnus-newsgroup-name) (setq gnus-newsgroup-expirable (sort gnus-newsgroup-expirable '<)))) ! (expiry-wait (gnus-group-get-parameter 'expiry-wait)) es) (when expirable ;; There are expirable articles in this group, so we run them --- 10374,10381 ---- (gnus-list-of-read-articles gnus-newsgroup-name) (setq gnus-newsgroup-expirable (sort gnus-newsgroup-expirable '<)))) ! (expiry-wait (gnus-group-get-parameter ! gnus-newsgroup-name 'expiry-wait)) es) (when expirable ;; There are expirable articles in this group, so we run them *** pub/sgnus/lisp/nnmail.el Sat Dec 9 10:22:29 1995 --- sgnus/lisp/nnmail.el Sat Dec 9 11:01:30 1995 *************** *** 302,308 **** "Convert DAYS into time." (let ((seconds (round (* days 60 60 24))) (rest (expt 2 16))) ! (cons (/ seconds rest) (% seconds rest)))) (defun nnmail-time-since (time) "Return the time since DATE." --- 302,308 ---- "Convert DAYS into time." (let ((seconds (round (* days 60 60 24))) (rest (expt 2 16))) ! (list (/ seconds rest) (% seconds rest)))) (defun nnmail-time-since (time) "Return the time since DATE." *************** *** 1058,1064 **** ((numberp days) (setq days (nnmail-days-to-time days)) ;; Compare the time with the current time. ! (nnmail-time-less (nnmail-time-since time) days)))))) (provide 'nnmail) --- 1058,1064 ---- ((numberp days) (setq days (nnmail-days-to-time days)) ;; Compare the time with the current time. ! (nnmail-time-less days (nnmail-time-since time))))))) (provide 'nnmail) *** pub/sgnus/lisp/ChangeLog Sat Dec 9 10:22:35 1995 --- sgnus/lisp/ChangeLog Sat Dec 9 11:05:08 1995 *************** *** 1,7 **** --- 1,15 ---- + Sat Dec 9 10:59:52 1995 Lars Magne Ingebrigtsen + + * gnus.el (gnus-group-expire-articles): Wrong arguments. + + * nnmail.el (nnmail-time-less): Didn't return proper times. + Sat Dec 9 08:50:34 1995 Lars Magne Ingebrigtsen * gnus.el (gnus-update-marks): Chop off nils at the end of group infos. + + * gnus.el: 0.19 is released. Sat Dec 9 03:21:40 1995 Lars Ingebrigtsen