Made an (ugly) split that obeys ""

parse-mailfilter.lisp

@@ -49,6 +49,21 @@ is replaced with replacement."
             when pos do (write-string replacement out)
             while pos)))
 
+; This function is pretty ugly but I was tired when I wrote it and just wanted it to work.
+; TODO: Clean this up
+(defun split-quoted (str)
+  (let ((my-list nil)
+        (my-string (make-array 0 :element-type 'character :fill-pointer 0 :adjustable t))
+        (encountered-quote nil))
+      (loop for c across str do
+            (if (eq c #\")
+                (setf encountered-quote (not encountered-quote)))
+            (if (or (not (eq c #\Space)) encountered-quote)
+                (vector-push-extend c my-string)
+                (progn (setf my-list (append my-list (list my-string)))
+                       (setf my-string (make-array 0 :element-type 'character :fill-pointer 0 :adjustable t)))))
+      (setf my-list (append my-list (list my-string)))))
+
 (defun empty-string? (str)
   (string= "" str))
 
@@ -88,7 +103,7 @@ is replaced with replacement."
           (set-maildir line hash))))
 
 (defun test-for-command (line)
-  (member (first(split (string-trim '(#\Space #\Tab) line) " ")) *commands* :test #'equal))
+  (member (first(split-quoted (string-trim '(#\Space #\Tab) line))) *commands* :test #'equal))
 
 (defun clean-line (line)
   (let ((cleaned-line (string-trim '(#\Space #\Tab) line)))
@@ -96,7 +111,7 @@ is replaced with replacement."
 
 (defun hash-add-command (line hash)
   (let* ((cleaned-line (clean-line line))
-        (line-list (split cleaned-line " ")))
+        (line-list (split-quoted cleaned-line)))
     (sethash "command" hash (first line-list))
     (sethash "args" hash (subseq line-list 1))
     hash))