X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mmexternal.el;h=c107e648f681c3c7c990ca36da7fdbb4db41ba1e;hb=6b1e47875a18ac2c8345279d308c039c3d3f088b;hp=dde1406f15078fa9014ff882d7d7883e23e3e02c;hpb=c24ae6d35282d7b2451761f46e5c87f11f85a38e;p=elisp%2Fflim.git

diff --git a/mmexternal.el b/mmexternal.el
index dde1406..c107e64 100644
--- a/mmexternal.el
+++ b/mmexternal.el
@@ -19,8 +19,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
 
@@ -78,7 +78,7 @@
 				 (concat " *Body of "
 					 (mime-entity-name entity)
 					 "*"))
-	     (binary-insert-file-contents
+	     (binary-insert-encoded-file
 	      (mime-external-entity-body-file-internal entity))
 	     (current-buffer))))
       (error (message "Can't get external-body.")))))
@@ -120,7 +120,7 @@
 					    filename)
   (mmexternal-require-buffer entity)
   (with-current-buffer (mime-external-entity-body-buffer-internal entity)
-    (binary-write-region (point-min) (point-max) filename)))
+    (binary-write-decoded-region (point-min) (point-max) filename)))
 
 
 ;;; @ entity content
@@ -156,8 +156,7 @@
 	(let ((ret (std11-fetch-field field-name)))
 	  (when ret
 	    (or (symbolp field-name)
-		(setq field-name
-		      (intern (capitalize (capitalize field-name)))))
+		(setq field-name (intern (capitalize field-name))))
 	    (mime-entity-set-original-header-internal
 	     entity
 	     (put-alist field-name ret