WIP on matching messages

mailfilter-parse.lisp

@@ -87,7 +87,7 @@
 
 (defun clean-line (line)
   (let ((cleaned-line (string-trim '(#\Space #\Tab) line)))
-    (cl-ppcre:regex-replace-all "${MAILDIR}" cleaned-line *maildir*)))
+    (cl-ppcre:regex-replace-all "\\$MAILDIR" cleaned-line (princ-to-string *maildir*))))
 
 (defun hash-add-command (line hash)
   (let* ((cleaned-line (clean-line line))
@@ -97,7 +97,7 @@
     hash))
 
 (defun get-regex (line)
-  (second (split-sequence:split-sequence "/" line)))
+  (second (split-sequence:split-sequence #\/ line)))
 
 (defun make-regex-hash (regex)
   (let ((regex-hash (make-hash-table :test 'equal)))
@@ -125,3 +125,17 @@
     (with-open-file (s file)
       (loop-file-until s (lambda (x) (declare (ignore x)))  #'parse-line hash))
     hash))
+
+(defun message-match (message rule)
+  (cl-ppcre:scan (gethash "regex" rule) (mel:from message)))
+
+(defun handle-message (message rules)
+  (labels ((my-message-match (alexandria:curry message-match message)))
+    (find-if #'my-message-match rules)))
+
+(defun filter-maildir-folder (mailfilter)
+  (let* ((mailfilter-rules (read-mailfilter-file mailfilter))
+         (maildir (mel:make-maildir-folder (gethash "maildir" mailfilter-rules)))
+         (messages (mel:messages maildir)))
+    (dolist (message messages)
+      (handle-message message mailfilter-rules))))