|
sgsano さん、まいふぇろうさん今日は、ひろです。
> 現状ですと、設定で「 Re のまま」を選択しても元のメールが、 Re^2 などとな
> っているとカウントアップしてしまいます。このようなメールに返信する際、
> Re: に強制的に修正してくれるということです:
取り敢えず、これは仕様ということでしたので、私はマクロを使っています。
同種のマクロはライブラリにもあったと思いますが、私が使っているのは、末
尾のようなマクロです。宜しければ「送信用のエディタ起動時」のマクロとし
て使って下さい。
//Subject Re: の部分を鶴亀の設定にあわせて整形
disabledraw;
##x = x;
##y = y;
goscreentop;
##wintopy = y;
moveto 0,0;
$$search = searchbuffer;
##search = searchoption;
searchup "^Subject:",regular;
if( result ){
moveto 10,y;
##count = 0;
while(1){
$$re = gettext(x,y,x + 2,y);
$$mark = gettext(x + 2,y,x + 3,y);
if( !(($$re == "Re" || $$re == "RE" || $$re == "re") && ($$mark ==
"^" || $$mark == "[" || $$mark == ":" )) )break;
if($$mark == ":"){
##countTmp = 1;
moveto x + 2,y;
}
else{
moveto x + 3,y;
##countTmp = 0;
while(1){
if( code > 0x29 && code < 0x3A){
##countTmp = ##countTmp * 10 + code - 0x30;
right;
}
else break;
}
if( $$mark == "[" && code == 0x5D )right;
}
if( code == 0x3A ){
##endx = x;
##endy = y;
right;
}
else break;
##count = ##count + ##countTmp;
}
moveto ##endx,##endy;
beginsel;
moveto 12,y;
delete;
openreg "CURRENTUSER","Software\\Hidemaruo\\TuruKame\\Config";
##ReplySubject = getregnum("ReplySubject");
closereg;
if( ##count > 1){
if(##ReplySubject == 1)insert "^" + str(##count);
else if(##ReplySubject == 2)insert "[" + str(##count) + "]";
}
}
setsearch $$search, ##search;
moveto ##x,##y;
enabledraw ##wintopy;
|
|