STRANGE PROBLEM with "Create New Mail Account.scpt" when creating POP acct.

Question

I am using "Create New Mail Account.scpt" to create a POP account. It creates the account successfully. It fetches the mails successfully. Now the problem begins. After fetching all the mails once if u click "Get Mail" in mac mail, it fetches all the emails again and has now 1 original and 1 copy of the email set which is on the server. I just need 1 copy of the mail set not multiple. Please give me a solution or direct me to a help.
Thanks
SCRIPT
global theUsername
global thePassword
set success to 1
set theResult to true
if theResult is not equal to false
#set theAccountName to getAccountName()
#set theUsername to getUsername()
#set thePassword to getPassword()
#set theEmailAddresses to getEmailAddress()
#set theFullName to getFullName()
-- POP Account
if accountTypeString is equal to "POP" or accountTypeString is equal to "IMAP" then
set theHostname to "THE HOST NAME"
-- POP specific options
if accountTypeString is equal to "POP" then
set deletionPolicy to my getDeletionPolicy()
if deletionPolicy is not equal to false then
set deletionPolicy to item 1 of deletionPolicy
set theNewAccount to my createAccount(accountTypeString, theAccountName, theUsername, theHostname, thePassword, theEmailAddresses, theFullName)
if theNewAccount is not equal to false then
setDeletionPolicy(theNewAccount, deletionPolicy)
getAndSetAuthenticationScheme(accountTypeString, theNewAccount)
getAndSetSMTPServer(theNewAccount)
else
set success to 0
end if
end if
-- IMAP specific options
else if accountTypeString is equal to "IMAP" then
set theNewAccount to my createAccount(accountTypeString, theAccountName, theUsername, theHostname, thePassword, theEmailAddresses, theFullName)
if theNewAccount is not equal to false then
getAndSetCachingSettings(theNewAccount)
getAndSetAuthenticationScheme(accountTypeString, theNewAccount)
getAndSetSMTPServer(theNewAccount)
else
set success to 0
end if
end if
end if
if success is equal to 1 then
display dialog "Account created!"
else
display dialog "Account creation failed!"
end if
end if
-- Convenience handler for creating accounts
on createAccount(theAccountType, theAccountName, theUsername, theHostname, thePassword, theEmailAddresses, theFullName)
tell application "Mail"
try
if theAccountType is equal to ".Mac" then
set theNewAccount to make new Mac account with properties {name:theAccountName, user name:theUsername, server name:theHostname, password:thePassword, full name:theFullName, email addresses:{theEmailAddresses}}
else if theAccountType is equal to "IMAP" then
set theNewAccount to make new imap account with properties {name:theAccountName, user name:theUsername, server name:theHostname, password:thePassword, uses ssl:true, full name:theFullName, email addresses:{theEmailAddresses}}
else if theAccountType is equal to "POP" then
set theNewAccount to make new pop account with properties {name:theAccountName, user name:theUsername, server name:theHostname, include when getting new mail:true, password:thePassword, uses ssl:true, full name:theFullName, email addresses:{theEmailAddresses}}
end if
on error
set theNewAccount to false
end try
end tell
return theNewAccount
end createAccount
-- Ask the user what they would like to name the account
on getAccountName()
repeat
set theResult to display dialog "What would you like this account to be named?" default answer "Example: My Home Account"
set theAccountName to text returned of theResult
if theAccountName does not start with "Example:" then
exit repeat
end if
end repeat
return theAccountName
end getAccountName
-- Ask the user for the user name for their email account
on getUsername()
repeat
set theResult to display dialog "What is your email user name?" default answer "Example: janedoe"
set theUsername to text returned of the theResult
if theUsername does not start with "Example:" then
exit repeat
end if
end repeat
return theUsername
end getUsername
-- Ask the user for the password for their email account
on getPassword()
set theResult to display dialog "What is the password for this account?" default answer ""
set thePassword to text returned of theResult
return thePassword
end getPassword
-- Ask the user for the email addresses for their email account
on getEmailAddress()
repeat
set theResult to display dialog "What email address would you like to use for this account?" default answer "Example: [email protected]"
set theEmailAddress to text returned of theResult
if theEmailAddress does not start with "Example:" then
exit repeat
end if
end repeat
return theEmailAddress
end getEmailAddress
-- Ask the user for the full name for their email account
on getFullName()
repeat
set theResult to display dialog "What is the full name for this account?" default answer "Example: Steve Smith"
set theFullName to text returned of theResult
if (theFullName does not start with "Example:") then
exit repeat
end if
end repeat
return theFullName
end getFullName
-- Convenience handler for asking the user what settings they would
-- like to have for their special mailboxes. This handler also sets these
-- values in Mail.
on getAndSetSpecialMailboxes(theAccount)
-- Sent messages default to storing locally
set theResult to display dialog "Would you like to store Sent Messages on the IMAP server?" buttons {"Yes", "No"} default button 2
log theAccount
tell application "Mail"
tell theAccount
if button returned of theResult is equal to "Yes" then
set store sent messages on server to true
else if button returned of theResult is equal to "No" then
set store sent messages on server to false
end if
end tell
end tell
-- Drafts default to storing locally
set theResult to display dialog "Would you like to store Drafts on the IMAP server?" buttons {"Yes", "No"} default button 2
tell application "Mail"
tell theAccount
if button returned of theResult is equal to "Yes" then
set store drafts on server to true
else if button returned of theResult is equal to "No" then
set store drafts on server to false
end if
end tell
end tell
-- Trash defaults to storing on the IMAP server
set theResult to display dialog "Would you like to store Deleted Messages on the IMAP server?" buttons {"Yes", "No"} default button 1
tell application "Mail"
tell theAccount
if button returned of theResult is equal to "Yes" then
set store deleted messages on server to true
else if button returned of theResult is equal to "No" then
set store deleted messages on server to false
end if
end tell
end tell
end getAndSetSpecialMailboxes
-- Convenience handler for asking the user what IMAP
-- caching setting they would like to use and configuring
-- it in Mail.
on getAndSetCachingSettings(theAccount)
set theResult to choose from list {"Cache everything", "Cache everything but attachments", "Cache when read", "Don't cache"} ¬
with prompt "Choose a message caching setting for this account:" default items {"Cache everything"} without multiple selections allowed
if theResult is not equal to false then
tell application "Mail"
tell theAccount
if (item 1 of theResult is equal to "Cache everything") then
set message caching to all messages and their attachments
else if (item 1 of theResult is equal to "Cache everything but attachments") then
set message caching to all messages but omit attachments
else if (item 1 of theResult is equal to "Cache when read") then
set message caching to only messages I have read
else if (item 1 of theResult is equal to "Don't cache") then
set message caching to do not keep copies of any messages
end if
end tell
end tell
end if
end getAndSetCachingSettings
-- Convenience handler for asking the user whether they want to use
-- an already defined SMTP server (if any) or whether they want to
-- define a new one.
on getAndSetSMTPServer(theAccount)
tell application "Mail" to set everySMTPServer to every smtp server
if ((count of everySMTPServer) > 0) then
set listOfSMTPServers to {}
repeat with eachServer in everySMTPServer
try
set listOfSMTPServers to listOfSMTPServers & name of eachServer
end try
end repeat
createNewSMTPServer(theAccount)
else
createNewSMTPServer(theAccount)
end if
end getAndSetSMTPServer
-- Handler for creating a new SMTP server, if the user has none set up
-- already or if they choose not to use one of their existing servers.
on createNewSMTPServer(theAccount)
set theServerName to "THE SERVER NAME"
tell application "Mail"
set theSMTPServer to make new smtp server with properties {server name:theServerName, port:25, uses ssl:true}
set smtp server of theAccount to theSMTPServer
end tell
getAndSetAuthenticationScheme("SMTP", theSMTPServer)
end createNewSMTPServer
-- Handler for asking the user what authentication scheme their server supports.
-- The options are different for POP, IMAP, and SMTP. Unless you are told otherwise,
-- it's best to leave these at their default settings.
on getAndSetAuthenticationScheme(accountType, theAccount)
if accountType is equal to "POP" then
set theChoices to {"Password", "Kerberos 4", "Kerberos 5", "KPOP", "MD5"}
set theDefault to {"Password"}
else if accountType is equal to "IMAP" then
set theChoices to {"Password", "Kerberos 4", "Kerberos 5", "MD5"}
set theDefault to {"Password"}
else if accountType is equal to "SMTP" then
set theChoices to {"None", "Password", "Kerberos 4", "Kerberos 5", "MD5"}
set theDefault to {"Password"}
end if
set theResult to choose from list theChoices ¬
with prompt ¬
"Choose an authentication scheme for this " & accountType & " server. Most servers support 'Password' authentication." default items theDefault without multiple selections allowed
if theResult is not equal to false then
tell application "Mail"
set theScheme to item 1 of theResult
tell theAccount
if theScheme is equal to "Password" then
set authentication to password
else if theScheme is equal to "Kerberos 4" then
set authentication to «constant exutaxk4»
else if theScheme is equal to "Kerberos 5" then
set authentication to kerberos 5
else if theScheme is equal to "MD5" then
set authentication to md5
else if theScheme is equal to "None" then
set authentication to none
else if theScheme is equal to "KPOP" then
set authentication to «constant exutakpo»
end if
end tell
end tell
if accountType is equal to "SMTP" then
set theSMTPLogin to theUsername
set theSMTPPassword to thePassword
tell application "Mail"
tell theAccount
set user name to theSMTPLogin
set password to theSMTPPassword
set uses ssl to true
set port to 25
end tell
end tell
end if
end if
end getAndSetAuthenticationScheme
-- Handler for asking the user what POP deletion policy
-- they would like to use for their account.
on getDeletionPolicy()
set theResult to choose from list {"Immediately after being downloaded", "After a specified number of days", ¬
"When I remove them from the inbox", "Always leave them on the server"} ¬
with prompt ¬
"Choose a POP message deletion option:" default items {"Always leave them on the server"} without multiple selections allowed
return theResult
end getDeletionPolicy
-- Handler for setting the deletion policy established in getDeletionPolicy()
on setDeletionPolicy(theAccount, thePolicy)
tell application "Mail"
tell theAccount
if thePolicy is equal to "Immediately after being downloaded" then
set delete mail on server to true
set delayed message deletion interval to 0
else if thePolicy is equal to "After a specified number of days" then
set numberOfDays to my getDeletionInterval()
set delete mail on server to true
set delayed message deletion interval to numberOfDays
else if thePolicy is equal to "When I remove them from the inbox" then
set delete mail on server to true
set delete messages when moved from inbox to true
else if thePolicy is equal to "Always leave them on the server" then
set delete mail on server to false
end if
end tell
end tell
end setDeletionPolicy
-- Handler for asking the user what deletion interval they
-- would like to use, if they are setting up a POP account
on getDeletionInterval()
set theResult to display dialog "After how many days would you like POP messages to be deleted from the server?" default answer "30"
set numberOfDays to text returned of theResult as integer
return numberOfDays
end getDeletionInterval

Answer 1

Hi amiaba, and a warm welcome to the forums!
I can't quite tell what it's doing, but open Keychain Access in Applications>Utilities, click on your Keychain on the left, put .mac in the search bar, once you find it, double click on it and click show password.
If you have no mail in there try this with Mail quit.
Drag this file to the Desktop...
/Users/YourUserName/Library/Preferences/com.apple.mail.plist
Start Mail & see if it steps you through it.
Not sure on the .uk thing, but is Date & Time>Time Zone set to the UK?