<@20> <@local(ps,h,form,art)> <$ps = v.load_plgset(argv#0)> <$form = argv#1> <$art = argv#2> <$host = ENV.HTTP_HOST || ENV.SERVER_NAME> <$from = v.system_email || ps.from || if(index(host,'.')>0, "noreply@<@host>", '')> <$ifbreak(ps.to eq '')> <@> <@>新着コメントメール <@> <$h = new> <$h.to = ps.to> <$h.from = from> <$ifset(from, h.reply_to, from)> <$h.from_name = Server_name> <$h.subject = if(ps.subject ne '', ps.subject, '%n notify')> <$h.subject = replace(h.subject, '%n', "『<@v.blog.blog_name>』")> <$h.text = begin_string> 『<@v.blog.blog_name>』に新着のコメントがあります。 from <@form.name> <@form.comment_txt> <@Server_url><@v.myself2><@v.link_key_encode(x = art.link_key)>#com <$end> <$m = loadpm('Base::Mail')> <$r = m.send_mail(h)>