pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

filename in 'content-disposition' header have higher priority then filename in 'mime-type' header

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@86 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2008-04-25 19:53:24 +00:00
parent 50d051d2dc
commit 6063a8b0d5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mimepart.pas
View File

@ -1,5 +1,5 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 002.007.007 | | Project : Ararat Synapse | 002.007.008 |
|==============================================================================| |==============================================================================|
| Content: MIME support procedures and functions | | Content: MIME support procedures and functions |
|==============================================================================| |==============================================================================|
@ -843,7 +843,7 @@ begin
if Pos('CONTENT-ID:', su) = 1 then if Pos('CONTENT-ID:', su) = 1 then
FContentID := Trim(SeparateRight(s, ':')); FContentID := Trim(SeparateRight(s, ':'));
end; end;
if FFileName = '' then if fn <> '' then
FFileName := fn; FFileName := fn;
FFileName := InlineDecode(FFileName, FTargetCharset); FFileName := InlineDecode(FFileName, FTargetCharset);
FFileName := ExtractFileName(FFileName); FFileName := ExtractFileName(FFileName);