*** pub/qgnus/lisp/gnus-agent.el Wed Sep 17 03:33:29 1997 --- qgnus/lisp/gnus-agent.el Thu Sep 18 05:00:57 1997 *************** *** 267,274 **** (interactive (list (gnus-group-group-name))) (unless group (error "No group on the current line")) ! (gnus-agent-with-fetch ! (gnus-agent-fetch-group-1 group (gnus-find-method-for-group group)))) (defun gnus-agent-add-group (category arg) "Add the current group to an agent category." --- 267,275 ---- (interactive (list (gnus-group-group-name))) (unless group (error "No group on the current line")) ! (let ((gnus-command-method (gnus-find-method-for-group group))) ! (gnus-agent-with-fetch ! (gnus-agent-fetch-group-1 group gnus-command-method)))) (defun gnus-agent-add-group (category arg) "Add the current group to an agent category." *************** *** 757,770 **** (unless gnus-plugged (error "Can't fetch articles while Gnus is unplugged")) (let ((methods gnus-agent-covered-methods) ! method groups group) (save-excursion (while methods ! (setq method (car methods) groups (gnus-groups-from-server (pop methods))) (gnus-agent-with-fetch (while (setq group (pop groups)) ! (gnus-agent-fetch-group-1 group method)))) (gnus-message 6 "Finished fetching articles into the Gnus agent")))) (defun gnus-agent-fetch-group-1 (group method) --- 758,771 ---- (unless gnus-plugged (error "Can't fetch articles while Gnus is unplugged")) (let ((methods gnus-agent-covered-methods) ! groups group gnus-command-method) (save-excursion (while methods ! (setq gnus-command-method (car methods) groups (gnus-groups-from-server (pop methods))) (gnus-agent-with-fetch (while (setq group (pop groups)) ! (gnus-agent-fetch-group-1 group gnus-command-method)))) (gnus-message 6 "Finished fetching articles into the Gnus agent")))) (defun gnus-agent-fetch-group-1 (group method) *** pub/qgnus/lisp/gnus-msg.el Sun Sep 14 21:25:47 1997 --- qgnus/lisp/gnus-msg.el Thu Sep 18 05:00:57 1997 *************** *** 172,178 **** (add-hook 'message-header-setup-hook 'gnus-inews-insert-gcc) (add-hook 'message-header-setup-hook 'gnus-inews-insert-archive-gcc) (unwind-protect ! ,@forms (gnus-inews-add-send-actions ,winconf ,buffer ,article) (setq gnus-message-buffer (current-buffer)) (make-local-variable 'gnus-newsgroup-name) --- 172,179 ---- (add-hook 'message-header-setup-hook 'gnus-inews-insert-gcc) (add-hook 'message-header-setup-hook 'gnus-inews-insert-archive-gcc) (unwind-protect ! (progn ! ,@forms) (gnus-inews-add-send-actions ,winconf ,buffer ,article) (setq gnus-message-buffer (current-buffer)) (make-local-variable 'gnus-newsgroup-name) *** pub/qgnus/lisp/gnus.el Wed Sep 17 03:33:35 1997 --- qgnus/lisp/gnus.el Thu Sep 18 05:00:58 1997 *************** *** 244,250 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.6" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) --- 244,250 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.7" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) *** pub/qgnus/lisp/message.el Wed Sep 17 03:33:36 1997 --- qgnus/lisp/message.el Thu Sep 18 05:00:59 1997 *************** *** 1243,1249 **** (make-local-variable 'message-postpone-actions) (make-local-variable 'message-draft-article) (make-local-hook 'kill-buffer-hook) - (add-hook 'kill-buffer-hook 'message-disassociate-draft) (set-syntax-table message-mode-syntax-table) (use-local-map message-mode-map) (setq local-abbrev-table message-mode-abbrev-table) --- 1243,1248 ---- *** pub/qgnus/lisp/nndraft.el Wed Sep 17 03:33:37 1997 --- qgnus/lisp/nndraft.el Thu Sep 18 05:00:59 1997 *************** *** 35,41 **** (nnoo-declare nndraft nnmh) ! (defvoo nndraft-directory (nnheader-concat message-directory "message-drafts/") "Where nndraft will store its files." nnmh-current-directory) --- 35,41 ---- (nnoo-declare nndraft nnmh) ! (defvoo nndraft-directory (nnheader-concat gnus-directory "drafts/") "Where nndraft will store its files." nnmh-current-directory) *************** *** 151,158 **** article file) (nnheader-temp-write nil (insert-buffer buf) ! (setq article (cdr (nndraft-request-accept-article ! group (nnoo-current-server 'nndraft) t 'noinsert))) (setq file (nndraft-article-filename article))) (setq buffer-file-name file) (setq buffer-auto-save-file-name (make-auto-save-file-name)) --- 151,158 ---- article file) (nnheader-temp-write nil (insert-buffer buf) ! (setq article (nndraft-request-accept-article ! group (nnoo-current-server 'nndraft) t 'noinsert)) (setq file (nndraft-article-filename article))) (setq buffer-file-name file) (setq buffer-auto-save-file-name (make-auto-save-file-name)) *************** *** 218,223 **** --- 218,224 ---- (defun nndraft-articles () "Return the list of messages in the group." + (gnus-make-directory nndraft-directory) (sort (mapcar 'string-to-int (directory-files nndraft-directory nil "\\`[0-9]+\\'" t)) *** pub/qgnus/lisp/nnmh.el Sun Sep 14 21:25:53 1997 --- qgnus/lisp/nnmh.el Thu Sep 18 05:00:59 1997 *************** *** 303,311 **** (if (stringp group) (and (nnmail-activate 'nnmh) ! (car (nnmh-save-mail ! (list (cons group (nnmh-active-number group))) ! noinsert))) (and (nnmail-activate 'nnmh) (let ((res (nnmail-article-group 'nnmh-active-number))) --- 303,313 ---- (if (stringp group) (and (nnmail-activate 'nnmh) ! (if noinsert ! (nnmh-active-number group) ! (car (nnmh-save-mail ! (list (cons group (nnmh-active-number group))) ! noinsert)))) (and (nnmail-activate 'nnmh) (let ((res (nnmail-article-group 'nnmh-active-number))) *************** *** 453,460 **** "Compute the next article number in GROUP." (let ((active (cadr (assoc group nnmh-group-alist))) (dir (nnmail-group-pathname group nnmh-directory)) - ;; 1997/8/14 by MORIOKA Tomohiko - ;; for XEmacs/mule. (pathname-coding-system 'binary)) (unless active ;; The group wasn't known to nnmh, so we just create an active --- 455,460 ---- *** pub/qgnus/lisp/ChangeLog Wed Sep 17 03:33:28 1997 --- qgnus/lisp/ChangeLog Thu Sep 18 05:00:56 1997 *************** *** 2,7 **** --- 2,28 ---- * gnus.el: Quassia Gnus v0.1 is released. + Thu Sep 18 04:54:59 1997 Lars Magne Ingebrigtsen + + * gnus.el: Quassia Gnus v0.7 is released. + + Thu Sep 18 03:33:54 1997 Lars Magne Ingebrigtsen + + * gnus-msg.el (gnus-setup-message): Slap a progn around forms. + + * nndraft.el (nndraft-articles): Make sure directory exists. + + * message.el (message-mode): Don't delete article. + + * nnmh.el (nnmh-request-accept-article): Don't save when + noinsert. + + Wed Sep 17 03:37:59 1997 Lars Magne Ingebrigtsen + + * nndraft.el (nndraft-directory): Changed defaults. + + * gnus-agent.el (gnus-agent-fetch-session): Bind command method. + Wed Sep 17 03:28:36 1997 Lars Magne Ingebrigtsen * gnus.el: Quassia Gnus v0.6 is released. *** pub/qgnus/texi/gnus.texi Wed Sep 17 03:33:41 1997 --- qgnus/texi/gnus.texi Thu Sep 18 05:01:03 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Quassia Gnus 0.6 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Quassia Gnus 0.7 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 309,315 **** @tex @titlepage ! @title Quassia Gnus 0.6 Manual @author by Lars Magne Ingebrigtsen @page --- 309,315 ---- @tex @titlepage ! @title Quassia Gnus 0.7 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 345,351 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Quassia Gnus 0.6. @end ifinfo --- 345,351 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Quassia Gnus 0.7. @end ifinfo *************** *** 6198,6204 **** (Typically offensive jokes and such.) It's commonly called ``rot13'' because each letter is rotated 13 ! positions in the alphabet, e. g. @samp{B} (letter #2) -> @sam{O} (letter #15). It is sometimes referred to as ``Caesar rotate'' because Caesar is rumoured to have employed this form of, uh, somewhat weak encryption. --- 6198,6204 ---- (Typically offensive jokes and such.) It's commonly called ``rot13'' because each letter is rotated 13 ! positions in the alphabet, e. g. @samp{B} (letter #2) -> @samp{O} (letter #15). It is sometimes referred to as ``Caesar rotate'' because Caesar is rumoured to have employed this form of, uh, somewhat weak encryption. *************** *** 10890,10896 **** @itemize @bullet @item ! First, set ut Gnus as you would do if you were running it on a machine that has full connection to the net. Go ahead. I'll still be waiting here. --- 10890,10896 ---- @itemize @bullet @item ! First, set up Gnus as you would do if you were running it on a machine that has full connection to the net. Go ahead. I'll still be waiting here. *************** *** 10920,10926 **** @node Agent Basics @subsection Agent Basics ! First, let's get some terminilogy out of the way. The Gnus Agent is said to be @dfn{unplugged} when you have severed the connection to the net (and notified the Agent that this is the case). --- 10920,10926 ---- @node Agent Basics @subsection Agent Basics ! First, let's get some terminology out of the way. The Gnus Agent is said to be @dfn{unplugged} when you have severed the connection to the net (and notified the Agent that this is the case). *************** *** 10986,10992 **** @node Agent Categories @subsection Agent Categories ! On of the main reasons to integrate the news transport layer into the newsreader is to allow greater control over what articles to download. There's not much point in downloading huge amounts of articles, just to find out that you're not interested in reading any of them. It's better --- 10986,10992 ---- @node Agent Categories @subsection Agent Categories ! One of the main reasons to integrate the news transport layer into the newsreader is to allow greater control over what articles to download. There's not much point in downloading huge amounts of articles, just to find out that you're not interested in reading any of them. It's better *************** *** 11076,11082 **** @item spam True iff the Gnus Agent guesses that the article is spam. The heuristics may change over time, but at present it just computes a ! checksum and see whether articles match. @item true Always true. --- 11076,11082 ---- @item spam True iff the Gnus Agent guesses that the article is spam. The heuristics may change over time, but at present it just computes a ! checksum and sees whether articles match. @item true Always true. *************** *** 11092,11098 **** Now, the syntax of the download score is the same as the syntax of normal score files, except that all elements that require actually ! seeing the article itself is verboten. This means that only the following headers can be scored on: @code{From}, @code{Subject}, @code{Date}, @code{Xref}, @code{Lines}, @code{Chars}, @code{Message-ID}, and @code{References}. --- 11092,11098 ---- Now, the syntax of the download score is the same as the syntax of normal score files, except that all elements that require actually ! seeing the article itself are verboten. This means that only the following headers can be scored on: @code{From}, @code{Subject}, @code{Date}, @code{Xref}, @code{Lines}, @code{Chars}, @code{Message-ID}, and @code{References}. *************** *** 11202,11208 **** @node Agent Commands @subsection Agent Commands ! All the Gnus Agent commands is on the @kbd{J} submap. The @kbd{J j} (@code{gnus-agent-toggle-plugged} command works in all modes, and toggles the plugged/unplugged state of the Gnus Agent. --- 11202,11208 ---- @node Agent Commands @subsection Agent Commands ! All the Gnus Agent commands are on the @kbd{J} submap. The @kbd{J j} (@code{gnus-agent-toggle-plugged} command works in all modes, and toggles the plugged/unplugged state of the Gnus Agent. *** pub/qgnus/texi/message.texi Wed Sep 17 03:33:41 1997 --- qgnus/texi/message.texi Thu Sep 18 05:01:04 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 0.6 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 0.7 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 0.6 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 0.7 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 79,85 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 0.6. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 79,85 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 0.7. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *** pub/qgnus/texi/ChangeLog Wed Sep 17 03:33:42 1997 --- qgnus/texi/ChangeLog Thu Sep 18 05:01:04 1997 *************** *** 1,3 **** --- 1,7 ---- + 1997-09-16 SL Baur + + * gnus.texi: Correct typo. + Wed Sep 17 02:32:56 1997 Lars Magne Ingebrigtsen * gnus.texi (Customizing Threading): Broken up into five nodes. *** pub/qgnus/texi/dir Wed Jun 18 00:54:19 1997 --- qgnus/texi/dir Sat Jul 12 19:54:27 1997 *************** *** 0 **** --- 1,11 ---- + -*- Text -*- + The Gnus-related top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob. + * Widget: (widget). The Widget library. + * Custom: (custom). The Custom library.