From: yamaoka Date: Thu, 7 Jan 1999 22:43:36 +0000 (+0000) Subject: ;; Commit by OKUNISHI-san by way of yamaoka. X-Git-Tag: semi-1_12-199901081900 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d0e250a8fbc281a6301bc1c90f5295ad86d350fb;p=elisp%2Fsemi.git ;; 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'. --- diff --git a/ChangeLog b/ChangeLog index e2f7c95..229499f 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 b4b1d8f..8f1e775 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