[Mew-dist 03853] mew-header-decode-address

[Mito]

To: にたくさんアドレスがあると見にくいので、どうにかならない
かなぁと思いまして調べていたのですが...。

--- mew-bq.el	1998/02/19 09:43:30	1.1
+++ mew-bq.el	1998/02/19 10:19:44
@@ -472,7 +472,7 @@
   (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)
+  (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 

もしかして、こうですか？
-- 
2/19 19:27頃
NECソフトウェア新潟  水戸
mailto:mit at example.com