Add common config for imapfilter

.gitignore

@@ -3,6 +3,7 @@
 .netrwhist
 */gittum/private.gitconfig
 */vim/bundle/private/*
+dotfiles/imapfilter/private
 dotfiles/moc/cache/
 dotfiles/moc/equalizer
 dotfiles/moc/last_directory

dotfiles/imapfilter/common/functions.lua

@@ -0,0 +1,55 @@
+socket = require "socket"
+
+function shortname()
+    local long = socket.dns.gethostname()
+    return string.gmatch(long, '[^.]+')()
+end
+
+function get_queue(mbox)
+    --TODO: try to get tail
+    return mbox.FILTER_QUEUE:is_newer(84)
+end
+
+function _partinf_compare(a, b)
+    if not type(a) == type(b) then
+        return false
+    end
+    if type(a) == 'number' then
+        return a == b
+    elseif type(a) == 'string' then
+        return a:lower() == b:lower()
+    end
+end
+
+function has_part_like(query, structure)
+    if structure == nil then
+        return false
+    end
+    for partid, partinf in pairs(structure) do
+        local part_answer = true
+        -- check all query parts
+        for qkey, qvalue in pairs(query) do
+            value = partinf[qkey]
+            if not _partinf_compare(value, qvalue) then
+                part_answer = false
+                break
+            end
+        end
+        if part_answer then
+            return true
+        end
+    end
+    return false
+end
+
+function filter_part_like(query, seq)
+    result = Set {}
+    for _, mesg in ipairs(seq) do
+        mbox, uid = table.unpack(mesg)
+        structure = mbox[uid]:fetch_structure()
+        if has_part_like(query, structure) then
+            table.insert(result, mesg)
+        end
+    end
+    return result
+end

dotfiles/imapfilter/config.lua

@@ -0,0 +1,6 @@
+dofile ".imapfilter/common/functions.lua"
+
+host_folder = ".imapfilter/host/" .. shortname()
+dofile (host_folder .. "/accounts.lua")
+dofile (host_folder .. "/options.lua")
+dofile (host_folder .. "/rules.lua")

dotfiles/imapfilter/host

@@ -0,0 +1 @@
+../../external/dotfiles/imapfilter/host

dotfiles/imapfilter/private/README

@@ -0,0 +1,4 @@
+Keep here only files that are never to leave the particular
+machine ie. never to be backed up or synchronized.
+
+This folder should be auto-ignored by all such tools.