From: Francois Fleuret Date: Sat, 2 Feb 2013 13:24:13 +0000 (+0100) Subject: Cosmetics + visit the folder in read-only mode. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=a30b5fcabc093b9a77fc48723369ea88de099bf7;p=mymail.git Cosmetics + visit the folder in read-only mode. --- diff --git a/mymail-vm.el b/mymail-vm.el index b65d732..b3d4357 100644 --- a/mymail-vm.el +++ b/mymail-vm.el @@ -21,12 +21,13 @@ (let ((n 1) (mbox-name nil) - (args (mapconcat (lambda (x) (concat "-s " "\"" x "\"")) - (split-string param ",") - " "))) + (args (mapconcat + (lambda (searche-request) (concat "-s " "\"" searche-request "\"")) + (split-string param ",") + " "))) (while (get-file-buffer (setq mbox-name (format "/tmp/mymail-vm-%d.mbox" n))) (setq n (+ n 1))) (shell-command (concat "mymail " args " > " mbox-name)) - (vm-visit-folder mbox-name) + (vm-visit-folder mbox-name t) ))