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

[Mito]

※ "山" こと Kazu at example.com さんの
   『[Mew-dist 03859] Re: mew-header-decode-address』からの引用です。

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

b17 で確認しました。
前のメールは複数行になりました。
ただ、

山> --- 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))

2番目の re-search-forward は、"[ \t]+\n[ \t]+" でないと、

To: xxx at example.com \n
SPC

が

To: xxx at example.com

のように最後の1文字まで消えてしまうと思います。
",[ \t]+\n" は最初の re-search-forward でなくなっているので、
2番目の "[^,]" を削除するだけでいいと思いますがいかがでしょ
う？
-- 
2/20 14:25頃
NECソフトウェア新潟  水戸
mailto:mit at example.com