Comment 1 for bug 793527

Follow-up from Piter:

I have found solution on this list.
Thanks.

now my vm file looks like this
(setq vm-frame-per-completion nil)
(setq vm-frame-per-composition nil)
(setq vm-frame-per-edit nil)
(setq vm-frame-per-folder nil)
(setq vm-frame-per-folders-summary nil)
(setq vm-frame-per-help nil)
(setq vm-frame-per-summary nil)

(setq vm-folder-directory "~/.MAIL/mail/"
      vm-spool-directory "~/.MAIL/"
)
(cond ((string-equal vm-folder-directory vm-spool-directory)
       (error "vm-folder-directory and vm-spool-directory must be
different."))
      (t
       (setq vm-spool-files
             (mapcar '(lambda(spool-name)
                        (list (concat vm-folder-directory (replace-
regexp-in-string ".spool" "" spool-name))
                              (concat vm-spool-directory spool-name)
                              (concat vm-folder-directory (replace-
regexp-in-string ".spool" "" spool-name) ".CRASH")))
                     (directory-files vm-spool-directory nil
"^[^.]")))))