* gnus-ml.el (gnus-mailing-list-archive): Use browse-url.
+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.
(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