[Mew-dist 15398] Re: "*" mark feature

[SAKAI Kiyotaka]

>> In article <20001208.204437.74691295.kazu at example.com>, Kazu Yamamoto (山本和彦) <kazu at example.com> writes:

>> mew-scan-form-mark では To: に自分のアドレスが含まれているときだけ "*" 
>> マークを付けますが、IM のように Cc: や Apparently-To: に自分のアドレス
>> が含まれているときも "*" マークが付くようになっていた方が便利だと思う
>> のですが、どうでしょうか。

> これは、mew-scan-form-mark の

> 	(let ((to (mew-addrstr-parse-address-list (MEW-TO))))
>                                                   ^^^^^^^^
> をカスタマイズできるようになっていれば、よいと思うのですが、どうやって
> 実装しましょうか。

> 単純に変数を定義というわけにはいきそうもないし。

ユーザーには string で設定を書かせて intern → funcall してしまうとい
う方法もありますので、変数で定義できないということはないですね。

ただ、そこまでしなくても、(Apparently-To: は To: に含めるとして)
mew-scan-form-mark-review を To: 用と Cc: 用の 2つに分けるぐらいで充分
だとは思いますが。

    (if mew-scan-form-mark-review-to
        (let ((to (mew-addrstr-parse-address-list (MEW-TO))))
          (catch 'loop
            (while to
              (if (mew-is-my-address mew-regex-my-address-list (car to))
                  (throw 'loop (setq review-to t)))
              (setq to (cdr to))))))
    (if mew-scan-form-mark-review-cc
        (let ((cc (mew-addrstr-parse-address-list (MEW-CC))))
          (catch 'loop
            (while cc
              (if (mew-is-my-address mew-regex-my-address-list (car cc))
                  (throw 'loop (setq review-cc t)))
              (setq cc (cdr cc))))))

あるいは、review mark を使っているほとんどの人は、Cc にもマークが付い
ていたとしても不都合はないと予想しますので、カスタマイズできなくても問
題はないだろうとは思います。
-- 
酒井 清隆 (E-mail: ksakai at example.com)