*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c84ea00..3d22892 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,15 @@
+Sun Apr  7 01:11:57 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+
+       * nnvirtual.el (nnvirtual-close-group): Don't nix out
+       group-relevant variables.
+
+       * message.el (message-send-and-exit): Would choke on sending bug
+       reports. 
+
 Sat Apr  6 19:03:10 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
 
+       * gnus.el: September Gnus v0.65 is released.
+
        * nnvirtual.el (nnvirtual-close-group): Don't update component
        groups so much.
 

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 92d59b1..d25fbde 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1695,7 +1695,7 @@ variable (string, integer, character, etc).")
   "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
   "The mail address of the Gnus maintainers.")
 
-(defconst gnus-version "September Gnus v0.65"
+(defconst gnus-version "September Gnus v0.66"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes

diff --git a/lisp/message.el b/lisp/message.el
index 6492379..757f28b 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -979,7 +979,8 @@ The text will also be indented the normal way."
   "Send message like `message-send', then, if no errors, exit from mail buffer."
   (interactive "P")
   (let ((buf (current-buffer)))
-    (when (message-send arg)
+    (when (and (message-send arg)
+              (buffer-name buf))
       (bury-buffer buf)
       (when (eq buf (current-buffer))
        (message-bury buf)))))

diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el
index f61a063..11e35f1 100644 (file)
--- a/lisp/nnvirtual.el
+++ b/lisp/nnvirtual.el
@@ -228,13 +228,7 @@ virtual group.")
     (nnvirtual-update-reads)
     ;; We copy the marks from this group to the component
     ;; groups here.
-    (nnvirtual-update-marked)
-    ;; Reset all relevant variables.
-    (setq nnvirtual-current-group nil
-         nnvirtual-component-groups nil
-         nnvirtual-mapping nil)
-    (setq nnvirtual-group-alist 
-         (delq (assoc group nnvirtual-group-alist) nnvirtual-group-alist)))
+    (nnvirtual-update-marked))
   t)
     
 (defun nnvirtual-request-list (&optional server)