[Mew-dist 10252] Re: marking question: invert marking possible?

[Hideyuki SHIRAI ( 白井秀行 )]

From: Shun-ichi GOTO <gotoh at example.com> さん曰く
Subject: [Mew-dist 10251] Re: marking question: invert marking possible?
Message-ID: <19990820114328N.GOTOH at example.com>
Date: Fri, 20 Aug 1999 11:44:29 +0900

sen> これで楽に簡単な mew-summary-mark-unsol(icited) が実装できます :-)

じゃ、私も一つ unsolicited を。。。

後藤> たーしかに mark operation はもっとあれこれできてもいいように思います。

後藤> このネタ、なんか小物プログラムのネタにもちょうどいい感じですね。
後藤> Mark Exchanger ってとこでしょうか。

お昼の課題で、こんなの作ってみたのですが、どうでしょうか？

(defun mew-summary-mark-exchange (&optional arg)
  (interactive "P")
  (let ((mark-tmp ?#))
    (mew-summary-exchange-mark mew-mark-multi mark-tmp)
    (mew-summary-mark-swap)
    (mew-summary-mark-all)
    (if (not arg)
	(mew-summary-batch-unmark (list mew-mark-multi) nil))
    (mew-summary-exchange-mark mark-tmp mew-mark-multi)))

## "me" に割り当ててみました。だけど、どっちかというと、dired に
## 合わせると "mt(toggle)" かな？

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