[Feature] Support tag_exists SA function

diff --git a/src/plugins/lua/spamassassin.lua b/src/plugins/lua/spamassassin.lua
index bb80ce6b20cf88d6b7be05708e817ad84627c4ed..2a3c04bfc5b8f6d514ac07a602e193d6c92f9ab6 100644 (file)
--- a/src/plugins/lua/spamassassin.lua
+++ b/src/plugins/lua/spamassassin.lua
@@ -37,6 +37,7 @@ local known_plugins = {
   'Mail::SpamAssassin::Plugin::BodyEval',
   'Mail::SpamAssassin::Plugin::MIMEHeader',
   'Mail::SpamAssassin::Plugin::WLBLEval',
+  'Mail::SpamAssassin::Plugin::HTMLEval',
 }
 
 -- Table that replaces SA symbol with rspamd equialent
@@ -520,6 +521,24 @@ local function gen_eval_rule(arg)
         return 0
       end
     },
+    {
+      'html_tag_exists',
+      function(task, remain)
+        local tp = task:get_text_parts()
+
+        for _,p in ipairs(tp) do
+          if p:is_html() then
+            local hc = p:get_html()
+
+            if hc:has_tag(remain) then
+              return 1
+            end
+          end
+        end
+
+        return 0
+      end
+    }
   }
 
   for _,f in ipairs(eval_funcs) do