* wl-summary.el (wl-summary-mark-as-read-all): Follow the API

[elisp/wanderlust.git] / wl / wl-draft.el

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 85fcdf9..98201e1 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -772,11 +772,11 @@ Reply to author if WITH-ARG is non-nil."
                       (string= (wl-summary-buffer-folder-name)
                                folder-name)))
                (with-current-buffer buffer
-                 (elmo-folder-unflag-answered folder (list number))
+                 (elmo-folder-unset-flag folder (list number) 'answered)
                  (when (wl-summary-jump-to-msg number)
                    (wl-summary-update-persistent-mark)))
              (elmo-folder-open folder 'load-msgdb)
-             (elmo-folder-unflag-answered folder (list number))
+             (elmo-folder-unset-flag folder (list number) 'answered)
              (elmo-folder-close folder))))
        (wl-draft-hide cur-buf)
        (wl-draft-delete cur-buf)))