[mew-dist 20843] Re: mew-summary-goto-folder

[Kazu Yamamoto ( 山本和彦 )]

From: YAMAKURA Makoto <yakina at example.com>
Subject: [mew-dist 20825] Re: mew-summary-goto-folder

> ちなみに、元々の動作の不満点は、gしたときにフォルダに mew-input-case 
> がつくのに、iしたときにmew-input-caseがつかない、ということでした。
> (sするときのcaseが'default'になるのでうまくいかない)

SAITO さんのパッチに、木下さんの意見を取り入れると、以下のようなパッチ
になります。これが山倉さんの要望を満すか分らないのですが、いかがでしょ
うか？

--かず

Index: mew-summary4.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-summary4.el,v
retrieving revision 1.27
diff -c -r1.27 mew-summary4.el
*** mew-summary4.el	2002/04/09 12:02:17	1.27
--- mew-summary4.el	2002/05/09 07:07:20
***************
*** 57,63 ****
  Summary mode."
    (interactive "P")
    (let* ((proto (mew-proto-to-go (mew-summary-folder-name 'ext)))
! 	 (case (mew-sinfo-get-case))
  	 (inbox (mew-proto-inbox-folder proto case))
  	 (fld (mew-input-folder inbox))
  	 (folder (mew-canonicalize-case-folder fld)))
--- 57,63 ----
  Summary mode."
    (interactive "P")
    (let* ((proto (mew-proto-to-go (mew-summary-folder-name 'ext)))
! 	 (case (or (mew-sinfo-get-case) mew-case-input))
  	 (inbox (mew-proto-inbox-folder proto case))
  	 (fld (mew-input-folder inbox))
  	 (folder (mew-canonicalize-case-folder fld)))