(gnus-article-read-summary-keys): Protect against the key being bound to a lambda...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a6e204a..20a586e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (gnus-article-read-summary-keys): Protect against the key
+       being bound to a lambda form.
+
 2012-04-14  Wolfgang Jenkner  <wjenkner@inode.at>
 
        * gnus-agent.el (gnus-agent-retrieve-headers): Recalculate the range of

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index c673ccc..b92c3b6 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6525,7 +6525,8 @@ not have a face in `gnus-article-boring-faces'."
            (ding)
          (unless (member keys nosave-in-article)
            (set-buffer gnus-article-current-summary))
-         (when (get func 'disabled)
+         (when (and (symbolp func)
+                    (get func 'disabled))
            (error "Function %s disabled" func))
          (call-interactively func)
          (setq new-sum-point (point)))