From 747f74b5f1de09e238c936b45a4abb2b31b9880d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 7 Jan 1999 22:44:24 +0000 Subject: [PATCH] ;; Commit by OKUNISHI-san by way of yamaoka. * mime-view.el (mime-view-insert-entity-button): Use URL if it exists in Content-Type field. * mime-play.el (mime-raw-browse-url-function): Default to `mime-browse-url-function' instead of `mime-browse-url'. --- ChangeLog | 8 ++++++++ mime-play.el | 2 +- mime-view.el | 8 ++++++-- 3 files changed, 15 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1c993a6..448919a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +1999-01-04 OKUNISHI Fujikazu + + * mime-view.el (mime-view-insert-entity-button): Use URL if it + exists in Content-Type field. + + * mime-play.el (mime-raw-browse-url-function): Default to + `mime-browse-url-function' instead of `mime-browse-url'. + 1998-12-24 Katsumi Yamaoka * mime-view.el (mime-preview-move-to-next): Don't move forward at diff --git a/mime-play.el b/mime-play.el index 11f904b..bf2b19b 100644 --- a/mime-play.el +++ b/mime-play.el @@ -679,7 +679,7 @@ It is registered to variable `mime-preview-quitting-method-alist'." (search-forward name) )) -(defvar mime-raw-browse-url-function (function mime-browse-url)) +(defvar mime-raw-browse-url-function mime-browse-url-function) (defun mime-view-message/external-url (entity cal) (let ((url (cdr (assoc "url" cal)))) diff --git a/mime-view.el b/mime-view.el index 08f9e0e..82151a3 100644 --- a/mime-view.el +++ b/mime-view.el @@ -256,9 +256,13 @@ Please redefine this function if you want to change default setting." num subject access-type (cdr server)) (let ((site (cdr (assoc "site" params))) (dir (cdr (assoc "directory" params))) + (url (cdr (assoc "url" params))) ) - (format "%s %s ([%s] %s:%s)" - num subject access-type site dir) + (if url + (format "%s %s ([%s] %s)" + num subject access-type url) + (format "%s %s ([%s] %s:%s)" + num subject access-type site dir)) ))) ) (t -- 1.7.10.4