Solution en utilisant AppleScript

La solution que j'ai trouvée était de créer un service Automator et de l'associer à un raccourci.

1. Ouvrez Automator

2. Nouveau document

3. Sélectionnez "Service" pour le type de document

4. En haut de la fenêtre, définissez les options suivantes:
   Service reçoit la sélection >> aucune entrée
dans >> Mail.app

5. Dans la bibliothèque d'actions (panneau de gauche), trouvez l'action "Exécuter AppleScript"

6. Faites glisser et déposez-la dans la zone de travail

7. Copiez le code à la fin de cette réponse et collez-le dans l'action "Exécuter AppleScript"

8. Enregistrez votre service (par exemple "Aller au dossier")

Tester le service

• Vous n'avez pas besoin de fermer Automator ou de relancer Mail.
• Faites une recherche et sélectionnez un message (de préférence un message classé dans un dossier personnalisé).
• Allez dans Mail >> Services. Vous devriez voir votre nouveau service
• Appliquez le service.

Votre boîte aux lettres sélectionnée et active devrait être la boîte aux lettres du message précédemment sélectionné.

Optionnel

Attribuez un raccourci (par exemple, CONTROL-COMMAND-J) à votre service :

• Préférences Système >> Clavier >> Raccourcis >> Services.
• À la fin du panneau de droite sous Général, vous devriez trouver votre service.
• Attribuez un raccourci.

Le Code

définir leDialogTitle en tant que "Script Aller au dossier"

tell application "Mail"

    -- Récupérer les messages sélectionnés et leur nombre
    définir theMessageList en tant que les messages sélectionnés de message viewer 1
    définir theCount en tant que la longueur de theMessageList

    -- Erreur s'il n'y a pas de message
    si theCount is 0 alors
        afficher le dialogue ¬
            "Aucun message sélectionné." avec titre theDialogTitle boutons {"OK"} avec icône avertissement
        retour
    fin si

    -- Erreur s'il y a plus d'un message
    si theCount est supérieur à 1 alors
        afficher le dialogue ¬
            "Vous devez sélectionner un seul message." avec titre theDialogTitle boutons {"OK"} avec icône avertissement
        retour
    fin si

    -- Récupérer le message
    définir leMessage en tant que l'élément 1 de theMessageList

    -- Récupérer l'objet boîte aux lettres
    définir laMailbox en tant que la boîte aux lettres du message

    -- Sélectionner la boîte aux lettres
    définir les boîtes aux lettres sélectionnées de message viewer 1 en tant que laMailbox

end tell