Source

vm / vm-virtual.el

Diff from to

File vm-virtual.el

 	  (setcdr (car clauses)
 		  (list (list 'and '(marked)
 			      (nconc (list 'or) (cdr (car clauses)))))))
-      (message "%S" (car clauses))
       (setq clauses (cdr clauses)))
     (setcar vfolder (format "%s/%s" (buffer-name) (car vfolder)))
     (setq vm-virtual-folder-alist (list vfolder))