Commit 6df8900a authored by Filipp Gunbin's avatar Filipp Gunbin

Make gnus-mailing-list-archive recognize https

* /lisp/gnus/gnus-ml.el (gnus-mailing-list-archive): Accept https in
regexp.
parent d3f0cf74
Pipeline #4138 failed with stage
in 75 minutes and 18 seconds
......@@ -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")))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment