; * lisp/gnus/gnus-sum.el (gnus-summary-move-article): Just setq

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 9a632922deb359d822befd0081c4c70b409d8a45..16a85cefcc7b15cdc8b0ec4e8d6b217eb4620462 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -10265,7 +10265,7 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
               article gnus-newsgroup-name (current-buffer) t)))
 
          ;; run the move/copy/crosspost/respool hook
-         (set (intern "gnus-current-move-article") (cdr art-group))
+          (setq gnus-current-move-article (cdr art-group))
          (run-hook-with-args 'gnus-summary-article-move-hook
                              action
                              (gnus-data-header (gnus-data-find article))