set _description to "Alle nicht markierten und gelesenen Nachrichten einer IMAP-Inbox werden in den Ordner 'Archiv' auf dem jeweiligen Server verschoben."

tell application "Mail"
    display alert "Archivieren?" buttons {"Abbruch", "Archivieren"} cancel button 1 message _description

    repeat with _acct in imap accounts
        set _acct_name to name of _acct
        set _inbox to _acct's mailbox "INBOX"
        try
            if (_acct_name is "Gmail") then
                set _archive_box to _acct's mailbox "[Gmail]/Alle Nachrichten"
            else
                set _archive_box to _acct's mailbox "Archiv"
            end if
        on error
            display alert "Kein Archiv-Ordner f�r das Konto '" & _acct_name & "' gefunden. Sie m�ssen zuerst einen IMAP-Ordner namens 'Archiv' erstellen!"
            return -- Stop the script
        end try
        set _msg_list to (every message of _inbox whose flagged status is false and read status is true)
        if (_msg_list's length > 0) then
            move _msg_list to _archive_box
        end if
    end repeat
end tell