wanderlustの高速化(かなり、怪しい、、)

　Meadow+wanderlust+Mercury/32(IMAPサーバ)でメールを読んでいますが、WanderlustでImapの同期がとてもとても遅い、、ん、なんの処理をしているのだろう??で早くする方法を見つけた。

　動きは理解していません、何の根拠もありません、現象だけ見て、早くするためだけにあてをつけました。

現象:IMAPのsync時に"Updating marks,,"とモードラインに表示され、かなりまたされる
原因:きっと、"Updating Marks,,"とかいう処理が遅いのであろう、、
対策:"Updating Marks,,"の処理をとめてしまえ、、影響は、こまったら考える、、

というわけで、、wl-summary.elの"wl-summary-sync-marks"を止めてしまいました。
以下のような感じ、、問題あっても、しらないよ！！

;;ここから;;;;;;;;;;;;;;;;;;;;;;
(defun wl-summary-sync-marks ()
"Update persistent marks in summary."
(interactive)
(let ((mes "Updated ")
diff diffs)
(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))))
;;ここまで;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;