*** pub/dgnus/lisp/gnus.el Tue Aug 8 11:14:10 1995 --- dgnus/lisp/gnus.el Tue Aug 8 14:12:04 1995 *************** *** 1308,1314 **** (defconst gnus-maintainer "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "(ding) Gnus v0.99.8" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1308,1314 ---- (defconst gnus-maintainer "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "(ding) Gnus v0.99.9" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 3214,3220 **** ;; Read the dribble file. (and gnus-use-dribble-file (gnus-dribble-read-file)) - (gnus-update-format-specifications) (gnus-summary-make-display-table) (let ((buffer-read-only nil)) (erase-buffer) --- 3214,3219 ---- *************** *** 3223,3228 **** --- 3222,3228 ---- (gnus-group-startup-message) (sit-for 0)))) (gnus-setup-news nil level) + (gnus-update-format-specifications) (gnus-group-list-groups level) (gnus-configure-windows 'group)))))) *************** *** 4402,4408 **** gnus-level-default-subscribed))) (gnus-group-update-group group)) ((and (stringp group) ! (or (not gnus-have-read-active-file) (gnus-gethash group gnus-active-hashtb))) ;; Add new newsgroup. (gnus-group-change-level --- 4402,4408 ---- gnus-level-default-subscribed))) (gnus-group-update-group group)) ((and (stringp group) ! (or (not (memq gnus-select-method gnus-have-read-active-file)) (gnus-gethash group gnus-active-hashtb))) ;; Add new newsgroup. (gnus-group-change-level *************** *** 6473,6479 **** (gnus-open-server gnus-current-select-method) (error "Couldn't open server")) ! (or (and (eq (car entry) t) (gnus-activate-newsgroup (car info))) (gnus-request-group group t) (progn --- 6473,6481 ---- (gnus-open-server gnus-current-select-method) (error "Couldn't open server")) ! (or (and (null entry) ! (gnus-activate-newsgroup group)) ! (and (eq (car entry) t) (gnus-activate-newsgroup (car info))) (gnus-request-group group t) (progn *** pub/dgnus/lisp/ChangeLog Tue Aug 8 11:14:12 1995 --- dgnus/lisp/ChangeLog Tue Aug 8 14:06:15 1995 *************** *** 1,4 **** ! Tue Aug 8 09:58:27 1995 Lars Magne Ingebrigtsen * gnus-ems.el (gnus-summary-insert-pseudos-xemacs): Would bug out on the end of the buffer. --- 1,14 ---- ! Tue Aug 8 12:39:28 1995 Lars Magne Ingebrigtsen ! ! * gnus.el (gnus-group-unsubscribe-group): Wouldn't let you sub to ! groups not in active. ! (gnus): Would barf on second startup. ! (gnus-select-newsgroup): Would refuse entry of non-activated ! dead groups. ! ! Tue Aug 8 09:58:27 1995 Lars Magne Ingebrigtsen ! ! * gnus.el: 0.99.8 is released. * gnus-ems.el (gnus-summary-insert-pseudos-xemacs): Would bug out on the end of the buffer. *************** *** 23,28 **** --- 33,40 ---- file. Mon Aug 7 02:32:03 1995 Lars Magne Ingebrigtsen + + * gnus.el: 0.99.7 is released. * gnus.el (gnus-group-list-mode): New variable. (gnus-have-all-newsgroups): Obsolete variable.