diff options
| author | Filipp Gunbin | 2019-11-22 20:49:02 +0300 |
|---|---|---|
| committer | Filipp Gunbin | 2019-11-22 20:49:02 +0300 |
| commit | 0b4eec3169690dab5ffa5027770893fff87f505f (patch) | |
| tree | 656984c61cac041ac135186a58f3c70fb3a3ed83 | |
| parent | 6df8900af625f5375e6970eaf86d5d296f15022a (diff) | |
| download | emacs-0b4eec3169690dab5ffa5027770893fff87f505f.tar.gz emacs-0b4eec3169690dab5ffa5027770893fff87f505f.zip | |
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 @@ | |||
| 58 | 58 | ||
| 59 | ;;;###autoload | 59 | ;;;###autoload |
| 60 | (defun turn-on-gnus-mailing-list-mode () | 60 | (defun turn-on-gnus-mailing-list-mode () |
| 61 | (when (gnus-group-find-parameter gnus-newsgroup-name 'to-list) | 61 | (when (or (gnus-group-find-parameter gnus-newsgroup-name 'to-list) |
| 62 | (and gnus-mailing-list-groups | ||
| 63 | (string-match gnus-mailing-list-groups gnus-newsgroup-name))) | ||
| 62 | (gnus-mailing-list-mode 1))) | 64 | (gnus-mailing-list-mode 1))) |
| 63 | 65 | ||
| 64 | ;;;###autoload | 66 | ;;;###autoload |