&INFO`VERSION %vb=2.3

think ansi(h,Checking your RE_SUBJECT. You may wish to modify EN`REPLY_SUBJECT on %VC if you've changed this from the default.)
+MAIL/CONFIG RE_SUBJECT

&config`re_subject %vb
&config`re_subject`type %vb
&config`re_subject`value %vb

&fun.purge-sub %vb=null(sql(DELETE FROM `%vpbbinbox` WHERE [setq(0,secs())][iter(setunion(regeditall(setr(0,sql(SELECT `%vpbbinbox`.`bbcode`\, `%vpbbinbox`.`id` FROM `%vpbbinbox` INNER JOIN `%vpmail` ON `%vpmail`.`id` = `%vpbbinbox`.`id` WHERE [iter(lattr(%vd/bb`id->name`*),(`%vpbbinbox`.`bbcode` = '[last(##,`)]' AND `%vpmail`.`date` < [sub(%q0,switch(default(%vd/bb`timeout`[get(%vd/##)],0),0,%q0,get(%vd/bb`timeout`[get(%vd/##)])))]),,%bOR%b)],%b,^)),\\^\\S+,),),(`bbcode` = '##' AND `id` IN([squish(regeditall(graball(%q0,##^*),\\S+\\^(\\S+),'$1'\,))]'#-2')),,%bOR%b)])[sql(DELETE FROM `%vpmail` WHERE `id` IN([squish(regeditalli(sql(SELECT P.ID FROM `%vpmail` P LEFT JOIN `%vpinbox` ON P.id = `%vpinbox`.ID LEFT JOIN `%vpbbinbox` ON P.id = `%vpbbinbox`.ID LEFT JOIN `%vpmail` C ON C.forwards LIKE concat('%%|'\,P.id\,'|%%') WHERE `%vpinbox`.ID IS NULL AND `%vpbbinbox`.ID IS NULL AND C.forwards IS NULL LIMIT 100,%b,%b),\\S+,$0\,))]'#-2'))][sql(DELETE FROM `%vpinbox` WHERE `who` IN([squish(iter(sql(SELECT DISTINCT `who` FROM `%vpinbox`),if(pmatch(##),,'##'\,)))]'#-2'))])
  
&fun.reply-sub %vb=switch(0,first(setr(0,ufun(fun.range,%1,%0,%2)),|),ufun(msg,elements(%q0,2,|),elements(%q0,3,|)),eq(words(setr(i,elements(%q0,2,|))),1),ufun(msg,reply-to-one,words(%qi)),not(strmatch(setr(a,ufun(fun.parseaddr,null(regmatch(sql(SELECT CONCAT(`who`,' ',`recip`)\, `subject` FROM `%vpmail` WHERE `id` = '[sqlescape(%qi)]',,^),^(.+)\\^(.+)$,-1 r s))%qr,%:)),setr(x,ufun(%vb/beep))%qx*)),ufun(msg,no-good-replyers),switch(setr(t,elements(%qa,3,%qx)),?*,ufun(msg,these-players-bad,%qt)%r[ufun(tag)])[switchall(0,strlen(elements(setr(1,ufun(fun.checklocks,%qa,%0)),1,%qx)),ufun(msg,fail-locks-all,ufun(fun.format-names,elements(%q1,%qx,2),%0))[elements(%q1,3,%qx)],not(strmatch(%ql,?*%qx?*%qx*)),ufun(msg,fail-locks-some,ufun(fun.format-names,elements(%q1,2,%qx),%0))[elements(%q1,3,%qx)]%r[u(tag)],not(strlen(elements(%q1,1,%qx))),ufun(msg,reply-msg,ufun(fun.mail-start-sub,%0,ufun(msg,reply-subject,%qs),elements(%q1,1,%qx)),switch(%1,%0,,ufun(%vb/fun.format-name-noansi,%1)%b)[elements(%q0,3,|)]))])

@@ This just infinitely prepends "Re: ", which was the old behaviour with +mail/config re_subject
@@ &en`reply-subject %vc=Re: %0

@@ This does "Re: subj", then "Re (count): subj"
@@ &en`reply-subject %vc=localize(switch(%0,Re: *,Re (2): [after(%0,%b)],Re (*):*,if(isnum(setr(C,first(rest(%0,\(),\)))),Re ([add(%qC,1)]): [after(%0,:)],Re: %0),Re: %0))

&en`reply-subject %vc=localize(if(regmatch(%0,^((?:Re: )+)(.*?)$,- 1 2),switch(words(%q1),1,Re: Re: %q2,Re \([add(words(%q1),1)]\): %q2),if(regmatch(%0,^Re \\((\[0-9\]+)\\): (.*)$,- 1 2),Re ([add(%q1,1)]): %q2,Re: %0)))
  
&fun.sendmail-sub %vb=localize(switch(0,comp(left(setr(1,ulocal(fun.parseaddr,%1,owner(%qC))),2),beep(2)),0,null(sql(INSERT INTO `%vpmail`(`who`,`date`,`subject`,`recip`,`body`,`sent`,`forwards`) VALUES('[setr(0,firstof(objid(pmatch(%0)),objid(pmatch(#1)),objid(pmatch(owner(%qc))),objid(owner(me))))]','[secs()]','[sqlescape(setr(S,ufun(fun.format-subject,%2)))]','[sqlescape(setr(1,elements(%q1,1 2,beep(),%b)))]','[sqlescape(edit(%3,ufun(%vb/beep),))]','1',''))[ufun(fun.send-sub,%q0,pmatch(%q0),ufun(fun.propername,%q0),not(%4),sql(SELECT last_insert_id()),%q1,%qs)])1))