From 13435fc4e11e3ae8c372e8b09a25e58da9283c06 Mon Sep 17 00:00:00 2001 From: okada Date: Thu, 6 Feb 2003 19:18:42 +0000 Subject: [PATCH] * eword-encode.el (mime-encode-header-in-buffer): Do not eliminate white spaces. --- ChangeLog | 5 +++++ eword-encode.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 42f1f22..e7b414f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-02-05 Yoichi NAKAYAMA + + * eword-encode.el (mime-encode-header-in-buffer): + Do not eliminate white spaces. + 2003-01-26 Kenichi OKADA * 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))) -- 1.7.10.4