Applescript para reenviar correo electrónico con archivo adjunto y cambiar el asunto

Estoy intentando crear un applecript que tome los mensajes que coincidan con un cierto filtro YYYY), y los reenviaré a un cuaderno específico en Evernote (XXXX), con el adjunto intacto. Hasta ahora, he recibido este script para manejar el reenvío a una computadora portátil de Evernote, pero parece que no puedo hacer que se ocupe de los archivos adjuntos correctamente.

¿Cómo adjunto todos los archivos adjuntos en los correos electrónicos encontrados por el filtro (que idealmente se ejecutan cuando se reciben los mensajes) al nuevo correo electrónico reenviado?

using terms from application "Mail"
    on perform mail action with messages selection for rule YYYY
        tell application "Mail"
            set theSelection to selection
            set thesubject to subject of item 1 of theSelection
            set theAttachments to every attachment of content of theSelection
            set theForwardedMessage to forward (item 1 of theSelection) with opening window

            tell theForwardedMessage
                make new to recipient at end of to recipients with properties {address:"ZZZZ"}

                set subject to subject of item 1 of theSelection & " @XXXX"
                repeat with a from 1 to length of theAttachments
                    log "message_attachment =" & a
                    make new attacment with properties {filename:a} at after last paragraph
                end repeat
                send
            end tell
        end tell
    end perform mail action with messages
end using terms from