From 5a1c743fef6f8e7f02e9d9461a0ab0202d0df96f Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Mon, 20 Nov 2000 22:44:44 +0000 Subject: [PATCH] 2000-11-20 18:00:00 ShengHuo ZHU * gnus-ml.el (gnus-mailing-list-archive): Use browse-url. --- lisp/ChangeLog | 4 ++++ lisp/gnus-ml.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 499b94dae..73682a7b8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-11-20 18:00:00 ShengHuo ZHU + + * gnus-ml.el (gnus-mailing-list-archive): Use browse-url. + 2000-11-20 17:00:00 ShengHuo ZHU * gnus-art.el (gnus-article-make-menu-bar): Use easy-menu-add. diff --git a/lisp/gnus-ml.el b/lisp/gnus-ml.el index 6dbcfa29d..52c4442ba 100644 --- a/lisp/gnus-ml.el +++ b/lisp/gnus-ml.el @@ -137,11 +137,12 @@ (defun gnus-mailing-list-archive () "Browse archive" (interactive) + (require 'browse-url) (let ((list-archive (with-current-buffer gnus-original-article-buffer (gnus-fetch-field "list-archive")))) - (cond (list-archive (gnus-mailing-list-message list-archive)) - (t (gnus-message 1 "no list-owner in this group"))))) + (cond (list-archive (browse-url list-archive)) + (t (gnus-message 1 "no list-archive in this group"))))) ;;; Utility functions -- 2.25.1