From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Tue, 4 Mar 1997 08:47:30 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=490293c9e5b009001a3ce857379892b37b9ab93c;p=gnus

*** empty log message ***
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c84ea0017..3d22892ee 100644
--- 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 92d59b16d..d25fbde7f 100644
--- 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 649237946..757f28be0 100644
--- 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 f61a0632e..11e35f199 100644
--- 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)