Ayuda con AppleScript para mover los mensajes de correo electrónico

He escrito el script siguiente para mover los mensajes de un buzón a otro en Mail.

Pero cuando lo ejecuto, sólo se mueven algunos mensajes de correo electrónico a la vez. Por ejemplo, si tengo 10 mensajes en el buzón, sólo se mueven tres o cuatro. Así que tengo que ejecutar el script varias veces para completar la operación. Por lo que veo, es bastante aleatorio cuántos se mueven cada vez.

Entonces, ¿alguien sabe por qué puede ser esto, y cómo podría mejorar este script?

Muchas gracias.

use AppleScript version "2.4" -- Yosemite (10.10) or later
use scripting additions

tell application "Mail"

    set theWorkInbox to mailbox "Work Inbox" of account "Work"
    repeat with currentWorkMessage in every message of (mailbox "Work Holding Bay" of account "Work")
        set mailbox of currentWorkMessage to theWorkInbox
    end repeat

end tell

Estoy usando MacOS Sierra