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

diff --git a/ChangeLog b/ChangeLog
index fb49aa9..42f1f22 100644 (file)
--- 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 (file)
--- 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