Remove the description about developers' pserver access.

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

diff --git a/mime-play.el b/mime-play.el
index 32283ad..c537175 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -157,7 +157,7 @@ specified, play as it.  Default MODE is \"play\"."
                  (mime-format-mailcap-command
                   method
                   (cons (cons 'filename name) situation)))
-                 (coding-system-for-read mime-play-messages-coding-system))
+                (coding-system-for-read mime-play-messages-coding-system))
             (start-process command mime-echo-buffer-name
              shell-file-name shell-command-switch command))))
       (set-alist 'mime-mailcap-method-filename-alist process name)
@@ -166,15 +166,19 @@ specified, play as it.  Default MODE is \"play\"."
 (defun mime-mailcap-method-sentinel (process event)
   (when mime-play-delete-file-immediately
     (let ((file (cdr (assq process mime-mailcap-method-filename-alist))))
-      (if (file-exists-p file)
-         (delete-file file)))
+      (when (file-exists-p file)
+       (ignore-errors
+         (delete-file file)
+         (delete-directory (file-name-directory file)))))
     (remove-alist 'mime-mailcap-method-filename-alist process))
-  (message (format "%s %s" process event)))
+  (message "%s %s" process event))
 
 (defun mime-mailcap-delete-played-files ()
   (dolist (elem mime-mailcap-method-filename-alist)
     (when (file-exists-p (cdr elem))
-      (delete-file (cdr elem)))))
+      (ignore-errors
+       (delete-file (cdr elem))
+       (delete-directory (file-name-directory (cdr elem)))))))
 
 (add-hook 'kill-emacs-hook 'mime-mailcap-delete-played-files)
 
@@ -375,15 +379,15 @@ occurs."
        (set-default-file-modes orig-modes)))))
 
 (defun mime-store-message/partial-piece (entity cal)
-  (let* ((root-dir
-         (expand-file-name
-          (concat "m-prts-" (user-login-name)) temporary-file-directory))
-        (id (cdr (assoc "id" cal)))
-        (number (cdr (assoc "number" cal)))
-        (total (cdr (assoc "total" cal)))
-        file
-        (mother (current-buffer))
-        (orig-modes (default-file-modes)))
+  (let ((root-dir
+        (expand-file-name
+         (concat "m-prts-" (user-login-name)) temporary-file-directory))
+       (id (cdr (assoc "id" cal)))
+       (number (cdr (assoc "number" cal)))
+       (total (cdr (assoc "total" cal)))
+       file
+       (mother (current-buffer))
+       (orig-modes (default-file-modes)))
     (mime-require-safe-directory root-dir)
     (or (file-exists-p root-dir)
        (unwind-protect