# HG changeset patch
# User jbe
# Date 1591701216 -7200
# Node ID b7596f5158d42dba3def060811d0c54b1c767512
# Parent  c839cbd66598cb9f2c8125e4ee7eb47813b95497
Added argument "raw_headers" to net.send_mail(...)

diff -r c839cbd66598 -r b7596f5158d4 framework/env/encode/mime/mail.lua
--- a/framework/env/encode/mime/mail.lua	Tue Feb 18 18:16:36 2020 +0100
+++ b/framework/env/encode/mime/mail.lua	Tue Jun 09 13:13:36 2020 +0200
@@ -60,6 +60,11 @@
   parts[#parts+1] = mbl("Cc",       args.cc)
   parts[#parts+1] = mbl("Bcc",      args.bcc)
   parts[#parts+1] = un("Subject", args.subject)
+  if args.raw_headers then
+    for i, raw_header in ipairs(args.raw_headers) do
+      parts[#parts+1] = raw_header
+    end
+  end
   parts[#parts+1] = "MIME-Version: 1.0\r\n"
   encode_container(parts, args)
   return table.concat(parts)
diff -r c839cbd66598 -r b7596f5158d4 framework/env/net/send_mail.lua
--- a/framework/env/net/send_mail.lua	Tue Feb 18 18:16:36 2020 +0100
+++ b/framework/env/net/send_mail.lua	Tue Jun 09 13:13:36 2020 +0200
@@ -9,6 +9,7 @@
   cc            = cc,              -- Cc       header address or table with 'name' and 'address' fields
   bcc           = bcc,             -- Bcc      header address or table with 'name' and 'address' fields
   subject       = subject,         -- subject of e-mail
+  raw_headers   = raw_headers,     -- sequence of raw header lines
   multipart     = multipart_type,  -- "alternative", "mixed", "related", or nil
   content_type  = content_type,    -- only for multipart == nil, defaults to "text/plain"
   binary        = binary,          -- allow full 8-bit content