>>492
(setq wl-summary-move-spec-alist
'((new . ((t . nil)
(p . new)
(p . unread)))
(unread . ((t . nil)
(p . unread)))))
でどう?