;;; Yet another save method.
(defun wl-mime-save-content (entity situation)
(let ((filename (read-file-name "Save to file: "
(expand-file-name
(or (mime-entity-safe-filename entity)
".")
;;; Yet another save method.
(defun wl-mime-save-content (entity situation)
(let ((filename (read-file-name "Save to file: "
(expand-file-name
(or (mime-entity-safe-filename entity)
".")
(while (file-directory-p filename)
(setq filename (read-file-name "Please set filename (not directory): "
filename)))
(if (file-exists-p filename)
(or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
(error "Not saved")))
(while (file-directory-p filename)
(setq filename (read-file-name "Please set filename (not directory): "
filename)))
(if (file-exists-p filename)
(or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
(error "Not saved")))