AppleScript: Envolver el texto seleccionado en un ancho específico

¿Cómo envolver una selección de texto a un ancho de columna específico usando AppleScript?

Por ejemplo, digamos que se ha seleccionado el siguiente texto:

AppleScript es un lenguaje de script creado por Apple Inc. que facilita el control automatizado sobre aplicaciones Mac scriptables. Introducido por primera vez en System 7, actualmente está incluido en todas las versiones de macOS como parte de un paquete de herramientas de automatización del sistema.

Me gustaría ejecutar AppleScript (preferiblemente a través de algún atajo de teclado) en este texto seleccionado, que debería envolver las líneas a un ancho específico insertando saltos de línea en el ancho específico. El ancho puede estar codificado en el script mismo.

Por ejemplo, si el ancho es de 72, entonces, el texto anterior debería cambiarse a:

AppleScript es un lenguaje de script creado por Apple Inc. que
facilita el control automatizado sobre aplicaciones Mac scriptables.
Introducido por primera vez en System 7, actualmente está incluido en
todas las versiones de macOS como parte de un paquete de herramientas
de automatización del sistema.

Formatear el texto a 72 caracteres es posible usando la utilidad fmt como fmt -w 72. Por lo tanto, los pasos individuales serían:

1. Obtener el texto seleccionado en AppleScript
2. Ejecutar fmt -w 72 en el texto
3. Reemplazar el texto seleccionado con la salida de fmt

Mi caso de uso principal es envolver los correos electrónicos que compongo en un ancho de 72 caracteres en Apple Mail en macOS. Cualquier otra idea (fuera de AppleScript) para lograr este objetivo también es bienvenida.

¡Gracias!