From 6df8900af625f5375e6970eaf86d5d296f15022a Mon Sep 17 00:00:00 2001 From: Filipp Gunbin Date: Fri, 22 Nov 2019 20:37:27 +0300 Subject: [PATCH] Make gnus-mailing-list-archive recognize https * /lisp/gnus/gnus-ml.el (gnus-mailing-list-archive): Accept https in regexp. --- lisp/gnus/gnus-ml.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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"))))) -- 2.39.5