Skip to content
Browse files

Some renaming

  • Loading branch information...
1 parent 521081c commit e8e181637c3ca37138690347884d7b17f4e5da40 @andrenth committed Jul 10, 2012
Showing with 4 additions and 4 deletions.
  1. +4 −4 src/milter_callbacks.ml
View
8 src/milter_callbacks.ml
@@ -79,7 +79,7 @@ let spf_check ctx priv from =
| Milter.Continue -> spf_check_from ctx priv from
| other -> spf_res, milter_res
-let spf_add_header ctx header =
+let milter_add_header ctx header =
let sep = String.index header ':' in
let field = String.sub header 0 sep in
let value = String.sub header (sep + 2) (String.length header - sep - 2) in
@@ -88,7 +88,7 @@ let spf_add_header ctx header =
let with_priv_data z ctx f =
match Milter.getpriv ctx with
| None -> z
- | Some priv -> let p, r = f priv in Milter.setpriv ctx p; r
+ | Some p -> let p', r = f p in Milter.setpriv ctx p'; r
module FlagSet = SetOfList(struct
type t = Milter.flag
@@ -148,8 +148,8 @@ let eom ctx =
(fun priv ->
(match priv.result with
| No_result -> ()
- | Whitelisted s -> spf_add_header ctx s
- | Spf_response r -> spf_add_header ctx (Spf.received_spf r));
+ | Whitelisted s -> milter_add_header ctx s
+ | Spf_response r -> milter_add_header ctx (Spf.received_spf r));
priv, Milter.Continue)
let abort ctx =

0 comments on commit e8e1816

Please sign in to comment.
Something went wrong with that request. Please try again.