From: teranisi <teranisi>
Date: Thu, 13 Dec 2001 07:17:33 +0000 (+0000)
Subject: * wl.el (wl-plugged-dop-queue-status): Shrink queue list.
X-Git-Tag: wl-2_8-root~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=156fb2eec30a8aa4ad9910807a7f83115bbd7d0b;p=elisp%2Fwanderlust.git

* wl.el (wl-plugged-dop-queue-status): Shrink queue list.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4ccd04a..963557e 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,7 @@
 2001-12-13  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl.el (wl-plugged-dop-queue-status): Shrink queue list.
+
 	* wl-expire.el (wl-folder-expire-entity): Follow the last change on
 	wl-summary-save-view.
 
diff --git a/wl/wl.el b/wl/wl.el
index c4b3c7d..87bef00 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -308,12 +308,23 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
 		 (car folder-ope)
 		 (wl-folder-get-petname (car folder-ope)))
 		"("
-		(mapconcat
-		 '(lambda (ope)
-		    (if (> (cdr ope) 0)
-			(format "%s:%d" (car ope) (cdr ope))
-		      (format "%s" (car ope))))
-		 (cdr folder-ope) ",")
+		(let ((opes (cdr folder-ope))
+		      pair shrinked)
+		  (while opes
+		    (if (setq pair (assoc (car (car opes)) shrinked))
+			(setcdr pair (+ (cdr pair)
+					(max (cdr (car opes)) 1)))
+		      (setq shrinked (cons
+				      (cons (car (car opes))
+					    (max (cdr (car opes)) 1))
+				      shrinked)))
+		    (setq opes (cdr opes)))
+		  (mapconcat
+		   '(lambda (ope)
+		      (if (> (cdr ope) 0)
+			  (format "%s:%d" (car ope) (cdr ope))
+			(format "%s" (car ope))))
+		   (nreverse shrinked) ","))
 		")"))
      operations
      (concat "\n" (wl-set-string-width column "")))))