[mhc:01551] Re: [mew-dist 20633] Re: "I"

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: Kazu Yamamoto (山本和彦) <kazu@xxxxxxxxxx> さん曰く
Subject: [mew-dist 20633] Re: "I"
Message-ID: <20020315.122416.71998591.kazu@xxxxxxxxxx>
Date: Fri, 15 Mar 2002 12:24:16 +0900 (JST)

> > (1) Virtual の folder msgnum は "^F folder num\n" で決まり、と考
> >     えていいですか？
> 
> \006 が安全そうなら、このままです。

# 0x2006 とか 0x0620 が変な文字コードに引っ掛からなければよいの
# ですね。

じゃ、とりあえず、mhc のパッチです。都合により、mhc の CVS
server への commit は少々遅れます。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)

--- mhc-mew.el.orig	Fri Mar 15 13:08:31 2002
+++ mhc-mew.el	Fri Mar 15 13:10:47 2002
@@ -15,9 +15,13 @@
 (require 'mew)
 
 ;; Internal Variables:
+(defvar mhc-mew-new-virtual-type (boundp 'mew-regex-summary2)
+  "*Mew virtual format type. Non-nil means Mew 3.0.55 or later.")
 
-(defconst mhc-mew/summary-filename-regex 
-  ".*\r *\\+\\([^ \t]+\\)[ \t]+\\([^ \t\n]+\\)")
+(defconst mhc-mew/summary-filename-regex
+  (if mhc-mew-new-virtual-type
+      ".*[^\006\n]+\006 \\+\\([^ ]*\\) \\([0-9]+\\)$"
+    ".*\r *\\+\\([^ \t]+\\)[ \t]+\\([^ \t\n]+\\)"))
 
 (defconst mhc-mew/header-string
   (let ((str "0 | "))
@@ -110,6 +114,7 @@
 		(concat "+" (substring path (match-end 0))))
 	  (concat
 	   "\r "
+	   (if mhc-mew-new-virtual-type "<> <> \006 ")
 	   (directory-file-name (file-name-directory fld-msg))
 	   " "
 	   (file-name-nondirectory fld-msg)))