[Mew-dist 14249] Re: scan-form

[Hideyuki SHIRAI ( 白井秀行 )]

(mew-scan-form-friendly-addr "<hoge at example.com>") => ""

となってしまうので、パッチです。だけど、mew-scan-form-from() の
方で処理した方が良いかもしれません。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-scan.el.orig	Tue Sep 26 15:45:22 2000
+++ mew-scan.el	Wed Sep 27 09:14:34 2000
@@ -113,10 +113,12 @@
 Next, extract comment part if exists and returns it.
 Otherwise ADDR is returned."
   (cond
-   ((string-match "\\([^<]*\\)<[^>]*>" addr)
+   ((string-match "\\([^<]+\\)<[^>]+>" addr)
     (mew-chop (mew-match 1 addr)))
-   ((string-match "^[^(]*(\\(.*\\))" addr)
+   ((string-match "^[^(]+(\\(.+\\))" addr)
     ;; Removing comments even if recursive.
+    (mew-chop (mew-match 1 addr)))
+   ((string-match "^[ \t]*<\\([^>]+\\)>" addr)
     (mew-chop (mew-match 1 addr)))
    (t addr)))