2001-08-09 Simon Josefsson <jas@extundo.com>

	* mm-decode.el (mm-insert-part): Return decoding success status.
	(mm-save-part-to-file): Error if decoding failed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44ca91a..8a7fd57 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-09  Simon Josefsson  <jas@extundo.com>
+
+       * mm-decode.el (mm-insert-part): Return decoding success status.
+       (mm-save-part-to-file): Error if decoding failed.
+
 2001-08-09 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (message-tab): Use indent-relative.

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 8d98903..5dcadd6 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -891,20 +891,22 @@ external if displayed external."
       (if (member (mm-handle-media-supertype handle) '("text" "message"))
          (with-temp-buffer
            (insert-buffer-substring (mm-handle-buffer handle))
-           (mm-decode-content-transfer-encoding
-            (mm-handle-encoding handle)
-            (mm-handle-media-type handle))
-           (let ((temp (current-buffer)))
-             (set-buffer cur)
-             (insert-buffer-substring temp)))
+           (prog1
+               (mm-decode-content-transfer-encoding
+                (mm-handle-encoding handle)
+                (mm-handle-media-type handle))
+             (let ((temp (current-buffer)))
+               (set-buffer cur)
+               (insert-buffer-substring temp))))
        (mm-with-unibyte-buffer
          (insert-buffer-substring (mm-handle-buffer handle))
-         (mm-decode-content-transfer-encoding
-          (mm-handle-encoding handle)
-          (mm-handle-media-type handle))
-         (let ((temp (current-buffer)))
-           (set-buffer cur)
-           (insert-buffer-substring temp)))))))
+         (prog1
+             (mm-decode-content-transfer-encoding
+              (mm-handle-encoding handle)
+              (mm-handle-media-type handle))
+           (let ((temp (current-buffer)))
+             (set-buffer cur)
+             (insert-buffer-substring temp))))))))
 
 (defun mm-file-name-delete-whitespace (file-name)
   "Remove all whitespace characters from FILE-NAME."
@@ -959,7 +961,8 @@ like underscores."
 
 (defun mm-save-part-to-file (handle file)
   (mm-with-unibyte-buffer
-    (mm-insert-part handle)
+    (or (mm-insert-part handle)
+       (error "Error with message"))
     (let ((coding-system-for-write 'binary)
          ;; Don't re-compress .gz & al.  Arguably we should make
          ;; `file-name-handler-alist' nil, but that would chop