(mml-compute-boundary-1): Don't uncompress files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be9fec4..6976d25 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-02-07  Jesper Harder  <harder@ifa.au.dk>
+
+       * mml.el (mml-compute-boundary-1): Don't uncompress files.
+
 2004-02-06  Jesper Harder  <harder@ifa.au.dk>
 
        * mml.el (mml-mode, mml-x-dnd-attach-file): Attach drop and drag

diff --git a/lisp/mml.el b/lisp/mml.el
index 764ebd2..5c87d9b 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -583,7 +583,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
          (insert-buffer-substring (cdr (assq 'buffer cont))))
         ((and (setq filename (cdr (assq 'filename cont)))
               (not (equal (cdr (assq 'nofile cont)) "yes")))
-         (mm-insert-file-contents filename))
+         (mm-insert-file-contents filename nil nil nil nil t))
         (t
          (insert (cdr (assq 'contents cont)))))
        (goto-char (point-min))