(gnus-valid-move-group-p): Make sure that `group' is a symbol.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d013c2a..28a598d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-sum.el (gnus-valid-move-group-p): Make sure that `group' is a
+       symbol.
+
        * nnimap.el (nnimap-open-connection): Revert the auto-network->starttls
        code, since if the user has requested network, that's what they ought
        to get.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 59b9682..4cd7168 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -11900,7 +11900,8 @@ save those articles instead."
     (nreverse split-name)))
 
 (defun gnus-valid-move-group-p (group)
-  (and (boundp group)
+  (and (symbolp group)
+       (boundp group)
        (symbol-name group)
        (symbol-value group)
        (gnus-get-function (gnus-find-method-for-group