;; 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 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+1999-01-04  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+       * 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   <yamaoka@jpl.org>
 
        * 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 (file)
--- 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 (file)
--- 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