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 d68d0771ad48c34ce7220a9ec7e4a2f4f5336604..ce04a15d6718fe1f62c634a364c9c4c9600933fa 100644 (file)
--- 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