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

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