* pgg.texi (Registering backend): New section.

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

diff --git a/mime-play.el b/mime-play.el
index 9d023b3..ff06bbf 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -91,15 +91,16 @@ specified, play as it.  Default MODE is \"play\"."
     (setq mime-acting-situation-example-list (cdr ret)
          ret (car ret))
     (cond ((cdr ret)
-          (setq ret (select-menu-alist
-                     "Methods"
-                     (mapcar (function
-                              (lambda (situation)
-                                (cons
-                                 (format "%s"
-                                         (cdr (assq 'method situation)))
-                                 situation)))
-                             ret)))
+          (setq ret (mime-popup-menu-select
+                     (cons 
+                      "Methods"
+                      (mapcar
+                       (lambda (situation)
+                         (vector
+                          (format "%s"
+                                  (cdr (assq 'method situation)))
+                          situation t))
+                       ret))))
           (setq ret (mime-sort-situation ret))
           (add-to-list 'mime-acting-situation-example-list (cons ret 0)))
          (t
@@ -139,7 +140,7 @@ specified, play as it.  Default MODE is \"play\"."
     (message "External method is starting...")
     (let ((process
           (let ((command
-                 (mailcap-format-command
+                 (mime-format-mailcap-command
                   method
                   (cons (cons 'filename name) situation))))
             (start-process command mime-echo-buffer-name
@@ -344,7 +345,7 @@ It is registered to variable `mime-preview-quitting-method-alist'."
          (save-window-excursion
            (set-buffer full-buf)
            (erase-buffer)
-           (insert-file-contents-as-binary file)
+           (binary-insert-encoded-file file)
            (setq major-mode 'mime-show-message-mode)
            (mime-view-buffer (current-buffer) nil mother)
            (setq pbuf (current-buffer))
@@ -389,11 +390,12 @@ It is registered to variable `mime-preview-quitting-method-alist'."
                    (setq file (concat root-dir "/" (int-to-string i)))
                    (or (file-exists-p file)
                        (throw 'tag nil))
-                   (as-binary-input-file (insert-file-contents file))
+                   (binary-insert-encoded-file file)
                    (goto-char (point-max))
                    (setq i (1+ i))))
-               (write-region-as-binary (point-min)(point-max)
-                                       (expand-file-name "FULL" root-dir))
+               (binary-write-decoded-region
+                (point-min)(point-max)
+                (expand-file-name "FULL" root-dir))
                (let ((i 1))
                  (while (<= i total)
                    (let ((file (format "%s/%d" root-dir i)))