*** pub/dgnus/lisp/gnus-uu.el Sat Jul 29 03:13:10 1995 --- dgnus/lisp/gnus-uu.el Sat Jul 29 03:02:37 1995 *************** *** 255,260 **** --- 255,261 ---- (defvar gnus-uu-file-name nil) (defconst gnus-uu-uudecode-process nil) + (defvar gnus-uu-binhex-article-name nil) (defvar gnus-uu-generated-file-list nil) (defvar gnus-uu-work-dir nil) *************** *** 735,741 **** "^:...............................................................$") (defconst gnus-uu-binhex-end-line ":$") - (defvar gnus-uu-binhex-article-name nil) (defun gnus-uu-binhex-article (buffer in-state) (let (state start-char) --- 736,741 ---- *** pub/dgnus/lisp/gnus.el Sat Jul 29 03:13:10 1995 --- dgnus/lisp/gnus.el Sat Jul 29 20:12:16 1995 *************** *** 1303,1309 **** (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.98.5" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1303,1309 ---- (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.98.6" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 4499,4505 **** (progn (gnus-read-active-file) (gnus-get-unread-articles (or arg (1+ gnus-level-subscribed)))) ! (let ((gnus-read-active-file nil) (gnus-have-read-active-file (and (not arg) gnus-have-read-active-file))) (gnus-get-unread-articles (or arg (1+ gnus-level-subscribed))))) --- 4499,4505 ---- (progn (gnus-read-active-file) (gnus-get-unread-articles (or arg (1+ gnus-level-subscribed)))) ! (let ((gnus-read-active-file (not arg)) (gnus-have-read-active-file (and (not arg) gnus-have-read-active-file))) (gnus-get-unread-articles (or arg (1+ gnus-level-subscribed))))) *************** *** 6200,6206 **** ;; If this is a straight (sic) list of headers, then a ;; threaded summary display isn't required, so we just create ;; an unthreaded one. ! (gnus-summary-prepare-unthreaded threads) ;; Do the threaded display. --- 6200,6206 ---- ;; If this is a straight (sic) list of headers, then a ;; threaded summary display isn't required, so we just create ;; an unthreaded one. ! (gnus-summary-prepare-unthreaded threads cull) ;; Do the threaded display. *************** *** 6265,6272 **** ;; We may have to root out some bad articles... (and cull (= level 0) ! (cond ((memq (setq number (header-number header)) ! gnus-newsgroup-dormant) (setq header nil)) ((and gnus-summary-expunge-below (< (or (cdr (assq number gnus-newsgroup-scored)) --- 6265,6273 ---- ;; We may have to root out some bad articles... (and cull (= level 0) ! (cond ((and (memq (setq number (header-number header)) ! gnus-newsgroup-dormant) ! (null threads)) (setq header nil)) ((and gnus-summary-expunge-below (< (or (cdr (assq number gnus-newsgroup-scored)) *************** *** 6314,6320 **** (setq threads (cdr (car thread))))))) ! (defun gnus-summary-prepare-unthreaded (headers) (let (header number) ;; Do the async thing, if that is required. --- 6315,6321 ---- (setq threads (cdr (car thread))))))) ! (defun gnus-summary-prepare-unthreaded (headers &optional cull) (let (header number) ;; Do the async thing, if that is required. *************** *** 6330,6338 **** ;; We may have to root out some bad articles... (cond ! ((memq (setq number (header-number header)) ! gnus-newsgroup-dormant)) ! ((and gnus-summary-expunge-below (< (or (cdr (assq number gnus-newsgroup-scored)) gnus-summary-default-score 0) gnus-summary-expunge-below)) --- 6331,6340 ---- ;; We may have to root out some bad articles... (cond ! ((and cull ! (memq (setq number (header-number header)) ! gnus-newsgroup-dormant))) ! ((and cull gnus-summary-expunge-below (< (or (cdr (assq number gnus-newsgroup-scored)) gnus-summary-default-score 0) gnus-summary-expunge-below)) *************** *** 9508,9514 **** (gnus-summary-update-lines (point) (progn ! (gnus-summary-prepare-threads (nreverse headers)) (point))))) (goto-char (point-min)) (gnus-summary-position-cursor))) --- 9510,9516 ---- (gnus-summary-update-lines (point) (progn ! (gnus-summary-prepare-unthreaded (nreverse headers)) (point))))) (goto-char (point-min)) (gnus-summary-position-cursor))) *************** *** 9517,9523 **** "Display all the hidden articles that are marked as dormant." (interactive) (gnus-set-global-variables) ! (let ((buffer-read-only nil)) (let ((dormant gnus-newsgroup-dormant) headers h) (while dormant --- 9519,9525 ---- "Display all the hidden articles that are marked as dormant." (interactive) (gnus-set-global-variables) ! (let ((buffer-read-only nil)) (let ((dormant gnus-newsgroup-dormant) headers h) (while dormant *************** *** 9531,9537 **** (gnus-summary-update-lines (point) (progn ! (gnus-summary-prepare-threads (nreverse headers)) (point))))) (goto-char (point-min)) (gnus-summary-position-cursor))) --- 9533,9539 ---- (gnus-summary-update-lines (point) (progn ! (gnus-summary-prepare-unthreaded (nreverse headers)) (point))))) (goto-char (point-min)) (gnus-summary-position-cursor))) *************** *** 12157,12164 **** (gnus-close-group group)))) ;; These groups are native or secondary. ! (if (and (not (member (or method gnus-select-method) ! gnus-have-read-active-file)) (<= (nth 1 info) level)) (setq active (gnus-activate-newsgroup (car info))))) --- 12159,12165 ---- (gnus-close-group group)))) ;; These groups are native or secondary. ! (if (and (not gnus-read-active-file) (<= (nth 1 info) level)) (setq active (gnus-activate-newsgroup (car info))))) *** pub/dgnus/lisp/nnfolder.el Sat Jul 29 03:13:11 1995 --- dgnus/lisp/nnfolder.el Sat Jul 29 20:12:17 1995 *************** *** 292,304 **** (nnmail-find-file nnfolder-active-file) (setq nnfolder-group-alist (nnmail-get-active)))) - ;; (or nnfolder-group-alist - ;; (nnmail-find-file nnfolder-active-file) - ;; (progn - ;; (setq nnfolder-group-alist (nnmail-get-active)) - ;; (nnmail-save-active nnfolder-group-alist nnfolder-active-file) - ;; (nnmail-find-file nnfolder-active-file))))) - (defun nnfolder-request-newgroups (date &optional server) (nnfolder-request-list server)) --- 292,297 ---- *** pub/dgnus/lisp/nntp.el Sat Jul 29 03:13:11 1995 --- dgnus/lisp/nntp.el Sat Jul 29 19:41:33 1995 *************** *** 533,538 **** --- 533,539 ---- (nntp-decode-text)))) (defun nntp-close-group (group &optional server) + (setq nntp-current-group nil) t) (defun nntp-request-list (&optional server) *************** *** 1207,1213 **** (process-send-string nntp-async-process cmd))) (defun nntp-async-request-group (group) ! (if (string= group nntp-current-group) () (let ((asyncs (assoc group nntp-async-group-alist))) ;; A new group has been selected, so we push the current state --- 1208,1214 ---- (process-send-string nntp-async-process cmd))) (defun nntp-async-request-group (group) ! (if (equal group nntp-current-group) () (let ((asyncs (assoc group nntp-async-group-alist))) ;; A new group has been selected, so we push the current state *************** *** 1218,1228 **** nntp-async-process) (delq asyncs nntp-async-group-alist))) (setq nntp-current-group group) ! (or asyncs ! (progn ! (setq nntp-async-articles (nth 1 asyncs)) ! (setq nntp-async-fetched (nth 2 asyncs)) ! (setq nntp-async-process (nth 3 asyncs))))))) (provide 'nntp) --- 1219,1229 ---- nntp-async-process) (delq asyncs nntp-async-group-alist))) (setq nntp-current-group group) ! (and asyncs ! (progn ! (setq nntp-async-articles (nth 1 asyncs)) ! (setq nntp-async-fetched (nth 2 asyncs)) ! (setq nntp-async-process (nth 3 asyncs))))))) (provide 'nntp) *** pub/dgnus/lisp/ChangeLog Sat Jul 29 03:13:12 1995 --- dgnus/lisp/ChangeLog Sat Jul 29 20:12:17 1995 *************** *** 1,5 **** ! Sat Jul 29 02:06:26 1995 Lars Magne Ingebrigtsen * nntp.el (nntp-open-server-semi-internal): Define servers that we can't reach as unreachable. --- 1,18 ---- ! Sat Jul 29 19:40:51 1995 Lars Magne Ingebrigtsen + * gnus.el (gnus-get-unread-articles): Would doubly activate native + groups. + (gnus-summary-prepare-threads): Always removed dormant articles. + (gnus-summary-show-all-dormant): Did not show dormants. + (gnus-summary-show-all-expunged): Ditto for expunged. + + * nntp.el (nntp-async-request-group): Would pretend to close down + async connections. + + Sat Jul 29 02:06:26 1995 Lars Magne Ingebrigtsen + + * gnus.el: 0.98.5. is released. + * nntp.el (nntp-open-server-semi-internal): Define servers that we can't reach as unreachable.