* wl-util.el (wl-current-message-buffer): Follow the API change.

[elisp/wanderlust.git] / elmo / elmo-spam.el

diff --git a/elmo/elmo-spam.el b/elmo/elmo-spam.el
index 683d443..883ded7 100644 (file)
--- a/elmo/elmo-spam.el
+++ b/elmo/elmo-spam.el
@@ -124,8 +124,7 @@ If optional argument RESTORE is non-nil, unregister from spam list.")
   (let (elmo-message-fetch-threshold)
     (elmo-message-fetch
      folder number
-     (elmo-find-fetch-strategy folder
-                              (elmo-message-entity folder number))
+     (elmo-find-fetch-strategy folder number nil 'entire)
      nil (current-buffer) 'unread)))
 
 ;; generic implement