update.

[elisp/semi.git] / mime-view.el

diff --git a/mime-view.el b/mime-view.el
index 2804365..a5396cc 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -27,6 +27,7 @@
 
 ;;; Code:
 
+(require 'emu)
 (require 'mime)
 (require 'semi-def)
 (require 'calist)
@@ -256,9 +257,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
@@ -938,7 +943,7 @@ to it.  If it is a function, it will be bound as default binding of
 keymap of MIME-View mode.
 Optional argument REPRESENTATION-TYPE is representation-type of
 message.  It must be nil, `binary' or `cooked'.  If it is nil,
-`binary' is used as default."
+`cooked' is used as default."
   (interactive)
   (or raw-buffer
       (setq raw-buffer (current-buffer)))
@@ -1148,7 +1153,7 @@ It calls following-method selected from variable
                    ))
              (setq rest (cdr rest))
              ))
-         (eword-decode-header)
+         (mime-decode-header-in-buffer)
          )
        (let ((f (cdr (assq mode mime-preview-following-method-alist))))
          (if (functionp f)
@@ -1213,7 +1218,8 @@ variable `mime-preview-over-to-previous-method-alist'."
 If there is no previous entity, it calls function registered in
 variable `mime-preview-over-to-next-method-alist'."
   (interactive)
-  (while (null (get-text-property (point) 'mime-view-entity))
+  (while (and (not (eobp))
+             (null (get-text-property (point) 'mime-view-entity)))
     (forward-char)
     )
   (let ((point (next-single-property-change (point) 'mime-view-entity)))