2001-10-05 Simon Josefsson <jas@extundo.com>

	* gnus-sum.el (gnus-summary-move-article): Also activate new groups.

	* nnfolder.el (nnfolder-normalize-buffer): Don't insert \n\n in
	empty folders.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e55c708..262a5f8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2001-10-05  Simon Josefsson  <jas@extundo.com>
 
+       * gnus-sum.el (gnus-summary-move-article): Also activate new groups.
+
+       * nnfolder.el (nnfolder-normalize-buffer): Don't insert \n\n in
+       empty folders.
+
        * gnus-sum.el (gnus-select-newsgroup): Don't enable `display'
        limiting if read-all (C-u RET) was used.
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 3639f09..abb39a9 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8180,12 +8180,10 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
          (gnus-summary-mark-article article gnus-canceled-mark))))
       (gnus-summary-remove-process-mark article))
     ;; Re-activate all groups that have been moved to.
-    (while to-groups
-      (save-excursion
-       (set-buffer gnus-group-buffer)
-       (when (gnus-group-goto-group (car to-groups) t)
-         (gnus-group-get-new-news-this-group 1 t))
-       (pop to-groups)))
+    (save-excursion
+      (set-buffer gnus-group-buffer)
+      (let ((gnus-group-marked to-groups))
+       (gnus-group-get-new-news-this-group nil t)))
 
     (gnus-kill-buffer copy-buf)
     (gnus-summary-position-point)

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index b1c45b5..683758f 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -789,7 +789,8 @@ deleted.  Point is left where the deleted region was."
   (goto-char (point-max))
   (skip-chars-backward "\n")
   (delete-region (point) (point-max))
-  (insert "\n\n"))
+  (unless (bobp)
+    (insert "\n\n")))
 
 (defun nnfolder-insert-newsgroup-line (group-art)
   (save-excursion