*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b501302..e49b3a1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,24 @@
+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.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index e879b24..8d40bcb 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -267,8 +267,9 @@ agent minor mode in all Gnus buffers."
   (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."
@@ -757,14 +758,14 @@ the actual number of articles toggled is returned."
   (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)

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 2cd789b..ab4a578 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -172,7 +172,8 @@ Thank you for your help in stamping out bugs.
        (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)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index d7d0c90..a0f59c1 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -244,7 +244,7 @@ is restarted, and sometimes reloaded."
   :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)

diff --git a/lisp/message.el b/lisp/message.el
index 41351b6..5e896ec 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1243,7 +1243,6 @@ C-c C-r  message-caesar-buffer-body (rot13 the message body)."
   (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)

diff --git a/lisp/nndraft.el b/lisp/nndraft.el
index 37e9ab4..3d34ca4 100644 (file)
--- a/lisp/nndraft.el
+++ b/lisp/nndraft.el
@@ -35,7 +35,7 @@
 (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)
 
@@ -151,8 +151,8 @@
         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))
@@ -218,6 +218,7 @@
 
 (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))

diff --git a/lisp/nnmh.el b/lisp/nnmh.el
index d5bd4f0..34ecb00 100644 (file)
--- a/lisp/nnmh.el
+++ b/lisp/nnmh.el
@@ -303,9 +303,11 @@
       (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)))
@@ -453,8 +455,6 @@
   "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

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 7fe16f6..95db752 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+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. 

diff --git a/texi/gnus.texi b/texi/gnus.texi
index ec316b9..4488344 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \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
@@ -309,7 +309,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Quassia Gnus 0.6 Manual
+@title Quassia Gnus 0.7 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -345,7 +345,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
 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
 
@@ -6198,7 +6198,7 @@ Unreadable articles that tell you to read them with Caesar rotate or rot13.
 (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.
 
@@ -10890,7 +10890,7 @@ Using Gnus as an ``offline'' newsreader is quite simple.
 
 @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.
 
@@ -10920,7 +10920,7 @@ Of course, to use it as such, you have to learn a few new commands.
 @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).
@@ -10986,7 +10986,7 @@ Uhm... that's it.
 @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
@@ -11076,7 +11076,7 @@ True iff the article has a download score greater than
 @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.
@@ -11092,7 +11092,7 @@ useful values.
 
 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}.
@@ -11202,7 +11202,7 @@ Articles that have a score higher than this have a high score.  Default
 @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.
 

diff --git a/texi/message.texi b/texi/message.texi
index 436697d..9e8fbfe 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \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
@@ -39,7 +39,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Message 0.6 Manual
+@title Message 0.7 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -79,7 +79,7 @@ buffers.
 * 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. 
 

diff --git a/todo b/todo
index b95d1f6..6ef1f95 100644 (file)
--- a/todo
+++ b/todo
@@ -759,3 +759,6 @@ home-brewed stuff for better reliability.
 * `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.