[mew-dist 20635] Re: "I"

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 20634] Re: "I"
Message-ID: <20020315.133909.65665878.shirai at example.com>
Date: Fri, 15 Mar 2002 13:39:09 +0900 (JST)

> > > (1) Virtual の folder msgnum は "^F folder num\n" で決まり、と考
> > >     えていいですか？
> > 
> > \006 が安全そうなら、このままです。
> 
> じゃ、とりあえず、mhc のパッチです。都合により、mhc の CVS
> server への commit は少々遅れます。

今度は mew-nmz.el のパッチです。

-- 
白井秀行 (mailto:shirai at example.com)
-------------- next part --------------
--- mew-nmz.el.orig	Fri Mar 15 13:33:08 2002
+++ mew-nmz.el	Fri Mar 15 13:36:03 2002
@@ -530,7 +530,7 @@
 	      (save-excursion
 		(goto-char (point-min))
 		(if (re-search-forward
-		     (concat "\r " (regexp-quote fld) " " (car range) "\\([^0-9]\\|$\\)")
+		     (concat " \006 " (regexp-quote fld) " " (car range) "$")
 		     nil t)
 		    (progn
 		      (setq fld (buffer-name))
@@ -680,29 +680,19 @@
 		(expand-file-name mew-summary-cache-file (mew-expand-folder fld))))
 	      (goto-char (point-min))
 	      (while (and (not (eobp)) msgs)
-		(if (not (re-search-forward (concat "^ *" (car msgs) "[^0-9]") nil t))
-		    ()
+		(when (re-search-forward (concat "^ *" (car msgs) "[^0-9]") nil t)
 		  (beginning-of-line)
-		  (cond
-		   ((looking-at	;; new format "\r <msgid> <par-id>"
-		     "^ *\\([1-9][0-9]*\\)[^0-9]\\([^\r]*\\)\r\\([^\n]*\\)")
+		  (when (looking-at	;; new format "\r <msgid> <par-id> \006 folder msg"
+			 "^ *\\([1-9][0-9]*\\)[^0-9]\\([^\r]*\r\\)\\([^\n]*\\)")
 		    (setq pattern
+			  ;; 123 .... \r  <msgid> <par-id> folder num
 			  (concat pattern
-				  (format "%5d %s\r %s %s%s\n"
+				  (format "%5d %s%s \006 %s %s\n"
 					  count
-					  (mew-match 2)
-					  fld (car msgs)
-					  (mew-match 3))))
-		    (setq count (1+ count)))
-		   ((looking-at	;; old format
-		     "^ *\\([1-9][0-9]*\\)[^0-9]\\(.*\\)$")
-		    (setq pattern
-			  (concat pattern
-				  (format "%5d %s\r %s %s\n"
-					  count
-					  (mew-match 2)
+					  (match-string 2)	;; don't use mew-match
+					  (match-string 3)	;; for fancy-hightlight
 					  fld (car msgs))))
-		    (setq count (1+ count)))))
+		    (setq count (1+ count))))
 		(setq msgs (cdr msgs))
 		(forward-line 1))
 	      (mew-summary-switch-to-folder vfld)