From 3aecdea93e03283f9e4a5de7f6cb7b3d52506348 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 11 Mar 1998 17:32:36 +0000 Subject: [PATCH] (mime-extract-current-entity): Use `mime-write-decoded-region'. --- mime-file.el | 15 ++------------- 1 file changed, 2 insertions(+), 13 deletions(-) diff --git a/mime-file.el b/mime-file.el index 6124c3f..d01c895 100644 --- a/mime-file.el +++ b/mime-file.el @@ -48,24 +48,13 @@ (lambda (file) (interactive "FFilename: ") (expand-file-name file)))))) - (tmp-buf (generate-new-buffer (file-name-nondirectory filename))) ) (if (file-exists-p filename) (or (yes-or-no-p (format "File %s exists. Save anyway? " filename)) (error ""))) (re-search-forward "\n\n") - (append-to-buffer tmp-buf (match-end 0) end) - (save-excursion - (set-buffer tmp-buf) - (mime-decode-region (point-min)(point-max) encoding) - (let ((coding-system-for-write 'no-conversion) - jka-compr-compression-info-list ; for jka-compr - jam-zcat-filename-list ; for jam-zcat - require-final-newline) - (write-region (point-min)(point-max) filename) - ) - (kill-buffer tmp-buf) - ))) + (mime-write-decoded-region (match-end 0)(point-max) filename encoding) + )) ;;; @ setup -- 1.7.10.4