*** pub/sgnus/lisp/gnus-cache.el Tue Dec 19 20:16:38 1995 --- sgnus/lisp/gnus-cache.el Thu Dec 21 00:16:27 1995 *************** *** 163,168 **** --- 163,169 ---- (or (mail-header-lines headers) "") (or (mail-header-xref headers) ""))) ;; Update the active info. + (set-buffer gnus-summary-buffer) (gnus-cache-update-active group number) (push number gnus-newsgroup-cached)) t)))))) *************** *** 498,510 **** (directory (expand-file-name (or directory gnus-cache-directory))) (files (directory-files directory 'full)) (group ! (progn (string-match (concat "^" (file-name-as-directory (expand-file-name gnus-cache-directory))) ! (file-name-as-directory directory)) (gnus-replace-chars-in-string ! (substring (file-name-as-directory directory) (match-end 0)) ?/ ?.))) nums alphs) (when top --- 499,512 ---- (directory (expand-file-name (or directory gnus-cache-directory))) (files (directory-files directory 'full)) (group ! (if top ! "" (string-match (concat "^" (file-name-as-directory (expand-file-name gnus-cache-directory))) ! (directory-file-name directory)) (gnus-replace-chars-in-string ! (substring (directory-file-name directory) (match-end 0)) ?/ ?.))) nums alphs) (when top *** pub/sgnus/lisp/gnus-mh.el Tue Dec 19 20:16:39 1995 --- sgnus/lisp/gnus-mh.el Thu Dec 21 00:16:27 1995 *************** *** 36,41 **** --- 36,42 ---- (require 'mh-comp) (require 'gnus) (require 'gnus-msg) + (eval-when-compile (require 'cl)) (defun gnus-summary-save-article-folder (&optional arg) "Append the current article to an mh folder. *** pub/sgnus/lisp/gnus-score.el Tue Dec 19 20:16:42 1995 --- sgnus/lisp/gnus-score.el Thu Dec 21 02:16:40 1995 *************** *** 111,116 **** --- 111,123 ---- (gnus-del-mark (from -2) (subject -15))) "*Alist of marks and scores.") + (defvar gnus-file-name-translation-table nil + "*Table for translating characters in file names. + + Under OS/2 you'd typically set this variable to + + '(\?: \?_)") + (defvar gnus-score-mimic-keymap nil "*Have the score entry functions pretend that they are a keymap.") *************** *** 1735,1741 **** "Redo the entire scoring process in the current summary." (interactive) (setq gnus-newsgroup-scored nil) ! (gnus-score-flush-cache) (gnus-possibly-score-headers) (gnus-score-update-lines)) --- 1742,1749 ---- "Redo the entire scoring process in the current summary." (interactive) (setq gnus-newsgroup-scored nil) ! (setq gnus-score-cache nil) ! (setq gnus-newsgroup-scored nil) (gnus-possibly-score-headers) (gnus-score-update-lines)) *************** *** 1872,1877 **** --- 1880,1886 ---- (expand-file-name gnus-kill-files-directory))) (klen (length kill-dir)) (score-regexp (gnus-score-file-regexp)) + (trans (cdr (memq ?: gnus-file-name-translation-table))) ofiles not-match regexp) (save-excursion (set-buffer (get-buffer-create "*gnus score files*")) *************** *** 1895,1902 **** (delete-region (1+ (point)) (point-min))) ;; If short file names were used, we have to translate slashes. (goto-char (point-min)) ! (while (re-search-forward "[/:]" nil t) ! (replace-match "." t t)) ;; Cludge to get rid of "nntp+" problems. (goto-char (point-min)) (and (looking-at "nn[a-z]+\\+") --- 1904,1913 ---- (delete-region (1+ (point)) (point-min))) ;; If short file names were used, we have to translate slashes. (goto-char (point-min)) ! (let ((regexp (concat ! "[/:" (if trans (char-to-string trans) "") "]"))) ! (while (re-search-forward regexp nil t) ! (replace-match "." t t))) ;; Cludge to get rid of "nntp+" problems. (goto-char (point-min)) (and (looking-at "nn[a-z]+\\+") *************** *** 2016,2037 **** (defun gnus-score-file-name (newsgroup &optional suffix) "Return the name of a score file for NEWSGROUP." (let ((suffix (or suffix gnus-score-file-suffix))) ! (cond ! ((or (null newsgroup) ! (string-equal newsgroup "")) ! ;; The global score file is placed at top of the directory. ! (expand-file-name ! suffix (or gnus-kill-files-directory "~/News"))) ! ((gnus-use-long-file-name 'not-score) ! ;; Append ".SCORE" to newsgroup name. ! (expand-file-name (concat (gnus-newsgroup-saveable-name newsgroup) ! "." suffix) ! (or gnus-kill-files-directory "~/News"))) ! (t ! ;; Place "SCORE" under the hierarchical directory. ! (expand-file-name (concat (gnus-newsgroup-directory-form newsgroup) ! "/" suffix) ! (or gnus-kill-files-directory "~/News")))))) (defun gnus-score-search-global-directories (files) "Scan all global score directories for score files." --- 2027,2051 ---- (defun gnus-score-file-name (newsgroup &optional suffix) "Return the name of a score file for NEWSGROUP." (let ((suffix (or suffix gnus-score-file-suffix))) ! (apply ! 'gnus-replace-chars-in-string ! (cond ! ((or (null newsgroup) ! (string-equal newsgroup "")) ! ;; The global score file is placed at top of the directory. ! (expand-file-name ! suffix (or gnus-kill-files-directory "~/News"))) ! ((gnus-use-long-file-name 'not-score) ! ;; Append ".SCORE" to newsgroup name. ! (expand-file-name (concat (gnus-newsgroup-saveable-name newsgroup) ! "." suffix) ! (or gnus-kill-files-directory "~/News"))) ! (t ! ;; Place "SCORE" under the hierarchical directory. ! (expand-file-name (concat (gnus-newsgroup-directory-form newsgroup) ! "/" suffix) ! (or gnus-kill-files-directory "~/News")))) ! gnus-file-name-translation-table))) (defun gnus-score-search-global-directories (files) "Scan all global score directories for score files." *** pub/sgnus/lisp/gnus-topic.el Tue Dec 19 20:16:42 1995 --- sgnus/lisp/gnus-topic.el Thu Dec 21 00:16:29 1995 *************** *** 123,129 **** ;; gotten here, which can be rather random. (unless gnus-topic-alist (gnus-topic-init-alist)) - (gnus-topic-check-topology) (if list-topic (let ((top (gnus-topic-find-topology list-topic))) --- 123,128 ---- *************** *** 435,440 **** --- 434,441 ---- 'gnus-group-prepare-topics 'gnus-group-prepare-flat)) (add-hook 'gnus-summary-exit-hook 'gnus-topic-update-topic) + ;; We check the topology. + (gnus-topic-check-topology) (when redisplay (gnus-group-list-groups)))) *** pub/sgnus/lisp/gnus-xmas.el Tue Dec 19 20:16:44 1995 --- sgnus/lisp/gnus-xmas.el Thu Dec 21 00:16:30 1995 *************** *** 227,233 **** (defun gnus-xmas-read-event-char () "Get the next event." (let ((event (next-event))) ! (while (timeout-event-p event) (setq event (next-event))) (cons (and (key-press-event-p event) (numberp (event-key event)) --- 227,234 ---- (defun gnus-xmas-read-event-char () "Get the next event." (let ((event (next-event))) ! ;; We junk all non-key events. Is this naughty? ! (while (not (key-press-even-p event)) (setq event (next-event))) (cons (and (key-press-event-p event) (numberp (event-key event)) *************** *** 368,373 **** --- 369,375 ---- (file-name-as-directory gnus-xmas-glyph-directory) "gnus.xpm")))) (if (and (featurep 'xpm) + (not (equal (device-type) 'tty)) file (file-exists-p file)) (progn (set-glyph-property gnus-xmas-logo 'image file) *** pub/sgnus/lisp/gnus.el Tue Dec 19 20:16:47 1995 --- sgnus/lisp/gnus.el Thu Dec 21 03:00:33 1995 *************** *** 572,583 **** (defvar gnus-save-killed-list t "*If non-nil, save the list of killed groups to the startup file. ! This will save both time (when starting and quitting) and space (both ! memory and disk), but it will also mean that Gnus has no record of ! which groups are new and which are old, so the automatic new ! newsgroups subscription methods become meaningless. You should always ! set `gnus-check-new-newsgroups' to `ask-server' or nil if you set this ! variable to nil.") (defvar gnus-interactive-catchup t "*If non-nil, require your confirmation when catching up a group.") --- 572,584 ---- (defvar gnus-save-killed-list t "*If non-nil, save the list of killed groups to the startup file. ! If you set this variable to nil, you'll save both time (when starting ! and quitting) and space (both memory and disk), but it will also mean ! that Gnus has no record of which groups are new and which are old, so ! the automatic new newsgroups subscription methods become meaningless. ! ! You should always set `gnus-check-new-newsgroups' to `ask-server' or ! nil if you set this variable to nil.") (defvar gnus-interactive-catchup t "*If non-nil, require your confirmation when catching up a group.") *************** *** 1493,1499 **** (?L gnus-tmp-level ?d) (?N gnus-tmp-number ?s) (?R gnus-tmp-number-of-read ?s) ! (?t gnus-tmp-number-total ?d) (?y gnus-tmp-number-of-unread ?s) (?I (gnus-range-length (cdr (assq 'dormant gnus-tmp-marked))) ?d) (?T (gnus-range-length (cdr (assq 'tick gnus-tmp-marked))) ?d) --- 1494,1500 ---- (?L gnus-tmp-level ?d) (?N gnus-tmp-number ?s) (?R gnus-tmp-number-of-read ?s) ! (?t gnus-tmp-number-total ?s) (?y gnus-tmp-number-of-unread ?s) (?I (gnus-range-length (cdr (assq 'dormant gnus-tmp-marked))) ?d) (?T (gnus-range-length (cdr (assq 'tick gnus-tmp-marked))) ?d) *************** *** 1501,1507 **** (gnus-range-length (cdr (assq 'tick gnus-tmp-marked)))) ?d) (?g gnus-tmp-group ?s) (?G gnus-tmp-qualified-group ?s) ! (?c (gnus-group-short-name gnus-tmp-group) ?s) (?D gnus-tmp-newsgroup-description ?s) (?o gnus-tmp-moderated ?c) (?O gnus-tmp-moderated-string ?s) --- 1502,1508 ---- (gnus-range-length (cdr (assq 'tick gnus-tmp-marked)))) ?d) (?g gnus-tmp-group ?s) (?G gnus-tmp-qualified-group ?s) ! (?c (gnus-short-group-name gnus-tmp-group) ?s) (?D gnus-tmp-newsgroup-description ?s) (?o gnus-tmp-moderated ?c) (?O gnus-tmp-moderated-string ?s) *************** *** 1586,1592 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.25" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1587,1593 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.26" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 2293,2307 **** ;; Search backward. (when (re-search-backward "\\(gnus-[-a-z]+-line-format\\)" nil t) (match-string 1))))) ! (set ! (intern (format "%s-spec" var)) ! (gnus-parse-format (symbol-value (intern var)) ! (symbol-value (intern (format "%s-alist" var))) ! (not (string-match "mode" var)))) ! (pop-to-buffer "*Gnus Format*") ! (erase-buffer) ! (lisp-interaction-mode) ! (insert (pp-to-string (symbol-value (intern (format "%s-spec" var)))))) (defun gnus-update-format-specifications (&optional force) --- 2294,2317 ---- ;; Search backward. (when (re-search-backward "\\(gnus-[-a-z]+-line-format\\)" nil t) (match-string 1))))) ! (let* ((type (intern (progn (string-match "gnus-\\([-a-z]+\\)-line" var) ! (match-string 1 var)))) ! (entry (assq type gnus-format-specs)) ! value spec) ! (when entry ! (setq gnus-format-specs (delq entry gnus-format-specs))) ! (set ! (intern (format "%s-spec" var)) ! (gnus-parse-format (setq value (symbol-value (intern var))) ! (symbol-value (intern (format "%s-alist" var))) ! (not (string-match "mode" var)))) ! (setq spec (symbol-value (intern (format "%s-spec" var)))) ! (push (list type value spec) gnus-format-specs) ! ! (pop-to-buffer "*Gnus Format*") ! (erase-buffer) ! (lisp-interaction-mode) ! (insert (pp-to-string spec)))) (defun gnus-update-format-specifications (&optional force) *************** *** 2421,2428 **** (if (numberp val) (setq val (int-to-string val))) (if (> (length val) ,max-width) ! (substring val 0 ,max-width)) ! val))) (defun gnus-parse-format (format spec-alist &optional insert) ;; This function parses the FORMAT string with the help of the --- 2431,2438 ---- (if (numberp val) (setq val (int-to-string val))) (if (> (length val) ,max-width) ! (substring val 0 ,max-width) ! val)))) (defun gnus-parse-format (format spec-alist &optional insert) ;; This function parses the FORMAT string with the help of the *************** *** 2569,2579 **** (if dontinsert result (cons 'insert result))) ! (or (car result) "")))) (defun gnus-eval-format (format &optional alist props) "Eval the format variable FORMAT, using ALIST. ! If INSERT, insert the result." (let ((form (gnus-parse-format format alist props))) (if props (add-text-properties (point) (progn (eval form) (point)) props) --- 2579,2593 ---- (if dontinsert result (cons 'insert result))) ! (cond ((stringp result) ! result) ! ((consp result) ! (cons 'concat result)) ! (t ""))))) (defun gnus-eval-format (format &optional alist props) "Eval the format variable FORMAT, using ALIST. ! If PROPS, insert the result." (let ((form (gnus-parse-format format alist props))) (if props (add-text-properties (point) (progn (eval form) (point)) props) *************** *** 3482,3488 **** (make-local-variable 'mode-line-format) (setq mode-line-format (copy-sequence mode-line-format)) (and (equal (nth 3 mode-line-format) " ") ! (setcar (nthcdr 3 mode-line-format) "")))) ;;; List and range functions --- 3496,3502 ---- (make-local-variable 'mode-line-format) (setq mode-line-format (copy-sequence mode-line-format)) (and (equal (nth 3 mode-line-format) " ") ! (setcar (nthcdr 3 mode-line-format) " ")))) ;;; List and range functions *************** *** 4501,4507 **** "*")) (gnus-tmp-number-of-read (if (numberp number) ! (max 0 (- gnus-tmp-number-total number)) "*")) (gnus-tmp-subscribed (cond ((<= gnus-tmp-level gnus-level-subscribed) ? ) --- 4515,4521 ---- "*")) (gnus-tmp-number-of-read (if (numberp number) ! (int-to-string (max 0 (- gnus-tmp-number-total number))) "*")) (gnus-tmp-subscribed (cond ((<= gnus-tmp-level gnus-level-subscribed) ? ) *************** *** 4734,4742 **** (save-excursion (gnus-group-mark-group 1 'unmark t)) (setq gnus-group-marked ! (cons group (delete group gnus-group-marked))))) (defun gnus-group-set-mark (group) (if (gnus-group-goto-group group) (save-excursion (gnus-group-mark-group 1 nil t)) --- 4748,4757 ---- (save-excursion (gnus-group-mark-group 1 'unmark t)) (setq gnus-group-marked ! (delete group gnus-group-marked)))) (defun gnus-group-set-mark (group) + "Set the process mark on GROUP." (if (gnus-group-goto-group group) (save-excursion (gnus-group-mark-group 1 nil t)) *************** *** 7244,7251 **** ;; Update summary line after change. (when (and gnus-summary-default-score (not gnus-summary-inhibit-highlight)) ! (let ((gnus-summary-inhibit-highlight t) ; Prevent recursion. ! (article (gnus-summary-article-number))) (unless dont-update (if (and gnus-summary-mark-below (< (gnus-summary-article-score) --- 7259,7267 ---- ;; Update summary line after change. (when (and gnus-summary-default-score (not gnus-summary-inhibit-highlight)) ! (let* ((gnus-summary-inhibit-highlight t) ; Prevent recursion. ! (article (gnus-summary-article-number)) ! (score (gnus-summary-article-score article))) (unless dont-update (if (and gnus-summary-mark-below (< (gnus-summary-article-score) *************** *** 7257,7263 **** ;; This article was previously marked as read on account ;; of a low score, but now it has risen, so we mark it as ;; unread. ! (gnus-summary-mark-article-as-unread gnus-unread-mark)))) ;; Do visual highlighting. (when (gnus-visual-p 'summary-highlight 'highlight) (run-hooks 'gnus-summary-update-hook))))) --- 7273,7285 ---- ;; This article was previously marked as read on account ;; of a low score, but now it has risen, so we mark it as ;; unread. ! (gnus-summary-mark-article-as-unread gnus-unread-mark))) ! (gnus-summary-update-mark ! (if (or (null gnus-summary-default-score) ! (<= (abs (- score gnus-summary-default-score)) ! gnus-summary-zcore-fuzz)) ? ! (if (< score gnus-summary-default-score) ! gnus-score-below-mark gnus-score-over-mark)) 'score)) ;; Do visual highlighting. (when (gnus-visual-p 'summary-highlight 'highlight) (run-hooks 'gnus-summary-update-hook))))) *************** *** 7282,7288 **** ((memq (mail-header-number (car thread)) gnus-newsgroup-limit) 1) ! (t 0)))) (if char (if (> number 1) gnus-not-empty-thread-mark gnus-empty-thread-mark) --- 7304,7310 ---- ((memq (mail-header-number (car thread)) gnus-newsgroup-limit) 1) ! (t 1)))) (if char (if (> number 1) gnus-not-empty-thread-mark gnus-empty-thread-mark) *************** *** 7685,7691 **** ;; Written by Hallvard B Furuseth . (defmacro gnus-thread-header (thread) ;; Return header of first article in THREAD. ! ;; Note that THREAD must never, evr be anything else than a variable - ;; using some other form will lead to serious barfage. (or (symbolp thread) (signal 'wrong-type-argument '(symbolp thread))) ;; (8% speedup to gnus-summary-prepare, just for fun :-) --- 7707,7713 ---- ;; Written by Hallvard B Furuseth . (defmacro gnus-thread-header (thread) ;; Return header of first article in THREAD. ! ;; Note that THREAD must never, ever be anything else than a variable - ;; using some other form will lead to serious barfage. (or (symbolp thread) (signal 'wrong-type-argument '(symbolp thread))) ;; (8% speedup to gnus-summary-prepare, just for fun :-) *************** *** 8302,8311 **** (setq symbol (intern (format "gnus-newsgroup-%s" (car type)))))) - (setq list (set symbol (sort list '<))) (push (cons (cdr type) (if (memq (cdr type) uncompressed) list ! (gnus-compress-sequence list t))) newmarked))) ;; Enter these new marks into the info of the group. --- 8324,8332 ---- (setq symbol (intern (format "gnus-newsgroup-%s" (car type)))))) (push (cons (cdr type) (if (memq (cdr type) uncompressed) list ! (gnus-compress-sequence (set symbol (sort list '<)) t))) newmarked))) ;; Enter these new marks into the info of the group. *************** *** 9659,9668 **** (let ((keystrokes '((?\C-n (gnus-group-next-unread-group 1)) (?\C-p (gnus-group-prev-unread-group 1)))) keve key group ended) (while (not ended) - (save-excursion - (set-buffer gnus-group-buffer) - (setq group (gnus-group-group-name))) (gnus-message 7 "No more%s articles%s" (if unread " unread" "") (if (and group --- 9680,9690 ---- (let ((keystrokes '((?\C-n (gnus-group-next-unread-group 1)) (?\C-p (gnus-group-prev-unread-group 1)))) keve key group ended) + (save-excursion + (set-buffer gnus-group-buffer) + (gnus-summary-jump-to-group from-group) + (setq group (gnus-summary-search-group backward))) (while (not ended) (gnus-message 7 "No more%s articles%s" (if unread " unread" "") (if (and group *** pub/sgnus/lisp/nnmail.el Tue Dec 19 20:16:48 1995 --- sgnus/lisp/nnmail.el Thu Dec 21 00:16:35 1995 *************** *** 748,754 **** (save-excursion (when (re-search-backward "^Lines: " nil t) (delete-region (point) (progn (forward-line 1) (point))))) ! (insert (format "Lines: %d\n" lines)) chars)))) (defun nnmail-insert-xref (group-alist) --- 748,754 ---- (save-excursion (when (re-search-backward "^Lines: " nil t) (delete-region (point) (progn (forward-line 1) (point))))) ! (insert (format "Lines: %d\n" (max lines 0))) chars)))) (defun nnmail-insert-xref (group-alist) *** pub/sgnus/lisp/nnspool.el Tue Dec 19 20:16:48 1995 --- sgnus/lisp/nnspool.el Thu Dec 21 00:16:35 1995 *************** *** 228,240 **** (defun nnspool-request-head (id &optional group server) "Select article head by message ID (or number)." (nnspool-possibly-change-directory group) ! (if (nnspool-request-article id) (save-excursion (set-buffer nntp-server-buffer) (goto-char (point-min)) ! (if (search-forward "\n\n" nil t) ! (delete-region (1- (point)) (point-max))) ! t))) (defun nnspool-request-group (group &optional server dont-check) "Select news GROUP." --- 228,241 ---- (defun nnspool-request-head (id &optional group server) "Select article head by message ID (or number)." (nnspool-possibly-change-directory group) ! (let ((res (nnspool-request-article id))) ! (when res (save-excursion (set-buffer nntp-server-buffer) (goto-char (point-min)) ! (when (search-forward "\n\n" nil t) ! (delete-region (1- (point)) (point-max))))) ! res)) (defun nnspool-request-group (group &optional server dont-check) "Select news GROUP." *** pub/sgnus/lisp/ChangeLog Tue Dec 19 20:16:56 1995 --- sgnus/lisp/ChangeLog Thu Dec 21 03:00:30 1995 *************** *** 1,4 **** --- 1,61 ---- + Thu Dec 21 02:57:06 1995 Lars Magne Ingebrigtsen + + * gnus.el (gnus-summary-walk-group-buffer): Would skip every other + group. + + Wed Dec 20 10:18:18 1995 Hideki Ono + + * gnus.el (gnus-update-marks): Compressed list shouldn't be sort. + + Wed Dec 20 00:02:44 1995 Lars Ingebrigtsen + + * gnus.el (gnus-summary-number-of-articles-in-thread): Would + return 0. + (gnus-parse-simple-format): Would mangle some simple mode lines. + (gnus-group-line-format-alist): Wrong spec. + + * gnus-score.el (gnus-file-name-translation-table): New variable. + (gnus-score-find-bnews): Use it. + (gnus-score-file-name): Ditto. + + * gnus-xmas.el (gnus-xmas-group-startup-message): Show the TTY + startup screen on a TTY. + + * gnus.el (gnus-save-killed-list): Doc fix. + (gnus-simplify-mode-line): Leave a bit of space after the id. + (gnus-max-width-function): Would never chop off anything. + (gnus-update-format): Didn't update spec list. + + * nnmail.el (nnmail-insert-lines): Never insert negative Lineses + headers. + + * gnus-cache.el (gnus-cache-possibly-enter-article): Didn't enter + articles into the `gnus-newsgroup-cached' list. + + * gnus-topic.el (gnus-group-prepare-topics): Don't check the + topology quite so often. + + * gnus.el (gnus-group-remove-mark): Didn't remove mark from + undisplayed groups. + + * nnspool.el (nnspool-request-head): Didn't return the artgroup. + + * gnus.el (gnus-summary-update-line): Update tertiary mark as + well. + + Tue Dec 19 22:47:29 1995 Lars Ingebrigtsen + + * gnus-xmas.el (gnus-xmas-read-event-char): Junk all non-key + events. + + * gnus.el (gnus-group-line-format-alist): %t should be a string. + + * gnus-cache.el (gnus-cache-generate-active): Would create bogus + active files. + Tue Dec 19 18:13:49 1995 Lars Magne Ingebrigtsen + + * gnus.el: 0.25 is released. * gnus-msg.el (gnus-cancel-news): Insert the usual user name, not the "real" one. *** pub/sgnus/texi/gnus.texi Tue Dec 19 20:16:58 1995 --- sgnus/texi/gnus.texi Thu Dec 21 04:08:33 1995 *************** *** 44,49 **** --- 44,54 ---- @iftex + @tex + + + @end tex + @titlepage @title September Gnus Manual *************** *** 353,358 **** --- 358,365 ---- Innumerable bug fixes were written by Sudish Joseph. @item @code{gnus-topic} was written by Ilja Weis. + @item + Lots and lots of bugs were found and fixed by Steven L. Baur. @item The refcard was written by Vladimir Alexiev. @item *************** *** 689,695 **** @vindex gnus-select-method The @code{gnus-select-method} variable controls how Gnus finds news. This variable should be a list where the first element says @dfn{how} ! and the second element says @dfn{where}. This method is is your native method. All groups that are not fetched with this method are foreign groups. --- 696,702 ---- @vindex gnus-select-method The @code{gnus-select-method} variable controls how Gnus finds news. This variable should be a list where the first element says @dfn{how} ! and the second element says @dfn{where}. This method is your native method. All groups that are not fetched with this method are foreign groups. *** pub/sgnus/texi/ChangeLog Tue Dec 19 20:16:56 1995 --- sgnus/texi/ChangeLog Thu Dec 21 00:16:35 1995 *************** *** 1,3 **** --- 1,7 ---- + Wed Dec 20 01:13:35 1995 Lars Ingebrigtsen + + * gnus.texi (Finding the News): Change. + Tue Dec 19 00:26:02 1995 Lars Ingebrigtsen * gnus.texi (Article Hiding): Addition.