- (when (and wl-draft-parent-number
- (not (string= wl-draft-parent-folder "")))
- (let* ((number wl-draft-parent-number)
- (folder-name wl-draft-parent-folder)
- (folder (wl-folder-get-elmo-folder folder-name))
- buffer)
- (if (and (setq buffer (wl-summary-get-buffer folder-name))
- (with-current-buffer buffer
- (string= (wl-summary-buffer-folder-name)
- folder-name)))
- (with-current-buffer buffer
- (dolist (flag wl-draft-kill-flags)
- (elmo-folder-unset-flag folder (list number) flag))
- (when (wl-summary-jump-to-msg number)
- (wl-summary-update-persistent-mark)))
- (elmo-folder-open folder 'load-msgdb)
- (elmo-folder-unset-flag folder (list number) 'answered)
- (elmo-folder-close folder))))