[Mew-dist 14438] mew-scan-form-friendly-addr

[Shun-ichi TAHARA ( 田原 俊一 )]

おくればせながら、やっと冒険を始めたので、いくつか気が付いたことを。

(setq mew-scan-form-from-name-only t) のときに使われる
mew-scan-form-friendly-addr の挙動についてですが、現状、

  From: Foo (XXXX) <foo at example.com>

な From: のとき、"Foo (XXXX)" を返しますが、ここではカッコの中だけを返
してほしいような気がします。

添付のパッチでいけそうな気がするのですが、これの挙動って、実は何らかの
根拠があってのことだったりするのでしょうか?
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint: 16 9E 70 3B 05 86 5D 08 - B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
-------------- next part --------------
diff -rc mew-1.95b66.orig/mew-scan.el mew-1.95b66/mew-scan.el
*** mew-1.95b66.orig/mew-scan.el	Tue Oct  3 20:58:40 2000
--- mew-1.95b66/mew-scan.el	Sun Oct  8 22:51:53 2000
***************
*** 113,122 ****
  Next, extract comment part if exists and returns it.
  Otherwise ADDR is returned."
    (cond
-    ((string-match "\\([^<]+\\)<[^>]+>" addr)
-     (mew-chop (mew-match 1 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)))
--- 113,122 ----
  Next, extract comment part if exists and returns it.
  Otherwise ADDR is returned."
    (cond
     ((string-match "^[^(]+(\\(.+\\))" addr)
      ;; Removing comments even if recursive.
+     (mew-chop (mew-match 1 addr)))
+    ((string-match "\\([^<]+\\)<[^>]+>" addr)
      (mew-chop (mew-match 1 addr)))
     ((string-match "^[ \t]*<\\([^>]+\\)>" addr)
      (mew-chop (mew-match 1 addr)))