From 46091983cca70001a00cc61f44ead1c7d348c521 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 7 Feb 2003 16:39:54 +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 464b480..8e3ec14 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. + 2002-11-05 MORIOKA Tomohiko * eword-encode.el (tm-eword::words-to-ruled-words): New diff --git a/eword-encode.el b/eword-encode.el index e95b458..bf379f6 100644 --- a/eword-encode.el +++ b/eword-encode.el @@ -687,16 +687,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 (match-beginning 0) (1- bbeg)) + field-name (buffer-substring (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