Marking as unread when moving mail to another folder

[Kai Weber]

I have a save-hook defined to move all mail into a certain folder.

    save-hook "~A"  +personal/Archive

Very often I want to move the mail into the archive without opening the
mail at all but then the mail ends up as unread in the archive.

I want to mark the mail as "read" when moving. How could I achieve this?
I guess a macro could do it? Should I get rid of the save-hook?