Browse Source

passes_all

tags/v0.3.1
Bob Rudis 6 years ago
parent
commit
366addb6e1
  1. 2
      R/spf.r

2
R/spf.r

@ -61,7 +61,7 @@ passes_all <- function(spf_rec) {
ret <- vector("logical", length(spf_rec))
spf_rec <- stringi::stri_trim(stringi::stri_replace_all_regex(spf_rec, '"', ""))
SPF <- which(has_spf(spf_rec))
ret[SPF] <- grepl("\\+all$", stringi::stri_trim(spf_rec[SPF]))
ret[SPF] <- grepl("[\\+ ]all$", stringi::stri_trim(spf_rec[SPF]))
ret[!SPF] <- NA
ret
}

Loading…
Cancel
Save