From: okada <okada>
Date: Thu, 6 Feb 2003 19:18:42 +0000 (+0000)
Subject: * eword-encode.el (mime-encode-header-in-buffer):
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=13435fc4e11e3ae8c372e8b09a25e58da9283c06;p=elisp%2Fflim.git

* eword-encode.el (mime-encode-header-in-buffer):
Do not eliminate white spaces.
---

diff --git a/ChangeLog b/ChangeLog
index 42f1f22..e7b414f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* eword-encode.el (mime-encode-header-in-buffer):
+	Do not eliminate white spaces.
+
 2003-01-26  Kenichi OKADA <okada@opaopa.org>
 
 	* eword-encode.el (mime-encode-header-in-buffer): Remove a
diff --git a/eword-encode.el b/eword-encode.el
index 48bd322..030e6a2 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -666,16 +666,18 @@ It refer variable `mime-field-encoding-method-alist'."
       (goto-char (point-min))
       (let ((default-cs (mime-charset-to-coding-system default-mime-charset))
 	    bbeg end field-name)
-	(while (re-search-forward std11-field-head-regexp nil t)
+	(while (re-search-forward
+		(concat "\\(" std11-field-head-regexp "\\)" " ?")
+		nil t)
 	  (setq bbeg (match-end 0)
-		field-name (buffer-substring-no-properties (match-beginning 0) (1- bbeg))
+		field-name (buffer-substring-no-properties (match-beginning 0) (1- (match-end 1)))
 		end (std11-field-end))
 	  (and (delq 'ascii (find-charset-region bbeg end))
 	       (let ((method (eword-find-field-encoding-method
 			      (downcase field-name))))
 		 (cond ((eq method 'mime)
 			(let* ((field-body
-			       (buffer-substring-no-properties bbeg end))
+				(buffer-substring-no-properties bbeg end))
 			       (encoded-body
 				(mime-encode-field-body
 				 field-body field-name)))