[mew-dist 27678] case指定でretrive

[SUGITA Toshinori]

杉田@デジタルパッドです。

かなり前に以下のようなコマンドを .mew に書いて、Caseを切り替えずに
retriveだけできるようにしていたのですが、最近、状況が変って、
いくつかのcaseで proto を '+' から '$' に変更する必要がでてきて
しましました。

;;; 現在のcaseを変更しないで別caseを i する
(defun mew-summary-retrieve-for-another-case ()
  (interactive)
  (let ((mew-case (mew-input-case "" "Another retrieve")))
    (mew-summary-retrieve 'noflush)))

このコマンドを当該の case に実行してしまうと、サーバー上の
メッセージをすべて削除してしまうので、うまくありません。
(希望の動作はsummary上で削除したメッセージだけサーバー上でも
 削除してほしいのです)

そこで、case の proto が '$' のときだけ mew-summary-retrive ではなく
 s "all" に相当するコマンドに変更したいと思うのですが、なにせlispも
mewのapiもわかっていないので、どう変更していいのかよくわかりません。
なお、該当する case の定義には (proto . "$") を入れてありますので、
これをキーにすればいいのではないかと考えています。

おそらく、一番最後の行が if を含む数行になるんだろうということは
想像がつくのですが、、、

どなたか lisp と mew に堪能な方、ご教示いただけないでしょうか？

／／／／／／／／／／／／／／／／／／／／／／／／／／／／／／／
 SUGITA Toshinori 杉田 敏典      Digital Pad Inc.    .・.         
  E-MAIL  : sugita at example.com                       ●・
  WebPage : http://www.d-pad.co.jp/
  アクセス解析サービス Ver2 http://inspect.d-pad.co.jp/
  有名人にメールしよう      http://www.d-pad.co.jp/mail/fame/
  メール・スクランブル      http://www.d-pad.co.jp/mail/scramble/
  アンケートしよう！        http://www.d-pad.co.jp/enquete/make/