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