Make gnus-mailing-list-archive recognize https

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

diff --git a/lisp/gnus/gnus-ml.el b/lisp/gnus/gnus-ml.el
index 488c01c21cd424bbb9c435b0637e2cf740782be6..d68d0771ad48c34ce7220a9ec7e4a2f4f5336604 100644 (file)
--- 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")))))