[mew-dist 28721] Re: 'o' で出てくる世界の違うフォルダ

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 28718] Re: 'o' で出てくる世界の違うフォルダ
Message-ID: <20081114.194607.105673287.kazu at example.com>
Date: Fri, 14 Nov 2008 19:46:07 +0900 (JST)

> > どーもです。が、mew-refile-guess-by-alist が間違っているようで、
> > auto refile が動かなくなりました。
> 
> 失礼しました。
> 
> > とすると動きますが、mew-inherit-refile-proto の正しい値が不明な
> > ので、あとはおまかせです。
> 
> OK です。マージしました。

だめでした ^^;;;

パッチの様にしないと、他の mew-refile-guess-by-* が動きません。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-refile.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-refile.el,v
retrieving revision 1.126
diff -u -u -r1.126 mew-refile.el
--- mew-refile.el	17 Nov 2008 00:18:20 -0000	1.126
+++ mew-refile.el	17 Nov 2008 00:28:54 -0000
@@ -210,7 +210,7 @@
 
 (defun mew-refile-guess-by-alist ()
   (let ((alist (mew-refile-guess-alist mew-inherit-refile-case))
-	(proto (substring mew-inherit-refile-proto 0 1)))
+	(proto mew-inherit-refile-proto))
     ;; Guess folders by user-configured alist.
     (mew-refile-guess-by-alist1 alist proto)))
 
@@ -679,7 +679,7 @@
       (setq msg (mew-sumsyn-message-number)) ;; msg is never nil
       (setq invalidp (not (mew-msg-validp msg))))
     (setq mew-inherit-refile-case  (mew-case:folder-case fld))
-    (setq mew-inherit-refile-proto (mew-case:folder-folder fld))
+    (setq mew-inherit-refile-proto (substring (mew-case:folder-folder fld) 0 1))
     (setq mark (mew-summary-get-mark)) ;; any mark
     (cond
      ((and mark (> (mew-markdb-level mark) (mew-markdb-level mew-mark-refile)))
@@ -769,7 +769,7 @@
 	(setq fld (mew-sumsyn-folder-name))
 	(setq msg (mew-sumsyn-message-number))))
     (setq mew-inherit-refile-case  (mew-case:folder-case fld))
-    (setq mew-inherit-refile-proto (mew-case:folder-folder fld))
+    (setq mew-inherit-refile-proto (substring (mew-case:folder-folder fld) 0 1))
     (with-temp-buffer
       (mew-insert-message
        fld msg mew-cs-text-for-read mew-header-reasonable-size)