Applescript per cambiare la riga dell'oggetto

Ho cercato gli ultimi due giorni e ho trovato alcuni campioni di mele che affermavano di cambiare le righe dell'oggetto. Ma nessuno di loro sembra essere in grado di cambiare / impostare la riga dell'oggetto. Cosa ne pensate che l'errore sia qui?

tell application "Mail"
    set theSubjectList to {}
    set themessages to selection as list
    repeat with msg in themessages
        set thisSubject to (subject of msg as string)
        if thisSubject is not in theSubjectList then
            set theSubjectList to theSubjectList & {thisSubject}
        end if
    end repeat

    set theNewSubject to ¬
        (choose from list theSubjectList with prompt ¬
            "Choose the subject of the merged thread…") as string

    if theNewSubject is in theSubjectList then
        repeat with msg in themessages
            set subject of msg to (theNewSubject)
        end repeat
    else
        display dialog "Action cancelled"
    end if
end tell

Ho ricevuto il seguente errore

error "Mail got an error: Can’t set subject of message to \"CHANGED SUBJECT LINE\"." number -10006 from subject of message