diff options
| -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 |