Merge bugfixes done in Gnus trunk

Those changes fix only the bugs having appeared in the bug list.
Many other Gnus changes not yet merged to Emacs are in:
   ftp://ftp.jpl.org/pub/tmp/MaGnus-to-Emacs.patch
(or http://www.jpl.org/ftp/pub/tmp/MaGnus-to-Emacs.patch)

2012-06-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-group.el (gnus-group-get-new-news): Respect
  `gnus-group-use-permanent-levels', as documented (bug#11638).
2012-06-10 Dave Abrahams <dave@boostpro.com>
* gnus-int.el (gnus-warp-to-article): Limit registry warping to real
  groups (bug#11641).

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index df3fa715751e4edd97171e08597a2cb3a04f24dd..aefb2a61683d60f19c5d4dda49b784baf25c8352 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,13 @@
+2012-06-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-group.el (gnus-group-get-new-news): Respect
+       `gnus-group-use-permanent-levels', as documented (bug#11638).
+
+2012-06-10  Dave Abrahams  <dave@boostpro.com>
+
+       * gnus-int.el (gnus-warp-to-article): Limit registry warping to real
+       groups (bug#11641).
+
 2012-06-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-msg.el (gnus-msg-mail): Warn the user about Gnus not running

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index f97d9a69eae25b60cd5163fcf1f48fcb2f5f981c..ff41f13de3041788b312d519da6e4fe7d63e9e80 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -4032,7 +4032,7 @@ re-scanning.  If ARG is non-nil and not a number, this will force
     (unless gnus-slave
       (gnus-master-read-slave-newsrc))
 
-    (gnus-get-unread-articles arg)
+    (gnus-get-unread-articles (gnus-group-default-level arg t))
 
     ;; If the user wants it, we scan for new groups.
     (when (eq gnus-check-new-newsgroups 'always)

diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index 1190d79f778d09fe9bbfd13a989a68d22658dfc1..52a8520a2526bd41634efecd74b734f8a3ab20b5 100644 (file)
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -537,11 +537,12 @@ If BUFFER, insert the article in that group."
   "Warps from an article in a virtual group to the article in its
 real group. Does nothing on a real group."
   (interactive)
-  (let ((gnus-command-method
-        (gnus-find-method-for-group gnus-newsgroup-name)))
-    (when (gnus-check-backend-function
-          'warp-to-article (car gnus-command-method))
-      (funcall (gnus-get-function gnus-command-method 'warp-to-article)))))
+  (when (gnus-virtual-group-p gnus-newsgroup-name)
+    (let ((gnus-command-method
+          (gnus-find-method-for-group gnus-newsgroup-name)))
+      (when (gnus-check-backend-function
+            'warp-to-article (car gnus-command-method))
+       (funcall (gnus-get-function gnus-command-method 'warp-to-article))))))
 
 (defun gnus-request-head (article group)
   "Request the head of ARTICLE in GROUP."