(when (not no-check-folder)
(if (not (eq (elmo-folder-get-type wl-draft-folder) 'localdir))
(error "%s is not allowed for draft folder" wl-draft-folder))
(unless (elmo-folder-exists-p wl-draft-folder)
(if (y-or-n-p
(when (not no-check-folder)
(if (not (eq (elmo-folder-get-type wl-draft-folder) 'localdir))
(error "%s is not allowed for draft folder" wl-draft-folder))
(unless (elmo-folder-exists-p wl-draft-folder)
(if (y-or-n-p