*** pub/rgnus/lisp/gnus-nocem.el Thu Jan 9 11:59:39 1997 --- rgnus/lisp/gnus-nocem.el Fri Jan 17 00:12:21 1997 *************** *** 240,245 **** --- 240,246 ---- (defun gnus-nocem-load-cache () "Load the NoCeM cache." + (interactive) (unless gnus-nocem-alist ;; The buffer doesn't exist, so we create it and load the NoCeM ;; cache. *** pub/rgnus/lisp/gnus-sum.el Wed Jan 15 04:05:20 1997 --- rgnus/lisp/gnus-sum.el Fri Jan 17 01:06:37 1997 *************** *** 3719,3725 **** (not (numberp gnus-fetch-old-headers))) (> (length articles) 1)))))) (gnus-get-newsgroup-headers-xover ! articles nil nil gnus-newsgroup-name) (gnus-get-newsgroup-headers))) (gnus-message 5 "Fetching headers for %s...done" gnus-newsgroup-name) --- 3719,3725 ---- (not (numberp gnus-fetch-old-headers))) (> (length articles) 1)))))) (gnus-get-newsgroup-headers-xover ! articles nil nil gnus-newsgroup-name t) (gnus-get-newsgroup-headers))) (gnus-message 5 "Fetching headers for %s...done" gnus-newsgroup-name) *************** *** 3796,3802 **** (read-string (format "How many articles from %s (default %d): " ! gnus-newsgroup-name number)))) (if (string-match "^[ \t]*$" input) number input))) ((and (> scored marked) (< scored number) (> (- scored number) 20)) --- 3796,3803 ---- (read-string (format "How many articles from %s (default %d): " ! (gnus-limit-string gnus-newsgroup-name 35) ! number)))) (if (string-match "^[ \t]*$" input) number input))) ((and (> scored marked) (< scored number) (> (- scored number) 20)) *************** *** 4358,4364 **** ;; Goes through the xover lines and returns a list of vectors (defun gnus-get-newsgroup-headers-xover (sequence &optional force-new dependencies ! group) "Parse the news overview data in the server buffer, and return a list of headers that match SEQUENCE (see `nntp-retrieve-headers')." ;; Get the Xref when the users reads the articles since most/some --- 4359,4365 ---- ;; Goes through the xover lines and returns a list of vectors (defun gnus-get-newsgroup-headers-xover (sequence &optional force-new dependencies ! group also-fetch-heads) "Parse the news overview data in the server buffer, and return a list of headers that match SEQUENCE (see `nntp-retrieve-headers')." ;; Get the Xref when the users reads the articles since most/some *************** *** 4398,4411 **** ;; article may not have been generated yet, so this may fail. ;; We work around this problem by retrieving the last few ;; headers using HEAD. ! (if (not sequence) ! (nreverse headers) ! (let ((gnus-nov-is-evil t) ! (nntp-nov-is-evil t)) ! (nconc ! (nreverse headers) ! (when (gnus-retrieve-headers sequence group) ! (gnus-get-newsgroup-headers)))))))) (defun gnus-article-get-xrefs () "Fill in the Xref value in `gnus-current-headers', if necessary. --- 4399,4413 ---- ;; article may not have been generated yet, so this may fail. ;; We work around this problem by retrieving the last few ;; headers using HEAD. ! (when also-fetch-heads ! (if (not sequence) ! (nreverse headers) ! (let ((gnus-nov-is-evil t) ! (nntp-nov-is-evil t)) ! (nconc ! (nreverse headers) ! (when (gnus-retrieve-headers sequence group) ! (gnus-get-newsgroup-headers))))))))) (defun gnus-article-get-xrefs () "Fill in the Xref value in `gnus-current-headers', if necessary. *************** *** 4850,4860 **** (defun gnus-summary-save-newsrc (&optional force) "Save the current number of read/marked articles in the dribble buffer. If FORCE (the prefix), also save the .newsrc file(s)." (interactive "P") (gnus-summary-update-info t) ! (when force ! (gnus-save-newsrc-file))) (defun gnus-summary-exit (&optional temporary) "Exit reading current newsgroup, and then return to group selection mode. --- 4852,4864 ---- (defun gnus-summary-save-newsrc (&optional force) "Save the current number of read/marked articles in the dribble buffer. + The dribble buffer will then be saved. If FORCE (the prefix), also save the .newsrc file(s)." (interactive "P") (gnus-summary-update-info t) ! (if force ! (gnus-save-newsrc-file) ! (gnus-dribble-save))) (defun gnus-summary-exit (&optional temporary) "Exit reading current newsgroup, and then return to group selection mode. *************** *** 6540,6546 **** (defun gnus-summary-caesar-message (&optional arg) "Caesar rotate the current article by 13. ! The numerical prefix specifies how manu places to rotate each letter forward." (interactive "P") (gnus-set-global-variables) --- 6544,6550 ---- (defun gnus-summary-caesar-message (&optional arg) "Caesar rotate the current article by 13. ! The numerical prefix specifies how many places to rotate each letter forward." (interactive "P") (gnus-set-global-variables) *** pub/rgnus/lisp/gnus-util.el Thu Jan 9 11:59:37 1997 --- rgnus/lisp/gnus-util.el Thu Jan 16 03:50:28 1997 *************** *** 433,445 **** (sit-for duration)))) nil) - (defun gnus-parent-id (references &optional n) - "Return the last Message-ID in REFERENCES. - If N, return the Nth ancestor instead." - (when references - (let ((ids (gnus-split-references references))) - (car (last ids (or n 1)))))) - (defun gnus-split-references (references) "Return a list of Message-IDs in REFERENCES." (let ((beg 0) --- 433,438 ---- *************** *** 448,453 **** --- 441,453 ---- (push (substring references (match-beginning 0) (setq beg (match-end 0))) ids)) (nreverse ids))) + + (defun gnus-parent-id (references &optional n) + "Return the last Message-ID in REFERENCES. + If N, return the Nth ancestor instead." + (when references + (let ((ids (inline (gnus-split-references references)))) + (car (last ids (or n 1)))))) (defun gnus-buffer-live-p (buffer) "Say whether BUFFER is alive or not." *** pub/rgnus/lisp/gnus.el Wed Jan 15 04:05:20 1997 --- rgnus/lisp/gnus.el Wed Jan 15 18:46:53 1997 *************** *** 43,49 **** "Score and kill file handling." :group 'gnus ) ! (defconst gnus-version-number "0.81" "Version number for this version of Gnus.") (defconst gnus-version (format "Red Gnus v%s" gnus-version-number) --- 43,49 ---- "Score and kill file handling." :group 'gnus ) ! (defconst gnus-version-number "0.82" "Version number for this version of Gnus.") (defconst gnus-version (format "Red Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/message.el Thu Jan 9 11:59:35 1997 --- rgnus/lisp/message.el Fri Jan 17 00:42:22 1997 *************** *** 2916,2924 **** (string-match "<[^>]+>" gnus-warning)) (setq message-id (match-string 0 gnus-warning))) ;; Remove bogus distribution. ! (and (stringp distribution) ! (string-match "world" distribution) ! (setq distribution nil)) ;; Remove any (buggy) Re:'s that are present and make a ;; proper one. (when (string-match "^[ \t]*[Rr][Ee]:[ \t]*" subject) --- 2916,2925 ---- (string-match "<[^>]+>" gnus-warning)) (setq message-id (match-string 0 gnus-warning))) ;; Remove bogus distribution. ! (when (and (stringp distribution) ! (let ((case-fold-search t)) ! (string-match "world" distribution))) ! (setq distribution nil)) ;; Remove any (buggy) Re:'s that are present and make a ;; proper one. (when (string-match "^[ \t]*[Rr][Ee]:[ \t]*" subject) *** pub/rgnus/lisp/nnfolder.el Thu Jan 9 11:59:34 1997 --- rgnus/lisp/nnfolder.el Fri Jan 17 00:21:05 1997 *************** *** 315,321 **** (nnfolder-delete-mail)) (push (car articles) rest))) (setq articles (cdr articles))) ! (nnheader-message 5 "Deleting articles...done") (nnfolder-save-buffer) ;; Find the lowest active article in this group. (let* ((active (cadr (assoc newsgroup nnfolder-group-alist))) --- 315,322 ---- (nnfolder-delete-mail)) (push (car articles) rest))) (setq articles (cdr articles))) ! (unless nnfolder-inhibit-expiry ! (nnheader-message 5 "Deleting articles...done")) (nnfolder-save-buffer) ;; Find the lowest active article in this group. (let* ((active (cadr (assoc newsgroup nnfolder-group-alist))) *** pub/rgnus/lisp/nnheader.el Thu Jan 9 11:59:33 1997 --- rgnus/lisp/nnheader.el Fri Jan 17 06:04:58 1997 *************** *** 342,347 **** --- 342,351 ---- (setq min (point))) (t (setq found 'yes))))) + ;; We may be at the first line. + (when (and (not num) + (not (eobp))) + (setq num (read cur))) ;; Now we may have found the article we're looking for, or we ;; may be somewhere near it. (when (and (not (eq found 'yes)) *** pub/rgnus/lisp/nnkiboze.el Thu Jan 9 11:59:33 1997 --- rgnus/lisp/nnkiboze.el Fri Jan 17 06:04:58 1997 *************** *** 207,308 **** (let* ((info (nth 2 (gnus-gethash group gnus-newsrc-hashtb))) (newsrc-file (concat nnkiboze-directory group ".newsrc")) (nov-file (concat nnkiboze-directory group ".nov")) (gnus-expert-user t) (gnus-large-newsgroup nil) - (version-control 'never) (gnus-score-find-score-files-function 'nnkiboze-score-file) gnus-select-group-hook gnus-summary-prepare-hook gnus-thread-sort-functions gnus-show-threads ! gnus-visual ! method nnkiboze-newsrc nov-buffer gname newsrc active ! ginfo lowest glevel orig-info) (unless info (error "No such group: %s" group)) ;; Load the kiboze newsrc file for this group. (when (file-exists-p newsrc-file) (load newsrc-file)) ! ;; We also load the nov file for this group. ! (save-excursion ! (set-buffer (setq nov-buffer (find-file-noselect nov-file))) ! (buffer-disable-undo (current-buffer))) ! ;; Go through the active hashtb and add new all groups that match the ! ;; kiboze regexp. ! (mapatoms ! (lambda (group) ! (and (string-match nnkiboze-regexp ! (setq gname (symbol-name group))) ; Match ! (not (assoc gname nnkiboze-newsrc)) ; It isn't registered ! (numberp (car (symbol-value group))) ; It is active ! (or (> nnkiboze-level 7) ! (and (setq glevel (nth 1 (nth 2 (gnus-gethash ! gname gnus-newsrc-hashtb)))) ! (>= nnkiboze-level glevel))) ! (not (string-match "^nnkiboze:" gname)) ; Exclude kibozes ! (push (cons gname (1- (car (symbol-value group)))) ! nnkiboze-newsrc))) ! gnus-active-hashtb) ! ;; `newsrc' is set to the list of groups that possibly are ! ;; component groups to this kiboze group. This list has elements ! ;; on the form `(GROUP . NUMBER)', where NUMBER is the highest ! ;; number that has been kibozed in GROUP in this kiboze group. ! (setq newsrc nnkiboze-newsrc) ! (while newsrc ! (if (not (setq active (gnus-gethash ! (caar newsrc) gnus-active-hashtb))) ! ;; This group isn't active after all, so we remove it from ! ;; the list of component groups. ! (setq nnkiboze-newsrc (delq (car newsrc) nnkiboze-newsrc)) ! (setq lowest (cdar newsrc)) ! ;; Ok, we have a valid component group, so we jump to it. ! (switch-to-buffer gnus-group-buffer) ! (gnus-group-jump-to-group (caar newsrc)) ! (setq ginfo (gnus-get-info (gnus-group-group-name)) ! orig-info (gnus-copy-sequence ginfo)) ! (unwind-protect ! (progn ! ;; We set all list of article marks to nil. Since we operate ! ;; on copies of the real lists, we can destroy anything we ! ;; want here. ! (when (nth 3 ginfo) ! (setcar (nthcdr 3 ginfo) nil)) ! ;; We set the list of read articles to be what we expect for ! ;; this kiboze group -- either nil or `(1 . LOWEST)'. ! (when ginfo ! (setcar (nthcdr 2 ginfo) ! (and (not (= lowest 1)) (cons 1 lowest)))) ! (when (and (or (not ginfo) ! (> (length (gnus-list-of-unread-articles ! (car ginfo))) ! 0)) ! (progn ! (gnus-group-select-group nil) ! (eq major-mode 'gnus-summary-mode))) ! ;; We are now in the group where we want to be. ! (setq method (gnus-find-method-for-group gnus-newsgroup-name)) ! (when (eq method gnus-select-method) ! (setq method nil)) ! ;; We go through the list of scored articles. ! (while gnus-newsgroup-scored ! (when (> (caar gnus-newsgroup-scored) lowest) ! ;; If it has a good score, then we enter this article ! ;; into the kiboze group. ! (nnkiboze-enter-nov ! nov-buffer ! (gnus-summary-article-header ! (caar gnus-newsgroup-scored)) ! gnus-newsgroup-name)) ! (setq gnus-newsgroup-scored (cdr gnus-newsgroup-scored))) ! ;; That's it. We exit this group. ! (gnus-summary-exit-no-update))) ! ;; Restore the proper info. ! (when ginfo ! (setcdr ginfo (cdr orig-info))))) ! (setcdr (car newsrc) (car active)) ! (setq newsrc (cdr newsrc))) ! ;; We save the nov file. ! (set-buffer nov-buffer) ! (save-buffer) ! (kill-buffer (current-buffer)) ;; We save the kiboze newsrc for this group. (nnheader-temp-write newsrc-file (insert "(setq nnkiboze-newsrc '") --- 207,307 ---- (let* ((info (nth 2 (gnus-gethash group gnus-newsrc-hashtb))) (newsrc-file (concat nnkiboze-directory group ".newsrc")) (nov-file (concat nnkiboze-directory group ".nov")) + method nnkiboze-newsrc gname newsrc active + ginfo lowest glevel orig-info nov-buffer + ;; Bind various things to nil to make group entry faster. (gnus-expert-user t) (gnus-large-newsgroup nil) (gnus-score-find-score-files-function 'nnkiboze-score-file) + (gnus-verbose (min gnus-verbose 3)) gnus-select-group-hook gnus-summary-prepare-hook gnus-thread-sort-functions gnus-show-threads ! gnus-visual gnus-suppress-duplicates) (unless info (error "No such group: %s" group)) ;; Load the kiboze newsrc file for this group. (when (file-exists-p newsrc-file) (load newsrc-file)) ! (nnheader-temp-write nov-file ! (insert-file-contents nov-file) ! (setq nov-buffer (current-buffer)) ! ;; Go through the active hashtb and add new all groups that match the ! ;; kiboze regexp. ! (mapatoms ! (lambda (group) ! (and (string-match nnkiboze-regexp ! (setq gname (symbol-name group))) ; Match ! (not (assoc gname nnkiboze-newsrc)) ; It isn't registered ! (numberp (car (symbol-value group))) ; It is active ! (or (> nnkiboze-level 7) ! (and (setq glevel (nth 1 (nth 2 (gnus-gethash ! gname gnus-newsrc-hashtb)))) ! (>= nnkiboze-level glevel))) ! (not (string-match "^nnkiboze:" gname)) ; Exclude kibozes ! (push (cons gname (1- (car (symbol-value group)))) ! nnkiboze-newsrc))) ! gnus-active-hashtb) ! ;; `newsrc' is set to the list of groups that possibly are ! ;; component groups to this kiboze group. This list has elements ! ;; on the form `(GROUP . NUMBER)', where NUMBER is the highest ! ;; number that has been kibozed in GROUP in this kiboze group. ! (setq newsrc nnkiboze-newsrc) ! (while newsrc ! (if (not (setq active (gnus-gethash ! (caar newsrc) gnus-active-hashtb))) ! ;; This group isn't active after all, so we remove it from ! ;; the list of component groups. ! (setq nnkiboze-newsrc (delq (car newsrc) nnkiboze-newsrc)) ! (setq lowest (cdar newsrc)) ! ;; Ok, we have a valid component group, so we jump to it. ! (switch-to-buffer gnus-group-buffer) ! (gnus-group-jump-to-group (caar newsrc)) ! (gnus-message 3 "nnkiboze: Checking %s..." (caar newsrc)) ! (setq ginfo (gnus-get-info (gnus-group-group-name)) ! orig-info (gnus-copy-sequence ginfo)) ! (unwind-protect ! (progn ! ;; We set all list of article marks to nil. Since we operate ! ;; on copies of the real lists, we can destroy anything we ! ;; want here. ! (when (nth 3 ginfo) ! (setcar (nthcdr 3 ginfo) nil)) ! ;; We set the list of read articles to be what we expect for ! ;; this kiboze group -- either nil or `(1 . LOWEST)'. ! (when ginfo ! (setcar (nthcdr 2 ginfo) ! (and (not (= lowest 1)) (cons 1 lowest)))) ! (when (and (or (not ginfo) ! (> (length (gnus-list-of-unread-articles ! (car ginfo))) ! 0)) ! (progn ! (gnus-group-select-group nil) ! (eq major-mode 'gnus-summary-mode))) ! ;; We are now in the group where we want to be. ! (setq method (gnus-find-method-for-group ! gnus-newsgroup-name)) ! (when (eq method gnus-select-method) ! (setq method nil)) ! ;; We go through the list of scored articles. ! (while gnus-newsgroup-scored ! (when (> (caar gnus-newsgroup-scored) lowest) ! ;; If it has a good score, then we enter this article ! ;; into the kiboze group. ! (nnkiboze-enter-nov ! nov-buffer ! (gnus-summary-article-header ! (caar gnus-newsgroup-scored)) ! gnus-newsgroup-name)) ! (setq gnus-newsgroup-scored (cdr gnus-newsgroup-scored))) ! ;; That's it. We exit this group. ! (gnus-summary-exit-no-update))) ! ;; Restore the proper info. ! (when ginfo ! (setcdr ginfo (cdr orig-info))))) ! (setcdr (car newsrc) (car active)) ! (gnus-message 3 "nnkiboze: Checking %s...done" (caar newsrc)) ! (setq newsrc (cdr newsrc)))) ;; We save the kiboze newsrc for this group. (nnheader-temp-write newsrc-file (insert "(setq nnkiboze-newsrc '") *************** *** 314,319 **** --- 313,319 ---- (save-excursion (set-buffer buffer) (goto-char (point-max)) + (debug) (let ((xref (mail-header-xref header)) (prefix (gnus-group-real-prefix group)) (oheader (copy-sequence header)) *************** *** 327,333 **** (mail-header-set-number oheader article) (nnheader-insert-nov oheader) (search-backward "\t" nil t 2) ! (forward-char 1) ;; The first Xref has to be the group this article ;; really came for - this is the article nnkiboze ;; will request when it is asked for the article. --- 327,335 ---- (mail-header-set-number oheader article) (nnheader-insert-nov oheader) (search-backward "\t" nil t 2) ! (if (re-search-forward " [^ ]+:[0-9]+" nil t) ! (goto-char (match-beginning 0)) ! (forward-char 1)) ;; The first Xref has to be the group this article ;; really came for - this is the article nnkiboze ;; will request when it is asked for the article. *** pub/rgnus/lisp/nnmail.el Thu Jan 9 21:52:47 1997 --- rgnus/lisp/nnmail.el Fri Jan 17 00:45:30 1997 *************** *** 507,513 **** (if popmail (progn (when (and nnmail-pop-password ! nnmail-internal-password) (setq nnmail-internal-password nnmail-pop-password)) (when (and nnmail-pop-password-required (not nnmail-internal-password)) --- 507,513 ---- (if popmail (progn (when (and nnmail-pop-password ! (not nnmail-internal-password)) (setq nnmail-internal-password nnmail-pop-password)) (when (and nnmail-pop-password-required (not nnmail-internal-password)) *************** *** 1447,1453 **** ;; spool, or the file exists. We can't check for the ;; existence of POPped mail. (when (or (string-match "^po:" spool) ! (and (file-exists-p spool) (> (nnheader-file-size (file-truename spool)) 0))) (nnheader-message 3 "%s: Reading incoming mail..." method) (when (and (nnmail-move-inbox spool) --- 1447,1453 ---- ;; spool, or the file exists. We can't check for the ;; existence of POPped mail. (when (or (string-match "^po:" spool) ! (and (file-exists-p (file-truename spool)) (> (nnheader-file-size (file-truename spool)) 0))) (nnheader-message 3 "%s: Reading incoming mail..." method) (when (and (nnmail-move-inbox spool) *** pub/rgnus/lisp/nnml.el Thu Jan 9 21:39:44 1997 --- rgnus/lisp/nnml.el Wed Jan 15 21:27:00 1997 *************** *** 266,272 **** (while (and articles is-old) (when (setq article (assq (setq number (pop articles)) ! nnml-article-to-file-alist)) (setq article (concat nnml-current-directory (cdr article))) (when (setq mod-time (nth 5 (file-attributes article))) (if (and (nnml-deletable-article-p newsgroup number) --- 266,272 ---- (while (and articles is-old) (when (setq article (assq (setq number (pop articles)) ! nnml-article-file-alist)) (setq article (concat nnml-current-directory (cdr article))) (when (setq mod-time (nth 5 (file-attributes article))) (if (and (nnml-deletable-article-p newsgroup number) *************** *** 274,280 **** (nnmail-expired-article-p newsgroup mod-time force nnml-inhibit-expiry))) (progn ! (nnheader-message 5 "Deleting article %s in %s..." article newsgroup) (condition-case () (funcall nnmail-delete-file-function article) --- 274,280 ---- (nnmail-expired-article-p newsgroup mod-time force nnml-inhibit-expiry))) (progn ! (nnheader-message 5 "Deleting article %s in %s" article newsgroup) (condition-case () (funcall nnmail-delete-file-function article) *************** *** 290,296 **** (1+ (cdr active))))) (nnmail-save-active nnml-group-alist nnml-active-file)) (nnml-save-nov) - (message "") (nconc rest articles))) (deffoo nnml-request-move-article --- 290,295 ---- *** pub/rgnus/lisp/nnsoup.el Wed Jan 15 04:05:20 1997 --- rgnus/lisp/nnsoup.el Wed Jan 15 18:46:53 1997 *************** *** 236,241 **** --- 236,245 ---- (deffoo nnsoup-request-type (group &optional article) (nnsoup-possibly-change-group group) + ;; Try to guess the type based on the first articl ein the group. + (when (not article) + (setq article + (cdaar (cddr (assoc group nnsoup-group-alist))))) (if (not article) 'unknown (let ((kind (gnus-soup-encoding-kind *** pub/rgnus/lisp/ChangeLog Wed Jan 15 04:44:37 1997 --- rgnus/lisp/ChangeLog Fri Jan 17 06:04:58 1997 *************** *** 1,3 **** --- 1,47 ---- + Fri Jan 17 00:04:47 1997 Lars Magne Ingebrigtsen + + * nnheader.el (nnheader-find-nov-line): Do the right thing with + short buffers. + + * nnkiboze.el (nnkiboze-generate-group): Supress duplicate + suppression. + (nnkiboze-generate-group): Message better. + + * gnus-sum.el (gnus-get-newsgroup-headers-xover): Don't always + fetch more heads. + (gnus-select-newsgroup): Use it. + + * nnmail.el (nnmail-get-new-mail): Weird file-truename problem. + + * gnus-sum.el (gnus-summary-caesar-message): Dox fix. + (gnus-articles-to-read): Limit length of prompt. + + * message.el (message-followup): Fold case before comparing + "world" to Distribution. + + * gnus-sum.el (gnus-summary-save-newsrc): Save dribble buffer. + + * nnfolder.el (nnfolder-request-expire-articles): Better message. + + * gnus-nocem.el (gnus-nocem-load-cache): Interactive. + + Thu Jan 16 23:48:05 1997 Lars Magne Ingebrigtsen + + * nnmail.el (nnmail-move-inbox): Use `nnmail-pop-password'. + + Wed Jan 15 18:41:42 1997 Lars Magne Ingebrigtsen + + * nnml.el (nnml-request-expire-articles): Typo. + (nnml-request-expire-articles): Don't blank out messages so + often. + + * nnsoup.el (nnsoup-request-type): Let commands like `a' work + better. + + Wed Jan 15 05:33:23 1997 Lars Magne Ingebrigtsen + + * gnus.el: Red Gnus v0.81 is released. + Wed Jan 15 02:57:18 1997 Lars Magne Ingebrigtsen * gnus-topic.el (gnus-topic-indent): Don't remove all groups from *** pub/rgnus/texi/gnus.texi Wed Jan 15 05:23:25 1997 --- rgnus/texi/gnus.texi Sat Jan 18 02:35:21 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Red Gnus 0.81 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Red Gnus 0.82 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 287,293 **** @tex @titlepage ! @title Red Gnus 0.81 Manual @author by Lars Magne Ingebrigtsen @page --- 287,293 ---- @tex @titlepage ! @title Red Gnus 0.82 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 Red Gnus 0.81 @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 Red Gnus 0.82 @end ifinfo *************** *** 6928,6936 **** @kindex Z s (Summary) @findex gnus-summary-save-newsrc Save the current number of read/marked articles in the dribble buffer ! (@code{gnus-summary-save-newsrc}). If given a prefix, also save the ! @file{.newsrc} file(s). Using this command will make exit without ! updating (the @kbd{Q} command) worthless. @end table @vindex gnus-exit-group-hook --- 6928,6936 ---- @kindex Z s (Summary) @findex gnus-summary-save-newsrc Save the current number of read/marked articles in the dribble buffer ! and then save the dribble buffer (@code{gnus-summary-save-newsrc}). If ! given a prefix, also save the @file{.newsrc} file(s). Using this ! command will make exit without updating (the @kbd{Q} command) worthless. @end table @vindex gnus-exit-group-hook *************** *** 8750,8756 **** Since Red Gnus is an alpha release, it is to be expected to lose mail. (No Gnus release since (ding) Gnus 0.10 (or something like that) have ! lost mail, I think, but that's not the point.) By not deleting the Incoming* files, one can be sure to not lose mail -- if Gnus totally whacks out, one can always recover what was lost. --- 8750,8757 ---- Since Red Gnus is an alpha release, it is to be expected to lose mail. (No Gnus release since (ding) Gnus 0.10 (or something like that) have ! lost mail, I think, but that's not the point. (Except certain versions ! of Red Gnus.)) By not deleting the Incoming* files, one can be sure to not lose mail -- if Gnus totally whacks out, one can always recover what was lost. *************** *** 12918,12924 **** @item gnus-nocem-groups @vindex gnus-nocem-groups Gnus will look for NoCeM messages in the groups in this list. The ! default is @code{("alt.nocem.misc" "news.admin.net-abuse.announce")}. @item gnus-nocem-issuers @vindex gnus-nocem-issuers --- 12919,12926 ---- @item gnus-nocem-groups @vindex gnus-nocem-groups Gnus will look for NoCeM messages in the groups in this list. The ! default is @code{("news.lists.filters" "news.admin.net-abuse.bulletins" ! "alt.nocem.misc" "news.admin.net-abuse.announce")}. @item gnus-nocem-issuers @vindex gnus-nocem-issuers *** pub/rgnus/texi/ChangeLog Wed Jan 15 03:05:35 1997 --- rgnus/texi/ChangeLog Fri Jan 17 01:06:35 1997 *************** *** 1,3 **** --- 1,7 ---- + Fri Jan 17 00:55:51 1997 Lars Magne Ingebrigtsen + + * gnus.texi (NoCeM): Update. + Wed Jan 15 02:23:03 1997 Lars Magne Ingebrigtsen * gnus.texi (Mail Group Commands): Fix.