+Thu Sep 18 04:54:59 1997 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Quassia Gnus v0.7 is released.
+
+Thu Sep 18 03:33:54 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * 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 <larsi@ifi.uio.no>
+
+ * 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 <larsi@menja.ifi.uio.no>
* gnus.el: Quassia Gnus v0.6 is released.
(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))))
+ (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."
(unless gnus-plugged
(error "Can't fetch articles while Gnus is unplugged"))
(let ((methods gnus-agent-covered-methods)
- method groups group)
+ groups group gnus-command-method)
(save-excursion
(while methods
- (setq method (car 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 method))))
+ (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)
(add-hook 'message-header-setup-hook 'gnus-inews-insert-gcc)
(add-hook 'message-header-setup-hook 'gnus-inews-insert-archive-gcc)
(unwind-protect
- ,@forms
+ (progn
+ ,@forms)
(gnus-inews-add-send-actions ,winconf ,buffer ,article)
(setq gnus-message-buffer (current-buffer))
(make-local-variable 'gnus-newsgroup-name)
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
-(defconst gnus-version-number "0.6"
+(defconst gnus-version-number "0.7"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number)
(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)
(nnoo-declare nndraft
nnmh)
-(defvoo nndraft-directory (nnheader-concat message-directory "message-drafts/")
+(defvoo nndraft-directory (nnheader-concat gnus-directory "drafts/")
"Where nndraft will store its files."
nnmh-current-directory)
article file)
(nnheader-temp-write nil
(insert-buffer buf)
- (setq article (cdr (nndraft-request-accept-article
- group (nnoo-current-server 'nndraft) t 'noinsert)))
+ (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))
(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))
(if (stringp group)
(and
(nnmail-activate 'nnmh)
- (car (nnmh-save-mail
- (list (cons group (nnmh-active-number group)))
- noinsert)))
+ (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)))
"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
+1997-09-16 SL Baur <steve@altair.xemacs.org>
+
+ * gnus.texi: Correct typo.
+
Wed Sep 17 02:32:56 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* gnus.texi (Customizing Threading): Broken up into five nodes.
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Quassia Gnus 0.6 Manual
+@settitle Quassia Gnus 0.7 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Quassia Gnus 0.6 Manual
+@title Quassia Gnus 0.7 Manual
@author by Lars Magne Ingebrigtsen
@page
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.
+This manual corresponds to Quassia Gnus 0.7.
@end ifinfo
(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
+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.
@itemize @bullet
@item
-First, set ut Gnus as you would do if you were running it on a machine
+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.
@node Agent Basics
@subsection Agent Basics
-First, let's get some terminilogy out of the way.
+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).
@node Agent Categories
@subsection Agent Categories
-On of the main reasons to integrate the news transport layer into the
+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
@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.
+checksum and sees whether articles match.
@item true
Always true.
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
+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}.
@node Agent Commands
@subsection Agent Commands
-All the Gnus Agent commands is on the @kbd{J} submap. The @kbd{J j}
+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.
\input texinfo @c -*-texinfo-*-
@setfilename message
-@settitle Message 0.6 Manual
+@settitle Message 0.7 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Message 0.6 Manual
+@title Message 0.7 Manual
@author by Lars Magne Ingebrigtsen
@page
* Key Index:: List of Message mode keys.
@end menu
-This manual corresponds to Message 0.6. Message is distributed with
+This manual corresponds to Message 0.7. Message is distributed with
the Gnus distribution bearing the same version number as this manual
has.
* `C-u C-c C-c' should avoid highlighting after editing an article.
* nntp-rlogin-program -- new variable.
+
+* have `C-u C-c C-c' work in nnvirtual groups -- post using
+the same server as the article came from.