From 68ba7a639bbd352c067df464b3ff0ff35a2d9263 Mon Sep 17 00:00:00 2001 From: Francois Fleuret Date: Sat, 23 Mar 2013 18:29:00 +0100 Subject: [PATCH] Cosmetics. --- mymail-vm.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/mymail-vm.el b/mymail-vm.el index 840bd93..5d31d6a 100644 --- a/mymail-vm.el +++ b/mymail-vm.el @@ -59,17 +59,16 @@ prefaced with \\." (mbox-name nil) (search-args - (apply 'nconc - (mapcar - (lambda (searche-request) - (if (not (string= searche-request "")) - (list "--search" searche-request))) - (if (string= (substring param 0 1) "\\") - (split-string (substring param 1 nil) ",") - (split-string (concat param "," mymail/default-additional-search-requests) ",")) - ))) - + (mapcar + (lambda (searche-request) + (if (not (string= searche-request "")) + (list "--search" searche-request))) + (if (string= (substring param 0 1) "\\") + (split-string (substring param 1 nil) ",") + (split-string (concat param "," + mymail/default-additional-search-requests) ",")) + ))) ) (while (get-file-buffer (setq mbox-name (format "/tmp/mymail-vm-%d.mbox" n))) @@ -83,4 +82,4 @@ prefaced with \\." 0) (vm-visit-folder mbox-name t) (message "mymail failed")) - )) + )) -- 2.20.1