(elmo-commit src))
(run-hooks 'elmo-pipe-drained-hook)))
-(defun elmo-pipe-list-folder (spec)
+(defun elmo-pipe-list-folder (spec &optional nohide)
(elmo-pipe-drain (elmo-pipe-spec-src spec)
(elmo-pipe-spec-dst spec))
(let ((killed (and elmo-use-killed-list