(gnus-summary-move-article): Make gnus-summary-respool-article work.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04e31db..1cdebc8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,14 @@
+2007-07-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-sum.el (gnus-summary-move-article): Make
+       gnus-summary-respool-article work.
+
 2007-07-21  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * mm-uu.el (mm-uu-type-alist): Refer to mm-uu-configure-list in doc
        string.
 
-2007-07-20  Micha\e,Ak\e(Bl Cadilhac <michael@cadilhac.name>
+2007-07-20  Micha\e,Ak\e(Bl Cadilhac  <michael@cadilhac.name>
 
        * nnrss.el (nnrss-ignore-article-fields): New variable.  List of fields
        that should be ignored when comparing distant RSS articles with local

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 707ad3b..57398f1 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9536,10 +9536,12 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
       (setq to-method (or select-method
                          (gnus-server-to-method
                           (gnus-group-method to-newsgroup)))))
-    (setq to-newsgroup (or encoded
-                          (mm-encode-coding-string
-                           to-newsgroup
-                           (gnus-group-name-charset to-method to-newsgroup))))
+    (setq to-newsgroup
+         (or encoded
+             (and to-newsgroup
+                  (mm-encode-coding-string
+                   to-newsgroup
+                   (gnus-group-name-charset to-method to-newsgroup)))))
     ;; Check the method we are to move this article to...
     (unless (gnus-check-backend-function
             'request-accept-article (car to-method))
@@ -9562,8 +9564,8 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
         (gnus-dup-unsuppress-article article)
         (let* ((from-method (gnus-find-method-for-group
                              gnus-newsgroup-name))
-               (to-method (gnus-find-method-for-group
-                           to-newsgroup))
+               (to-method (or select-method
+                              (gnus-find-method-for-group to-newsgroup)))
                (move-is-internal (gnus-method-equal from-method to-method)))
           (gnus-request-move-article
            article                     ; Article to move