From: yoichi <yoichi>
Date: Sat, 15 Dec 2007 01:23:14 +0000 (+0000)
Subject: * wl-util.el (wl-biff-check-folders): Set biff flag.
X-Git-Tag: wl-2_15_6-fixes~67
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5a4ada0dc2931096623a9c5e6f3fb261d7a48489;p=elisp%2Fwanderlust.git

* wl-util.el (wl-biff-check-folders): Set biff flag.
(from Naoto Morishima [wl:14031])
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 93b6685..43abbad 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-15  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-util.el (wl-biff-check-folders): Set biff flag.
+	(from Naoto Morishima [wl:14031])
+
 2007-11-09  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl.el (wl-plugged-server-indent): Use quote instead of
diff --git a/wl/wl-util.el b/wl/wl-util.el
index 1c63885..888dbc6 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -871,6 +871,7 @@ This function is imported from Emacs 20.7."
 	    (while flist
 	      (setq folder (wl-folder-get-elmo-folder (car flist))
 		    flist (cdr flist))
+	      (elmo-folder-set-biff-internal folder t)
 	      (when (and (elmo-folder-plugged-p folder)
 			 (elmo-folder-exists-p folder))
 		(setq new-mails