concatenated to the provided request, except if the request is
prefaced with \\."
(interactive
- (list (read-string "mymail: " nil 'mymail-vm-history)))
+ (list (read-string "mymail-vm: " nil 'mymail-vm-history)))
(let ((n 1)
(mbox-name nil)
(if (not (string= searche-request ""))
(list "-s" searche-request)))
(if (string= (substring param 0 1) "\\")
- (split-string (substring param 1 nil))
+ (split-string (substring param 1 nil) ",")
(split-string (concat param "," mymail/default-search-request) ","))
)))