From: Francois Fleuret Date: Wed, 6 Feb 2013 07:52:19 +0000 (+0100) Subject: Cosmetics. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=376afbf8f0e076f573e5e5dd2af5ffd097d60a36;p=mymail.git Cosmetics. --- 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) ))