Use gmm-called-interactively-p in Gnus

* lisp/gnus/gnus-topic.el (gnus-topic-mode): Use gmm-called-interactively-p.

diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el
index 47cdcbc50ac512d95099c4de7b48844c3bfdbb08..656ef80cc63ab2a1cec049898ddabd76b97d1c9d 100644 (file)
--- a/lisp/gnus/gnus-topic.el
+++ b/lisp/gnus/gnus-topic.el
@@ -1167,7 +1167,7 @@ articles in the topic and its subtopics."
       (remove-hook 'gnus-check-bogus-groups-hook 'gnus-topic-clean-alist)
       (setq gnus-group-prepare-function 'gnus-group-prepare-flat)
       (setq gnus-group-sort-alist-function 'gnus-group-sort-flat))
-    (when (called-interactively-p 'any)
+    (when (gmm-called-interactively-p 'any)
       (gnus-group-list-groups))))
 
 (defun gnus-topic-select-group (&optional all)