[Mew-dist 03859] Re: mew-header-decode-address

[Kazu Yamamoto ( 山本和彦 )]

From: Mito <mit at example.com>
Subject: [Mew-dist 03856] Re: mew-header-decode-address
Date: Fri, 20 Feb 1998 11:24:18 +0900

> アドレスなどは編集しましたが、行末はすべてオリジナルのままで
> す。スペースとかは削除していません。
> 
> これがすべて1行になります。

僕の意図は複数行になることでしたが、虫さんがいましたね。これではどうで
しょう？

--かず


Index: mew-bq.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-bq.el,v
retrieving revision 1.5
diff -c -r1.5 mew-bq.el
*** mew-bq.el	1998/02/17 04:58:25	1.5
--- mew-bq.el	1998/02/20 03:33:58
***************
*** 469,479 ****
    ;; spaces and may freely surround any symbol." So, remove
    ;; continuous white spaces.
    (goto-char (point-min))
!   (while (re-search-forward "[ \t]+\n[ \t]+" nil t)
!     (replace-match " " nil t))
    (goto-char (point-min))
!   (while (re-search-forward "\\(\\|[^,]\\)\n[ \t]+" nil t)
!     (replace-match (concat (mew-match 1) " ") nil t))
    ;; In Page 10 of RFC 2047 says, "When displaying a particular 
    ;; header field that contains multiple 'encoded-word's, any 
    ;; 'linear-white-space' that separates a pair of adjacent 
--- 469,479 ----
    ;; spaces and may freely surround any symbol." So, remove
    ;; continuous white spaces.
    (goto-char (point-min))
!   (while (re-search-forward ",[ \t]+\n" nil t)
!     (replace-match ",\n" nil t))
    (goto-char (point-min))
!   (while (re-search-forward "[^,][ \t]+\n[ \t]+" nil t)
!     (replace-match " " nil t))
    ;; In Page 10 of RFC 2047 says, "When displaying a particular 
    ;; header field that contains multiple 'encoded-word's, any 
    ;; 'linear-white-space' that separates a pair of adjacent