(gnus-summary-respool-query): Don't narrow to head,

it's done by nnmail-article-group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 360088e..1229811 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-10-12  Jesper Harder  <harder@ifa.au.dk>
 
+       * gnus-sum.el (gnus-summary-respool-query): Don't narrow to head,
+       it's done by nnmail-article-group.
+
        * gnus-uu.el (gnus-uu-grab-articles): Fix misplaced parens.
        From Mark Hood <markhood@speakeasy.net> (tiny change)
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 69a6853..3b10e30 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9476,15 +9476,13 @@ groups."
     (gnus-summary-select-article)
     (save-excursion
       (set-buffer gnus-original-article-buffer)
-      (save-restriction
-       (message-narrow-to-head)
-       (let ((groups (nnmail-article-group 'identity trace)))
-         (unless silent
-           (if groups
-               (message "This message would go to %s"
-                        (mapconcat 'car groups ", "))
-             (message "This message would go to no groups"))
-           groups))))))
+      (let ((groups (nnmail-article-group 'identity trace)))
+       (unless silent
+         (if groups
+             (message "This message would go to %s"
+                      (mapconcat 'car groups ", "))
+           (message "This message would go to no groups"))
+         groups)))))
 
 (defun gnus-summary-respool-trace ()
   "Trace where the respool algorithm would put this article.