Make gnus-mailing-list-archive recognize https

* /lisp/gnus/gnus-ml.el (gnus-mailing-list-archive): Accept https in
regexp.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/gnus/gnus-ml.el b/lisp/gnus/gnus-ml.el
index 488c01c21cd..d68d0771ad4 100644
--- a/lisp/gnus/gnus-ml.el
+++ b/lisp/gnus/gnus-ml.el
@@ -150,7 +150,7 @@ If FORCE is non-nil, replace the old ones."
          (with-current-buffer gnus-original-article-buffer
            (gnus-fetch-field "list-archive"))))
     (cond (list-archive
-           (if (string-match "<\\(http:[^>]*\\)>" list-archive)
+           (if (string-match "<\\(https?:[^>]*\\)>" list-archive)
                (browse-url (match-string 1 list-archive))
              (browse-url list-archive)))
           (t (gnus-message 1 "no list-archive in this group")))))