From: Filipp Gunbin <fgunbin@fastmail.fm>
Date: Fri, 22 Nov 2019 17:37:27 +0000 (+0300)
Subject: Make gnus-mailing-list-archive recognize https
X-Git-Tag: emacs-27.0.90~550
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6df8900af625f5375e6970eaf86d5d296f15022a;p=emacs.git

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 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")))))