// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of "Eclipse Public License v1.0"

// which accompanies this distribution, and is available

// at the URL "http://www.eclipse.org/legal/epl-v10.html".

//

// Initial Contributors:

// Nokia Corporation - initial contribution.

//

// Contributors:

//

// Description:

// MIUTMSG.CPP

//

#include <e32def.h>

#include "MIUTMSG.H"

#include "MIUT_ERR.H"

#include "IMCMMAIN.H"

#include "SMTPSET.H"	// CImSmtpSettings

#include "MIUTRSLV.H"

#include "MIUTCONV.H"

#include "POP3SET.H"

#include "IMAPSET.H"

#include <msventry.h>

#include <msvuids.h>

#include <bautils.h>	// BaflUtils

#include <barsread.h>	// TResourceReader

#include <imcm.rsg>

#include <cntdb.h>

#include <vcard.h>

#include <s32mem.h>

#include <f32file.h>

#include <apgcli.h> // for recognizeData

#include <eikenv.h>

#include <txtrich.h>

#include <cmsvbodytext.h>

#include <imcvcodc.h>

#include <tz.h> //Converting from UTC to local time

#include <tzconverter.h>

#include <cmsvplainbodytext.h>

#include <cmsvattachment.h>

#include <cmsvmimeheaders.h>

#include "cimattachmentmanager.h"

#include <mmsvattachmentmanagersync.h>

#include <cemailaccounts.h>

#include "CIMPLAINBODYTEXT.H"

#include <numberconversion.h>

#ifdef SYMBIAN_ENABLE_SPLIT_HEADERS  

#include "cimmessagepart.h"

#include "miut_errconsts.h"

#include "cimconvertcharconv.h"

#include "cimconvertheader.h"

#include <mtmuidsdef.hrh>

#include "msvconsts.h"

#endif

const TInt KMaxChunkLength = 1000;

const TInt KMiutAttachmentListGranularity=8;

const TInt KVCardFilenameLength=25;

const TUid KUidMsgTypePCMail = {0x1000412A};

const TUid KMessageCharSetStreamUid = {0x101FD0E4};

const TUint8 KMessageCharSetStreamVersion = 1;

const TInt KRFC2231Encoded = 2;

_LIT(KEllipsesString,",...");

_LIT(KSeparatorString,", ");

_LIT(KMhtmlUrlAmpersand, "&");

//

//CImEmailMessage

//

/**

Allocates and creates a new CImEmailMessage object.

@param aEntry

A CMsvEntry object that relates to a message server entry.

This object is used by CImEmailMessage to perform operations on particular

message server entries.  It does not matter what context aEntry happens to

be focused on.

@return

A CImEmailMessage message object.

@see CMsvEntry

*/

EXPORT_C CImEmailMessage* CImEmailMessage::NewL(CMsvEntry& aEntry)

	{

	CImEmailMessage* self = CImEmailMessage::NewLC(aEntry);

	CleanupStack::Pop();

	return self;

	}

/**

Allocates and creates a new CImEmailMessage object, leaving the object on the 

cleanup stack.

@param aEntry

A CMsvEntry object that relates to a message server entry.

This object is used by CImEmailMessage to perform operations on particular

message server entries.  It does not matter what context aEntry happens to

be focused on.

@return

A CImEmailMessage object.

@see CMsvEntry

*/

EXPORT_C CImEmailMessage* CImEmailMessage::NewLC(CMsvEntry& aEntry)

	{

	CImEmailMessage* self = new (ELeave) CImEmailMessage(aEntry);

	CleanupStack::PushL(self);

	self->ConstructL();

	return self;

	}

/** 

Destructor.

*/

EXPORT_C CImEmailMessage::~CImEmailMessage()

	{

	Cancel();

	delete iAttachmentNameList;

	delete iCompleteSel;

	delete iResultSel;

	delete iUriResolver;

	delete iStoreMessagePart;

	delete iRemoveMessagePart;

	iFs.Close();

	delete iAttachmentManager;

	delete iStore;

	}

CImEmailMessage::CImEmailMessage(CMsvEntry& aEntry)

	: CMsgActive(EPriorityStandard), iClientEntry(aEntry)

	{

	}

void CImEmailMessage::ConstructL()

	{

	iCompleteSel=new (ELeave) CMsvEntrySelection();

	iResultSel=new (ELeave) CMsvEntrySelection();

	iUriResolver = CImMhtmlUriResolver::NewL(iClientEntry);

	iProgress = KMsvNullIndexEntryId;

	User::LeaveIfError(iFs.Connect());

	iAttachmentNameList = new (ELeave) CDesCArrayFlat(KMiutAttachmentListGranularity);

	iEmailEntryId = iClientEntry.EntryId();

	iAttachmentManager = CImAttachmentManager::NewL(*this,iClientEntry);

	iAttachmentManager->LoadL();

	iAttachmentState=ENoAttachment; 

	CActiveScheduler::Add(this);	

	}

/** 

Asynchronously retrieves the body text for a specified message. If the email's character

set has been overridden by a prior call to SetCharacterSetL(), the body text is decoded

with the new character set before it is inserted into the rich text object. A list containing

the entry Ids for each body text part within the specified message is created during this call.

The list can be retrieved after this call has completed by calling Selection().

@param aStatus

Asynchronous status object (TRequestStatus) that is signalled when the operation

completes.  aStatus should be checked by the caller to ensure that the operation

was successful.

@param aMessageId

The entry Id of the email message that the body text is to be retrieved from.

The entry must be of type KUidMsvMessageEntry.

@param aEntryType

Specifies whether to search just the email message (EThisMessageOnly), 

or to search within any embedded messages it may contain (EThisMessageAndEmbeddedMessages).

@param aRichText

Upon completion, returns the aRichText object that contains the message body text of all text parts found

for the message entry specified by aMessageId.  If the body text was not found,

then aRichText will be unchanged.

@param aParaLayer

Paragraph format layer for the rich text object specified by aRichText.

@param aCharLayer

Character format layer for the rich text object specified by aRichText.

@leave KErrNotFound

aMessageId entry could not be located.

@panic imcm 10

aMessageId is not of type KUidMsvMessageEntry.

*/

EXPORT_C void CImEmailMessage::GetBodyTextL(TRequestStatus& aStatus, TMsvId aMessageId, TImEmailEntryType aEntryType, CRichText& aRichText,CParaFormatLayer& aParaLayer, CCharFormatLayer& aCharLayer)

	{

	DoGetBodyTextInitL(aMessageId, aEntryType, aRichText, aParaLayer, aCharLayer);

	Start(aStatus);

	}

/** 

Retrieves the body text for a specified message. If the email's character

set has been overridden by a prior call to SetCharacterSetL(), the body text is decoded

with the new character set before it is inserted into the rich text object.

A list containing the entry Ids for each body text part within the specified message

is created during this call. The list can be retrieved by calling Selection().

@param aMessageId

The entry Id of the email message that the body text is to be retrieved from.

The entry must be of type KUidMsvMessageEntry.

@param aEntryType

Specifies whether to search just the email message (EThisMessageOnly), 

or to search within any embedded messages it may contain (EThisMessageAndEmbeddedMessages).

@param aRichText

Returns the aRichText object that contains the message body text of all text parts found

for the message entry specified by aMessageId.  If the body text was not found,

then aRichText will be unchanged.

@param aParaLayer

Paragraph format layer for the rich text object specified by aRichText.

@param aCharLayer

Character format layer for the rich text object specified by aRichText.

@leave KErrNotFound

aMessageId entry could not be located.

@panic imcm 10

aMessageId is not of type KUidMsvMessageEntry.

*/

EXPORT_C void CImEmailMessage::GetBodyTextL(TMsvId aMessageId, TImEmailEntryType aEntryType, CRichText& aRichText,CParaFormatLayer& aParaLayer, CCharFormatLayer& aCharLayer)

	{

	DoGetBodyTextInitL(aMessageId, aEntryType, aRichText, aParaLayer, aCharLayer);

	StartL();

	}

void CImEmailMessage::DoGetBodyTextInitL(TMsvId aMessageId, TImEmailEntryType aEntryType, CRichText& aRichText,CParaFormatLayer& aParaLayer, CCharFormatLayer& aCharLayer)

	{

	CheckAndInitialiseL(aMessageId);

	if (aEntryType==EThisMessageOnly)

		iState=ETextForThisMsg;

	else if (aEntryType==EThisMessageAndEmbeddedMessages)

		iState=ETextForMsgDigest;

	else

		User::LeaveIfError(KErrNotSupported);

	iEntryType=aEntryType;

	iRichText=&aRichText;

	iParaLayer=&aParaLayer;

	iCharLayer=&aCharLayer;

	iCompleteSel->AppendL(iParentMsgId);

	// Get the new character set if it has been specified.

	iCharacterSetId = GetOverrideCharacterSetL();

	}

EXPORT_C void CImEmailMessage::GetBodyTextEntryIdL(TRequestStatus& aStatus, TMsvId aMessageId, TImEmailEntryType aEntryType)

	{

	DoGetBodyTextEntryIdL(aMessageId, aEntryType);

	Start(aStatus);

	}

EXPORT_C void CImEmailMessage::GetBodyTextEntryIdL(TMsvId aMessageId, TImEmailEntryType aEntryType)

	{

	DoGetBodyTextEntryIdL(aMessageId, aEntryType);

	StartL();

	}

void CImEmailMessage::DoGetBodyTextEntryIdL(TMsvId aMessageId, TImEmailEntryType aEntryType)

	{

	CheckAndInitialiseL(aMessageId);

	if (aEntryType==EThisMessageOnly)

		iState=ETextEntryIdForThisMsg;

	else if (aEntryType==EThisMessageAndEmbeddedMessages)

		iState=ETextEntryIdMsgDigest;

	else

		User::LeaveIfError(KErrNotSupported);

	iEntryType=aEntryType;

	iCompleteSel->AppendL(iParentMsgId);

	}

/**

Asynchronously populates a list containing all the attachment entry Ids found that are of a specified

type belonging to the specified message. After this function has completed, call AttachmentSelection()

to get the list of found attachments. 

If the email's character set has been overridden by a prior call

to SetCharacterSetL(), the attachment names are decoded with the new character set.

@param aStatus

Asynchronous status object (TRequestStatus) that is signalled when the operation

completes.  aStatus should be checked by the caller to ensure that the operation

was successful.

@param aMessageId

The entry Id of the email message that the body text is to be retrieved from.

The entry must be of type KUidMsvMessageEntry.

@param aAttachmentType

The type of attachment to find. Supported attachment 

types are EAllAttachments, which would get all attachments for the message, 

EVCards that would get all attachments that are VCards, EVCalendars that would 

get VCalenders, EICalendar that would get ICalendars, and EVEntries which would get 

attachments that are either VCards, VCalendars or ICalendars. EEncrypted, ESigned 

and ESecure are currently not supported.

@param aEntryType

Specifies whether to search just the email message (EThisMessageOnly), 

or to search within any embedded messages it may contain (EThisMessageAndEmbeddedMessages).

@leave KErrNotFound

aMessageId entry could not be located.

@panic imcm 10

aMessageId is not of type KUidMsvMessageEntry.

@leave KErrNotSupported

aEntryType is not EThisMessageOnly or EThisMessageAndEmbeddedMessages. 

*/

EXPORT_C void CImEmailMessage::GetAttachmentsListL(TRequestStatus& aStatus, TMsvId aMessageId, TImAttachmentType aAttachmentType,TImEmailEntryType aEntryType)

	{

	DoGetAttachmentsListL(aMessageId, aAttachmentType, aEntryType);

	Start(aStatus);

	}

/**

Populates a list containing all the attachment entry Ids found that are of a specified

type belonging to the specified message. After this function has completed, call AttachmentSelection()

to get the list of found attachments. 

If the email's character set has been overridden by a prior call

to SetCharacterSetL(), the attachment names are decoded with the new character set.

@param aMessageId

The entry Id of the email message that the attachment list is to be populated.

The entry must be of type KUidMsvMessageEntry.

@param aAttachmentType

The type of attachment to find. Supported attachment 

types are EAllAttachments, which would get all attachments for the message, 

EVCards that would get all attachments that are VCards, EVCalendars that would 

get VCalenders, EICalendar that would get ICalendars, and EVEntries which would get 

attachments that are either VCards, VCalendars or ICalendars. EEncrypted, ESigned 

and ESecure are currently not supported.

@param aEntryType

Specifies whether to search just the email message (EThisMessageOnly), 

or to search within any embedded messages it may contain (EThisMessageAndEmbeddedMessages).

@leave KErrNotFound

aMessageId entry could not be located.

@panic imcm 10

aMessageId is not of type KUidMsvMessageEntry.

@leave KErrNotSupported

aEntryType is not EThisMessageOnly or EThisMessageAndEmbeddedMessages. 

*/

EXPORT_C void CImEmailMessage::GetAttachmentsListL(TMsvId aMessageId, TImAttachmentType aAttachmentType,TImEmailEntryType aEntryType)

	{

	DoGetAttachmentsListL(aMessageId, aAttachmentType, aEntryType);

	StartL();

	}

void CImEmailMessage::DoGetAttachmentsListL(TMsvId aMessageId, TImAttachmentType aAttachmentType,TImEmailEntryType aEntryType)

	{

	CheckAndInitialiseL(aMessageId);

	iAttachmentManager->AttachmentInfoSelection().ResetAndDestroy();

	iAttachmentType=aAttachmentType;

	if (aEntryType==EThisMessageOnly)

		iState=EAttachmentsForThisMsg;

	else if (aEntryType==EThisMessageAndEmbeddedMessages)

		iState=EAttachmentsForMsgDigest;

	else

		User::LeaveIfError(KErrNotSupported);

	iEntryType=aEntryType;

	iCompleteSel->AppendL(iParentMsgId);

	}

/**

Asynchronously populates a list of embedded message entries contained within the specified message.

Note that any embedded messages within embedded messages are not included in the list. 

Call Selection() to get the results of the search after it has completed. 

@param aStatus

Asynchronous status object (TRequestStatus) that is signalled when the operation

completes.  aStatus should be checked by the caller to ensure that the operation

was successful.

@param aMessageId

The entry Id of the email message that will be searched for embedded messages.

The entry must be of type KUidMsvMessageEntry.

@leave KErrNotFound

aMessageId entry could not be located.

@panic imcm 10

aMessageId is not of type KUidMsvMessageEntry.

*/

EXPORT_C void CImEmailMessage::GetMessageDigestEntriesL(TRequestStatus& aStatus, TMsvId aMessageId)

	{

	CheckAndInitialiseL(aMessageId);

	iState=EMsgDigestEntries;

	iCompleteSel->AppendL(iParentMsgId);

	Queue(aStatus);

	TRequestStatus* status=&iStatus;

	iStatus=KRequestPending;

	User::RequestComplete(status,KErrNone);

	SetActive();

	}

/**

Asynchronously searches for the starting MHTML part embedded in a multipart/related email message.

Used when retrieving specific parts of an MHTML message, such as inline images

that are referenced as MHTML anchors within the HTML part of a message.  

Refer to RFC 2557 - "MIME Encapsulation of Aggregate Documents, such as HTML (MHTML)" for information

about MHTML email messages.

If the starting MHTML part cannot be located, then the first HTML part

that occurs within the multipart/related message is located.

The result of the search is retrieved by calling GetUniversalResourceIdentifierL() after this methods

has completed.

@param aMessageId

The entry Id of the email message that will be searched.

@param aStatus

Asynchronous status object (TRequestStatus) that is signalled when the operation

completes.  aStatus should be checked by the caller to ensure that the operation

was successful.

@leave KErrNotFound

aMessageId entry could not be located.

@panic imcm 10

aMessageId is not of type KUidMsvMessageEntry.

*/

EXPORT_C void CImEmailMessage::FindFirstHTMLPageL(TMsvId aMessageId, TRequestStatus& aStatus)

	{

	TMsvEntry entry = FindIdEntryL(aMessageId);

	__ASSERT_ALWAYS(entry.iType==KUidMsvMessageEntry, gPanic(EEntryIsNotMessage));

	iUriResolver->FindFirstL(aMessageId,ETrue,iStatus);

	Queue(aStatus);

	iState = EResolveURI;

	SetActive();

	}

/**

Asynchronously searches a message entry for an MHTML URI, and resolves it to the message entry that

contains the message part specified by the URI.

Used when retrieving specific parts of an MHTML message, such as inline images

that are referenced as MHTML anchors within the HTML part of a message.  

Refer to RFC 2557 - "MIME Encapsulation of Aggregate Documents, such as HTML (MHTML)" for information

about MHTML email messages.

The result of the search is retrieved by calling GetUniversalResourceIdentifierL() after this method

has completed.

@param aMessageId

The message Id of the body part that is to be searched for the URI.

In the first instance, this value should be the starting MHTML entry Id that was located

by calling FindFirstHTMLPageL().

@param aBase

The base URI to use when searching for aURI if aURI is relative.

If aBase is empty, and aURI is relative, then the Content-location

MIME header contained within the HTML part specified by aMessageId is used as a base.

If the Content-location header does not exist or is not absolute, then

just the relative aURI is searched for. 

@param aURI

The absolute or relative URI to resolve.  If aURI is absolute, then aBase is ignored

and this method completes faster.  If aURI is relative, then aBase is used as a base

to resolve the relative URI.  If aBase is empty and aURI is relative, then the 

Content-location MIME header contained within the HTML part specified by aMessageId is

used as the base.  If the Content-location header does not exist or is not absolute, then

just the relative aURI is searched for.

@param aStatus

Asynchronous status object (TRequestStatus) that is signalled when the operation

completes.  aStatus should be checked by the caller to ensure that the operation

was successful.

@leave KErrNotFound

aMessageId entry could not be located.

@panic imcm 10

aMessageId is not of type KUidMsvMessageEntry.

*/

EXPORT_C void CImEmailMessage::FindUniversalResourceIdentifierL(TMsvId aMessageId, const TDesC& aBase, const TDesC& aURI, TRequestStatus &aStatus)

	{

	TMsvEntry entry = FindIdEntryL(aMessageId);

	__ASSERT_ALWAYS(entry.iType==KUidMsvEmailHtmlEntry, gPanic(EEntryIsNotMessage));

	iUriFileFound = EFalse;

	iUriResolver->ResolveL(aURI, aBase, aMessageId,ETrue,iStatus);

	Queue(aStatus);

	iState = EResolveURI;

	SetActive();

	}

/**

Gets the results from FindUniversalResourceIdentifierL() or FindFirstHTMLPageL() 

method calls when they have completed. 

Used when retrieving specific parts of an MHTML message, such as inline images

that are referenced as MHTML anchors within the HTML part of a message.  

Refer to RFC 2557 - "MIME Encapsulation of Aggregate Documents, such as HTML (MHTML)" for information

about MHTML email messages.