[Mew-Win32 01233] Re: message-cite-color.el

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [Mew-Win32 01232] Re: message-cite-color.el
Message-ID: <19990226180512S.shirai at example.com>
Date: Fri, 26 Feb 1999 18:05:12 +0900

白井> # 今しばらくお待ち下さい。 m(__)m

はずかしいバグを直しました。で、パッチです。

# なんで、あれで動いちゃうんだろう？ Emacs 20.3.92 ったら。

--- message-cite-color.el.orig	Fri Feb 26 18:30:41 1999
+++ message-cite-color.el	Fri Feb 26 18:34:33 1999
@@ -14,7 +14,7 @@
 ;; 
 
 ;; Modified for Mew-win32 ML
-;;   Shirai at example.com "Fri Feb 26 17:15:06 1999"
+;;   Shirai at example.com at Time-stamp: <02/26/1999 18:34 shirai>
 ;;
 
 (defvar cite-to-face-list-source '(ForestGreen blue DarkOrange2 purple firebrick))
@@ -42,26 +42,25 @@
       (re-search-forward message-cite-color-header-separator nil t)
       (while (< (point) (point-max))
 	(beginning-of-line)
-	(if (and (looking-at message-cite-color-prefix-regexp)
-		 (not (looking-at message-cite-color-non-prefix-regexp)))
+	(if (looking-at message-cite-color-prefix-regexp)
 	    (let (s e cite)
-	      (setq s (point))
-	      (end-of-line)
-	      (setq e (point))
 	      (setq cite (buffer-substring (match-beginning 0)
 					   (match-end 0)))
-	      (if (string-match "[ \t　]+$" cite)
-		  (setq cite (substring cite 0 (match-beginning 0))))
-	      (put-text-property s e 'face (prefix-cite-to-face cite))
-	      (beginning-of-line))
+	      (if (looking-at message-cite-color-non-prefix-regexp)
+		  ()
+		(setq s (point))
+		(end-of-line)
+		(setq e (point))
+		(if (string-match "[ \t　]+$" cite)
+		    (setq cite (substring cite 0 (match-beginning 0))))
+		(put-text-property s e 'face (prefix-cite-to-face cite))
+		(beginning-of-line)))
 	  (if (looking-at message-cite-color-comment-regexp)
 	      (let (s e cite)
 		(setq s (point))
 		(end-of-line)
 		(setq e (point))
-		(setq cite (buffer-substring (match-beginning 0)
-					     (match-end 0)))
-		(put-text-property s e 'face (comment-cite-to-face cite))
+		(put-text-property s e 'face (comment-cite-to-face))
 		(beginning-of-line))))
 	    (forward-line 1))
       )))
@@ -82,6 +81,5 @@
 	  ))
     (hilit-lookup-face-create color)))
 
-(defun comment-cite-to-face (cite)
+(defun comment-cite-to-face ()
   (hilit-lookup-face-create (car cite-to-face-comment)))
-