From: Francois Fleuret Date: Sat, 23 Mar 2013 17:29:00 +0000 (+0100) Subject: Cosmetics. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=68ba7a639bbd352c067df464b3ff0ff35a2d9263;p=mymail.git Cosmetics. --- 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")) - )) + ))