From: Filipp Gunbin <fgunbin@fastmail.fm>
Date: Fri, 22 Nov 2019 17:49:02 +0000 (+0300)
Subject: Check gnus-mailing-list-groups in turn-on-gnus-mailing-list-mode
X-Git-Tag: emacs-27.0.90~549
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b4eec3169690dab5ffa5027770893fff87f505f;p=emacs.git

Check gnus-mailing-list-groups in turn-on-gnus-mailing-list-mode

* lisp/gnus/gnus-ml.el (turn-on-gnus-mailing-list-mode): Check also
gnus-mailing-list-groups variable.
---

diff --git a/lisp/gnus/gnus-ml.el b/lisp/gnus/gnus-ml.el
index d68d0771ad4..ce04a15d671 100644
--- a/lisp/gnus/gnus-ml.el
+++ b/lisp/gnus/gnus-ml.el
@@ -58,7 +58,9 @@
 
 ;;;###autoload
 (defun turn-on-gnus-mailing-list-mode ()
-  (when (gnus-group-find-parameter gnus-newsgroup-name 'to-list)
+  (when (or (gnus-group-find-parameter gnus-newsgroup-name 'to-list)
+            (and gnus-mailing-list-groups
+                 (string-match gnus-mailing-list-groups gnus-newsgroup-name)))
     (gnus-mailing-list-mode 1)))
 
 ;;;###autoload