From: akr <akr>
Date: Wed, 20 Jan 1999 04:40:00 +0000 (+0000)
Subject: * mmgeneric.el (mime-insert-header-from-buffer): Do not contain : in
X-Git-Tag: doodle-199901201900
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=13281ea8a1007346ea2a3aa82aba06b0c6bec668;p=elisp%2Fflim.git

* mmgeneric.el (mime-insert-header-from-buffer): Do not contain : in
`original-field-name'.
---

diff --git a/ChangeLog b/ChangeLog
index c6992bc..02912ec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,10 +1,15 @@
+1999-01-20  Tanaka Akira      <akr@jaist.ac.jp>
+
+	* mmgeneric.el (mime-insert-header-from-buffer): Do not contain : in
+	`original-field-name'.
+
 1999-01-17  Tanaka Akira      <akr@jaist.ac.jp>
 
 	* ew-compat.el (ew-mime-update-field-decoder-cache): Abolished
 	because duplicated.
 
 	* mmgeneric.el (mime-insert-header-from-buffer): Convert LF to CRLF for
-	original-field-body.
+	`original-field-body'.
 
 1999-01-05  Tanaka Akira      <akr@jaist.ac.jp>
 
diff --git a/mmgeneric.el b/mmgeneric.el
index f015b4f..a95c119 100644
--- a/mmgeneric.el
+++ b/mmgeneric.el
@@ -178,7 +178,7 @@
 			field-body))
 	      (insert "\n")
               (add-text-properties p (point)
-                                   (list 'original-field-name field-name
+                                   (list 'original-field-name (substring field-name 0 (1- len))
                                          'original-field-body (ew-lf-to-crlf field-body)))
 	      )))))))