*** pub/dgnus/lisp/gnus.el Sun Feb 4 15:41:28 1996 --- dgnus/lisp/gnus.el Sun Feb 4 15:55:32 1996 *************** *** 1354,1360 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "Gnus v5.0.13" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1354,1360 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "Gnus v5.0.15" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 6869,6880 **** (cond ((or (eq 'tick (car prev)) (eq 'dormant (car prev))) ;; Make sure that all ticked articles are a subset of the ;; unread/unselected articles. ! (while m ! (if (or (memq (car m) gnus-newsgroup-unreads) ! (memq (car m) gnus-newsgroup-unselected)) ! (setq prev m) ! (setcdr prev (cdr m))) ! (setq m (cdr m)))) ((eq 'score (car prev)) ;; Scored articles should be a subset of ;; unread/unselected articles. --- 6869,6881 ---- (cond ((or (eq 'tick (car prev)) (eq 'dormant (car prev))) ;; Make sure that all ticked articles are a subset of the ;; unread/unselected articles. ! ;;(while m ! ;; (if (or (memq (car m) gnus-newsgroup-unreads) ! ;; (memq (car m) gnus-newsgroup-unselected)) ! ;; (setq prev m) ! ;; (setcdr prev (cdr m))) ! ;; (setq m (cdr m))) ! ) ((eq 'score (car prev)) ;; Scored articles should be a subset of ;; unread/unselected articles. *** pub/dgnus/lisp/ChangeLog Sun Feb 4 15:41:36 1996 --- dgnus/lisp/ChangeLog Sun Feb 4 15:50:54 1996 *************** *** 4,9 **** --- 4,11 ---- numbers. (gnus-request-accept-article): Make sure there's a newline at the end of the buffer. + (gnus-adjust-marked-articles): Don't remove illegal ticked + articles (for forwards compatability). Sat Feb 3 14:51:36 1996 Lars Magne Ingebrigtsen