[mew-dist 23293] Re: Mew 4

[Masahiro NANASHIMA ( 七島 雅裕 )]

七島です。

とりあえず、mew-fancy-summary を動くようにしてみました。

--
  七島 雅裕 (Masahiro Nanashima)
-------------- next part --------------
--- mew-fancy-summary.el.orig	2002-08-03 09:11:57.000000000 +0900
+++ mew-fancy-summary.el	2003-03-15 12:26:39.000000000 +0900
@@ -271,7 +271,7 @@
     (set (make-local-variable 'font-lock-fontify-region-function)
 	 'mew-fancy-summary-region)
     (setq mew-fancy-summary-scan-form
-	  (mew-summary-scan-form (mew-summary-folder-name 'ext)))
+		  (mew-get-summary-form (mew-summary-folder-name 'ext)))
     (setq mew-fancy-summary-thread-column -1)
     (font-lock-mode 1)))
 
@@ -293,7 +293,7 @@
   (when (mew-thread-p)
     (mew-fancy-summary-remove-invisible)
     (setq mew-fancy-summary-scan-form
-	  (mew-summary-scan-form (substring (mew-summary-folder-name 'ext) 1)))
+		  (mew-get-summary-form (substring (mew-summary-folder-name 'ext) 1)))
     (setq mew-fancy-summary-thread-column (mew-vinfo-get-column))
     ;; XEmacs + lazy-lock ???
     (when mew-xemacs-p
@@ -376,23 +376,21 @@
 	 (cond
 	  ;; Normal line
 	  ((and (not (mew-in-decode-syntax-p))
-		(looking-at mew-regex-msg)
-		(setq numend (match-end 0))
-		(not (looking-at mew-regex-msg-mark)))
+                (setq numend (point-min))
+                (not (looking-at mew-regex-mark)))
 	   (let ((form mew-fancy-summary-scan-form) entry)
 	     (while form
 	       (setq entry (car form))
 	       (when (= col mew-fancy-summary-thread-column)
-		 (setq col (+ col
-			      (mew-fancy-summary-do-highlight 'thread t))))
+                 (setq col (+ col (mew-fancy-summary-do-highlight 'thread t))))
 	       (setq col (+ col (mew-fancy-summary-do-highlight entry nil numend)))
 	       (setq form (cdr form))))
 	   (looking-at "[^\r\n]*")
 	   (setq lineend (match-end 0)))
 	  ;; Marked line
 	  ((and (not (mew-in-decode-syntax-p))
-		(looking-at mew-regex-msg-mark))
-	   (let ((mark (string-to-char (match-string 2))))
+                (looking-at mew-regex-mark))
+           (let ((mark (string-to-char (match-string 0))))
 	     (looking-at "[^\r\n]*")
 	     (setq lineend (match-end 0))
 	     (put-text-property linebeg lineend
@@ -494,16 +492,15 @@
 			 (move-to-column (+ (current-column) range))
 			 (point)
 		       (goto-char beg))))
-	     (prelen (and (stringp mew-scan-form-from-me-prefix)
-			  (string-width mew-scan-form-from-me-prefix)))
+			 (prelen (and (stringp mew-summary-form-from-me-prefix)
+						  (string-width mew-summary-form-from-me-prefix)))
 	     elen)
 	(if (string-match "[^\r\n]*[^ \r\n]" entry)
 	    (setq entry (substring entry (match-beginning 0) (match-end 0)))
 	  (setq entry ""))
 	(setq elen (string-width entry))
 	(if (not (and prelen (> prelen 0)
-		      (eq (string-match mew-scan-form-from-me-prefix entry)
-			  0)))
+					  (eq (string-match mew-summary-form-from-me-prefix entry) 0)))
 	    ;; Mail to me
 	    (if (mew-fancy-summary-special-p entry range)
 		(list (cons elen (mew-fancy-summary-get-face 'special t))