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." | |||
| 150 | (with-current-buffer gnus-original-article-buffer | 150 | (with-current-buffer gnus-original-article-buffer |
| 151 | (gnus-fetch-field "list-archive")))) | 151 | (gnus-fetch-field "list-archive")))) |
| 152 | (cond (list-archive | 152 | (cond (list-archive |
| 153 | (if (string-match "<\\(http:[^>]*\\)>" list-archive) | 153 | (if (string-match "<\\(https?:[^>]*\\)>" list-archive) |
| 154 | (browse-url (match-string 1 list-archive)) | 154 | (browse-url (match-string 1 list-archive)) |
| 155 | (browse-url list-archive))) | 155 | (browse-url list-archive))) |
| 156 | (t (gnus-message 1 "no list-archive in this group"))))) | 156 | (t (gnus-message 1 "no list-archive in this group"))))) |