gnus-registry.el (gnus-registry-install-shortcuts): Explicitly pass `obarray' to...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 35259af..5a73879 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -10,6 +10,13 @@
        cb950ed8ff3e0f40dac437a51b269166f9ffb60d, since some of the changes
        seem problematic.
 
+2010-09-14  Juanma Barranquero  <lekktu@gmail.com>
+
+       * gnus-registry.el (gnus-registry-install-shortcuts):
+       Explicitly pass `obarray' to `unintern' to avoid a warning.
+
+2010-09-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
        * gnus-start.el (gnus-read-active-for-groups): Reverted the previous
        change.
 

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 5f94582..8ba6c16 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -783,7 +783,7 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
                  (function-name (format function-format variant-name))
                  (shortcut (format "%c" data))
                  (shortcut (if remove (upcase shortcut) shortcut)))
-            (unintern function-name)
+            (unintern function-name obarray)
             (eval
              `(defun
                 ;; function name