diff options
| -rw-r--r-- | milter_api.adb | 58 |
1 files changed, 29 insertions, 29 deletions
diff --git a/milter_api.adb b/milter_api.adb index ab0793b..1298aab 100644 --- a/milter_api.adb +++ b/milter_api.adb @@ -68,35 +68,35 @@ package body Milter_API is -- Option flags: - SMFIF_ADDHDRS : constant := 16#1#; -- add headers - SMFIF_CHGBODY : constant := 16#2#; -- replace body - SMFIF_ADDRCPT : constant := 16#4#; -- add envelope recipients - SMFIF_DELRCPT : constant := 16#8#; -- delete envelope recipients - SMFIF_CHGHDRS : constant := 16#10#; -- change/delete headers - SMFIF_QUARANTINE : constant := 16#20#; -- quarantine envelope - SMFIF_CHGFROM : constant := 16#40#; -- change envelope sender - SMFIF_ADDRCPT_PAR : constant := 16#80#; -- add recipients with args - SMFIF_SETSYMLIST : constant := 16#100#; -- request set of symbols - SMFIP_NOCONNECT : constant := 16#1#; -- don't send connect info - SMFIP_NOHELO : constant := 16#2#; -- don't send HELO info - SMFIP_NOMAIL : constant := 16#4#; -- don't send MAIL info - SMFIP_NORCPT : constant := 16#8#; -- don't send RCPT info - SMFIP_NOBODY : constant := 16#10#; -- don't send body - SMFIP_NOHDRS : constant := 16#20#; -- don't send headers - SMFIP_NOEOH : constant := 16#40#; -- don't send EOH - SMFIP_NR_HDR : constant := 16#80#; -- No reply for headers - SMFIP_NOUNKNOWN : constant := 16#100#; -- don't send unknown commands - SMFIP_NODATA : constant := 16#200#; -- don't send DATA - SMFIP_SKIP : constant := 16#400#; -- MTA understands SMFIS_SKIP - SMFIP_RCPT_REJ : constant := 16#800#; -- also send rejected RCPTs - SMFIP_NR_CONN : constant := 16#1000#; -- No reply for connect - SMFIP_NR_HELO : constant := 16#2000#; -- No reply for HELO - SMFIP_NR_MAIL : constant := 16#4000#; -- No reply for MAIL - SMFIP_NR_RCPT : constant := 16#8000#; -- No reply for RCPT - SMFIP_NR_DATA : constant := 16#10000#; -- No reply for DATA - SMFIP_NR_UNKN : constant := 16#20000#; -- No reply for UNKN - SMFIP_NR_EOH : constant := 16#40000#; -- No reply for eoh - SMFIP_NR_BODY : constant := 16#80000#; -- No reply for body chunk + SMFIF_ADDHDRS : constant := 16#1#; -- add headers + SMFIF_CHGBODY : constant := 16#2#; -- replace body + SMFIF_ADDRCPT : constant := 16#4#; -- add envelope recipients + SMFIF_DELRCPT : constant := 16#8#; -- delete envelope recipients + SMFIF_CHGHDRS : constant := 16#10#; -- change/delete headers + SMFIF_QUARANTINE : constant := 16#20#; -- quarantine envelope + SMFIF_CHGFROM : constant := 16#40#; -- change envelope sender + SMFIF_ADDRCPT_PAR : constant := 16#80#; -- add recipients with args + SMFIF_SETSYMLIST : constant := 16#100#; -- request set of symbols + SMFIP_NOCONNECT : constant := 16#1#; -- don't send connect info + SMFIP_NOHELO : constant := 16#2#; -- don't send HELO info + SMFIP_NOMAIL : constant := 16#4#; -- don't send MAIL info + SMFIP_NORCPT : constant := 16#8#; -- don't send RCPT info + SMFIP_NOBODY : constant := 16#10#; -- don't send body + SMFIP_NOHDRS : constant := 16#20#; -- don't send headers + SMFIP_NOEOH : constant := 16#40#; -- don't send EOH + SMFIP_NR_HDR : constant := 16#80#; -- No reply for headers + SMFIP_NOUNKNOWN : constant := 16#100#; -- don't send unknown commands + SMFIP_NODATA : constant := 16#200#; -- don't send DATA + SMFIP_SKIP : constant := 16#400#; -- MTA understands SMFIS_SKIP + SMFIP_RCPT_REJ : constant := 16#800#; -- also send rejected RCPTs + SMFIP_NR_CONN : constant := 16#1000#; -- No reply for connect + SMFIP_NR_HELO : constant := 16#2000#; -- No reply for HELO + SMFIP_NR_MAIL : constant := 16#4000#; -- No reply for MAIL + SMFIP_NR_RCPT : constant := 16#8000#; -- No reply for RCPT + SMFIP_NR_DATA : constant := 16#10000#; -- No reply for DATA + SMFIP_NR_UNKN : constant := 16#20000#; -- No reply for UNKN + SMFIP_NR_EOH : constant := 16#40000#; -- No reply for eoh + SMFIP_NR_BODY : constant := 16#80000#; -- No reply for body chunk SMFIP_HDR_LEADSPC : constant := 16#100000#; -- header value leading space |