[mew-dist 24080] mew-regex-case1

[KOIE Hidetaka ( 鯉江英隆 )]

case1,case2:$inbox のように複数のcaseを指定して
goto folderできるようにするためのパッチです。
ミニバッファで , を入力できるようにしたかたのですが
わかりませんでした。

--
鯉江英隆 <hide at example.com>
-------------- next part --------------
Index: mew-const.el
===================================================================
RCS file: /cvsmew/mew/mew-const.el,v
retrieving revision 1.59
diff -u -F^( -r1.59 mew-const.el
--- mew-const.el	3 Oct 2003 07:21:30 -0000	1.59
+++ mew-const.el	16 Oct 2003 04:19:23 -0000
@@ -259,7 +259,8 @@ (defconst mew-regex-ctls-wo-tab-lf "[\00
 (defconst mew-regex-id "<[^>\n\t]+>")
 
 (defconst mew-regex-case "^\\([^-+$%*,:][^,:]+\\):\\(.*\\)")
-(defconst mew-regex-case2 "\\([^-+$%*,:][^,:]+\\):")
+(defconst mew-regex-case1 "^\\([^-+$%*,:][^,:]+\\(,[^,:]+\\)*\\):\\(.*\\)")
+(defconst mew-regex-case2 "\\([^-+$%*,:][^,:]+\\(,[^,:]+\\)*\\):")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
Index: mew-func.el
===================================================================
RCS file: /cvsmew/mew/mew-func.el,v
retrieving revision 1.136
diff -u -F^( -r1.136 mew-func.el
--- mew-func.el	3 Oct 2003 03:52:20 -0000	1.136
+++ mew-func.el	16 Oct 2003 04:19:23 -0000
@@ -462,8 +462,8 @@ (defsubst mew-folder-regex (folder)
 
 (defun mew-folder-case (folder)
   ;; "case" must be distinguished from drive
-  (if (string-match mew-regex-case folder)
-      (cons (mew-match-string 1 folder) (mew-match-string 2 folder))))
+  (if (string-match mew-regex-case1 folder)
+      (cons (mew-match-string 1 folder) (mew-match-string 3 folder))))
 
 (defun mew-folder-folder (folder)
   (let ((case-folder (mew-folder-case folder)))