<!--#include file="PartsRichText.html"-->
' If $MailProfile.DLWarning
<script language="JavaScript" type="text/javascript"><!--
function confirmDownload()
{
	if( confirm( 'このファイルに実行可能なスクリプトが含まれている場合、\nダウンロード後に実行される可能性があります。\n\n処理を続行しますか？' ) )
	{
		return true;
	}
	return false;
}
//-->
</script>
' EndIf
''
' Sub dlLink $dlURL $dlCaption $dlType $dlHide
<a href="$dlURL"\\
'  $dltvar = $Command.String.MakeLower $dlType
'  If ( $dltvar = "text/plain" ) or ( $dltvar = "text/html" )
'   If $MailProfile.DLWarning
 onClick="return confirmDownload();"\\
'   EndIf
'  EndIf
>$dlCaption</a>\\
'  If $dlType and ( ! $dlHide )
 ($dlType)
'  EndIf
' EndSub
''
' If $IMID
'  $PMID = $IMID
' Else
'  $IMID = $MID
' EndIf
' $System.SetParameter Inline "Inline$WID"
' $mtval = $Command.String.MakeLower $m.Type
' $mmimeval = $Command.String.MakeLower $m.MIMEType
' $MultipartAlternative = "multipart/alternative"
' $MultipartRelated = "multipart/related"
<script>
mw.relatedContents = {};
</script>
' If ( $mtval = "multipart" ) or ( $mtval = $MultipartAlternative ) or ( $mtval = $MultipartRelated )
'  $i = 0
'  For Each $p in $m
'   $pmimeval = $Command.String.MakeLower $p.MIMEType
'   $EscFileName = $Command.String.CensorURLFileName $p.Name 1
'   $EncFileName = $Command.String.Encode $p.Name
'   $parval = $Command.String.MakeLower $p.ParentType
'   $ptyval = $Command.String.MakeLower $p.Type
'   $FileName = $p.Name
'   $MIME.FileName = $FileName
'   If ( $parval = $MultipartRelated ) And $p.ContentId
'    $HasRelatedContent = 1
'   Else
'    $HasRelatedContent = 0
'   EndIf
'   If $i And ! ( $Preceded And ( $i = 1 ) ) And ! ( $HasRelatedContent )
<hr>
'   EndIf
'   Call cmGetDownloadURLLastParams DLUrlLastParams $MIME.Ext
'   If ( $ptyval = "text/plain" ) and ( $i = 0 )
'    $Preceded = 0
'    If $parval = $MultipartAlternative
'     $j = 1
'     Set $NextPart = $m.$j
'     If $NextPart and ( $NextPart.Type = "text/html" )
'      Call ShowRichText
'      $Preceded = 1
'     EndIf
'    EndIf
'    If ! $Preceded
'     View $m.Data $orgSize
'    EndIf
'   Elif ( $ptyval = "text/html" ) and ( $i = 1 ) and ( ( $parval = $MultipartAlternative ) Or ( $parval = $MultipartRelated ) )
'   Elif ( $ptyval = "text/html" ) and ( $i = 0 )
'    Call ShowRichText
'   Elif $HasRelatedContent
'    $ContentId = $p.ContentId
<script>
'    $System.SetParameter "RelatedContentURL" "$Server/$EscFileName?page=MailContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&pid=$i&ct=1&filename=$EncFileName$$DLUrlLastParams"
mw.relatedContents['$_ContentId.JSEscape'] = '$_RelatedContentURL.JSEscape';
</script>
'    $Related = 1
'   Elif $pmimeval = "application/applefile"
'    $ch = $System.StrHead $p.Name 1
'    If $ch != "%..."
'     Call dlLink "$Server/$EscFileName?page=MailContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&pid=$i&ct=1&filename=$EncFileName$$DLUrlLastParams" $FileName $p.MIMEType
'    EndIf
'   Elif $pmimeval = "message/rfc822"
'    If ! $FileName
'     $FileName = "本文"
'    EndIf
'    If ! $IncludedMails
'     Set $IncludedMails = $m.IncludedMails
'    EndIf
'    $CMID = $m.IncludedPart.$i
'    Call dlLink "$Server/$EscFileName?page=MailContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&pid=$i&ct=1&filename=$EncFileName$$DLUrlLastParams" $FileName $p.MIMEType
'    If $IncludedMails.$CMID
<a href="$Server?page=MailIncludedContents&wid=$WID&bs=$BS&vid=$VID&mid=$MID&dbid=$DBID&imid=$CMID">表示</a>\\
'    Else
<a href="$Server?page=MailIncludedContents&wid=$WID&bs=$BS&vid=$VID&mid=$MID&dbid=$DBID&pmid=$PMID&i=$i">表示</a>\\
'    EndIf
<font size=+2> </font><br>
'   Elif ! $p.Name
'    Call dlLink "$Server/notitle?page=MailContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&pid=$i&ct=1$DLUrlLastParams" "(無題)" $p.MIMEType
'   Elif ( $p.SubType = "richtext" ) or ( $p.SubType = "octet-stream" )
'    If $MIME.Type
'     Call dlLink "$Server/$EscFileName?page=MailContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&pid=$i&ct=1&type=$MIME.MainType&subtype=$MIME.SubType&filename=$EncFileName$$DLUrlLastParams" $FileName $MIME.Type
'    Else
'     Call dlLink "$Server/$EscFileName?page=MailContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&pid=$i&ct=1&filename=$EncFileName" $FileName $p.MIMEType
'    EndIf
'   Elif $Login.$Inline and ( ( $pmimeval = "image/gif" ) or ( $pmimeval = "image/png" ) or ( $pmimeval = "image/jpg" ) or ( $pmimeval = "image/jpeg" ) or ( $pmimeval = "image/jpe" ) or ( $pmimeval = "image/pjpeg" ) )
<img src="$Server/$EscFileName?page=MailContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&pid=$i&ct=1&filename=$EncFileName$$DLUrlLastParams">
'   Else
'    Call dlLink "$Server/$EscFileName?page=MailContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&pid=$i&ct=1&filename=$EncFileName$$DLUrlLastParams" $FileName $p.MIMEType
'   EndIf
'   Inc $i
'  Next
' Elif $mtval = "text/html"
'    Call ShowRichText
' Elif $mtval = "text/plain"
'  View $m.Data $orgSize
' Elif ( $mtval = "image/gif" ) or ( $mtval = "image/png" ) or ( $mtval = "image/jpeg" ) or ( $mtval = "image/pjpeg" )
'  $MIME.FileName = $m.FileName
'  Call cmGetDownloadURLLastParams DLUrlLastParams $MIME.Ext
'  If $m.FileName or ( $m.FileName = 0 )
'   $EscFileName = $Command.String.CensorURLFileName $m.FileName 1
'   If $Login.$Inline
<img src="$Server/$EscFileName?page=MailBinContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&ct=1$DLUrlLastParams">
'   Else
'    Call dlLink "$Server/$EscFileName?page=MailBinContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&ct=1$DLUrlLastParams" $m.FileName $m.Type
'   EndIf
<br>
'  Else
'   If $Login.$Inline
<img src="$Server/notitle?page=MailBinContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&ct=1$DLUrlLastParams">
'   Else
'    Call dlLink "$Server/notitle?page=MailBinContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&ct=1$DLUrlLastParams" "(無題)" $m.Type
'   EndIf
<br>
'  EndIf
' Elif ( $mtval = "unknown" ) and ( ! $m.ContentType ) and $m.Data
'  View $m.Data $orgSize
' Elif $mmimeval and ( $mmimeval != "text/plain" )
'  If $m.FileName or ( $m.FileName = 0 )
'   $EscFileName = $Command.String.CensorURLFileName $m.FileName 1
'   $MIME.FileName = $m.FileName
'   Call cmGetDownloadURLLastParams DLUrlLastParams $MIME.Ext
'   Call dlLink "$Server/$EscFileName?page=MailBinContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&ct=1$DLUrlLastParams" $m.FileName $m.MIMEType
<br>
'  Else
'   Call cmGetDownloadURLLastParams DLUrlLastParams ""
'   Call dlLink "$Server/notitle?page=MailBinContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&ct=1$DLUrlLastParams" "本文" $m.MIMEType
<br>
'  EndIf
' Else
'  Call cmGetDownloadURLLastParams DLUrlLastParams ""
'  Call dlLink "$Server/notitle?page=MailBinContents&wid=$WID&bs=$BS&vid=$VID&mid=$IMID&dbid=$DBID&work=$Work&ct=1$DLUrlLastParams" "本文"
<br>
' EndIf
' If $Related
<script>
jQuery(function($){
  var images = $('img', '#richtext_area');
  
  images.each(function() {
    var img = $(this);
    for (var key in mw.relatedContents) {
      
      var url = mw.relatedContents[key];
      
      if ( img.attr('src') == 'cid:' + key ) {
        img.attr('src', url);
      }
    }
  });
});
</script>
' EndIf