2000-11-20 18:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-ml.el (gnus-mailing-list-archive): Use browse-url.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 499b94d..73682a7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-20 18:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-ml.el (gnus-mailing-list-archive): Use browse-url.
+
 2000-11-20 17:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * 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 6dbcfa2..52c4442 100644 (file)
--- 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