From: teranisi <teranisi>
Date: Tue, 23 Jul 2002 14:35:13 +0000 (+0000)
Subject: 2002-07-23  KAMO Tomoyuki  <kamo@i-manage.co.jp>
X-Git-Tag: elmo-mark-root~44
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ace50d70585e98a3e0f9d79fddbcea875f390f9f;p=elisp%2Fwanderlust.git

2002-07-23  KAMO Tomoyuki  <kamo@i-manage.co.jp>

	* wl-folder.el (wl-folder-open-all): Call wl-highlight-folder-path.
	(wl-folder-close-all): Ditto.

2002-07-09  KAMO Tomoyuki  <kamo@i-manage.co.jp>

	* wl-summary.el (wl-summary-get-list-info): Process delivered-to:
	and mailing-list:.
	(wl-summary-overview-entity-compare-by-list-info): Treat empty field
	value.
	(wl-summary-line-list-info): Print mailing-list name even when
	list-number is empty.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 743229f..a102825 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,17 @@
+2002-07-23  KAMO Tomoyuki  <kamo@i-manage.co.jp>
+
+	* wl-folder.el (wl-folder-open-all): Call wl-highlight-folder-path.
+	(wl-folder-close-all): Ditto.
+
+2002-07-09  KAMO Tomoyuki  <kamo@i-manage.co.jp>
+
+	* wl-summary.el (wl-summary-get-list-info): Process delivered-to:
+	and mailing-list:.
+	(wl-summary-overview-entity-compare-by-list-info): Treat empty field
+	value.
+	(wl-summary-line-list-info): Print mailing-list name even when 
+	list-number is empty.
+
 2002-07-18  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-draft.el (wl-draft-edit-string): Don't set buffer-read-only.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 6ac0f2e..d99faa7 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2502,6 +2502,7 @@ Use `wl-subscribed-mailing-list'."
 	(when (> len elmo-display-progress-threshold)
 	  (elmo-display-progress
 	   'wl-folder-open-all "Opening all folders..." 100))))
+    (wl-highlight-folder-path wl-folder-buffer-cur-path)
     (message "Opening all folders...done")
     (set-buffer-modified-p nil)))
 
@@ -2520,6 +2521,7 @@ Use `wl-subscribed-mailing-list'."
     (erase-buffer)
     (wl-folder-insert-entity " " wl-folder-entity)
     (wl-folder-move-path id)
+    (wl-highlight-folder-path wl-folder-buffer-cur-path)
     (recenter)
     (set-buffer-modified-p nil)))
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index b4329a6..271c53f 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -862,7 +862,7 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
 
 (defun wl-summary-get-list-info (entity)
   "Returns (\"ML-name\" . ML-count) of ENTITY."
-  (let (sequence ml-name ml-count subject return-path)
+  (let (sequence ml-name ml-count subject return-path delivered-to mailing-list)
     (setq sequence (elmo-msgdb-overview-entity-get-extra-field
 		    entity "x-sequence")
 	  ml-name (or (elmo-msgdb-overview-entity-get-extra-field
@@ -889,6 +889,16 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
 	 (progn
 	   (or ml-name (setq ml-name (match-string 1 return-path)))
 	   (or ml-count (setq ml-count (match-string 2 return-path)))))
+    (and (setq delivered-to
+	       (elmo-msgdb-overview-entity-get-extra-field
+		entity "delivered-to"))
+	 (string-match "^mailing list \\([^@]+\\)@" delivered-to)
+	 (or ml-name (setq ml-name (match-string 1 delivered-to))))
+    (and (setq mailing-list
+	       (elmo-msgdb-overview-entity-get-extra-field
+		entity "mailing-list"))
+	 (string-match "\\(^\\|; \\)contact \\([^@]+\\)-[^-@]+@" mailing-list)	; *-help@, *-owner@, etc.
+	 (or ml-name (setq ml-name (match-string 2 mailing-list))))
     (cons (and ml-name (car (split-string ml-name " ")))
 	  (and ml-count (string-to-int ml-count)))))
 
@@ -896,12 +906,13 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
   "Compare entity X and Y by mailing-list info."
   (let* ((list-info-x (wl-summary-get-list-info x))
 	 (list-info-y (wl-summary-get-list-info y)))
-    (if (equal list-info-x list-info-y)
-	(wl-summary-overview-entity-compare-by-date x y)
-      (if (string= (car list-info-x) (car list-info-y))
+    (if (equal (car list-info-x) (car list-info-y))
+	(if (equal (cdr list-info-x) (cdr list-info-y))
+	    (wl-summary-overview-entity-compare-by-date x y)
 	  (< (or (cdr list-info-x) 0)
-	     (or (cdr list-info-y) 0))
-	(string< (car list-info-x) (car list-info-y))))))
+	     (or (cdr list-info-y) 0)))
+      (string< (or (car list-info-x) "")
+	       (or (car list-info-y) "")))))
 
 (defun wl-summary-sort-by-date ()
   (interactive)
@@ -4175,8 +4186,9 @@ If ARG, exit virtual folder."
 
 (defun wl-summary-line-list-info ()
   (let ((list-info (wl-summary-get-list-info wl-message-entity)))
-    (if (and (car list-info) (cdr list-info))
-	(format "(%s %05d)" (car list-info) (cdr list-info))
+    (if (car list-info)
+	(format (if (cdr list-info) "(%s %05d)" "(%s)")
+		(car list-info) (cdr list-info))
       "")))
 
 (defun wl-summary-line-list-count ()