From 376afbf8f0e076f573e5e5dd2af5ffd097d60a36 Mon Sep 17 00:00:00 2001 From: Francois Fleuret Date: Wed, 6 Feb 2013 08:52:19 +0100 Subject: [PATCH] Cosmetics. --- mymail-vm.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/mymail-vm.el b/mymail-vm.el index 07ed864..f424c85 100644 --- a/mymail-vm.el +++ b/mymail-vm.el @@ -28,25 +28,26 @@ (let ((n 1) (mbox-name nil) + (search-args + (apply 'nconc (mapcar (lambda (searche-request) (if (not (string= searche-request "")) (list "-s" searche-request))) (split-string (concat param "," mymail/default-search-request) ",") - )))) + ))) + + ) (while (get-file-buffer (setq mbox-name (format "/tmp/mymail-vm-%d.mbox" n))) (setq n (+ n 1))) (if (= (apply 'call-process - (nconc `("mymail" nil nil nil "--output" ,mbox-name) - search-args)) + (nconc (list "mymail" nil nil nil "--output" mbox-name) + search-args)) 0) (vm-visit-folder mbox-name t) (message "mymail failed")) - - ;; (shell-command (concat "mymail --quiet --output " mbox-name " " args)) - ;; (vm-visit-folder mbox-name t) )) -- 2.20.1