[Mew-dist 06567] mew-summary-get with Config value

[Kazumi HARA]

はら＠リコー と申します。
少しお知恵をお貸しください。m(__)m

現在、mew-1.93 + im-100 + Meadow で使用しております。

最近になって、"Config" を使い出しまして、異なる POP アカウントへメール
を取りに行き、そのメールを inbox 以外へ取り込みたい場合に、
~/.im/Config にて

-->case default
-->Assoc= +inbox=pop/pop:hara at example.com
-->case foo
-->Assoc= +inbox2=pop/pop:foo at example.com
-->case hoge
-->Assoc= +inbox3=pop/pop:hoge at example.com
として使っていました。

が、foo に切り替えて get したメールは確かに inbox2 へ入るのですが、そ
のままですと inboxのサマリーキャッシュに見かけ上追加されてしまい、不整
合が生じてしまいます。

----こんな感じです:  +inbox で ----
   334  09/30 10:54 sen_ml at example.com [Mew-dist 06566] Re: mailto: u <<
   335  09/30 10:51 k-umino at example.com [RINET] Addition is done       <<
   336  09/30 11:35 yokoo michihik [apache 2833] Re: apache acces <<
>  127  09/30 13:14 To:わたし      Re: test                       <<
つまり、127 のメールは、実際には inbox2 に取り込まれるのですが、inbox
のキャッシュに入ってしまいます。
# Mini Buffer も "Getting +inbox2 (foo)..." ではなく、
# "Getting +inbox (foo)..." でした,,,

~/.im/Config 中にて、InboxFolder を case に記述してみましたが、望み通
りにはなりませんでした。
# 何れの場合でも mew-inbox-folder の値は "+inbox" でした,,,

結局、現在は mew-scan.el の mew-summary-scan-body 中の
(if (string= mew-config-imget mew-config-default)
		  (message "Getting %s ..." folder)
		(message "Getting %s (%s)..." folder mew-config-imget)))
を、
(if (string= mew-config-imget mew-config-default)
	  (message "Getting %s ..." folder))
(if (string= mew-config-imget "foo")
  (progn
    (if (get-buffer "+inbox2")
		  (switch-to-buffer "+inbox2")
      (mew-summary-folder-create "+inbox2"))
    (mew-summary-ls)
    (message "Getting %s (%s)..." "+inbox2" mew-config-imget)))

などとして、とりあえず希望通りの動作をしてくれるようになりました。
# 私の *てきとー* な素人 LISP の知識でとりつくろっただけなので、深く考
# えていません ;;;

一通り、調べてみたつもりですが、もしかしたら ~/.im/Config の記述でうま
くできるのか、あるいは他のうまい方法があるのか良く分かりませんでした。
# というよりも私の設定がおかしいのかもしれません。

このような使い方をされている方はいらっしゃいませんか?

--
はらかずみ  < hara at example.com >