(defvar mime-play-find-every-situations t
"*Find every available situations if non-nil.")
+(defvar mime-play-messages-coding-system nil
+ "Coding system to be used for external MIME playback method.")
+
;;; @ content decoder
;;;
(setq mime-acting-situation-example-list (cdr ret)
ret (car ret))
(cond ((cdr ret)
- (setq ret (select-menu-alist
+ (setq ret (mime-select-menu-alist
"Methods"
(mapcar (function
(lambda (situation)
(defvar mime-mailcap-method-filename-alist nil)
-(defvar mime-mailcap-method-messages-coding-system 'undecided
- "Coding system for an external mailcap method.")
-
(defun mime-activate-mailcap-method (entity situation)
(let ((method (cdr (assoc 'method situation)))
(name (mime-entity-safe-filename entity)))
- (setq name
- (if (and name (not (string= name "")))
- (expand-file-name name temporary-file-directory)
- (make-temp-name
- (expand-file-name "EMI" temporary-file-directory))
- ))
+ (setq name (expand-file-name (if (and name (not (string= name "")))
+ name
+ (make-temp-name "EMI"))
+ (make-temp-file "EMI" 'directory)))
(mime-write-entity-content entity name)
(message "External method is starting...")
(let ((process
method
(cons (cons 'filename name) situation))))
(binary-to-text-funcall
- mime-mailcap-method-messages-coding-system
+ 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)
(defun mime-mailcap-method-sentinel (process event)
(let ((file (cdr (assq process mime-mailcap-method-filename-alist))))
- (if (file-exists-p 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))
(defvar mime-echo-window-is-shared-with-bbdb
(module-installed-p 'bbdb)
;;; @ message/partial
;;;
+(defun mime-require-safe-directory (dir)
+ "Create a directory DIR safely.
+The permission of the created directory becomes `700' (for the owner only).
+If the directory already exists and is writable by other users, an error
+occurs."
+ (let ((attr (file-attributes dir))
+ (orig-modes (default-file-modes)))
+ (if (and attr (eq (car attr) t)) ; directory already exists.
+ (unless (or (memq system-type '(windows-nt ms-dos OS/2 emx))
+ (and (eq (nth 2 attr) (user-real-uid))
+ (eq (file-modes dir) 448)))
+ (error "Invalid owner or permission for %s" dir))
+ (unwind-protect
+ (progn
+ (set-default-file-modes 448)
+ (make-directory dir))
+ (set-default-file-modes orig-modes)))))
+
(defun mime-store-message/partial-piece (entity cal)
(let* ((root-dir
(expand-file-name
(number (cdr (assoc "number" cal)))
(total (cdr (assoc "total" cal)))
file
- (mother (current-buffer)))
+ (mother (current-buffer))
+ (orig-modes (default-file-modes)))
+ (mime-require-safe-directory root-dir)
(or (file-exists-p root-dir)
- (make-directory root-dir))
+ (unwind-protect
+ (progn
+ (set-default-file-modes 448)
+ (make-directory root-dir))
+ (set-default-file-modes orig-modes)))
(setq id (replace-as-filename id))
(setq root-dir (concat root-dir "/" id))
+
(or (file-exists-p root-dir)
- (make-directory root-dir))
+ (unwind-protect
+ (progn
+ (set-default-file-modes 448)
+ (make-directory root-dir))
+ (set-default-file-modes orig-modes)))
+
(setq file (concat root-dir "/FULL"))
(if (file-exists-p file)
(let ((full-buf (get-buffer-create "FULL"))
(directory (cdr (assoc "directory" cal)))
(name (cdr (assoc "name" cal)))
(pathname (concat "/anonymous@" site ":" directory)))
- (message (concat "Accessing " (expand-file-name name pathname) " ..."))
+ (message "%s" (concat "Accessing " (expand-file-name name pathname) "..."))
(funcall mime-raw-dired-function pathname)
(goto-char (point-min))
(search-forward name)
(defun mime-view-message/external-url (entity cal)
(let ((url (cdr (assoc "url" cal))))
- (message (concat "Accessing " url " ..."))
+ (message "%s" (concat "Accessing " url "..."))
(funcall mime-raw-browse-url-function url)))