diff options
| author | Filipp Gunbin <fgunbin@fastmail.fm> | 2019-11-22 20:49:02 +0300 |
|---|---|---|
| committer | Filipp Gunbin <fgunbin@fastmail.fm> | 2019-11-22 20:49:02 +0300 |
| commit | 0b4eec3169690dab5ffa5027770893fff87f505f (patch) | |
| tree | 656984c61cac041ac135186a58f3c70fb3a3ed83 | |
| parent | 6df8900af625f5375e6970eaf86d5d296f15022a (diff) | |
| download | emacs-0b4eec3169690dab5ffa5027770893fff87f505f.tar.gz | |
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.
| -rw-r--r-- | lisp/gnus/gnus-ml.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |