*** pub/rgnus/lisp/article.el Thu Aug 29 02:59:28 1996 --- rgnus/lisp/article.el Fri Aug 30 02:13:17 1996 *************** *** 143,148 **** --- 143,156 ---- (while (setq b (text-property-any b e 'article-type type)) (add-text-properties b (incf b) gnus-hidden-properties))))) + (defun article-delete-text-of-type (type) + "Delete text of TYPE in the current buffer." + (save-excursion + (let ((b (point-min)) + (e (point-max))) + (while (setq b (text-property-any b e 'article-type type)) + (delete-region b (incf b)))))) + (defun article-text-type-exists-p (type) "Say whether any text of type TYPE exists in the buffer." (text-property-any (point-min) (point-max) 'article-type type)) *** pub/rgnus/lisp/gnus-cite.el Thu Aug 29 02:59:28 1996 --- rgnus/lisp/gnus-cite.el Fri Aug 30 03:33:18 1996 *************** *** 30,38 **** (require 'gnus-art) (require 'gnus-range) - (eval-and-compile - (autoload 'gnus-article-add-button "gnus-vis")) - ;;; Customization: (defvar gnus-cited-text-button-line-format "%(%{[...]%}%)\n" --- 30,35 ---- *************** *** 342,351 **** (goto-char beg) (unless (save-excursion (search-backward "\n\n" nil t)) (insert "\n")) ! (gnus-article-add-button (point) ! (progn (eval gnus-cited-text-button-line-format-spec) (point)) ! `gnus-article-toggle-cited-text (cons beg end)) (set-marker beg (point))))))))) (defun gnus-article-toggle-cited-text (region) --- 339,353 ---- (goto-char beg) (unless (save-excursion (search-backward "\n\n" nil t)) (insert "\n")) ! (put-text-property (point) ! (progn ! (gnus-article-add-button ! (point) ! (progn (eval gnus-cited-text-button-line-format-spec) (point)) ! `gnus-article-toggle-cited-text (cons beg end)) ! (point)) ! 'article-type 'annotation) (set-marker beg (point))))))))) (defun gnus-article-toggle-cited-text (region) *** pub/rgnus/lisp/gnus-demon.el Wed Aug 28 01:56:13 1996 --- rgnus/lisp/gnus-demon.el Fri Aug 30 01:20:49 1996 *************** *** 27,32 **** --- 27,33 ---- (require 'gnus-load) (require 'gnus-int) + (require 'nnheader) (require 'gnus) (defvar gnus-demon-handlers nil *************** *** 217,222 **** --- 218,233 ---- (or (gnus-server-opened server) (gnus-open-server server)) (gnus-request-scan nil server))))) + + (defun gnus-demon-add-rescan () + "Add daemonic scanning of new articles from all backends." + (gnus-demon-add-handler 'gnus-demon-scan-news 120 60)) + + (defun gnus-demon-scan-news () + (when (gnus-alive-p) + (save-excursion + (set-buffer gnus-group-buffer) + (gnus-group-get-new-news)))) (provide 'gnus-demon) *** pub/rgnus/lisp/gnus-group.el Wed Aug 28 23:03:56 1996 --- rgnus/lisp/gnus-group.el Fri Aug 30 00:26:50 1996 *************** *** 347,353 **** "V" gnus-group-make-empty-virtual "D" gnus-group-enter-directory "f" gnus-group-make-doc-group ! "n" gnus-group-make-web-group "r" gnus-group-rename-group "\177" gnus-group-delete-group [delete] gnus-group-delete-group) --- 347,353 ---- "V" gnus-group-make-empty-virtual "D" gnus-group-enter-directory "f" gnus-group-make-doc-group ! "w" gnus-group-make-web-group "r" gnus-group-rename-group "\177" gnus-group-delete-group [delete] gnus-group-delete-group) *** pub/rgnus/lisp/gnus-msg.el Wed Aug 28 02:17:54 1996 --- rgnus/lisp/gnus-msg.el Fri Aug 30 03:33:03 1996 *************** *** 309,314 **** --- 309,315 ---- (set-buffer article-buffer) (save-restriction (widen) + (article-delete-text-of-type 'annotation) (setq contents (format "%s" (buffer-string))) (set-buffer gnus-original-article-buffer) (goto-char (point-min)) *************** *** 959,965 **** (insert "Gcc: ") (if (and gnus-newsgroup-name (setq gcc-self-val ! (gnus-group-get-parameter gnus-newsgroup-name 'gcc-self))) (progn (insert --- 960,966 ---- (insert "Gcc: ") (if (and gnus-newsgroup-name (setq gcc-self-val ! (gnus-group-find-parameter gnus-newsgroup-name 'gcc-self))) (progn (insert *** pub/rgnus/lisp/gnus-salt.el Wed Aug 28 00:50:17 1996 --- rgnus/lisp/gnus-salt.el Fri Aug 30 00:26:47 1996 *************** *** 99,112 **** \\{gnus-pick-mode-map}" (interactive "P") (when (eq major-mode 'gnus-summary-mode) ! (make-local-variable 'gnus-pick-mode) ! (setq gnus-pick-mode ! (if (null arg) (not gnus-pick-mode) ! (> (prefix-numeric-value arg) 0))) ! (when gnus-pick-mode ;; Make sure that we don't select any articles upon group entry. ! (make-local-variable 'gnus-auto-select-first) ! (setq gnus-auto-select-first nil) ;; Change line format. (setq gnus-summary-line-format gnus-summary-pick-line-format) (setq gnus-summary-line-format-spec nil) --- 99,109 ---- \\{gnus-pick-mode-map}" (interactive "P") (when (eq major-mode 'gnus-summary-mode) ! (when (set (make-local-variable 'gnus-pick-mode) ! (if (null arg) (not gnus-pick-mode) ! (> (prefix-numeric-value arg) 0))) ;; Make sure that we don't select any articles upon group entry. ! (set (make-local-variable 'gnus-auto-select-first) nil) ;; Change line format. (setq gnus-summary-line-format gnus-summary-pick-line-format) (setq gnus-summary-line-format-spec nil) *** pub/rgnus/lisp/gnus-start.el Sun Aug 25 02:45:55 1996 --- rgnus/lisp/gnus-start.el Fri Aug 30 00:31:56 1996 *************** *** 2329,2335 **** (defun gnus-set-default-directory () "Set the default directory in the current buffer to `gnus-default-directory'. If this variable is nil, don't do anything." ! (setq default-directory (or gnus-default-directory default-directory))) (provide 'gnus-start) --- 2329,2339 ---- (defun gnus-set-default-directory () "Set the default directory in the current buffer to `gnus-default-directory'. If this variable is nil, don't do anything." ! (setq default-directory ! (if (and gnus-default-directory ! (file-exists-p gnus-default-directory)) ! (expand-file-name gnus-default-directory) ! default-directory))) (provide 'gnus-start) *** pub/rgnus/lisp/gnus-sum.el Thu Aug 29 03:36:02 1996 --- rgnus/lisp/gnus-sum.el Fri Aug 30 02:53:56 1996 *************** *** 1875,1881 **** (let ((config (make-symbol "config"))) `(let ((,config (gnus-hidden-threads-configuration))) (unwind-protect ! (progn ,@forms) (gnus-restore-hidden-threads-configuration ,config))))) --- 1875,1881 ---- (let ((config (make-symbol "config"))) `(let ((,config (gnus-hidden-threads-configuration))) (unwind-protect ! (save-excursion ,@forms) (gnus-restore-hidden-threads-configuration ,config))))) *************** *** 2093,2099 **** (defvar gnus-tmp-new-adopts nil) (defun gnus-summary-number-of-articles-in-thread (thread &optional level char) ! ;; Sum up all elements (and sub-elements) in a list. (let* ((number ;; Fix by Luc Van Eycken . (cond --- 2093,2101 ---- (defvar gnus-tmp-new-adopts nil) (defun gnus-summary-number-of-articles-in-thread (thread &optional level char) ! "Return the number of articles in THREAD. ! This may be 0 in some cases -- if none of the articles in ! the thread are to be displayed." (let* ((number ;; Fix by Luc Van Eycken . (cond *************** *** 5600,5606 **** ,(get-buffer dig)) (nndoc-article-type ,(if force 'digest 'guess))) t) ;; Make all postings to this group go to the parent group. ! (gnus-info-set-params (gnus-get-info name) params) ;; Couldn't select this doc group. (switch-to-buffer buf) (gnus-set-global-variables) --- 5602,5609 ---- ,(get-buffer dig)) (nndoc-article-type ,(if force 'digest 'guess))) t) ;; Make all postings to this group go to the parent group. ! (nconc (gnus-info-params (gnus-get-info name)) ! params) ;; Couldn't select this doc group. (switch-to-buffer buf) (gnus-set-global-variables) *************** *** 5637,5643 **** t nil t)) (progn ;; Make all postings to this group go to the parent group. ! (gnus-info-set-params (gnus-get-info name) params) (push egroup groups)) ;; Couldn't select this doc group. (gnus-error 3 "Article couldn't be entered")))))) --- 5640,5647 ---- t nil t)) (progn ;; Make all postings to this group go to the parent group. ! (nconc (gnus-info-params (gnus-get-info egroup)) ! params) (push egroup groups)) ;; Couldn't select this doc group. (gnus-error 3 "Article couldn't be entered")))))) *************** *** 5707,5713 **** (if backward 're-search-backward 're-search-forward)) (sum (current-buffer)) ! (found nil)) (gnus-save-hidden-threads (gnus-summary-select-article) (set-buffer gnus-article-buffer) --- 5711,5718 ---- (if backward 're-search-backward 're-search-forward)) (sum (current-buffer)) ! (found nil) ! point) (gnus-save-hidden-threads (gnus-summary-select-article) (set-buffer gnus-article-buffer) *************** *** 5726,5732 **** (get-buffer-window (current-buffer)) (point)) (forward-line 1) ! (set-buffer sum)) ;; We didn't find it, so we go to the next article. (set-buffer sum) (if (not (if backward (gnus-summary-find-prev) --- 5731,5738 ---- (get-buffer-window (current-buffer)) (point)) (forward-line 1) ! (set-buffer sum) ! (setq point (point))) ;; We didn't find it, so we go to the next article. (set-buffer sum) (if (not (if backward (gnus-summary-find-prev) *************** *** 5741,5746 **** --- 5747,5753 ---- (gnus-message 7 "")) ;; Return whether we found the regexp. (when (eq found 'found) + (goto-char point) (gnus-summary-show-thread) (gnus-summary-goto-subject gnus-current-article) (gnus-summary-position-point) *************** *** 5851,5863 **** If ARG is a negative number, turn header display off." (interactive "P") (gnus-set-global-variables) - (gnus-summary-toggle-header arg) (setq gnus-show-all-headers (cond ((or (not (numberp arg)) (zerop arg)) (not gnus-show-all-headers)) ((natnump arg) ! t)))) (defun gnus-summary-toggle-header (&optional arg) "Show the headers if they are hidden, or hide them if they are shown. --- 5858,5870 ---- If ARG is a negative number, turn header display off." (interactive "P") (gnus-set-global-variables) (setq gnus-show-all-headers (cond ((or (not (numberp arg)) (zerop arg)) (not gnus-show-all-headers)) ((natnump arg) ! t))) ! (gnus-summary-show-article)) (defun gnus-summary-toggle-header (&optional arg) "Show the headers if they are hidden, or hide them if they are shown. *** pub/rgnus/lisp/gnus-xmas.el Sat Aug 17 10:45:41 1996 --- rgnus/lisp/gnus-xmas.el Fri Aug 30 03:36:04 1996 *************** *** 655,661 **** [gnus-summary-next-unread gnus-summary-next-unread-article t "Next unread article"] [gnus-summary-mail-reply gnus-summary-reply t "Reply"] ! [gnus-summary-mail-get gnus-mail-get t "Message get"] [gnus-summary-mail-originate gnus-summary-post-news t "Originate"] [gnus-summary-mail-save gnus-summary-save-article t "Save"] [gnus-summary-mail-copy gnus-summary-copy-article t "Copy message"] --- 655,661 ---- [gnus-summary-next-unread gnus-summary-next-unread-article t "Next unread article"] [gnus-summary-mail-reply gnus-summary-reply t "Reply"] ! ; [gnus-summary-mail-get gnus-mail-get t "Message get"] [gnus-summary-mail-originate gnus-summary-post-news t "Originate"] [gnus-summary-mail-save gnus-summary-save-article t "Save"] [gnus-summary-mail-copy gnus-summary-copy-article t "Copy message"] *** pub/rgnus/lisp/gnus.el Wed Aug 28 23:03:59 1996 --- rgnus/lisp/gnus.el Fri Aug 30 00:26:55 1996 *************** *** 28,34 **** (eval '(run-hooks 'gnus-load-hook)) ! (defconst gnus-version-number "0.19" "Version number for this version of Gnus.") (defconst gnus-version (format "Red Gnus v%s" gnus-version-number) --- 28,34 ---- (eval '(run-hooks 'gnus-load-hook)) ! (defconst gnus-version-number "0.20" "Version number for this version of Gnus.") (defconst gnus-version (format "Red Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/message.el Wed Aug 28 23:04:01 1996 --- rgnus/lisp/message.el Fri Aug 30 01:39:43 1996 *************** *** 1529,1535 **** ;; Let the user do all of the above. (run-hooks 'message-header-hook)) (message-cleanup-headers) ! (when (message-check-news-syntax) (unwind-protect (save-excursion (set-buffer tembuf) --- 1529,1538 ---- ;; Let the user do all of the above. (run-hooks 'message-header-hook)) (message-cleanup-headers) ! (if (not (message-check-news-syntax)) ! (progn ! (message "Posting nor performed") ! nil) (unwind-protect (save-excursion (set-buffer tembuf) *************** *** 2589,2597 **** (setq ccalist (delq (assoc (car (pop s)) s) ccalist))))) (setq follow-to (list (cons 'To (cdr (pop ccalist))))) (when ccalist ! (push (cons 'Cc ! (mapconcat (lambda (addr) (cdr addr)) ccalist ", ")) ! follow-to))))) (widen)) (message-pop-to-buffer (message-buffer-name --- 2592,2602 ---- (setq ccalist (delq (assoc (car (pop s)) s) ccalist))))) (setq follow-to (list (cons 'To (cdr (pop ccalist))))) (when ccalist ! (let ((ccs (cons 'Cc (mapconcat ! (lambda (addr) (cdr addr)) ccalist ", ")))) ! (when (string-match "^ +" ccs) ! (setq ccs (substring ccs (match-end 0)))) ! (push ccs follow-to)))))) (widen)) (message-pop-to-buffer (message-buffer-name *** pub/rgnus/lisp/nndoc.el Thu Aug 29 05:11:49 1996 --- rgnus/lisp/nndoc.el Fri Aug 30 03:05:41 1996 *************** *** 52,62 **** (article-begin . "^#! *rnews +\\([0-9]+\\) *\n") (body-end-function . nndoc-rnews-body-end)) (mbox ! (article-begin . ! ,(let ((delim (concat "^" message-unix-mail-delimiter))) ! (if (string-match "\n\\'" delim) ! (substring delim 0 (match-beginning 0)) ! delim))) (body-end-function . nndoc-mbox-body-end)) (babyl (article-begin . "\^_\^L *\n") --- 52,58 ---- (article-begin . "^#! *rnews +\\([0-9]+\\) *\n") (body-end-function . nndoc-rnews-body-end)) (mbox ! (article-begin-function . nndoc-mbox-article-begin) (body-end-function . nndoc-mbox-body-end)) (babyl (article-begin . "\^_\^L *\n") *************** *** 82,88 **** (subtype digest guess)) (standard-digest (first-article . ,(concat "^" (make-string 70 ?-) "\n\n+")) ! (article-begin . ,(concat "\n\n" (make-string 30 ?-) "\n\n+")) (prepare-body-function . nndoc-unquote-dashes) (body-end-function . nndoc-digest-body-end) (head-end . "^ ?$") --- 78,84 ---- (subtype digest guess)) (standard-digest (first-article . ,(concat "^" (make-string 70 ?-) "\n\n+")) ! (article-begin . ,(concat "^\n" (make-string 30 ?-) "\n\n+")) (prepare-body-function . nndoc-unquote-dashes) (body-end-function . nndoc-digest-body-end) (head-end . "^ ?$") *************** *** 338,343 **** --- 334,343 ---- (when (looking-at message-unix-mail-delimiter) t)) + (defun nndoc-mbox-article-begin () + (when (re-search-forward (concat "^" message-unix-mail-delimiter)) + (goto-char (match-beginning 0)))) + (defun nndoc-mbox-body-end () (let ((beg (point)) len end) *************** *** 527,540 **** ;; Go through the file. (while (if (and first nndoc-first-article) (nndoc-search nndoc-first-article) ! (nndoc-search nndoc-article-begin)) (setq first nil) (cond (nndoc-head-begin-function (funcall nndoc-head-begin-function)) (nndoc-head-begin (nndoc-search nndoc-head-begin))) ! (if (or (>= (point) (point-max)) (and nndoc-file-end ! (looking-at nndoc-file-end))) (goto-char (point-max)) (setq head-begin (point)) (nndoc-search (or nndoc-head-end "^$")) --- 527,543 ---- ;; Go through the file. (while (if (and first nndoc-first-article) (nndoc-search nndoc-first-article) ! (condition-case () ! (nndoc-search nndoc-article-begin) ! (error nil))) (setq first nil) (cond (nndoc-head-begin-function (funcall nndoc-head-begin-function)) (nndoc-head-begin (nndoc-search nndoc-head-begin))) ! (if (or (>= (point) (point-max)) ! (and nndoc-file-end ! (looking-at nndoc-file-end))) (goto-char (point-max)) (setq head-begin (point)) (nndoc-search (or nndoc-head-end "^$")) *************** *** 547,553 **** (funcall nndoc-body-end-function)) (and nndoc-body-end (nndoc-search nndoc-body-end)) ! (nndoc-search nndoc-article-begin) (progn (goto-char (point-max)) (when nndoc-file-end --- 550,558 ---- (funcall nndoc-body-end-function)) (and nndoc-body-end (nndoc-search nndoc-body-end)) ! (condition-case () ! (nndoc-search nndoc-article-begin) ! (error nil)) (progn (goto-char (point-max)) (when nndoc-file-end *** pub/rgnus/lisp/nnmail.el Wed Aug 28 01:17:36 1996 --- rgnus/lisp/nnmail.el Fri Aug 30 01:39:44 1996 *************** *** 506,523 **** (kill-buffer (current-buffer)))))) (defun nnmail-get-split-group (file group) (if (or (eq nnmail-spool-file 'procmail) nnmail-use-procmail) ! (cond (group group) ! ((string-match (concat "^" (expand-file-name ! (file-name-as-directory ! nnmail-procmail-directory)) ! "\\([^/]*\\)" nnmail-procmail-suffix "$") ! (expand-file-name file)) ! (substring (expand-file-name file) ! (match-beginning 1) (match-end 1))) ! (t ! group)) group)) (defun nnmail-process-babyl-mail-format (func artnum-func) --- 506,532 ---- (kill-buffer (current-buffer)))))) (defun nnmail-get-split-group (file group) + "Find out whether this FILE is to be split into GROUP only. + If GROUP is non-nil and we are using procmail, return the group name + only when the file is the correct procmail file. When GROUP is nil, + return nil if FILE is a spool file or the procmail group for which it + is a spool. If not using procmail, return GROUP." (if (or (eq nnmail-spool-file 'procmail) nnmail-use-procmail) ! (if (string-match (concat "^" (expand-file-name ! (file-name-as-directory ! nnmail-procmail-directory)) ! "\\([^/]*\\)" nnmail-procmail-suffix "$") ! (expand-file-name file)) ! (let ((procmail-group (substring (expand-file-name file) ! (match-beginning 1) ! (match-end 1)))) ! (if group ! (if (string-equal group procmail-group) ! group ! nil) ! procmail-group)) ! nil) group)) (defun nnmail-process-babyl-mail-format (func artnum-func) *** pub/rgnus/lisp/ChangeLog Thu Aug 29 05:11:49 1996 --- rgnus/lisp/ChangeLog Fri Aug 30 03:33:03 1996 *************** *** 1,3 **** --- 1,63 ---- + Fri Aug 30 01:36:10 1996 Lars Magne Ingebrigtsen + + * gnus-msg.el (gnus-inews-insert-archive-gcc): Use + `gnus-group-find-parameter'. + + * nndoc.el (nndoc-mbox-article-begin): New function. + + * gnus-sum.el (gnus-summary-search-article): Would expose the + first hidden thread. + + * gnus-msg.el (gnus-copy-article-buffer): Delete annotations + before following up. + + * gnus-cite.el (gnus-article-hide-citation): Mark buttons as + annotations. + + * article.el (article-delete-text-of-type): New function. + + * nndoc.el (nndoc-type-alist): Be slightly more permissive. + + * gnus-sum.el (gnus-summary-enter-digest-group): Would nix out + quit-conf. + (gnus-summary-read-document): Ditto. + + * nndoc.el (nndoc-dissect-buffer): Escape errors in overflows. + + * message.el (message-send-news): Give a message after not + posting. + (message-reply): Remove leading spaces from Cc. + + Fri Aug 30 01:32:27 1996 Jack Vinson + + * nnmail.el (nnmail-get-split-group): New version. + + Fri Aug 30 00:47:17 1996 Jens Lautenbacher + + * gnus.texi (Group Parameters): Updated documentation + + * gnus-msg.el (gnus-inews-insert-archive-gcc): Updated to use the + topic's value of gcc-self if no group value present. + + Fri Aug 30 00:19:43 1996 Lars Magne Ingebrigtsen + + * gnus-start.el (gnus-set-default-directory): Expand default + directory. + + * gnus-group.el (gnus-group-make-web-group): Changed keystroke. + + * gnus-sum.el (gnus-summary-verbose-headers): Show article after + toggling. + + Thu Aug 29 23:50:54 1996 Lars Magne Ingebrigtsen + + * gnus-demon.el (gnus-demon-add-rescan): New function. + (gnus-demon-scan-news): New function. + + Thu Aug 29 05:34:40 1996 Lars Magne Ingebrigtsen + + * gnus.el: Red Gnus v0.19 is released. + Thu Aug 29 02:04:35 1996 Lars Magne Ingebrigtsen * nndoc.el (nndoc-babyl-body-begin): Would skip empty messages. *** pub/rgnus/texi/gnus.texi Thu Aug 29 05:34:07 1996 --- rgnus/texi/gnus.texi Fri Aug 30 01:28:04 1996 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Red Gnus 0.19 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Red Gnus VERSION Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 230,236 **** @tex @titlepage ! @title Red Gnus 0.19 Manual @author by Lars Magne Ingebrigtsen @page --- 230,236 ---- @tex @titlepage ! @title Red Gnus VERSION Manual @author by Lars Magne Ingebrigtsen @page *************** *** 1651,1658 **** @code{forward}. If you run this command without a prefix, Gnus will guess at the file type. @xref{Document Groups}. ! @item G n ! @kindex G n (Group) @findex gnus-group-make-web-group @cindex DejaNews @cindex Alta Vista --- 1651,1658 ---- @code{forward}. If you run this command without a prefix, Gnus will guess at the file type. @xref{Document Groups}. ! @item G w ! @kindex G w (Group) @findex gnus-group-make-web-group @cindex DejaNews @cindex Alta Vista *************** *** 1765,1772 **** @item gcc-self @cindex gcc-self ! If this symbol is present in the group parameter list, new composed ! messages will be @code{Gcc}'d to the current group. @item auto-expire @cindex auto-expire --- 1765,1776 ---- @item gcc-self @cindex gcc-self ! If this symbol is present in the group parameter list and set to ! @code{t}, new composed messages will be @code{Gcc}'d to the current ! group. If it is present and set to @code{none}, no @code{Gcc:} header ! will be generated, if it is present and a string, this string will be ! inserted literally as a @code{gcc} header (this symbol takes precedence over ! any default @code{Gcc} rules as described later). @item auto-expire @cindex auto-expire *************** *** 12044,12054 **** @findex gnus-demon-add-nocem @findex gnus-demon-add-scanmail @findex gnus-demon-add-disconnection Some ready-made functions to do this has been created: ! @code{gnus-demon-add-nocem}, @code{gnus-demon-add-disconnection}, and ! @code{gnus-demon-add-scanmail}. Just put those functions in your ! @file{.gnus} if you want those abilities. @findex gnus-demon-init @findex gnus-demon-cancel --- 12048,12059 ---- @findex gnus-demon-add-nocem @findex gnus-demon-add-scanmail + @findex gnus-demon-add-rescan @findex gnus-demon-add-disconnection Some ready-made functions to do this has been created: ! @code{gnus-demon-add-nocem}, @code{gnus-demon-add-disconnection}, ! @code{gnus-demon-add-rescan}, and @code{gnus-demon-add-scanmail}. Just ! put those functions in your @file{.gnus} if you want those abilities. @findex gnus-demon-init @findex gnus-demon-cancel *** pub/rgnus/texi/ChangeLog Thu Aug 29 02:15:57 1996 --- rgnus/texi/ChangeLog Fri Aug 30 00:26:47 1996 *************** *** 1,3 **** --- 1,11 ---- + Fri Aug 30 00:21:59 1996 Lars Magne Ingebrigtsen + + * gnus.texi (Foreign Groups): Change. + + Thu Aug 29 23:51:45 1996 Lars Magne Ingebrigtsen + + * gnus.texi (Daemons): Addition. + Thu Aug 29 02:09:24 1996 François Pinard * gnus.texi (Web Searches): Typo.