[mew-dist 25254] some patches for contrib

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

最近の変更で必要になった contrib/* のパッチです。

(1) 全体的に mew-summary-or-thread() から mew-pickable() への変
    更
   => すいません、人様のもいじってしまいました。

(2) Meadow + mew-nmz.el で mew-nmz-mknmz-use-timestamp の初期値
    を変えた。

(3) mew-fancy-summary.el で、unread mark のときは、一行全部その
    色を塗るのではなく、"U" の部分だけ色を変える。
   => ぼくの趣味かも ^^;;;

-- 
白井秀行 (mailto:shirai at example.com)
-------------- next part --------------
? contrib.diff
Index: mew-edebug.el
===================================================================
RCS file: /cvsmew/mew/contrib/mew-edebug.el,v
retrieving revision 1.3
diff -u -r1.3 mew-edebug.el
--- mew-edebug.el	20 Aug 2002 04:46:32 -0000	1.3
+++ mew-edebug.el	7 Sep 2004 03:08:04 -0000
@@ -64,7 +64,7 @@
     mew-summary-only              
     mew-virtual-only              
     mew-thread-only               
-    mew-summary-or-thread         
+    mew-pickable
     mew-summary-not-in-queue      
     mew-summary-not-in-draft      
     mew-summary-not-in-mdrop      
Index: mew-fancy-summary.el
===================================================================
RCS file: /cvsmew/mew/contrib/mew-fancy-summary.el,v
retrieving revision 1.9
diff -u -r1.9 mew-fancy-summary.el
--- mew-fancy-summary.el	21 Mar 2003 04:14:20 -0000	1.9
+++ mew-fancy-summary.el	7 Sep 2004 03:08:04 -0000
@@ -374,6 +374,20 @@
 	 (setq linebeg (point))
 	 (setq col 0)
 	 (cond
+	  ;; unread line
+	  ((and (not (mew-in-decode-syntax-p))
+                (setq numend (point-min))
+		(eq (char-after) mew-mark-unread))
+	   (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 entry nil numend)))
+	       (setq form (cdr form))))
+	   (looking-at "[^\r\n]*")
+	   (setq lineend (match-end 0))
+	   (put-text-property linebeg (1+ linebeg) 'face 'mew-face-mark-unread))
 	  ;; Normal line
 	  ((and (not (mew-in-decode-syntax-p))
                 (setq numend (point-min))
Index: mew-nmz.el
===================================================================
RCS file: /cvsmew/mew/contrib/mew-nmz.el,v
retrieving revision 1.29
diff -u -r1.29 mew-nmz.el
--- mew-nmz.el	31 Aug 2004 19:47:15 -0000	1.29
+++ mew-nmz.el	7 Sep 2004 03:08:04 -0000
@@ -39,7 +39,7 @@
 (defvar mew-nmz-prog-mknmz-args '("-q")
   "*Mknmz's argument, in addition to \"-U\", \"-h\".")
 (defvar mew-nmz-prog-mknmz-include "~/Namazu/mknmz-inc.pl" "*Include file for mknmz.")
-(defvar mew-nmz-mknmz-use-timestamp nil
+(defvar mew-nmz-mknmz-use-timestamp (featurep 'meadow)
   "*If non-nil, use NMZ.stamp file (see. immknmz --timestamp=on).")
 
 (defvar mew-nmz-prog-gcnmz "gcnmz" "*Namazu refresh index program.")
@@ -573,7 +573,7 @@
   "Namazu pick messages according to a pick pattern which you input,
 then put the '*' mark onto them. "
   (interactive)
-  (mew-summary-or-thread
+  (mew-pickable
    (if (eq (point-min) (point-max))
        (message "No messages in this buffer.")
      (let ((fld (mew-summary-folder-name))
Index: mew-refile-view.el
===================================================================
RCS file: /cvsmew/mew/contrib/mew-refile-view.el,v
retrieving revision 1.11
diff -u -r1.11 mew-refile-view.el
--- mew-refile-view.el	22 Jun 2004 00:57:56 -0000	1.11
+++ mew-refile-view.el	7 Sep 2004 03:08:04 -0000
@@ -112,7 +112,7 @@
 
 (defun mew-refile-view (&optional prefix)
   (interactive "P")
-  (mew-summary-or-thread
+  (mew-pickable
    (if (interactive-p)
        (mew-current-set-window-config))
    (let* ((folder (buffer-name))
@@ -347,7 +347,7 @@
 					       (match-end 0))))))
       ;; in mew summary buffer
       (if (mew-refile-view-goto-summary)
-	  (mew-summary-or-thread
+	  (mew-pickable
 	   (cond
 	    ((eq op 'refile)
 	     (mew-summary-refile))