[Mew-dist 15063] Re: b81

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 15052] b81
Message-ID: <20001125.175433.74728354.kazu at example.com>
Date: Sat, 25 Nov 2000 17:54:38 +0900

kazu> 主に虫取りのための b81 を出します。

kazu> (5) mew-cs-m17n を ctext-unix にした。(とりあえず、これで様子をみます。)

すでによく覚えていないのですが、-unix つけないと動かない、とか、
ctext-unix は無いぞ(確か XEmacs-20.4)とか、Emacsen によっていろ
いろあって、1.94 では

(defvar mew-cs-virtual        (if (mew-coding-system-p '*ctext*unix)
				  '*ctext*unix '*ctext*)) ;; ^M as it is

(defvar mew-cs-virtual        (if (mew-coding-system-p 'ctext-unix)
				  'ctext-unix 'ctext)) ;; ^M as it is

という風になっていたと思います。.mew-cache の読み込み、読み出し
という新しい要因が加わっているので、同じかどうかはわからないので
報告だけ。


その他に気になったことは、

1. "mr" で review-mark をつけるとときに, "\r" 以降からも検出して
 しまうのが私はいや。(反対意見の人もいらっしゃるかも)
 
2. "mr" => "mt" で thread を作ったときに thread 表示された
 summary には review-mark は必要ないと思う。(だけど、今後の
 thread mode の展開次第では必要かも)

です。これについてはパッチをつけておきます。


-- 
白井秀行 (mailto:shirai at example.com)

--- mew-mark.el.orig	Sat Nov 25 14:24:16 2000
+++ mew-mark.el	Sat Nov 25 22:34:52 2000
@@ -652,9 +652,11 @@
       (save-excursion
         (goto-char (point-min))
         (while (re-search-forward regex nil t)
-          (if (or (mew-summary-marked-p) (mew-in-decode-syntax-p))
+          (if (or (mew-summary-marked-p) (mew-in-decode-syntax-p)
+		  (not (looking-at "[^\n]*\r")))
 	      ()
-	    (mew-summary-mark-as mew-mark-review)))
+	    (mew-summary-mark-as mew-mark-review))
+	  (forward-line))
 	(set-buffer-modified-p nil))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- mew-thread.el.orig	Sat Nov 25 17:09:20 2000
+++ mew-thread.el	Sat Nov 25 22:50:04 2000
@@ -110,16 +110,17 @@
 	 (setq top (cdr top))))
      (mew-summary-thread-print-loop
       mew-virtual-buffer-thread-top 0 folder
-      (mew-summary-scan-form folder 'column))
+      (mew-summary-scan-form folder 'column)
+      mark)
      (set-buffer-modified-p nil)
      (message "Displaying thread ... done"))))
 
-(defun mew-summary-thread-print-loop (top level folder column)
+(defun mew-summary-thread-print-loop (top level folder column mark)
   (while top
-    (mew-summary-thread-print (car top) level folder column)
+    (mew-summary-thread-print (car top) level folder column mark)
     (setq top (cdr top))))
 
-(defun mew-summary-thread-print (me level folder column)
+(defun mew-summary-thread-print (me level folder column mark)
   (let (cld i msg)
     (mew-elet
      (insert (mew-thread-get-line me))
@@ -128,6 +129,10 @@
      (if (looking-at mew-regex-msg)
 	 (setq msg (mew-match 1))
        (setq msg ""))
+     (if (and mark (looking-at mew-regex-msg-review))
+	 (progn (goto-char (match-end 0))
+		(delete-char -1)
+		(insert " ")))
      (move-to-column column)
      (setq i 0)
      (while (< i level)
@@ -138,7 +143,7 @@
        (insert " " folder " " msg))
      (forward-line))
     (setq cld (mew-thread-get-child me))
-    (if cld (mew-summary-thread-print-loop cld (1+ level) folder column))))
+    (if cld (mew-summary-thread-print-loop cld (1+ level) folder column mark))))
 
 (provide 'mew-thread)