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

[sen_ml at example.com]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 10252] Re: marking question: invert marking possible?
Date: Fri, 20 Aug 1999 12:25:48 +0900

shirai> お昼の課題で、こんなの作ってみたのですが、どうでしょうか？
shirai> 
shirai> (defun mew-summary-mark-exchange (&optional arg)
shirai>   (interactive "P")
shirai>   (let ((mark-tmp ?#))
shirai>     (mew-summary-exchange-mark mew-mark-multi mark-tmp)
shirai>     (mew-summary-mark-swap)
shirai>     (mew-summary-mark-all)
shirai>     (if (not arg)
shirai> 	(mew-summary-batch-unmark (list mew-mark-multi) nil))
shirai>     (mew-summary-exchange-mark mark-tmp mew-mark-multi)))

いいですね。

ちょうど、こちらでは mew-summary-mark-unsol が、

(defun mew-summary-mark-unsol (&optional arg)
  "Pick unsolicited messages."
  (interactive "P")
  (if arg
      (mew-summary-mark-sol arg)
    (mew-summary-mark-sol))
  (mew-summary-mark-swap)
  (mew-summary-mark-all)
  ;; from `mew-summary-undo-all'
  (let ((char ?@))
    (mew-summary-batch-unmark (list char) 'msg)))

という感じになっていたので、mew-summary-mark-exchange を使用したものにすると、

(defun mew-summary-mark-unsol (&optional arg)
  "Pick unsolicited messages."
  (interactive "P")
  (if arg
      (mew-summary-mark-sol arg)
    (mew-summary-mark-sol))
  (mew-summary-mark-exchange))

となるので、ナイスです :-)  が、二回つづけてやると・・・こちらの問題ですので
気にしないでください。

＃ mew-summary-mark-exchange って b53 に入るのでしょうか？

あ、mew-summary-mark-exchange の最後の方に

  (message "Marks exchanged.")

とか入れておくのはどうでしょうか？

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

dired には慣れていませんので、私はどちらでも構いません :-)
が、mt にするのなら、関数名を mew-summary-mark-toggle にするというのは
どうでしょうか？  うーん、自分でいっておいて、exchange の方が気に入ってる。