' $System.Access Mail
' $Command.Mail.AccessModify $BS
' If $System.IsPost
'  $Command.Mail.ModifyThread $BS $RMID $MID
'  $System.ContentType
' EndIf
' Set $rm = $Command.Mail.GetMail $BS $RMID
' If $MID
'  Set $m = $Command.Mail.GetMail $BS $MID
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
' If $System.IsPost
' Call cmLoadJavaScript "window"
<script language="JavaScript" type="text/javascript"><!--
if ( IsAliveWindow( window.parent.opener ) )
{
	window.parent.opener.location.reload();
}
window.parent.close();
//-->
</script>
</head>
</html>
'  Exit
' EndIf
' $CaptionTitle = "スレッドの修復"
' Call cmHead $CaptionTitle
</head>
<body>
' Call cmChildHeader $CaptionTitle
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailRefChange">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="RMID" value="$RMID">
<input type="hidden" name="MID" value="$MID">
''
' Sub mainColumn
<div>「<b>$rm.Subject</b>」\\
' If $m
の親メールに「<b>$m.Subject</b>」を設定します。\\
' Else
以下のスレッドを親メールから切り離します。\\
' EndIf
<br>よろしいですか？</div>
' Call formColumn
' EndSub
''
' Sub formColumn
'  Call formCommit "はい" "いいえ"
' EndSub
''
' Call layout_msg "" "" 0 mainColumn
</form>
' Call cmChildFooter "javascript:history.back();" "戻る"
</body>
</html>