Message-ID

R

これもまた複雑なようで・・・。ぐぐって最初にあったこちらのサイトを参考に作成。

# timestamp and random number (without hashing)
getMessageID <- function(address){
    lp <- paste(format(Sys.time(), "%Y%m%d%H%M%S"), runif(1), sep="")
    dp <- sub(">", "", sub(".+@(.+)", "\\1", address))
    return(paste(lp, "@", dp, sep=""))
}

本当はハッシュ関数にかけたほうがいいらしいんだけど、まあユニークならOKかな？

> getMessageID('"Konata Izumi"<knt@lucky-ch.com>')
[1] "200707201810560.931788169778883@lucky-ch.com"
> getMessageID('knt@lucky-ch.com')
[1] "200707201811050.82404238707386@lucky-ch.com"
>