[mew-dist 22191] Re: 他のcaseに移動＆incしてdefaultに戻る楽な方法は？

[Hideyuki SHIRAI ( 白井秀行 )]

From: Takashi Masuda (増田貴士) <masutaka at example.com> さん曰く
Subject: [mew-dist 22190] 他のcaseに移動＆incしてdefaultに戻る楽な方法は？
Message-ID: <20021106.003351.18312496.masutaka at example.com>
Date: Wed, 06 Nov 2002 00:33:51 +0900 (JST)

> mew-config-alistの defaultの状態から、
> 他のcaseに移動＆incして defaultに戻ってくる一番楽な方法を探しています。
> 
> 現在は以下のような軟弱なマクロを使っていますが、
> もう少しスマートに関数を書くなどして実現したいと思っています。
> 
> (fset 'mew-summary-retrieve-for-another-case
>       [?C ?a ?n ?o ?t ?h ?e ?r return ?i ?C ?d ?e ?f ?a ?u ?l ?t return])

# うーーん、すごい。目から鱗状態。

あまり実験していませんが、単純に

(defun mew-summary-retrieve-for-another-case ()
  (interactive)
  (let ((mew-case-input (mew-input-case mew-case-input "Another retrieve")))
    (mew-summary-retrieve 'noflush)))

で動くと思います。いつも同じ case に切り変えたいなら
mew-input-case() の部分は単に case の文字列にしてしまえば良いで
しょう。また、'noflush はお好みで。

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