(defun mime-save-content (entity situation)
(let* ((name (mime-entity-safe-filename entity))
- (encoding (or (mime-entity-encoding entity) "7bit"))
(filename (if (and name (not (string-equal name "")))
(expand-file-name name
(save-window-excursion
(if (file-exists-p filename)
(or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
(error "")))
- (mime-write-decoded-region (mime-entity-body-start entity)
- (mime-entity-body-end entity)
- filename encoding)
+ (mime-write-entity-content entity filename)
))