[Mew-dist 1215] Re: `*' and `@'

[NISHIDA Keisuke]

西田＠阪大です。

加藤さん wrote:
> > ;; ユーザが好きなマークを作れるようにする。
> > (setq my-favorite-mark ?@)
> 
> これは例えば (setq my-favorite-mark ?!) も可能なのでしょうか？
> それとも (setq my-favorite-mark mew-mark-mark) でしょうか？
> # つまり自分で好きな文字を決められるのか、Mew で定義されてい
> # るものしか使えないのか、ということです。

ああと、好きな文字を決められるように、との意図でした。

下の方で、(let ((mew-standard-mark my-favorite-mark))...)という
ことをやってたと思いますが、Mew のすべてのコマンドを、この 
mew-standard-mark(名前は何でもいいけど)という(架空の)マークに対
して動作するように定義しておけば、先のような方法で、対象マークを
変化させることも簡単だと思います。

現在は、あらかじめマークに意味付けがなされていて、それに合わせて
コマンドを動作させるように組まれていますが、それを逆に、各コマン
ドでは対象とするマークは不特定にしておいて、より外側の定義でマー
クと対応付けるようにすれば、自然な形で自由度も増せるように思いま
した。
# 思うだけじゃなくて、コードも書いた方がいいのでしょうが・・気力
# 充電中。

> > ;; マーク変更コマンド
> > (define-key mew-summary-mode-map "m*"
> >   (lambda ()
> >     (interactive)
> >     (mew-summary-change-marks my-favorite-mark other-mark)))
> 
> other-mark というのは何でしょう？

my-favorite-mark 以外の任意のマークのつもりでした(あ、another だっ
た・・)。流れからすれば、?* を置くべきでしたね...

---
大阪大学基礎工学部システム工学科三年
西田 圭介 <ks5036nk at example.com>