apple-tools-mcp 2.0.5 → 2.0.6

package/README.md

@@ -465,9 +465,9 @@ Two arguments are available on **every** write tool:
 
 **Compose is not quoted.** `mail_send` / `mail_draft` (plain and html) call `make new outgoing message` **without** AppleScript `content:` so `newMessage` is a real Mail object, then paste the body into the compose window (System Events). Mail's `mailto` command was shipped in 2.0.4 and **fails on Mini/MacBook Mail**: it does not return an outgoing message (`newMessage` undefined, AppleScript **-2753**). On current Mail (Ventura+, FB11734014) `content` / `html content` store the body as a citation: every plain-text line prefixed with `>`, plus a `multipart/alternative` HTML part wrapped in `<blockquote type="cite">`. Desktop Mail often hides the bar with inline styles; iOS Mail paints the whole body purple with a left quote bar — even when the subject is not `Re:`/`Fwd:` and there is no `In-Reply-To`. Reply and forward still quote the original, which is expected.
 
-Paste uses System Events, so **node needs Accessibility** (Privacy & Security → Accessibility) in addition to Automation → Mail. That Accessibility deny is not a Mail Automation deny (`-1743` / `-10004`).
+Paste uses System Events, so **node needs Accessibility** (Privacy & Security → Accessibility) in addition to Automation → Mail. That Accessibility deny is not a Mail Automation deny (`-1743` / `-10004`). Body focus uses `text area` / `scroll area` and `UI element whose role is "AXWebArea"` — never the System Events class `web area`, which does not compile on macOS 26.x (**-2741**, “Expected class name but found identifier”).
 
-**Manual prove (2.0.5 on the Mac host):** `mail_send` a short plain message and a short `body_format: "html"` message whose body looks like ordinary paragraphs (for example `<p>Quick note</p>`), neither with a `Re:`/`Fwd:` subject. Inspect each Sent `.emlx`: the text/plain part must not prefix every body line with `>`, and any HTML alternative must not wrap the whole body in `<blockquote type="cite">`. Compose must succeed (no `-2753` / undefined `newMessage`).
+**Manual prove (2.0.6 on the Mac host):** `mail_send` a short plain message and a short `body_format: "html"` message whose body looks like ordinary paragraphs (for example `<p>Quick note</p>`), neither with a `Re:`/`Fwd:` subject. Inspect each Sent `.emlx`: the text/plain part must not prefix every body line with `>`, and any HTML alternative must not wrap the whole body in `<blockquote type="cite">`. Compose must succeed (no `-2753` / undefined `newMessage`, no **-2741** on body focus).
 
 Emails are addressed by their RFC822 **Message-ID**. Pass `message_id`, or pass the `file_path` from `mail_search` / `mail_recent` and the server reads the Message-ID out of the `.emlx` headers for you. `mail_archive` moves the message to its account's Archive (or All Mail) mailbox; `mail_trash` moves it to that account's Trash.
 

package/lib/mailWrite.js

@@ -171,6 +171,10 @@ export function composeNativeBody(body, { html = false } = {}) {
 /**
  * AppleScript handlers: focus the compose body (not To) and paste.
  * System Events needs Accessibility; Mail make/send still needs Automation.
+ *
+ * macOS 26.x System Events has no `web area` class (compile -2741,
+ * "Expected class name but found identifier"). Hosts compile
+ * `text area` / `scroll area` and `UI element whose role is "AXWebArea"`.
  */
 export function buildMailBodyPasteHandler() {
   return `on atmFocusMailBody()
@@ -184,21 +188,58 @@ export function buildMailBodyPasteHandler() {
         return
       end try
       try
-        click (first web area of w)
+        set focused of text area 1 of w to true
+        return
+      end try
+      try
+        set focused of (first UI element of w whose role is "AXTextArea") to true
         return
       end try
       try
-        click (first web area of scroll area 1 of w)
+        click (first UI element of w whose role is "AXWebArea")
         return
       end try
       try
-        click (first web area of scroll area 1 of splitter group 1 of w)
+        click (first UI element of scroll area 1 of w whose role is "AXWebArea")
         return
       end try
       try
-        click (first web area of scroll area 1 of group 1 of splitter group 1 of w)
+        click (first UI element of scroll area 1 of splitter group 1 of w whose role is "AXWebArea")
         return
       end try
+      try
+        click (first UI element of scroll area 1 of group 1 of splitter group 1 of w whose role is "AXWebArea")
+        return
+      end try
+      set atmQueue to UI elements of w
+      set atmWalked to 0
+      repeat while (count of atmQueue) > 0 and atmWalked < 80
+        set atmWalked to atmWalked + 1
+        set atmElem to item 1 of atmQueue
+        if (count of atmQueue) is 1 then
+          set atmQueue to {}
+        else
+          set atmQueue to items 2 thru -1 of atmQueue
+        end if
+        try
+          if (role of atmElem as string) is "AXWebArea" then
+            click atmElem
+            return
+          end if
+        end try
+        try
+          if (role of atmElem as string) is "AXTextArea" then
+            set focused of atmElem to true
+            return
+          end if
+        end try
+        try
+          set atmKids to UI elements of atmElem
+          repeat with i from 1 to (count of atmKids)
+            set end of atmQueue to item i of atmKids
+          end repeat
+        end try
+      end repeat
       set {wx, wy} to position of w
       set {ww, wh} to size of w
       click at {(wx + (ww div 2)) as integer, (wy + ((wh * 2) div 3)) as integer}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "apple-tools-mcp",
-  "version": "2.0.5",
+  "version": "2.0.6",
   "description": "MCP server for semantic search and write actions across Apple Mail, Messages, Calendar, and Contacts",
   "type": "module",
   "main": "index.js",