diff options
| author | Filipp Gunbin <fgunbin@fastmail.fm> | 2019-11-22 20:37:27 +0300 |
|---|---|---|
| committer | Filipp Gunbin <fgunbin@fastmail.fm> | 2019-11-22 20:37:27 +0300 |
| commit | 6df8900af625f5375e6970eaf86d5d296f15022a (patch) | |
| tree | 0c7d71ba6e972b4c0f492b178e4e8842b64c6c27 | |
| parent | d3f0cf7404064ecb937036254b4cca3141e7095b (diff) | |
| download | emacs-6df8900af625f5375e6970eaf86d5d296f15022a.tar.gz | |
Make gnus-mailing-list-archive recognize https
* /lisp/gnus/gnus-ml.el (gnus-mailing-list-archive): Accept https in
regexp.
| -rw-r--r-- | lisp/gnus/gnus-ml.el | 2 |
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"))))) |