diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2022-05-04 12:54:37 -0700 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2022-05-04 12:54:37 -0700 |
| commit | 2b50dbb1a51054f8b6b1214db9dd0a69dd342c93 (patch) | |
| tree | b27d308cccda796f1d5510f627b43a9c07927ac8 | |
| parent | 78df8a0e3d3cce35fbcc972a62200a9da506a0a1 (diff) | |
| download | emacs-2b50dbb1a51054f8b6b1214db9dd0a69dd342c93.tar.gz | |
Remove bogus mode check from gnus topic update functions
* lisp/gnus/gnus-topic.el (gnus-topic-update-topics-containing-group):
(gnus-topic-update-topic): These functions originally checked to see
if we were in group mode, but later that check was changed to
'gnus-topic-mode, which never passes because 'gnus-topic-mode isn't a
major mode. Revert to checking for 'gnus-group-mode, and use
`derived-mode-p' while we're at it.
| -rw-r--r-- | lisp/gnus/gnus-topic.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el index 479bba3a73d..36b97acec85 100644 --- a/lisp/gnus/gnus-topic.el +++ b/lisp/gnus/gnus-topic.el @@ -678,7 +678,7 @@ articles in the topic and its subtopics." (defun gnus-topic-update-topics-containing-group (group) "Update all topics that have GROUP as a member." - (when (and (eq major-mode 'gnus-topic-mode) + (when (and (derived-mode-p 'gnus-group-mode) gnus-topic-mode) (save-excursion (let ((alist gnus-topic-alist)) @@ -694,7 +694,7 @@ articles in the topic and its subtopics." (defun gnus-topic-update-topic () "Update all parent topics to the current group." - (when (and (eq major-mode 'gnus-topic-mode) + (when (and (derived-mode-p 'gnus-group-mode) gnus-topic-mode) (let ((group (gnus-group-group-name)) (m (point-marker)) |