[mew-dist 26927] mew-{safe,warn}-{addresses,domains} の検索条件

[Tsutomu OKADA]

岡田と申します。

送信先アドレスが <> や :; で囲まれていると、警告色の判定を誤ってしまい
ます。

以下のような修正で問題ないでしょうか？

--- mew-highlight.el	2006-04-27 08:47:00.073572800 +0900
+++ mew-highlight.el.rev	2006-04-26 16:26:37.334926400 +0900
@@ -114,7 +114,7 @@
 	addr domain overlay begovl endovl warnp)
     (save-excursion
       (goto-char beg)
-      (while (re-search-forward "[^\n\t, ]+@\\([^\n\t, ]+\\)" end t)
+      (while (re-search-forward "[^\n\t, <>:;]+@\\([^\n\t, <>:;]+\\)" end t)
 	(setq addr (downcase (mew-match-string 0)))
 	(setq domain (downcase (mew-match-string 1)))
 	(setq begovl (match-beginning 0))

-- 
Tsutomu.OKADA at example.com