From: okada <okada>
Date: Sun, 26 Jan 2003 14:35:27 +0000 (+0000)
Subject:  * eword-encode.el (mime-encode-header-in-buffer): Remove a text property.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c005db74bd0ba4dadbd3c49c076680123f54b6ab;p=elisp%2Fflim.git

 * eword-encode.el (mime-encode-header-in-buffer): Remove a text property.
---

diff --git a/ChangeLog b/ChangeLog
index fb49aa9..42f1f22 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-26  Kenichi OKADA <okada@opaopa.org>
+
+	* eword-encode.el (mime-encode-header-in-buffer): Remove a
+	text property.
+
 2002-11-15  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* smtp.el (smtp-send-buffer): Error if `smtp-server' is nil.
diff --git a/eword-encode.el b/eword-encode.el
index 83ff53a..48bd322 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -668,7 +668,7 @@ It refer variable `mime-field-encoding-method-alist'."
 	    bbeg end field-name)
 	(while (re-search-forward std11-field-head-regexp nil t)
 	  (setq bbeg (match-end 0)
-		field-name (buffer-substring (match-beginning 0) (1- bbeg))
+		field-name (buffer-substring-no-properties (match-beginning 0) (1- bbeg))
 		end (std11-field-end))
 	  (and (delq 'ascii (find-charset-region bbeg end))
 	       (let ((method (eword-find-field-encoding-method