*** pub/rgnus/lisp/gnus-group.el Tue Mar 18 18:01:56 1997 --- rgnus/lisp/gnus-group.el Wed Mar 19 00:04:12 1997 *************** *** 1454,1460 **** ;; Selecting groups. - (defvar gnus-auto-select-next) (defun gnus-group-read-group (&optional all no-article group) "Read news in this newsgroup. If the prefix argument ALL is non-nil, already read articles become --- 1454,1459 ---- *************** *** 1465,1505 **** (interactive "P") (let ((no-display (eq all 0)) (group (or group (gnus-group-group-name))) ! number active marked entry selected did-select) (when (eq all 0) (setq all nil)) (unless group (error "No group on current line")) ! ;; We loop here in case all articles in the group we try to select ! ;; is scored out and we want to go to the next group. ! (while (not selected) ! (setq marked (gnus-info-marks ! (nth 2 (setq entry (gnus-gethash ! group gnus-newsrc-hashtb))))) ! ;; This group might be a dead group. In that case we have to get ! ;; the number of unread articles from `gnus-active-hashtb'. ! (setq number ! (cond ((numberp all) all) ! (entry (car entry)) ! ((setq active (gnus-active group)) ! (- (1+ (cdr active)) (car active))))) ! (setq did-select ! (let ((gnus-auto-select-next nil)) ! (gnus-summary-read-group ! group ! (or all (and (numberp number) ! (zerop ! (+ number ! (gnus-range-length ! (cdr (assq 'tick marked))) ! (gnus-range-length ! (cdr (assq 'dormant marked))))))) ! no-article nil no-display))) ! (if (and (not did-select) ! (eq gnus-auto-select-next 'quietly)) ! (setq group (gnus-group-group-name)) ! (setq selected t))) ! did-select)) (defun gnus-group-select-group (&optional all) "Select this newsgroup. --- 1464,1491 ---- (interactive "P") (let ((no-display (eq all 0)) (group (or group (gnus-group-group-name))) ! number active marked entry) (when (eq all 0) (setq all nil)) (unless group (error "No group on current line")) ! (setq marked (gnus-info-marks ! (nth 2 (setq entry (gnus-gethash ! group gnus-newsrc-hashtb))))) ! ;; This group might be a dead group. In that case we have to get ! ;; the number of unread articles from `gnus-active-hashtb'. ! (setq number ! (cond ((numberp all) all) ! (entry (car entry)) ! ((setq active (gnus-active group)) ! (- (1+ (cdr active)) (car active))))) ! (gnus-summary-read-group ! group (or all (and (numberp number) ! (zerop (+ number (gnus-range-length ! (cdr (assq 'tick marked))) ! (gnus-range-length ! (cdr (assq 'dormant marked))))))) ! no-article nil no-display))) (defun gnus-group-select-group (&optional all) "Select this newsgroup. *************** *** 2552,2558 **** (gnus-group-unsubscribe-current-group n 'unsubscribe)) (defun gnus-group-subscribe (&optional n) ! "Unsubscribe the current group." (interactive "P") (gnus-group-unsubscribe-current-group n 'subscribe)) --- 2538,2544 ---- (gnus-group-unsubscribe-current-group n 'unsubscribe)) (defun gnus-group-subscribe (&optional n) ! "Subscribe the current group." (interactive "P") (gnus-group-unsubscribe-current-group n 'subscribe)) *** pub/rgnus/lisp/gnus-sum.el Tue Mar 18 18:01:58 1997 --- rgnus/lisp/gnus-sum.el Wed Mar 19 00:04:14 1997 *************** *** 2462,2467 **** --- 2462,2482 ---- If SHOW-ALL is non-nil, already read articles are also listed. If NO-ARTICLE is non-nil, no article is selected initially. If NO-DISPLAY, don't generate a summary buffer." + (let (result) + (while (and group + (null (setq result + (gnus-summary-read-group-1 + group show-all no-article + kill-buffer no-display))) + (eq gnus-auto-select-next 'quietly)) + (set-buffer gnus-group-buffer) + (if (not (equal group (gnus-group-group-name))) + (setq group (gnus-group-group-name)) + (setq group nil))) + result)) + + (defun gnus-summary-read-group-1 (group show-all no-article + kill-buffer no-display) ;; Killed foreign groups can't be entered. (when (and (not (gnus-group-native-p group)) (not (gnus-gethash group gnus-newsrc-hashtb))) *************** *** 2562,2568 **** (not no-display)) (progn ;; This newsgroup is empty. ! (gnus-summary-catchup-and-exit nil t) ;Without confirmations. (gnus-message 6 "No unread news") (when kill-buffer (gnus-kill-or-deaden-summary kill-buffer)) --- 2577,2583 ---- (not no-display)) (progn ;; This newsgroup is empty. ! (gnus-summary-catchup-and-exit nil t) (gnus-message 6 "No unread news") (when kill-buffer (gnus-kill-or-deaden-summary kill-buffer)) *************** *** 2918,2934 **** (memq article gnus-newsgroup-expirable) ;; Only insert the Subject string when it's different ;; from the previous Subject string. ! (unless (gnus-subject-equal ! (condition-case () ! (mail-header-subject ! (gnus-data-header ! (cadr ! (gnus-data-find-list ! article ! (gnus-data-list t))))) ! (error "")) ! (mail-header-subject header)) ! (mail-header-subject header)) nil (cdr (assq article gnus-newsgroup-scored)) (memq article gnus-newsgroup-processable)) (when length --- 2933,2950 ---- (memq article gnus-newsgroup-expirable) ;; Only insert the Subject string when it's different ;; from the previous Subject string. ! (if (gnus-subject-equal ! (condition-case () ! (mail-header-subject ! (gnus-data-header ! (cadr ! (gnus-data-find-list ! article ! (gnus-data-list t))))) ! (error "")) ! (mail-header-subject header)) ! (mail-header-subject header) ! "") nil (cdr (assq article gnus-newsgroup-scored)) (memq article gnus-newsgroup-processable)) (when length *************** *** 3834,3840 **** gnus-save-score list) (let* ((arts list) ! (prev (cons nil articles)) (all prev)) (while arts (if (or (not (consp (car arts))) --- 3850,3856 ---- gnus-save-score list) (let* ((arts list) ! (prev (cons nil list)) (all prev)) (while arts (if (or (not (consp (car arts))) *** pub/rgnus/lisp/gnus.el Tue Mar 18 18:01:58 1997 --- rgnus/lisp/gnus.el Wed Mar 19 00:04:14 1997 *************** *** 226,232 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.29" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 226,232 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.30" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/ChangeLog Tue Mar 18 18:01:54 1997 --- rgnus/lisp/ChangeLog Wed Mar 19 00:04:12 1997 *************** *** 1,3 **** --- 1,26 ---- + Tue Mar 18 23:54:17 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.30 is released. + + Tue Mar 18 23:43:50 1997 Lars Magne Ingebrigtsen + + * gnus-group.el (gnus-group-subscribe): Doc fix. + + Tue Mar 18 23:39:08 1997 Lance A. Brown + + * gnus-sum.el (gnus-update-marks): Articles->list. + + Tue Mar 18 23:07:35 1997 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-update-article-line): Don't pass nil + on as subject string. + + * gnus-group.el (gnus-group-read-group): Revert to old + definition. + + * gnus-sum.el (gnus-summary-read-group-1): New function. + (gnus-summary-read-group): Use it. + Tue Mar 18 17:56:26 1997 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.4.29 is released. *** pub/rgnus/texi/gnus.texi Tue Mar 18 18:02:02 1997 --- rgnus/texi/gnus.texi Wed Mar 19 00:04:16 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.29 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.30 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 287,293 **** @tex @titlepage ! @title Gnus 5.4.29 Manual @author by Lars Magne Ingebrigtsen @page --- 287,293 ---- @tex @titlepage ! @title Gnus 5.4.30 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 323,329 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.29 @end ifinfo --- 323,329 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.30 @end ifinfo