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

[NISHIDA Keisuke]

西田＠阪大です。

> この辺は好みの問題だと思うので、うまいやり方がないかもう少し考え
> てみます。

・・ユーザが好みの動作にカスタマイズするしかないですかね。

> ....ユーザが好きなマークに好きな意味付けのできる仕組
> みが必要だということでしょうか。

一案です。

;; ユーザが好きなマークを作れるようにする。
(setq my-favorite-mark ?@)

;; マークコマンド
(define-key mew-summary-mode-map "@"
  (lambda ()
    (interactive)
    (mew-summary-set-mark my-favorite-mark)))

;; 移動コマンド
(define-key mew-summary-mode-map "P"
  (lambda ()
    (interactive)
    (mew-summary-goto-mark-backward my-favorite-mark)))

(define-key mew-summary-mode-map "N"
  (lambda ()
    (interactive)
    (mew-summary-goto-mark-forward my-favorite-mark)))

;; マーク変更コマンド
(define-key mew-summary-mode-map "m*"
  (lambda ()
    (interactive)
    (mew-summary-change-marks my-favorite-mark other-mark)))

;; コマンド適用
(define-key mew-summary-change-marks "F"
  (lambda ()
    (interactive)
    (let ((mew-standard-mark my-favorite-mark))
      (mew-summary-forward-marks))))

この方式でいけば、標準のマークを一つ設けるだけで、好きな風にカス
タマイズもできるのじゃないでしょうか?

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