From: yoichi <yoichi>
Date: Sun, 19 Sep 2004 14:29:19 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-sync-marks): Remove condition which
X-Git-Tag: wl-2_12-root~95
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a7e48f21c14ce5a411c8bb896ec2ead0edf148c1;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-sync-marks): Remove condition which
is always true.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 90578b7..1a13a79 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-19  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-summary.el (wl-summary-sync-marks): Remove condition which
+	is always true.
+
 2004-09-15  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-mime.el (wl-mime-preview-follow-current-region): Avoid error
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index cd3daaf..f10bd11 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1806,28 +1806,23 @@ This function is defined for `window-scroll-functions'"
   (interactive)
   (let ((mes "Updated ")
 	diff diffs)
-    ;; synchronize marks.
-    (when (not (eq (elmo-folder-type-internal
-		    wl-summary-buffer-elmo-folder)
-		   'internal))
-
-      (message "Updating marks...")
-      (dolist (flag (wl-summary-get-available-flags))
-	(setq diff (elmo-list-diff (elmo-folder-list-flagged
-				    wl-summary-buffer-elmo-folder
-				    flag)
-				   (elmo-folder-list-flagged
-				    wl-summary-buffer-elmo-folder
-				    flag 'in-msgdb)))
-	(setq diffs (cadr diff))
-	(setq mes (concat mes (format "-%d" (length diffs))))
-	(when diffs
-	  (wl-summary-unset-persistent-mark flag diffs 'no-modeline 'no-server))
-	(setq diffs (car diff)
-	      mes (concat mes (format "/+%d %s " (length diffs) flag)))
-	(when diffs
-	  (wl-summary-set-persistent-mark flag diffs 'no-modeline 'no-server)))
-      (if (interactive-p) (message "%s" mes)))))
+    (message "Updating marks...")
+    (dolist (flag (wl-summary-get-available-flags))
+      (setq diff (elmo-list-diff (elmo-folder-list-flagged
+				  wl-summary-buffer-elmo-folder
+				  flag)
+				 (elmo-folder-list-flagged
+				  wl-summary-buffer-elmo-folder
+				  flag 'in-msgdb)))
+      (setq diffs (cadr diff))
+      (setq mes (concat mes (format "-%d" (length diffs))))
+      (when diffs
+	(wl-summary-unset-persistent-mark flag diffs 'no-modeline 'no-server))
+      (setq diffs (car diff)
+	    mes (concat mes (format "/+%d %s " (length diffs) flag)))
+      (when diffs
+	(wl-summary-set-persistent-mark flag diffs 'no-modeline 'no-server)))
+    (if (interactive-p) (message "%s" mes))))
 
 (defun wl-summary-sync-update (&optional unset-cursor
 					 disable-killed