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

[YAMAKURA Makoto]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-dist 20823] Re: mew-summary-goto-folder
Date: Thu, 25 Apr 2002 11:06:47 +0900 (JST)

> * フォルダの case が default の場合なら、mew-case-input を優先する
> 
> ということのようですが、仕様が分りにくいように思います。どうして、フォ
> ルダの case が default の場合だけ特別扱いなのか、よく分りません。

山倉と申します。

私は、mew-summary-lsなどでのcaseの優先順を

1. フォルダで指定されたcase (hoge:%inbox などのhoge)
2. mew-case-input (モードラインに表示されているcase)

となるようにしたかったので、このメールに添付したパッチを使っています。
普段は defaultではないcaseの %inbox で生活していますが、これで快適にな
りました。

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

--
山倉 真 / yakina at example.com


Index: mew-func.el
===================================================================
RCS file: /cvsmew/mew/mew-func.el,v
retrieving revision 1.74
diff -c -r1.74 mew-func.el
*** mew-func.el	2002/04/09 05:36:55	1.74
--- mew-func.el	2002/04/25 07:24:44
***************
*** 554,567 ****
      (cond
       ((mew-folder-localp folder) folder)
       (case
!       (if (string-equal case mew-case-default)
  	  folder
  	(concat case ":" folder)))
       (t
!       (if (or (null mew-case-input)
! 	      (string-equal mew-case-input mew-case-default))
! 	  folder
! 	(concat mew-case-input ":" folder))))))
  
  (defun mew-folder-remote-to-local (folder)
    (let ((case-folder (mew-folder-case folder))
--- 554,564 ----
      (cond
       ((mew-folder-localp folder) folder)
       (case
!       (if (string-equal case mew-case-input)
  	  folder
  	(concat case ":" folder)))
       (t
!       folder))))
  
  (defun mew-folder-remote-to-local (folder)
    (let ((case-folder (mew-folder-case folder))
Index: mew-summary4.el
===================================================================
RCS file: /cvsmew/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/04/25 07:24:44
***************
*** 33,39 ****
        (switch-to-buffer (get-buffer-create folder))
        (mew-buffers-setup folder)
        (if (null (setq case-folder (mew-folder-case folder)))
! 	  (mew-sinfo-set-folder folder)
  	(mew-sinfo-set-case (car case-folder))
  	(mew-sinfo-set-folder (cdr case-folder)))
        (if (mew-folder-virtualp folder)
--- 33,41 ----
        (switch-to-buffer (get-buffer-create folder))
        (mew-buffers-setup folder)
        (if (null (setq case-folder (mew-folder-case folder)))
! 	  (progn
! 	    (mew-sinfo-set-case mew-case-input)
! 	    (mew-sinfo-set-folder folder))
  	(mew-sinfo-set-case (car case-folder))
  	(mew-sinfo-set-folder (cdr case-folder)))
        (if (mew-folder-virtualp folder)