- (mapcar
- (lambda (searche-request)
- (if (not (string= searche-request ""))
- (list "-s" searche-request)))
- (if (string= (substring param 0 1) "\\")
- (split-string (substring param 1 nil))
- (split-string (concat param "," mymail/default-search-request) ","))
- )))
-
+ (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) ","))
+ )))