105
105
"Create Virtual mode with 'mewl'"
106
106
(let ((opts (list "-a" "-p" pattern "-b" mew-mail-path))
107
107
(range (mew-summary-pick-range src-msgs)))
109
110
(setq opts (nconc opts (list pfolder range)))
110
111
(setq opts (nconc opts (list pfolder))))