mime-encode-header-in-buffer

[okada ＠ opaopa.org]

おかだです．

diff -u -r1.29.2.1.12.6 eword-encode.el
--- eword-encode.el	1 Feb 2002 05:58:27 -0000	1.29.2.1.12.6
+++ eword-encode.el	26 Jan 2003 11:00:27 -0000
@@ -668,7 +668,7 @@
 	    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

ではないでしょうか．

field-name => #("From" 0 4 (face wl-highlight-message-headers))
になっていて、その後の判定が失敗していました．

-- 
岡田 健一  URLs: mailto:okada ＠ opaopa.org