From a30b5fcabc093b9a77fc48723369ea88de099bf7 Mon Sep 17 00:00:00 2001 From: Francois Fleuret Date: Sat, 2 Feb 2013 14:24:13 +0100 Subject: [PATCH] Cosmetics + visit the folder in read-only mode. --- mymail-vm.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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) )) -- 2.20.1