・まず
next if(!$Title && !$Message && (!$Admin || $mkHTML));
という行（２回出てくる）の下に、
$Message =~ s/^(<nicky_sitagaki>)/※この記事は投稿されていません<br><br>/;
next if(($Message =~ /^<nicky_sitagaki>/) && (!$Admin || $mkHTML));
という２行をそれぞれ追加。

・次に
next if( !$Title && !$Message );
という行（３回出てくる）の下に、
next if($Message =~ /^<nicky_sitagaki>/);
という行をそれぞれ追加。

・そしてボタン作り。
$ITS"KAKUNINH" value="ヘッダをつけて確認">
の行の下あたりに
$ITS"SWRITE" value="下書き">
という行を追加。

・「指定された日時の記事を編集する」（sub NickyEdit）の中の
&GetNickyFile($NickyFname);
という行の下に、
$Message=~s/<nicky_sitagaki>//g;
という行を追加。

・さらにずっと下、「Modeに従って実行」（sub NickyExec）の中の
}elsif( ($Mode eq "WRITE") && ($Admin) ){
という行を、
}elsif((($Mode eq "WRITE")||($Mode eq "SWRITE"))&& ($Admin) ){
に変更。
そしてその数行下の、
$Category=$nCategory;
という行の下あたりに、
if($Mode eq "SWRITE"){
$Message=~ s/^(.)/<nicky_sitagaki>/;
}
という３行を追加。

追記。sub MakeNickyLastの
if( !$flag_new_hit && ($Mode eq "WRITE") ){
の行を
if( !$flag_new_hit && (($Mode eq "WRITE")||($Mode eq "SWRITE")) ){
に変えないと投稿した後の#tgtのアンカーがきかなくなってしまう様子

sub NickySerchLight{
my($zha,$zhb,$zhc,$zhd,$hi);
($SWord[$_],$cword) = @_ ;

$zha = qr{(?<!\x8F)};
$zhb = qr{(?=(?:[\xA1-\xFE][\xA1-\xFE])*(?:[\x00-\x7F\x8E\x8F]|\z))}x;
$zhc ="<<z_h>>";
$zhd ="<<\/z_h>>";
$Message =~ s/$zha\xA3([\xB0-\xB9\xC1-\xDA\xE1-\xFA])$zhb/$zhc.pack("C", ord() - 0x80).$zhd/oeg;
$Message =~ s/$zhd$zhc//g;
$Title =~ s/$zha\xA3([\xB0-\xB9\xC1-\xDA\xE1-\xFA])$zhb/$zhc.pack("C", ord() - 0x80).$zhd/oeg;
$Title =~ s/$zhd$zhc//g;
$Title =~ s/([\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE][\xA1-\xFE])/\n/g;
$Message =~ s/([\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE][\xA1-\xFE])/\n/g;

for($hi = 0; $hi<$cword; $hi++){
$SWord[$hi] =~ s/([\x8E\xA1-\xFE][\xA1-\xFE])/\n/g;
$Message =~ s/($SWord[$hi])/<span class=\"hili\"><\/span>/ig;
$Title =~ s/($SWord[$hi])/<span class=\"hili\"><\/span>/ig;
1 while $Title =~ s/(<[^>]*)(<span class=\"hili\">)([^<]*)(<\/span>)//ig;
1 while $Message =~ s/(<[^>]*)(<span class=\"hili\">)([^<]*)(<\/span>)//ig;
$SWord[$hi] =~ s/\n//g;
}
$Message =~ s/$zhc<span class=\"hili\">/<span class=\"hili\">$zhc/g;
$Message =~ s/<\/span>$zhd/$zhd<\/span>/g;
1 while $Message =~ s/($zhc[0-9A-Za-z])([^$zhd])/$zhd$zhc/g;
$Message =~ s/$zhc([0-9A-Za-z])$zhd/pack("C*", 0xA3, ord() + 0x80)/eg;
$Title =~ s/$zhc<span class=\"hili\">/<span class=\"hili\">$zhc/g;
$Title =~ s/<\/span>$zhd/$zhd<\/span>/g;
1 while $Title =~ s/($zhc[0-9A-Za-z])([^$zhd])/$zhd$zhc/g;
$Title =~ s/$zhc([0-9A-Za-z])$zhd/pack("C*", 0xA3, ord() + 0x80)/eg;
$Title =~ s/\n//g;
$Message =~ s/\n//g;
}