2001-08-18 18:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mm-decode.el (mm-save-part-to-file): Insert the handle.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b11e92..86b80c0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-18 18:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-decode.el (mm-save-part-to-file): Insert the handle.
+
 2001-08-18 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nnslashdot.el (nnslashdot-threaded-retrieve-headers):

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 725ce0e..3bc681d 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -965,6 +965,7 @@ like underscores."
 
 (defun mm-save-part-to-file (handle file)
   (mm-with-unibyte-buffer
+    (mm-insert-part handle)
     (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