From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Mon, 13 Apr 2015 23:42:18 +0000 (+0000)
Subject: Use gmm-called-interactively-p in Gnus
X-Git-Tag: emacs-25.0.90~2438
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56dfd3de9c63dbb6325129de8e38c420808146c9;p=emacs.git

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 47cdcbc50ac..656ef80cc63 100644
--- 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)