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

[Tatsuya Kinoshita]

In message [mew-dist 20850], on Fri, 10 May 2002,
SAITO Takuya <reed at example.com> wrote:

> 一方、木下さんの[mew-dist 20822]は、mew-case-inputのみを使う
> (mew-sinfo-get-case は使わない) という御意見だと私は解釈しました。

おっしゃるとおりです。

[mew-dist 20843]のパッチは、IMAP暮らしで複数のcaseを使い分ける人
にとっては不可解なものになってしまっています。

> どちらが良いかについては、山倉さんも "i" での移動先と同じフォルダを
> デフォルトにしたいという意見のようですので、
> mew-case-inputのみを使う、ということでよいと思います。

[mew-dist 20846]の問題と合わせて修正してみました。いかがでしょうか。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -ur mew.orig/mew-net.el mew/mew-net.el
--- mew.orig/mew-net.el	Sun Apr 14 22:29:21 2002
+++ mew/mew-net.el	Fri May 10 01:56:42 2002
@@ -287,17 +287,19 @@
 If called with '\\[universal-argument]', +queue is not flushed."
   (interactive "P")
   (let* ((case mew-case-input)
-	 proto inbox mailbox)
+	 proto inbox case-inbox mailbox)
     ;; for mew-summary-exchange-point.
     (cond
      ((mew-summary-or-virtual-p)
       (setq proto (mew-proto-to-inc (mew-summary-folder-name 'ext)))
       (setq inbox (mew-proto-inbox-folder proto case))
+      (setq case-inbox (mew-canonicalize-case-folder inbox))
       (set-marker mew-summary-inbox-position (point) (current-buffer))
-      (mew-summary-switch-to-folder inbox))
+      (mew-summary-switch-to-folder case-inbox))
      (t
       (setq inbox (mew-proto-inbox-folder nil case))
-      (mew-summary-switch-to-folder inbox)
+      (setq case-inbox (mew-canonicalize-case-folder inbox))
+      (mew-summary-switch-to-folder case-inbox)
       (set-marker mew-summary-inbox-position (point) (current-buffer))))
     ;; in the inbox
     (when (mew-summary-exclusive-p)
@@ -307,7 +309,7 @@
       (mew-decode-syntax-delete)
       (mew-unhighlight-cursor-line)
       ;;
-      (if (mew-folder-localp inbox) (mew-summary-retrieve-gap inbox))
+      (if (mew-folder-localp inbox) (mew-summary-retrieve-gap case-inbox))
       ;;
       (goto-char (point-max))
       (mew-sinfo-set-start-point (point))
@@ -317,17 +319,17 @@
 	(setq mailbox (mew-mailbox-type case))
 	(cond
 	 ((eq mailbox 'pop)
-	  (mew-pop-retrieve case 'inc inbox (not no-flush)))
+	  (mew-pop-retrieve case 'inc case-inbox (not no-flush)))
 	 ((eq mailbox 'imap)
-	  (mew-imap-retrieve case 'inc inbox (not no-flush)))
+	  (mew-imap-retrieve case 'inc case-inbox (not no-flush)))
 	 ((eq mailbox 'mbox)
 	  (mew-mbox-retrieve case))))
        ((mew-folder-popp inbox)
-	(mew-pop-retrieve case 'scan inbox nil 'get-body))
+	(mew-pop-retrieve case 'scan case-inbox nil 'get-body))
        ((mew-folder-imapp inbox)
-	(mew-imap-retrieve case 'scan inbox nil 'get-body))
+	(mew-imap-retrieve case 'scan case-inbox nil 'get-body))
        ((mew-folder-nntpp inbox)
-	(mew-nntp-retrieve case 'scan inbox nil 'get-body))))))
+	(mew-nntp-retrieve case 'scan case-inbox nil 'get-body))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
diff -ur mew.orig/mew-summary4.el mew/mew-summary4.el
--- mew.orig/mew-summary4.el	Tue Apr  9 23:41:54 2002
+++ mew/mew-summary4.el	Fri May 10 02:00:07 2002
@@ -57,7 +57,7 @@
 Summary mode."
   (interactive "P")
   (let* ((proto (mew-proto-to-go (mew-summary-folder-name 'ext)))
-	 (case (mew-sinfo-get-case))
+	 (case mew-case-input)
 	 (inbox (mew-proto-inbox-folder proto case))
 	 (fld (mew-input-folder inbox))
 	 (folder (mew-canonicalize-case-folder fld)))