@dawnlit/outlook-bridge 2.1.0 → 2.2.0

package/dist/mac/read.js

@@ -63,27 +63,17 @@ end tell`, 'standard'))
     if (chosen.length === 0)
         return [];
     // Pass 2 — the expensive reads, only for the messages kept.
-    const preview = request.previewChars > 0
-        ? `            set bodyText to ""
-            try
-                set bodyText to (plain text content of theMsg) as string
-            end try
-            if (length of bodyText) > ${(0, run_1.asInt)(request.previewChars)} then set bodyText to text 1 thru ${(0, run_1.asInt)(request.previewChars)} of bodyText`
-        : '            set bodyText to ""';
     const raw = await (0, run_1.runOsaScript)(`tell application "Microsoft Outlook"
     set out to ""
     repeat with theId in ${(0, run_1.asIdList)(chosen.map(c => c.id))}
-        set theMsg to missing value
-        try
-            set theMsg to message id theId
-        end try
+${(0, scripts_1.messageByIdSnippet)('        ')}
         if theMsg is not missing value then
             set subj to ""
             try
                 set subj to (subject of theMsg) as string
             end try
 ${outgoing ? (0, scripts_1.firstRecipientSnippet)('            ') : (0, scripts_1.senderSnippet)('            ')}
-${preview}
+${(0, scripts_1.bodyTextSnippet)('            ', request.previewChars)}
             set attNames to {}
             try
                 set attNames to name of every attachment of theMsg
@@ -145,11 +135,12 @@ async function searchInboxByFilter(request) {
     const acct = await (0, scripts_1.resolveMacAccount)(request.account);
     // AppleScript reaches a child folder by name, so a path entry narrows to its leaf.
     const asNameList = (list) => `{${list.map(mail_1.folderLeafName).filter(Boolean).map(run_1.asString).join(', ')}}`;
-    const rootInScope = request.includeFolders.length === 0 ? 'true' : 'false';
     // Sent, Drafts, Deleted and Junk hang UNDER the Inbox on an IMAP profile, so
     // their ids are collected first and the walk never descends into them — by
     // the profile's own id where it records one, through the account otherwise.
-    const skipIds = ['sent items', 'deleted items', 'drafts', 'junk mail']
+    // The roots are the ones Windows cuts, from the one list both read.
+    const skipIds = mail_1.NON_INCOMING_ROOTS
+        .map(rootId => scripts_1.MAC_ROOT_TERMS[rootId])
         .map(term => {
         const id = acct.folderIds?.[term];
         return id !== undefined
@@ -223,8 +214,14 @@ ${skipIds}
     set skipNames to ${asNameList(request.excludeFolders)}
     set onlyNames to ${asNameList(request.includeFolders)}
 end tell
+-- The root is read on the terms its children are: when no folder is named, or
+-- when it is one of those named.
+set rootScope to (count of onlyNames) is 0
+try
+    if onlyNames contains rootName then set rootScope to true
+end try
 set cutoff to (current date) - (${(0, run_1.asInt)(request.daysBack)} * days)
-return my scanFolder(rootInbox, rootName, cutoff, skipIds, skipNames, onlyNames, ${rootInScope})`, 'scan'));
+return my scanFolder(rootInbox, rootName, cutoff, skipIds, skipNames, onlyNames, rootScope)`, 'scan'));
     const subjectFiltered = !!(request.subjectLike || request.subjectPattern || request.excludeReplies);
     const likeRe = request.subjectLike ? new RegExp((0, mail_1.subjectGlobSource)(request.subjectLike), 'i') : null;
     // PowerShell's -match is case-insensitive, so this test is too, whatever the
@@ -259,26 +256,17 @@ return my scanFolder(rootInbox, rootName, cutoff, skipIds, skipNames, onlyNames,
     if (candidates.length === 0)
         return [];
     // Pass 2 — senders, attachment names and (when asked) bodies, for the survivors only.
-    const body = request.includeBody
-        ? `            set bodyText to ""
-            try
-                set bodyText to (plain text content of theMsg) as string
-            end try`
-        : '            set bodyText to ""';
     const raw = await (0, run_1.runOsaScript)(`tell application "Microsoft Outlook"
     set out to ""
     repeat with theId in ${(0, run_1.asIdList)(candidates.map(c => c.id))}
-        set theMsg to missing value
-        try
-            set theMsg to message id theId
-        end try
+${(0, scripts_1.messageByIdSnippet)('        ')}
         if theMsg is not missing value then
 ${(0, scripts_1.senderSnippet)('            ')}
             set attNames to {}
             try
                 set attNames to name of every attachment of theMsg
             end try
-${body}
+${(0, scripts_1.bodyTextSnippet)('            ', request.includeBody ? undefined : 0)}
             set out to out & ${(0, run_1.asRow)(['(id of theMsg as string)', 'sndName', 'sndAddr', 'my sanitizePositionalList(attNames)', 'bodyText'])}
         end if
     end repeat

package/dist/mac/read.js.map

@@ -1 +1 @@
-{"version":3,"file":"read.js","sourceRoot":"","sources":["../../src/mac/read.ts"],"names":[],"mappings":";;AAgDA,0CA2FC;AAMD,sCAgBC;AAUD,kDA2KC;AAUD,8CA4CC;AAUD,4CAQC;AA9ZD,+EAA+E;AAC/E,sCAAsC;AACtC,EAAE;AACF,+EAA+E;AAC/E,sEAAsE;AACtE,qEAAqE;AACrE,8EAA8E;AAC9E,yDAAyD;AACzD,+BAae;AACf,uCAAgD;AAChD,uCAemB;AACnB,sCAAsD;AACtD,kCAA0F;AAI1F;;;GAGG;AACI,KAAK,UAAU,eAAe,CAAC,OAAyB;IAC3D,MAAM,IAAI,GAAG,MAAM,IAAA,2BAAiB,EAAC,OAAO,CAAC,OAAO,CAAC,CAAC;IACtD,MAAM,UAAU,GAAG,IAAA,uBAAa,EAAC,OAAO,CAAC,OAAO,EAAE,OAAO,CAAC,MAAM,CAAC,SAAS,EAAE,OAAO,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC;IACrG,MAAM,QAAQ,GAAG,IAAA,qBAAc,EAAC,OAAO,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC;IAEvD,+EAA+E;IAC/E,MAAM,KAAK,GAAG,CAAC,MAAM,IAAA,kBAAY,EAAC;EACpC,IAAA,8BAAoB,EAAC,IAAI,CAAC;EAC1B,IAAA,0BAAgB,EAAC,IAAI,EAAE,OAAO,CAAC,MAAM,EAAE,OAAO,CAAC,WAAW,CAAC;sCACvB,IAAA,WAAK,EAAC,OAAO,CAAC,QAAQ,CAAC;;;0BAGnC,IAAA,sBAAY,EAAC,OAAO,CAAC,MAAM,CAAC,MAAM,CAAC;;;;;;;;;;;;;;;;SAgBpD,EAAE,UAAU,CAAC,CAAC;SACd,KAAK,CAAC,IAAI,CAAC;SACX,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC;SACxB,MAAM,CAAC,OAAO,CAAC;SACf,GAAG,CAAC,IAAI,CAAC,EAAE;QACR,MAAM,CAAC,EAAE,EAAE,YAAY,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC;QAC5C,OAAO,EAAE,EAAE,EAAE,YAAY,EAAE,YAAY,IAAI,EAAE,EAAE,CAAC;IACpD,CAAC,CAAC,CAAC;IACP,kDAAkD;IAClD,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,YAAY,CAAC,aAAa,CAAC,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC;IACnE,MAAM,MAAM,GAAG,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,OAAO,CAAC,KAAK,CAAC,CAAC;IAC7C,IAAI,MAAM,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,EAAE,CAAC;IAEnC,4DAA4D;IAC5D,MAAM,OAAO,GAAG,OAAO,CAAC,YAAY,GAAG,CAAC;QACpC,CAAC,CAAC;;;;wCAI8B,IAAA,WAAK,EAAC,OAAO,CAAC,YAAY,CAAC,qCAAqC,IAAA,WAAK,EAAC,OAAO,CAAC,YAAY,CAAC,cAAc;QACzI,CAAC,CAAC,gCAAgC,CAAC;IACvC,MAAM,GAAG,GAAG,MAAM,IAAA,kBAAY,EAAC;;2BAER,IAAA,cAAQ,EAAC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;;;;;;;;;;EAUxD,QAAQ,CAAC,CAAC,CAAC,IAAA,+BAAqB,EAAC,cAAc,CAAC,CAAC,CAAC,CAAC,IAAA,uBAAa,EAAC,cAAc,CAAC;EAChF,OAAO;;;;;+BAKsB,IAAA,WAAK,EAAC,CAAC,0BAA0B,EAAE,MAAM,EAAE,SAAS,EAAE,SAAS,EAAE,UAAU,EAAE,qCAAqC,CAAC,CAAC;;;;SAI1I,EAAE,UAAU,CAAC,CAAC;IAEnB,MAAM,YAAY,GAAG,IAAI,GAAG,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;IACtE,OAAO,IAAA,kBAAY,EAAC,GAAG,CAAC,CAAC,GAAG,CAAC,MAAM,CAAC,EAAE;QAClC,MAAM,KAAK,GAAG,IAAA,iBAAW,EAAC,MAAM,CAAC,CAAC;QAClC,MAAM,EAAE,GAAG,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC;QAC3B,MAAM,eAAe,GAAG,IAAA,yBAAmB,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC;QAC7D,OAAO;YACH,OAAO,EAAE,EAAE;YACX,OAAO,EAAE,EAAE;YACX,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,IAAI,EAAE;YAC/B,UAAU,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YAC3B,WAAW,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YAC5B,YAAY,EAAE,YAAY,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,EAAE;YACxC,WAAW,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YAC5B,eAAe;YACf,eAAe,EAAE,eAAe,CAAC,MAAM;YACvC,UAAU;SACb,CAAC;IACN,CAAC,CAAC,CAAC;AACP,CAAC;AAED;;;GAGG;AACI,KAAK,UAAU,aAAa,CAAC,KAAmB;IACnD,MAAM,EAAE,GAAG,IAAA,sBAAY,EAAC,KAAK,CAAC,OAAO,CAAC,CAAC;IACvC,MAAM,KAAK,GAAG,IAAA,mBAAa,EAAC,MAAM,IAAA,kBAAY,EAAC;EACjD,IAAA,8BAAoB,EAAC,EAAE,CAAC;EACxB,IAAA,8BAAoB,EAAC,IAAI,CAAC;aACf,IAAA,WAAK,EAAC,IAAA,6BAAmB,EAAC,IAAI,CAAC,CAAC;SACpC,EAAE,OAAO,CAAC,CAAC,CAAC;IACjB,OAAO;QACH,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,EAAE,CAAC,IAAI,EAAE;QAC7C,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,OAAO,CAAC,CAAC,IAAI,EAAE;QACnD,UAAU,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,UAAU,CAAC;QAClD,WAAW,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,WAAW,CAAC;QACpD,YAAY,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,YAAY,CAAC;QACtD,IAAI,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,IAAI,CAAC;QACtC,eAAe,EAAE,IAAA,yBAAmB,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,eAAe,CAAC,CAAC;KACpF,CAAC;AACN,CAAC;AAED;;;;;;;GAOG;AACI,KAAK,UAAU,mBAAmB,CAAC,OAAsB;IAC5D,MAAM,IAAI,GAAG,MAAM,IAAA,2BAAiB,EAAC,OAAO,CAAC,OAAO,CAAC,CAAC;IACtD,mFAAmF;IACnF,MAAM,UAAU,GAAG,CAAC,IAAuB,EAAE,EAAE,CAAC,IAAI,IAAI,CAAC,GAAG,CAAC,qBAAc,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC,GAAG,CAAC,cAAQ,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC;IACzH,MAAM,WAAW,GAAG,OAAO,CAAC,cAAc,CAAC,MAAM,KAAK,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO,CAAC;IAC3E,6EAA6E;IAC7E,2EAA2E;IAC3E,4EAA4E;IAC5E,MAAM,OAAO,GAAG,CAAC,YAAY,EAAE,eAAe,EAAE,QAAQ,EAAE,WAAW,CAAC;SACjE,GAAG,CAAC,IAAI,CAAC,EAAE;QACR,MAAM,EAAE,GAAG,IAAI,CAAC,SAAS,EAAE,CAAC,IAAI,CAAC,CAAC;QAClC,OAAO,EAAE,KAAK,SAAS;YACnB,CAAC,CAAC,6BAA6B,EAAE,EAAE;YACnC,CAAC,CAAC;wCACsB,IAAI;YAChC,CAAC;IACL,CAAC,CAAC;SACD,IAAI,CAAC,IAAI,CAAC,CAAC;IAEhB,4EAA4E;IAC5E,MAAM,OAAO,GAAG,IAAA,kBAAY,EAAC,MAAM,IAAA,kBAAY,EAAC;;;;;;;;;;;;;;;;;;;;;;;;;;;;+BA4BrB,IAAA,WAAK,EAAC,CAAC,QAAQ,EAAE,8BAA8B,EAAE,sBAAsB,EAAE,eAAe,CAAC,CAAC;;;;;;;;;;;;;;;;;;;;yDAoBhE,iBAAW;;;;;;;EAOlE,IAAA,8BAAoB,EAAC,IAAI,CAAC;EAC1B,IAAA,2BAAiB,EAAC,IAAI,EAAE,OAAO,EAAE,WAAW,CAAC;;;EAG7C,OAAO;uBACc,UAAU,CAAC,OAAO,CAAC,cAAc,CAAC;uBAClC,UAAU,CAAC,OAAO,CAAC,cAAc,CAAC;;kCAEvB,IAAA,WAAK,EAAC,OAAO,CAAC,QAAQ,CAAC;mFAC0B,WAAW,GAAG,EAAE,MAAM,CAAC,CAAC,CAAC;IAExG,MAAM,eAAe,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,WAAW,IAAI,OAAO,CAAC,cAAc,IAAI,OAAO,CAAC,cAAc,CAAC,CAAC;IACpG,MAAM,MAAM,GAAG,OAAO,CAAC,WAAW,CAAC,CAAC,CAAC,IAAI,MAAM,CAAC,IAAA,wBAAiB,EAAC,OAAO,CAAC,WAAW,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC;IACpG,6EAA6E;IAC7E,4EAA4E;IAC5E,8EAA8E;IAC9E,sDAAsD;IACtD,MAAM,SAAS,GAAG,OAAO,CAAC,cAAc;QACpC,CAAC,CAAC,IAAI,MAAM,CAAC,OAAO,CAAC,cAAc,CAAC,MAAM,EAAE,GAAG,GAAG,OAAO,CAAC,cAAc,CAAC,KAAK,CAAC,OAAO,CAAC,QAAQ,EAAE,EAAE,CAAC,CAAC;QACrG,CAAC,CAAC,IAAI,CAAC;IACX,MAAM,UAAU,GAAG,OAAO;SACrB,GAAG,CAAC,MAAM,CAAC,EAAE;QACV,MAAM,KAAK,GAAG,IAAA,iBAAW,EAAC,MAAM,CAAC,CAAC;QAClC,MAAM,QAAQ,GAAG,IAAA,eAAS,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC;QAC5C,OAAO;YACH,UAAU,EAAE,IAAA,uBAAa,EAAC,OAAO,CAAC,OAAO,EAAE,QAAQ,CAAC,CAAC,CAAC,IAAI,OAAO,EAAE,QAAQ,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;YACrF,EAAE,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YACnB,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,IAAI,EAAE;YAC/B,YAAY,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;SAChC,CAAC;IACN,CAAC,CAAC;SACD,MAAM,CAAC,SAAS,CAAC,EAAE;QAChB,IAAI,eAAe,IAAI,CAAC,SAAS,CAAC,OAAO;YAAE,OAAO,KAAK,CAAC;QACxD,IAAI,MAAM,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,SAAS,CAAC,OAAO,CAAC;YAAE,OAAO,KAAK,CAAC;QAC5D,IAAI,SAAS,IAAI,CAAC,SAAS,CAAC,IAAI,CAAC,SAAS,CAAC,OAAO,CAAC;YAAE,OAAO,KAAK,CAAC;QAClE,IAAI,OAAO,CAAC,cAAc,IAAI,mBAAY,CAAC,IAAI,CAAC,SAAS,CAAC,OAAO,CAAC;YAAE,OAAO,KAAK,CAAC;QACjF,OAAO,IAAI,CAAC;IAChB,CAAC,CAAC,CAAC;IACP,IAAI,UAAU,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,EAAE,CAAC;IAEvC,sFAAsF;IACtF,MAAM,IAAI,GAAG,OAAO,CAAC,WAAW;QAC5B,CAAC,CAAC;;;oBAGU;QACZ,CAAC,CAAC,gCAAgC,CAAC;IACvC,MAAM,GAAG,GAAG,MAAM,IAAA,kBAAY,EAAC;;2BAER,IAAA,cAAQ,EAAC,UAAU,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;;;;;;EAM5D,IAAA,uBAAa,EAAC,cAAc,CAAC;;;;;EAK7B,IAAI;+BACyB,IAAA,WAAK,EAAC,CAAC,0BAA0B,EAAE,SAAS,EAAE,SAAS,EAAE,qCAAqC,EAAE,UAAU,CAAC,CAAC;;;;SAIlI,EAAE,MAAM,CAAC,CAAC;IACf,MAAM,OAAO,GAAG,IAAI,GAAG,CAAC,IAAA,kBAAY,EAAC,GAAG,CAAC,CAAC,GAAG,CAAC,MAAM,CAAC,EAAE;QACnD,MAAM,KAAK,GAAG,IAAA,iBAAW,EAAC,MAAM,CAAC,CAAC;QAClC,MAAM,MAAM,GAAG;YACX,UAAU,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YAC3B,WAAW,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YAC5B,eAAe,EAAE,IAAA,yBAAmB,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC;YACrD,IAAI,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;SACxB,CAAC;QACF,OAAO,CAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,EAAE,MAAM,CAAU,CAAC;IAC9C,CAAC,CAAC,CAAC,CAAC;IAEJ,MAAM,OAAO,GAAuB,EAAE,CAAC;IACvC,KAAK,MAAM,SAAS,IAAI,UAAU,EAAE,CAAC;QACjC,MAAM,MAAM,GAAG,OAAO,CAAC,GAAG,CAAC,SAAS,CAAC,EAAE,CAAC,CAAC;QACzC,IAAI,CAAC,MAAM;YAAE,SAAS;QACtB,8EAA8E;QAC9E,IAAI,OAAO,CAAC,iBAAiB,IAAI,MAAM,CAAC,eAAe,CAAC,MAAM,KAAK,CAAC;YAAE,SAAS;QAC/E,OAAO,CAAC,IAAI,CAAC;YACT,OAAO,EAAE,SAAS,CAAC,EAAE;YACrB,OAAO,EAAE,EAAE;YACX,OAAO,EAAE,SAAS,CAAC,OAAO;YAC1B,UAAU,EAAE,MAAM,CAAC,UAAU;YAC7B,WAAW,EAAE,MAAM,CAAC,WAAW;YAC/B,YAAY,EAAE,SAAS,CAAC,YAAY;YACpC,IAAI,EAAE,MAAM,CAAC,IAAI;YACjB,eAAe,EAAE,MAAM,CAAC,eAAe;YACvC,UAAU,EAAE,SAAS,CAAC,UAAU;SACnC,CAAC,CAAC;IACP,CAAC;IACD,OAAO,OAAO,CAAC;AACnB,CAAC;AAED;;;;;;;GAOG;AACI,KAAK,UAAU,iBAAiB;IACnC,MAAM,OAAO,GAAG,IAAA,kBAAY,EAAC,MAAM,IAAA,kBAAY,EAAC;;;;;wCAKZ,IAAA,cAAQ,EAAC,GAAG,IAAA,mBAAU,EAAC,WAAW,EAAE,OAAO,CAAC,2EAA2E,CAAC;;EAE9J,IAAA,8BAAoB,EAAC,IAAI,CAAC;;;;;;;;;;;;;EAa1B,IAAA,4BAAkB,EAAC,UAAU,CAAC;;;;;aAKnB,IAAA,WAAK,EAAC,IAAA,6BAAmB,EAAC,IAAI,CAAC,CAAC,MAAM,IAAA,WAAK,EAAC,CAAC,UAAU,EAAE,6BAA6B,EAAE,QAAQ,CAAC,CAAC;SACtG,EAAE,OAAO,CAAC,CAAC,CAAC;IACjB,IAAI,OAAO,CAAC,MAAM,KAAK,CAAC;QAAE,MAAM,IAAI,sBAAa,CAAC,OAAO,EAAE,qCAAqC,CAAC,CAAC;IAClG,MAAM,KAAK,GAAG,IAAA,iBAAW,EAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC;IACtC,MAAM,KAAK,GAAG,IAAA,iBAAW,EAAC,OAAO,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;IAC5C,MAAM,KAAK,GAAG,IAAA,eAAS,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,EAAE,CAAC;IACnD,MAAM,OAAO,GAAG,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,MAAM,mBAAmB,CAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;IACpG,OAAO;QACH,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,EAAE,CAAC;QACvC,OAAO,EAAE,EAAE;QACX,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,OAAO,CAAC,CAAC,IAAI,EAAE;QACnD,UAAU,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,UAAU,CAAC;QAClD,WAAW,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,WAAW,CAAC;QACpD,YAAY,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,YAAY,CAAC;QACtD,IAAI,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,IAAI,CAAC;QACtC,eAAe,EAAE,IAAA,yBAAmB,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,eAAe,CAAC,CAAC;QACjF,UAAU,EAAE,OAAO,IAAI,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,IAAA,uBAAa,EAAC,OAAO,EAAE,KAAK,CAAC,CAAC,CAAC,EAAE,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE;KAC9F,CAAC;AACN,CAAC;AAED,sGAAsG;AACtG,KAAK,UAAU,mBAAmB,CAAC,MAAc;IAC7C,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC;QAAE,OAAO,EAAE,CAAC;IACrC,MAAM,EAAE,GAAG,MAAM,CAAC,MAAM,CAAC,CAAC;IAC1B,OAAO,CAAC,MAAM,IAAA,6BAAmB,GAAE,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,SAAS,CAAC,aAAa,CAAC,KAAK,EAAE,CAAC,EAAE,YAAY,IAAI,EAAE,CAAC;AAC1G,CAAC;AAED,0DAA0D;AACnD,KAAK,UAAU,gBAAgB,CAAC,KAAmB;IACtD,MAAM,EAAE,GAAG,IAAA,sBAAY,EAAC,KAAK,CAAC,OAAO,CAAC,CAAC;IACvC,MAAM,IAAA,kBAAY,EAAC;;EAErB,IAAA,8BAAoB,EAAC,EAAE,CAAC;;;SAGjB,EAAE,OAAO,CAAC,CAAC;AACpB,CAAC","sourcesContent":["// Reading mail on macOS: one folder, one item, a whole Inbox tree, or whatever\n// is selected in the running Outlook.\n//\n// Every reader is two passes. Pass 1 indexes a folder with bulk property reads\n// (one Apple event each); pass 2 fetches the expensive fields — body,\n// attachments, sender — only for the messages that survived. Reading\n// per-message in a loop costs an event per property and is unusably slow on a\n// real mailbox, which is the whole reason for the shape.\nimport {\n    AS_LIST_SEP,\n    asIdList,\n    asInt,\n    asRow,\n    asString,\n    field,\n    runOsaScript,\n    splitFields,\n    splitList,\n    splitPositionalList,\n    splitRecords,\n    summaryFields,\n} from './run';\nimport { readProfileAccounts } from './profile';\nimport {\n    accountLookupSnippet,\n    dateProperty,\n    firstRecipientSnippet,\n    folderChainSnippet,\n    macFolderPath,\n    macMessageId,\n    mailScopeSnippet,\n    MessageDetail,\n    messageDetailFields,\n    messageDetailSnippet,\n    messageLookupSnippet,\n    resolveMacAccount,\n    rootFolderSnippet,\n    senderSnippet,\n} from './scripts';\nimport { failureTag, NotFoundError } from '../errors';\nimport { folderLeafName, isOutgoingRoot, REPLY_PREFIX, subjectGlobSource } from '../mail';\nimport type { RawEmail, ReadInboxRequest, SearchRequest } from '../backend';\nimport type { EmailLocator, InboxEmail, InboxSearchMatch, SelectedEmail } from '../types';\n\n/**\n * Recent mail from the Inbox root or one folder, newest first. Entry ids here\n * are Outlook for Mac's integer message ids, not Windows EntryIDs.\n */\nexport async function readInboxEmails(request: ReadInboxRequest): Promise<InboxEmail[]> {\n    const acct = await resolveMacAccount(request.account);\n    const folderPath = macFolderPath(request.account, request.folder.rootLabel, request.folder.segments);\n    const outgoing = isOutgoingRoot(request.folder.rootId);\n\n    // Pass 1 — index the folder. Its order isn't documented, so it is sorted here.\n    const index = (await runOsaScript(`tell application \"Microsoft Outlook\"\n${accountLookupSnippet(acct)}\n${mailScopeSnippet(acct, request.folder, request.folderLabel)}\n    set cutoff to (current date) - (${asInt(request.daysBack)} * days)\n    set idList to id of every message of scopeFolder\n    try\n        set timeList to ${dateProperty(request.folder.rootId)} of every message of scopeFolder\n    on error\n        set timeList to {}\n    end try\n    set hasTimes to ((count of timeList) is (count of idList))\n    set out to \"\"\n    repeat with i from 1 to (count of idList)\n        set d to missing value\n        if hasTimes then set d to item i of timeList\n        -- An item with no timestamp of its own (an unsent draft filed into a\n        -- mail folder) is skipped, as the Windows date filter skips it.\n        if d is not missing value and d is greater than or equal to cutoff then\n            set out to out & (item i of idList as string) & tab & my isoDate(d) & linefeed\n        end if\n    end repeat\n    return out\nend tell`, 'standard'))\n        .split('\\n')\n        .map(line => line.trim())\n        .filter(Boolean)\n        .map(line => {\n            const [id, receivedTime] = line.split('\\t');\n            return { id, receivedTime: receivedTime || '' };\n        });\n    // 'yyyy-MM-dd HH:mm' sorts correctly as a string.\n    index.sort((a, b) => b.receivedTime.localeCompare(a.receivedTime));\n    const chosen = index.slice(0, request.limit);\n    if (chosen.length === 0) return [];\n\n    // Pass 2 — the expensive reads, only for the messages kept.\n    const preview = request.previewChars > 0\n        ? `            set bodyText to \"\"\n            try\n                set bodyText to (plain text content of theMsg) as string\n            end try\n            if (length of bodyText) > ${asInt(request.previewChars)} then set bodyText to text 1 thru ${asInt(request.previewChars)} of bodyText`\n        : '            set bodyText to \"\"';\n    const raw = await runOsaScript(`tell application \"Microsoft Outlook\"\n    set out to \"\"\n    repeat with theId in ${asIdList(chosen.map(c => c.id))}\n        set theMsg to missing value\n        try\n            set theMsg to message id theId\n        end try\n        if theMsg is not missing value then\n            set subj to \"\"\n            try\n                set subj to (subject of theMsg) as string\n            end try\n${outgoing ? firstRecipientSnippet('            ') : senderSnippet('            ')}\n${preview}\n            set attNames to {}\n            try\n                set attNames to name of every attachment of theMsg\n            end try\n            set out to out & ${asRow(['(id of theMsg as string)', 'subj', 'sndName', 'sndAddr', 'bodyText', 'my sanitizePositionalList(attNames)'])}\n        end if\n    end repeat\n    return out\nend tell`, 'standard');\n\n    const receivedById = new Map(chosen.map(c => [c.id, c.receivedTime]));\n    return splitRecords(raw).map(record => {\n        const parts = splitFields(record);\n        const id = field(parts, 0);\n        const attachmentNames = splitPositionalList(field(parts, 5));\n        return {\n            entryId: id,\n            storeId: '',\n            subject: field(parts, 1).trim(),\n            senderName: field(parts, 2),\n            senderEmail: field(parts, 3),\n            receivedTime: receivedById.get(id) || '',\n            bodyPreview: field(parts, 4),\n            attachmentNames,\n            attachmentCount: attachmentNames.length,\n            folderPath,\n        };\n    });\n}\n\n/**\n * One email's full plain-text body. `storeId` has no macOS meaning: `message id\n * N` resolves against the application, wherever the message sits.\n */\nexport async function readEmailBody(email: EmailLocator): Promise<RawEmail> {\n    const id = macMessageId(email.entryId);\n    const parts = summaryFields(await runOsaScript(`tell application \"Microsoft Outlook\"\n${messageLookupSnippet(id)}\n${messageDetailSnippet(true)}\n    return ${asRow(messageDetailFields(true))}\nend tell`, 'quick'));\n    return {\n        entryId: field(parts, MessageDetail.id) || id,\n        subject: field(parts, MessageDetail.subject).trim(),\n        senderName: field(parts, MessageDetail.senderName),\n        senderEmail: field(parts, MessageDetail.senderEmail),\n        receivedTime: field(parts, MessageDetail.receivedTime),\n        body: field(parts, MessageDetail.body),\n        attachmentNames: splitPositionalList(field(parts, MessageDetail.attachmentNames)),\n    };\n}\n\n/**\n * Walk every folder under the Inbox for the mail matching the request.\n *\n * The filtering happens here rather than in Outlook: there is no AppleScript\n * counterpart to COM's server-side `Items.Restrict`, so each folder is indexed in\n * bulk reads and the subject and date tests run on the index. The results match\n * Windows; the cost doesn't, and a wide window over a big tree is heavier here.\n */\nexport async function searchInboxByFilter(request: SearchRequest): Promise<InboxSearchMatch[]> {\n    const acct = await resolveMacAccount(request.account);\n    // AppleScript reaches a child folder by name, so a path entry narrows to its leaf.\n    const asNameList = (list: readonly string[]) => `{${list.map(folderLeafName).filter(Boolean).map(asString).join(', ')}}`;\n    const rootInScope = request.includeFolders.length === 0 ? 'true' : 'false';\n    // Sent, Drafts, Deleted and Junk hang UNDER the Inbox on an IMAP profile, so\n    // their ids are collected first and the walk never descends into them — by\n    // the profile's own id where it records one, through the account otherwise.\n    const skipIds = ['sent items', 'deleted items', 'drafts', 'junk mail']\n        .map(term => {\n            const id = acct.folderIds?.[term];\n            return id !== undefined\n                ? `    set end of skipIds to ${id}`\n                : `    try\n        set end of skipIds to (id of (${term} of targetAcct))\n    end try`;\n        })\n        .join('\\n');\n\n    // Pass 1 — index every folder under the Inbox: path, id, subject, received.\n    const indexed = splitRecords(await runOsaScript(`on scanFolder(theFolder, prefix, cutoff, skipIds, skipNames, onlyNames, inScope)\n    set out to \"\"\n    set idList to {}\n    set subjList to {}\n    set timeList to {}\n    -- A folder the walk only passes through is never read: the bulk reads are\n    -- the expensive part.\n    if inScope then\n        tell application \"Microsoft Outlook\"\n            set idList to id of every message of theFolder\n            set subjList to subject of every message of theFolder\n            try\n                set timeList to time received of every message of theFolder\n            on error\n                set timeList to {}\n            end try\n        end tell\n    end if\n    tell application \"Microsoft Outlook\"\n        set subs to mail folders of theFolder\n    end tell\n    set hasTimes to ((count of timeList) is (count of idList))\n    repeat with i from 1 to (count of idList)\n        set d to missing value\n        if hasTimes then set d to item i of timeList\n        -- An item with no readable receive time is kept whatever the window\n        -- says; dropping it would make a folder of them look empty.\n        if d is missing value or d is not less than cutoff then\n            set out to out & ${asRow(['prefix', '(item i of idList as string)', '(item i of subjList)', 'my isoDate(d)'])}\n        end if\n    end repeat\n    repeat with f in subs\n        set skipThis to false\n        try\n            if skipIds contains (id of f) then set skipThis to true\n        end try\n        try\n            if skipNames contains ((name of f) as string) then set skipThis to true\n        end try\n        if not skipThis then\n            set childName to \"\"\n            try\n                set childName to (name of f) as string\n            end try\n            set childScope to (count of onlyNames) is 0\n            try\n                if onlyNames contains childName then set childScope to true\n            end try\n            set out to out & my scanFolder(f, prefix & ${AS_LIST_SEP} & childName, cutoff, skipIds, skipNames, onlyNames, childScope)\n        end if\n    end repeat\n    return out\nend scanFolder\n\ntell application \"Microsoft Outlook\"\n${accountLookupSnippet(acct)}\n${rootFolderSnippet(acct, 'inbox', 'rootInbox')}\n    set rootName to (name of rootInbox) as string\n    set skipIds to {}\n${skipIds}\n    set skipNames to ${asNameList(request.excludeFolders)}\n    set onlyNames to ${asNameList(request.includeFolders)}\nend tell\nset cutoff to (current date) - (${asInt(request.daysBack)} * days)\nreturn my scanFolder(rootInbox, rootName, cutoff, skipIds, skipNames, onlyNames, ${rootInScope})`, 'scan'));\n\n    const subjectFiltered = !!(request.subjectLike || request.subjectPattern || request.excludeReplies);\n    const likeRe = request.subjectLike ? new RegExp(subjectGlobSource(request.subjectLike), 'i') : null;\n    // PowerShell's -match is case-insensitive, so this test is too, whatever the\n    // caller's flags. Only u and v are kept: they decide how the source parses,\n    // and without u, /\\p{L}/u would match the literal text \"p{L}\". Keeping g or y\n    // would carry lastIndex from one subject to the next.\n    const patternRe = request.subjectPattern\n        ? new RegExp(request.subjectPattern.source, 'i' + request.subjectPattern.flags.replace(/[^uv]/g, ''))\n        : null;\n    const candidates = indexed\n        .map(record => {\n            const parts = splitFields(record);\n            const segments = splitList(field(parts, 0));\n            return {\n                folderPath: macFolderPath(request.account, segments[0] || 'Inbox', segments.slice(1)),\n                id: field(parts, 1),\n                subject: field(parts, 2).trim(),\n                receivedTime: field(parts, 3),\n            };\n        })\n        .filter(candidate => {\n            if (subjectFiltered && !candidate.subject) return false;\n            if (likeRe && !likeRe.test(candidate.subject)) return false;\n            if (patternRe && !patternRe.test(candidate.subject)) return false;\n            if (request.excludeReplies && REPLY_PREFIX.test(candidate.subject)) return false;\n            return true;\n        });\n    if (candidates.length === 0) return [];\n\n    // Pass 2 — senders, attachment names and (when asked) bodies, for the survivors only.\n    const body = request.includeBody\n        ? `            set bodyText to \"\"\n            try\n                set bodyText to (plain text content of theMsg) as string\n            end try`\n        : '            set bodyText to \"\"';\n    const raw = await runOsaScript(`tell application \"Microsoft Outlook\"\n    set out to \"\"\n    repeat with theId in ${asIdList(candidates.map(c => c.id))}\n        set theMsg to missing value\n        try\n            set theMsg to message id theId\n        end try\n        if theMsg is not missing value then\n${senderSnippet('            ')}\n            set attNames to {}\n            try\n                set attNames to name of every attachment of theMsg\n            end try\n${body}\n            set out to out & ${asRow(['(id of theMsg as string)', 'sndName', 'sndAddr', 'my sanitizePositionalList(attNames)', 'bodyText'])}\n        end if\n    end repeat\n    return out\nend tell`, 'scan');\n    const details = new Map(splitRecords(raw).map(record => {\n        const parts = splitFields(record);\n        const detail = {\n            senderName: field(parts, 1),\n            senderEmail: field(parts, 2),\n            attachmentNames: splitPositionalList(field(parts, 3)),\n            body: field(parts, 4),\n        };\n        return [field(parts, 0), detail] as const;\n    }));\n\n    const matches: InboxSearchMatch[] = [];\n    for (const candidate of candidates) {\n        const detail = details.get(candidate.id);\n        if (!detail) continue;\n        // Attachment names only arrive with the details, so this test waits for them.\n        if (request.requireAttachment && detail.attachmentNames.length === 0) continue;\n        matches.push({\n            entryId: candidate.id,\n            storeId: '',\n            subject: candidate.subject,\n            senderName: detail.senderName,\n            senderEmail: detail.senderEmail,\n            receivedTime: candidate.receivedTime,\n            body: detail.body,\n            attachmentNames: detail.attachmentNames,\n            folderPath: candidate.folderPath,\n        });\n    }\n    return matches;\n}\n\n/**\n * The email currently selected — or open — in Outlook. `current messages`\n * covers both cases the Windows reader handles separately.\n *\n * Where it sits comes back as a second record, so the detail row keeps its body\n * last. A mailbox with no account object answers `account of` with missing\n * value; its root folder's id is then looked up in the profile database.\n */\nexport async function readSelectedEmail(): Promise<SelectedEmail> {\n    const records = splitRecords(await runOsaScript(`tell application \"Microsoft Outlook\"\n    set sel to {}\n    try\n        set sel to current messages\n    end try\n    if (count of sel) is 0 then error ${asString(`${failureTag('NOT_FOUND', 'email')}No email is selected in Outlook. Select or open an email, then try again.`)}\n    set theMsg to item 1 of sel\n${messageDetailSnippet(true)}\n    set acctAddr to \"\"\n    try\n        set rawAddr to email address of (account of theMsg)\n        if rawAddr is not missing value then set acctAddr to rawAddr as string\n    end try\n    set chainNames to {}\n    set rootId to \"\"\n    set theFolder to missing value\n    try\n        set theFolder to folder of theMsg\n    end try\n    if theFolder is not missing value then\n${folderChainSnippet('        ')}\n        try\n            set rootId to (id of cur) as string\n        end try\n    end if\n    return ${asRow(messageDetailFields(true))} & ${asRow(['acctAddr', 'my sanitizeList(chainNames)', 'rootId'])}\nend tell`, 'quick'));\n    if (records.length === 0) throw new NotFoundError('email', 'Outlook reported no selected email.');\n    const parts = splitFields(records[0]);\n    const where = splitFields(records[1] ?? '');\n    const chain = splitList(field(where, 1)).reverse();\n    const account = field(where, 0) || (chain.length ? await accountByRootFolder(field(where, 2)) : '');\n    return {\n        entryId: field(parts, MessageDetail.id),\n        storeId: '',\n        subject: field(parts, MessageDetail.subject).trim(),\n        senderName: field(parts, MessageDetail.senderName),\n        senderEmail: field(parts, MessageDetail.senderEmail),\n        receivedTime: field(parts, MessageDetail.receivedTime),\n        body: field(parts, MessageDetail.body),\n        attachmentNames: splitPositionalList(field(parts, MessageDetail.attachmentNames)),\n        folderPath: account && chain.length ? macFolderPath(account, chain[0], chain.slice(1)) : '',\n    };\n}\n\n/** The address of the account whose root folder has this id, per the profile database; '' if none. */\nasync function accountByRootFolder(rootId: string): Promise<string> {\n    if (!/^\\d+$/.test(rootId)) return '';\n    const id = Number(rootId);\n    return (await readProfileAccounts()).find(a => a.folderIds['root folder'] === id)?.emailAccount ?? '';\n}\n\n/** Open an email in Outlook and bring Outlook forward. */\nexport async function openOutlookEmail(email: EmailLocator): Promise<void> {\n    const id = macMessageId(email.entryId);\n    await runOsaScript(`\ntell application \"Microsoft Outlook\"\n${messageLookupSnippet(id)}\n    open theMsg\n    activate\nend tell`, 'quick');\n}\n"]}
+{"version":3,"file":"read.js","sourceRoot":"","sources":["../../src/mac/read.ts"],"names":[],"mappings":";;AAmDA,0CAiFC;AAMD,sCAgBC;AAUD,kDAyKC;AAUD,8CA4CC;AAUD,4CAQC;AArZD,+EAA+E;AAC/E,sCAAsC;AACtC,EAAE;AACF,+EAA+E;AAC/E,sEAAsE;AACtE,qEAAqE;AACrE,8EAA8E;AAC9E,yDAAyD;AACzD,+BAae;AACf,uCAAgD;AAChD,uCAkBmB;AACnB,sCAAsD;AACtD,kCAA8G;AAI9G;;;GAGG;AACI,KAAK,UAAU,eAAe,CAAC,OAAyB;IAC3D,MAAM,IAAI,GAAG,MAAM,IAAA,2BAAiB,EAAC,OAAO,CAAC,OAAO,CAAC,CAAC;IACtD,MAAM,UAAU,GAAG,IAAA,uBAAa,EAAC,OAAO,CAAC,OAAO,EAAE,OAAO,CAAC,MAAM,CAAC,SAAS,EAAE,OAAO,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC;IACrG,MAAM,QAAQ,GAAG,IAAA,qBAAc,EAAC,OAAO,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC;IAEvD,+EAA+E;IAC/E,MAAM,KAAK,GAAG,CAAC,MAAM,IAAA,kBAAY,EAAC;EACpC,IAAA,8BAAoB,EAAC,IAAI,CAAC;EAC1B,IAAA,0BAAgB,EAAC,IAAI,EAAE,OAAO,CAAC,MAAM,EAAE,OAAO,CAAC,WAAW,CAAC;sCACvB,IAAA,WAAK,EAAC,OAAO,CAAC,QAAQ,CAAC;;;0BAGnC,IAAA,sBAAY,EAAC,OAAO,CAAC,MAAM,CAAC,MAAM,CAAC;;;;;;;;;;;;;;;;SAgBpD,EAAE,UAAU,CAAC,CAAC;SACd,KAAK,CAAC,IAAI,CAAC;SACX,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC;SACxB,MAAM,CAAC,OAAO,CAAC;SACf,GAAG,CAAC,IAAI,CAAC,EAAE;QACR,MAAM,CAAC,EAAE,EAAE,YAAY,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC;QAC5C,OAAO,EAAE,EAAE,EAAE,YAAY,EAAE,YAAY,IAAI,EAAE,EAAE,CAAC;IACpD,CAAC,CAAC,CAAC;IACP,kDAAkD;IAClD,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,YAAY,CAAC,aAAa,CAAC,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC;IACnE,MAAM,MAAM,GAAG,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,OAAO,CAAC,KAAK,CAAC,CAAC;IAC7C,IAAI,MAAM,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,EAAE,CAAC;IAEnC,4DAA4D;IAC5D,MAAM,GAAG,GAAG,MAAM,IAAA,kBAAY,EAAC;;2BAER,IAAA,cAAQ,EAAC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;EACxD,IAAA,4BAAkB,EAAC,UAAU,CAAC;;;;;;EAM9B,QAAQ,CAAC,CAAC,CAAC,IAAA,+BAAqB,EAAC,cAAc,CAAC,CAAC,CAAC,CAAC,IAAA,uBAAa,EAAC,cAAc,CAAC;EAChF,IAAA,yBAAe,EAAC,cAAc,EAAE,OAAO,CAAC,YAAY,CAAC;;;;;+BAKxB,IAAA,WAAK,EAAC,CAAC,0BAA0B,EAAE,MAAM,EAAE,SAAS,EAAE,SAAS,EAAE,UAAU,EAAE,qCAAqC,CAAC,CAAC;;;;SAI1I,EAAE,UAAU,CAAC,CAAC;IAEnB,MAAM,YAAY,GAAG,IAAI,GAAG,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;IACtE,OAAO,IAAA,kBAAY,EAAC,GAAG,CAAC,CAAC,GAAG,CAAC,MAAM,CAAC,EAAE;QAClC,MAAM,KAAK,GAAG,IAAA,iBAAW,EAAC,MAAM,CAAC,CAAC;QAClC,MAAM,EAAE,GAAG,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC;QAC3B,MAAM,eAAe,GAAG,IAAA,yBAAmB,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC;QAC7D,OAAO;YACH,OAAO,EAAE,EAAE;YACX,OAAO,EAAE,EAAE;YACX,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,IAAI,EAAE;YAC/B,UAAU,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YAC3B,WAAW,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YAC5B,YAAY,EAAE,YAAY,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,EAAE;YACxC,WAAW,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YAC5B,eAAe;YACf,eAAe,EAAE,eAAe,CAAC,MAAM;YACvC,UAAU;SACb,CAAC;IACN,CAAC,CAAC,CAAC;AACP,CAAC;AAED;;;GAGG;AACI,KAAK,UAAU,aAAa,CAAC,KAAmB;IACnD,MAAM,EAAE,GAAG,IAAA,sBAAY,EAAC,KAAK,CAAC,OAAO,CAAC,CAAC;IACvC,MAAM,KAAK,GAAG,IAAA,mBAAa,EAAC,MAAM,IAAA,kBAAY,EAAC;EACjD,IAAA,8BAAoB,EAAC,EAAE,CAAC;EACxB,IAAA,8BAAoB,EAAC,IAAI,CAAC;aACf,IAAA,WAAK,EAAC,IAAA,6BAAmB,EAAC,IAAI,CAAC,CAAC;SACpC,EAAE,OAAO,CAAC,CAAC,CAAC;IACjB,OAAO;QACH,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,EAAE,CAAC,IAAI,EAAE;QAC7C,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,OAAO,CAAC,CAAC,IAAI,EAAE;QACnD,UAAU,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,UAAU,CAAC;QAClD,WAAW,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,WAAW,CAAC;QACpD,YAAY,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,YAAY,CAAC;QACtD,IAAI,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,IAAI,CAAC;QACtC,eAAe,EAAE,IAAA,yBAAmB,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,eAAe,CAAC,CAAC;KACpF,CAAC;AACN,CAAC;AAED;;;;;;;GAOG;AACI,KAAK,UAAU,mBAAmB,CAAC,OAAsB;IAC5D,MAAM,IAAI,GAAG,MAAM,IAAA,2BAAiB,EAAC,OAAO,CAAC,OAAO,CAAC,CAAC;IACtD,mFAAmF;IACnF,MAAM,UAAU,GAAG,CAAC,IAAuB,EAAE,EAAE,CAAC,IAAI,IAAI,CAAC,GAAG,CAAC,qBAAc,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC,GAAG,CAAC,cAAQ,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC;IACzH,6EAA6E;IAC7E,2EAA2E;IAC3E,4EAA4E;IAC5E,oEAAoE;IACpE,MAAM,OAAO,GAAG,yBAAkB;SAC7B,GAAG,CAAC,MAAM,CAAC,EAAE,CAAC,wBAAc,CAAC,MAAM,CAAC,CAAC;SACrC,GAAG,CAAC,IAAI,CAAC,EAAE;QACR,MAAM,EAAE,GAAG,IAAI,CAAC,SAAS,EAAE,CAAC,IAAI,CAAC,CAAC;QAClC,OAAO,EAAE,KAAK,SAAS;YACnB,CAAC,CAAC,6BAA6B,EAAE,EAAE;YACnC,CAAC,CAAC;wCACsB,IAAI;YAChC,CAAC;IACL,CAAC,CAAC;SACD,IAAI,CAAC,IAAI,CAAC,CAAC;IAEhB,4EAA4E;IAC5E,MAAM,OAAO,GAAG,IAAA,kBAAY,EAAC,MAAM,IAAA,kBAAY,EAAC;;;;;;;;;;;;;;;;;;;;;;;;;;;;+BA4BrB,IAAA,WAAK,EAAC,CAAC,QAAQ,EAAE,8BAA8B,EAAE,sBAAsB,EAAE,eAAe,CAAC,CAAC;;;;;;;;;;;;;;;;;;;;yDAoBhE,iBAAW;;;;;;;EAOlE,IAAA,8BAAoB,EAAC,IAAI,CAAC;EAC1B,IAAA,2BAAiB,EAAC,IAAI,EAAE,OAAO,EAAE,WAAW,CAAC;;;EAG7C,OAAO;uBACc,UAAU,CAAC,OAAO,CAAC,cAAc,CAAC;uBAClC,UAAU,CAAC,OAAO,CAAC,cAAc,CAAC;;;;;;;;kCAQvB,IAAA,WAAK,EAAC,OAAO,CAAC,QAAQ,CAAC;4FACmC,EAAE,MAAM,CAAC,CAAC,CAAC;IAEnG,MAAM,eAAe,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,WAAW,IAAI,OAAO,CAAC,cAAc,IAAI,OAAO,CAAC,cAAc,CAAC,CAAC;IACpG,MAAM,MAAM,GAAG,OAAO,CAAC,WAAW,CAAC,CAAC,CAAC,IAAI,MAAM,CAAC,IAAA,wBAAiB,EAAC,OAAO,CAAC,WAAW,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC;IACpG,6EAA6E;IAC7E,4EAA4E;IAC5E,8EAA8E;IAC9E,sDAAsD;IACtD,MAAM,SAAS,GAAG,OAAO,CAAC,cAAc;QACpC,CAAC,CAAC,IAAI,MAAM,CAAC,OAAO,CAAC,cAAc,CAAC,MAAM,EAAE,GAAG,GAAG,OAAO,CAAC,cAAc,CAAC,KAAK,CAAC,OAAO,CAAC,QAAQ,EAAE,EAAE,CAAC,CAAC;QACrG,CAAC,CAAC,IAAI,CAAC;IACX,MAAM,UAAU,GAAG,OAAO;SACrB,GAAG,CAAC,MAAM,CAAC,EAAE;QACV,MAAM,KAAK,GAAG,IAAA,iBAAW,EAAC,MAAM,CAAC,CAAC;QAClC,MAAM,QAAQ,GAAG,IAAA,eAAS,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC;QAC5C,OAAO;YACH,UAAU,EAAE,IAAA,uBAAa,EAAC,OAAO,CAAC,OAAO,EAAE,QAAQ,CAAC,CAAC,CAAC,IAAI,OAAO,EAAE,QAAQ,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;YACrF,EAAE,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YACnB,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,IAAI,EAAE;YAC/B,YAAY,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;SAChC,CAAC;IACN,CAAC,CAAC;SACD,MAAM,CAAC,SAAS,CAAC,EAAE;QAChB,IAAI,eAAe,IAAI,CAAC,SAAS,CAAC,OAAO;YAAE,OAAO,KAAK,CAAC;QACxD,IAAI,MAAM,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,SAAS,CAAC,OAAO,CAAC;YAAE,OAAO,KAAK,CAAC;QAC5D,IAAI,SAAS,IAAI,CAAC,SAAS,CAAC,IAAI,CAAC,SAAS,CAAC,OAAO,CAAC;YAAE,OAAO,KAAK,CAAC;QAClE,IAAI,OAAO,CAAC,cAAc,IAAI,mBAAY,CAAC,IAAI,CAAC,SAAS,CAAC,OAAO,CAAC;YAAE,OAAO,KAAK,CAAC;QACjF,OAAO,IAAI,CAAC;IAChB,CAAC,CAAC,CAAC;IACP,IAAI,UAAU,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,EAAE,CAAC;IAEvC,sFAAsF;IACtF,MAAM,GAAG,GAAG,MAAM,IAAA,kBAAY,EAAC;;2BAER,IAAA,cAAQ,EAAC,UAAU,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;EAC5D,IAAA,4BAAkB,EAAC,UAAU,CAAC;;EAE9B,IAAA,uBAAa,EAAC,cAAc,CAAC;;;;;EAK7B,IAAA,yBAAe,EAAC,cAAc,EAAE,OAAO,CAAC,WAAW,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC;+BACvC,IAAA,WAAK,EAAC,CAAC,0BAA0B,EAAE,SAAS,EAAE,SAAS,EAAE,qCAAqC,EAAE,UAAU,CAAC,CAAC;;;;SAIlI,EAAE,MAAM,CAAC,CAAC;IACf,MAAM,OAAO,GAAG,IAAI,GAAG,CAAC,IAAA,kBAAY,EAAC,GAAG,CAAC,CAAC,GAAG,CAAC,MAAM,CAAC,EAAE;QACnD,MAAM,KAAK,GAAG,IAAA,iBAAW,EAAC,MAAM,CAAC,CAAC;QAClC,MAAM,MAAM,GAAG;YACX,UAAU,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YAC3B,WAAW,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;YAC5B,eAAe,EAAE,IAAA,yBAAmB,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC;YACrD,IAAI,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC;SACxB,CAAC;QACF,OAAO,CAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,EAAE,MAAM,CAAU,CAAC;IAC9C,CAAC,CAAC,CAAC,CAAC;IAEJ,MAAM,OAAO,GAAuB,EAAE,CAAC;IACvC,KAAK,MAAM,SAAS,IAAI,UAAU,EAAE,CAAC;QACjC,MAAM,MAAM,GAAG,OAAO,CAAC,GAAG,CAAC,SAAS,CAAC,EAAE,CAAC,CAAC;QACzC,IAAI,CAAC,MAAM;YAAE,SAAS;QACtB,8EAA8E;QAC9E,IAAI,OAAO,CAAC,iBAAiB,IAAI,MAAM,CAAC,eAAe,CAAC,MAAM,KAAK,CAAC;YAAE,SAAS;QAC/E,OAAO,CAAC,IAAI,CAAC;YACT,OAAO,EAAE,SAAS,CAAC,EAAE;YACrB,OAAO,EAAE,EAAE;YACX,OAAO,EAAE,SAAS,CAAC,OAAO;YAC1B,UAAU,EAAE,MAAM,CAAC,UAAU;YAC7B,WAAW,EAAE,MAAM,CAAC,WAAW;YAC/B,YAAY,EAAE,SAAS,CAAC,YAAY;YACpC,IAAI,EAAE,MAAM,CAAC,IAAI;YACjB,eAAe,EAAE,MAAM,CAAC,eAAe;YACvC,UAAU,EAAE,SAAS,CAAC,UAAU;SACnC,CAAC,CAAC;IACP,CAAC;IACD,OAAO,OAAO,CAAC;AACnB,CAAC;AAED;;;;;;;GAOG;AACI,KAAK,UAAU,iBAAiB;IACnC,MAAM,OAAO,GAAG,IAAA,kBAAY,EAAC,MAAM,IAAA,kBAAY,EAAC;;;;;wCAKZ,IAAA,cAAQ,EAAC,GAAG,IAAA,mBAAU,EAAC,WAAW,EAAE,OAAO,CAAC,2EAA2E,CAAC;;EAE9J,IAAA,8BAAoB,EAAC,IAAI,CAAC;;;;;;;;;;;;;EAa1B,IAAA,4BAAkB,EAAC,UAAU,CAAC;;;;;aAKnB,IAAA,WAAK,EAAC,IAAA,6BAAmB,EAAC,IAAI,CAAC,CAAC,MAAM,IAAA,WAAK,EAAC,CAAC,UAAU,EAAE,6BAA6B,EAAE,QAAQ,CAAC,CAAC;SACtG,EAAE,OAAO,CAAC,CAAC,CAAC;IACjB,IAAI,OAAO,CAAC,MAAM,KAAK,CAAC;QAAE,MAAM,IAAI,sBAAa,CAAC,OAAO,EAAE,qCAAqC,CAAC,CAAC;IAClG,MAAM,KAAK,GAAG,IAAA,iBAAW,EAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC;IACtC,MAAM,KAAK,GAAG,IAAA,iBAAW,EAAC,OAAO,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;IAC5C,MAAM,KAAK,GAAG,IAAA,eAAS,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,EAAE,CAAC;IACnD,MAAM,OAAO,GAAG,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,MAAM,mBAAmB,CAAC,IAAA,WAAK,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;IACpG,OAAO;QACH,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,EAAE,CAAC;QACvC,OAAO,EAAE,EAAE;QACX,OAAO,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,OAAO,CAAC,CAAC,IAAI,EAAE;QACnD,UAAU,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,UAAU,CAAC;QAClD,WAAW,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,WAAW,CAAC;QACpD,YAAY,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,YAAY,CAAC;QACtD,IAAI,EAAE,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,IAAI,CAAC;QACtC,eAAe,EAAE,IAAA,yBAAmB,EAAC,IAAA,WAAK,EAAC,KAAK,EAAE,uBAAa,CAAC,eAAe,CAAC,CAAC;QACjF,UAAU,EAAE,OAAO,IAAI,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,IAAA,uBAAa,EAAC,OAAO,EAAE,KAAK,CAAC,CAAC,CAAC,EAAE,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE;KAC9F,CAAC;AACN,CAAC;AAED,sGAAsG;AACtG,KAAK,UAAU,mBAAmB,CAAC,MAAc;IAC7C,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC;QAAE,OAAO,EAAE,CAAC;IACrC,MAAM,EAAE,GAAG,MAAM,CAAC,MAAM,CAAC,CAAC;IAC1B,OAAO,CAAC,MAAM,IAAA,6BAAmB,GAAE,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,SAAS,CAAC,aAAa,CAAC,KAAK,EAAE,CAAC,EAAE,YAAY,IAAI,EAAE,CAAC;AAC1G,CAAC;AAED,0DAA0D;AACnD,KAAK,UAAU,gBAAgB,CAAC,KAAmB;IACtD,MAAM,EAAE,GAAG,IAAA,sBAAY,EAAC,KAAK,CAAC,OAAO,CAAC,CAAC;IACvC,MAAM,IAAA,kBAAY,EAAC;;EAErB,IAAA,8BAAoB,EAAC,EAAE,CAAC;;;SAGjB,EAAE,OAAO,CAAC,CAAC;AACpB,CAAC","sourcesContent":["// Reading mail on macOS: one folder, one item, a whole Inbox tree, or whatever\n// is selected in the running Outlook.\n//\n// Every reader is two passes. Pass 1 indexes a folder with bulk property reads\n// (one Apple event each); pass 2 fetches the expensive fields — body,\n// attachments, sender — only for the messages that survived. Reading\n// per-message in a loop costs an event per property and is unusably slow on a\n// real mailbox, which is the whole reason for the shape.\nimport {\n    AS_LIST_SEP,\n    asIdList,\n    asInt,\n    asRow,\n    asString,\n    field,\n    runOsaScript,\n    splitFields,\n    splitList,\n    splitPositionalList,\n    splitRecords,\n    summaryFields,\n} from './run';\nimport { readProfileAccounts } from './profile';\nimport {\n    accountLookupSnippet,\n    bodyTextSnippet,\n    dateProperty,\n    firstRecipientSnippet,\n    folderChainSnippet,\n    MAC_ROOT_TERMS,\n    macFolderPath,\n    macMessageId,\n    mailScopeSnippet,\n    messageByIdSnippet,\n    MessageDetail,\n    messageDetailFields,\n    messageDetailSnippet,\n    messageLookupSnippet,\n    resolveMacAccount,\n    rootFolderSnippet,\n    senderSnippet,\n} from './scripts';\nimport { failureTag, NotFoundError } from '../errors';\nimport { folderLeafName, isOutgoingRoot, NON_INCOMING_ROOTS, REPLY_PREFIX, subjectGlobSource } from '../mail';\nimport type { RawEmail, ReadInboxRequest, SearchRequest } from '../backend';\nimport type { EmailLocator, InboxEmail, InboxSearchMatch, SelectedEmail } from '../types';\n\n/**\n * Recent mail from the Inbox root or one folder, newest first. Entry ids here\n * are Outlook for Mac's integer message ids, not Windows EntryIDs.\n */\nexport async function readInboxEmails(request: ReadInboxRequest): Promise<InboxEmail[]> {\n    const acct = await resolveMacAccount(request.account);\n    const folderPath = macFolderPath(request.account, request.folder.rootLabel, request.folder.segments);\n    const outgoing = isOutgoingRoot(request.folder.rootId);\n\n    // Pass 1 — index the folder. Its order isn't documented, so it is sorted here.\n    const index = (await runOsaScript(`tell application \"Microsoft Outlook\"\n${accountLookupSnippet(acct)}\n${mailScopeSnippet(acct, request.folder, request.folderLabel)}\n    set cutoff to (current date) - (${asInt(request.daysBack)} * days)\n    set idList to id of every message of scopeFolder\n    try\n        set timeList to ${dateProperty(request.folder.rootId)} of every message of scopeFolder\n    on error\n        set timeList to {}\n    end try\n    set hasTimes to ((count of timeList) is (count of idList))\n    set out to \"\"\n    repeat with i from 1 to (count of idList)\n        set d to missing value\n        if hasTimes then set d to item i of timeList\n        -- An item with no timestamp of its own (an unsent draft filed into a\n        -- mail folder) is skipped, as the Windows date filter skips it.\n        if d is not missing value and d is greater than or equal to cutoff then\n            set out to out & (item i of idList as string) & tab & my isoDate(d) & linefeed\n        end if\n    end repeat\n    return out\nend tell`, 'standard'))\n        .split('\\n')\n        .map(line => line.trim())\n        .filter(Boolean)\n        .map(line => {\n            const [id, receivedTime] = line.split('\\t');\n            return { id, receivedTime: receivedTime || '' };\n        });\n    // 'yyyy-MM-dd HH:mm' sorts correctly as a string.\n    index.sort((a, b) => b.receivedTime.localeCompare(a.receivedTime));\n    const chosen = index.slice(0, request.limit);\n    if (chosen.length === 0) return [];\n\n    // Pass 2 — the expensive reads, only for the messages kept.\n    const raw = await runOsaScript(`tell application \"Microsoft Outlook\"\n    set out to \"\"\n    repeat with theId in ${asIdList(chosen.map(c => c.id))}\n${messageByIdSnippet('        ')}\n        if theMsg is not missing value then\n            set subj to \"\"\n            try\n                set subj to (subject of theMsg) as string\n            end try\n${outgoing ? firstRecipientSnippet('            ') : senderSnippet('            ')}\n${bodyTextSnippet('            ', request.previewChars)}\n            set attNames to {}\n            try\n                set attNames to name of every attachment of theMsg\n            end try\n            set out to out & ${asRow(['(id of theMsg as string)', 'subj', 'sndName', 'sndAddr', 'bodyText', 'my sanitizePositionalList(attNames)'])}\n        end if\n    end repeat\n    return out\nend tell`, 'standard');\n\n    const receivedById = new Map(chosen.map(c => [c.id, c.receivedTime]));\n    return splitRecords(raw).map(record => {\n        const parts = splitFields(record);\n        const id = field(parts, 0);\n        const attachmentNames = splitPositionalList(field(parts, 5));\n        return {\n            entryId: id,\n            storeId: '',\n            subject: field(parts, 1).trim(),\n            senderName: field(parts, 2),\n            senderEmail: field(parts, 3),\n            receivedTime: receivedById.get(id) || '',\n            bodyPreview: field(parts, 4),\n            attachmentNames,\n            attachmentCount: attachmentNames.length,\n            folderPath,\n        };\n    });\n}\n\n/**\n * One email's full plain-text body. `storeId` has no macOS meaning: `message id\n * N` resolves against the application, wherever the message sits.\n */\nexport async function readEmailBody(email: EmailLocator): Promise<RawEmail> {\n    const id = macMessageId(email.entryId);\n    const parts = summaryFields(await runOsaScript(`tell application \"Microsoft Outlook\"\n${messageLookupSnippet(id)}\n${messageDetailSnippet(true)}\n    return ${asRow(messageDetailFields(true))}\nend tell`, 'quick'));\n    return {\n        entryId: field(parts, MessageDetail.id) || id,\n        subject: field(parts, MessageDetail.subject).trim(),\n        senderName: field(parts, MessageDetail.senderName),\n        senderEmail: field(parts, MessageDetail.senderEmail),\n        receivedTime: field(parts, MessageDetail.receivedTime),\n        body: field(parts, MessageDetail.body),\n        attachmentNames: splitPositionalList(field(parts, MessageDetail.attachmentNames)),\n    };\n}\n\n/**\n * Walk every folder under the Inbox for the mail matching the request.\n *\n * The filtering happens here rather than in Outlook: there is no AppleScript\n * counterpart to COM's server-side `Items.Restrict`, so each folder is indexed in\n * bulk reads and the subject and date tests run on the index. The results match\n * Windows; the cost doesn't, and a wide window over a big tree is heavier here.\n */\nexport async function searchInboxByFilter(request: SearchRequest): Promise<InboxSearchMatch[]> {\n    const acct = await resolveMacAccount(request.account);\n    // AppleScript reaches a child folder by name, so a path entry narrows to its leaf.\n    const asNameList = (list: readonly string[]) => `{${list.map(folderLeafName).filter(Boolean).map(asString).join(', ')}}`;\n    // Sent, Drafts, Deleted and Junk hang UNDER the Inbox on an IMAP profile, so\n    // their ids are collected first and the walk never descends into them — by\n    // the profile's own id where it records one, through the account otherwise.\n    // The roots are the ones Windows cuts, from the one list both read.\n    const skipIds = NON_INCOMING_ROOTS\n        .map(rootId => MAC_ROOT_TERMS[rootId])\n        .map(term => {\n            const id = acct.folderIds?.[term];\n            return id !== undefined\n                ? `    set end of skipIds to ${id}`\n                : `    try\n        set end of skipIds to (id of (${term} of targetAcct))\n    end try`;\n        })\n        .join('\\n');\n\n    // Pass 1 — index every folder under the Inbox: path, id, subject, received.\n    const indexed = splitRecords(await runOsaScript(`on scanFolder(theFolder, prefix, cutoff, skipIds, skipNames, onlyNames, inScope)\n    set out to \"\"\n    set idList to {}\n    set subjList to {}\n    set timeList to {}\n    -- A folder the walk only passes through is never read: the bulk reads are\n    -- the expensive part.\n    if inScope then\n        tell application \"Microsoft Outlook\"\n            set idList to id of every message of theFolder\n            set subjList to subject of every message of theFolder\n            try\n                set timeList to time received of every message of theFolder\n            on error\n                set timeList to {}\n            end try\n        end tell\n    end if\n    tell application \"Microsoft Outlook\"\n        set subs to mail folders of theFolder\n    end tell\n    set hasTimes to ((count of timeList) is (count of idList))\n    repeat with i from 1 to (count of idList)\n        set d to missing value\n        if hasTimes then set d to item i of timeList\n        -- An item with no readable receive time is kept whatever the window\n        -- says; dropping it would make a folder of them look empty.\n        if d is missing value or d is not less than cutoff then\n            set out to out & ${asRow(['prefix', '(item i of idList as string)', '(item i of subjList)', 'my isoDate(d)'])}\n        end if\n    end repeat\n    repeat with f in subs\n        set skipThis to false\n        try\n            if skipIds contains (id of f) then set skipThis to true\n        end try\n        try\n            if skipNames contains ((name of f) as string) then set skipThis to true\n        end try\n        if not skipThis then\n            set childName to \"\"\n            try\n                set childName to (name of f) as string\n            end try\n            set childScope to (count of onlyNames) is 0\n            try\n                if onlyNames contains childName then set childScope to true\n            end try\n            set out to out & my scanFolder(f, prefix & ${AS_LIST_SEP} & childName, cutoff, skipIds, skipNames, onlyNames, childScope)\n        end if\n    end repeat\n    return out\nend scanFolder\n\ntell application \"Microsoft Outlook\"\n${accountLookupSnippet(acct)}\n${rootFolderSnippet(acct, 'inbox', 'rootInbox')}\n    set rootName to (name of rootInbox) as string\n    set skipIds to {}\n${skipIds}\n    set skipNames to ${asNameList(request.excludeFolders)}\n    set onlyNames to ${asNameList(request.includeFolders)}\nend tell\n-- The root is read on the terms its children are: when no folder is named, or\n-- when it is one of those named.\nset rootScope to (count of onlyNames) is 0\ntry\n    if onlyNames contains rootName then set rootScope to true\nend try\nset cutoff to (current date) - (${asInt(request.daysBack)} * days)\nreturn my scanFolder(rootInbox, rootName, cutoff, skipIds, skipNames, onlyNames, rootScope)`, 'scan'));\n\n    const subjectFiltered = !!(request.subjectLike || request.subjectPattern || request.excludeReplies);\n    const likeRe = request.subjectLike ? new RegExp(subjectGlobSource(request.subjectLike), 'i') : null;\n    // PowerShell's -match is case-insensitive, so this test is too, whatever the\n    // caller's flags. Only u and v are kept: they decide how the source parses,\n    // and without u, /\\p{L}/u would match the literal text \"p{L}\". Keeping g or y\n    // would carry lastIndex from one subject to the next.\n    const patternRe = request.subjectPattern\n        ? new RegExp(request.subjectPattern.source, 'i' + request.subjectPattern.flags.replace(/[^uv]/g, ''))\n        : null;\n    const candidates = indexed\n        .map(record => {\n            const parts = splitFields(record);\n            const segments = splitList(field(parts, 0));\n            return {\n                folderPath: macFolderPath(request.account, segments[0] || 'Inbox', segments.slice(1)),\n                id: field(parts, 1),\n                subject: field(parts, 2).trim(),\n                receivedTime: field(parts, 3),\n            };\n        })\n        .filter(candidate => {\n            if (subjectFiltered && !candidate.subject) return false;\n            if (likeRe && !likeRe.test(candidate.subject)) return false;\n            if (patternRe && !patternRe.test(candidate.subject)) return false;\n            if (request.excludeReplies && REPLY_PREFIX.test(candidate.subject)) return false;\n            return true;\n        });\n    if (candidates.length === 0) return [];\n\n    // Pass 2 — senders, attachment names and (when asked) bodies, for the survivors only.\n    const raw = await runOsaScript(`tell application \"Microsoft Outlook\"\n    set out to \"\"\n    repeat with theId in ${asIdList(candidates.map(c => c.id))}\n${messageByIdSnippet('        ')}\n        if theMsg is not missing value then\n${senderSnippet('            ')}\n            set attNames to {}\n            try\n                set attNames to name of every attachment of theMsg\n            end try\n${bodyTextSnippet('            ', request.includeBody ? undefined : 0)}\n            set out to out & ${asRow(['(id of theMsg as string)', 'sndName', 'sndAddr', 'my sanitizePositionalList(attNames)', 'bodyText'])}\n        end if\n    end repeat\n    return out\nend tell`, 'scan');\n    const details = new Map(splitRecords(raw).map(record => {\n        const parts = splitFields(record);\n        const detail = {\n            senderName: field(parts, 1),\n            senderEmail: field(parts, 2),\n            attachmentNames: splitPositionalList(field(parts, 3)),\n            body: field(parts, 4),\n        };\n        return [field(parts, 0), detail] as const;\n    }));\n\n    const matches: InboxSearchMatch[] = [];\n    for (const candidate of candidates) {\n        const detail = details.get(candidate.id);\n        if (!detail) continue;\n        // Attachment names only arrive with the details, so this test waits for them.\n        if (request.requireAttachment && detail.attachmentNames.length === 0) continue;\n        matches.push({\n            entryId: candidate.id,\n            storeId: '',\n            subject: candidate.subject,\n            senderName: detail.senderName,\n            senderEmail: detail.senderEmail,\n            receivedTime: candidate.receivedTime,\n            body: detail.body,\n            attachmentNames: detail.attachmentNames,\n            folderPath: candidate.folderPath,\n        });\n    }\n    return matches;\n}\n\n/**\n * The email currently selected — or open — in Outlook. `current messages`\n * covers both cases the Windows reader handles separately.\n *\n * Where it sits comes back as a second record, so the detail row keeps its body\n * last. A mailbox with no account object answers `account of` with missing\n * value; its root folder's id is then looked up in the profile database.\n */\nexport async function readSelectedEmail(): Promise<SelectedEmail> {\n    const records = splitRecords(await runOsaScript(`tell application \"Microsoft Outlook\"\n    set sel to {}\n    try\n        set sel to current messages\n    end try\n    if (count of sel) is 0 then error ${asString(`${failureTag('NOT_FOUND', 'email')}No email is selected in Outlook. Select or open an email, then try again.`)}\n    set theMsg to item 1 of sel\n${messageDetailSnippet(true)}\n    set acctAddr to \"\"\n    try\n        set rawAddr to email address of (account of theMsg)\n        if rawAddr is not missing value then set acctAddr to rawAddr as string\n    end try\n    set chainNames to {}\n    set rootId to \"\"\n    set theFolder to missing value\n    try\n        set theFolder to folder of theMsg\n    end try\n    if theFolder is not missing value then\n${folderChainSnippet('        ')}\n        try\n            set rootId to (id of cur) as string\n        end try\n    end if\n    return ${asRow(messageDetailFields(true))} & ${asRow(['acctAddr', 'my sanitizeList(chainNames)', 'rootId'])}\nend tell`, 'quick'));\n    if (records.length === 0) throw new NotFoundError('email', 'Outlook reported no selected email.');\n    const parts = splitFields(records[0]);\n    const where = splitFields(records[1] ?? '');\n    const chain = splitList(field(where, 1)).reverse();\n    const account = field(where, 0) || (chain.length ? await accountByRootFolder(field(where, 2)) : '');\n    return {\n        entryId: field(parts, MessageDetail.id),\n        storeId: '',\n        subject: field(parts, MessageDetail.subject).trim(),\n        senderName: field(parts, MessageDetail.senderName),\n        senderEmail: field(parts, MessageDetail.senderEmail),\n        receivedTime: field(parts, MessageDetail.receivedTime),\n        body: field(parts, MessageDetail.body),\n        attachmentNames: splitPositionalList(field(parts, MessageDetail.attachmentNames)),\n        folderPath: account && chain.length ? macFolderPath(account, chain[0], chain.slice(1)) : '',\n    };\n}\n\n/** The address of the account whose root folder has this id, per the profile database; '' if none. */\nasync function accountByRootFolder(rootId: string): Promise<string> {\n    if (!/^\\d+$/.test(rootId)) return '';\n    const id = Number(rootId);\n    return (await readProfileAccounts()).find(a => a.folderIds['root folder'] === id)?.emailAccount ?? '';\n}\n\n/** Open an email in Outlook and bring Outlook forward. */\nexport async function openOutlookEmail(email: EmailLocator): Promise<void> {\n    const id = macMessageId(email.entryId);\n    await runOsaScript(`\ntell application \"Microsoft Outlook\"\n${messageLookupSnippet(id)}\n    open theMsg\n    activate\nend tell`, 'quick');\n}\n"]}

package/dist/mac/run.d.ts

@@ -26,9 +26,6 @@ export declare function asIdList(ids: readonly string[]): string;
 export declare const FIELD_SEP = "\u001F";
 export declare const RECORD_SEP = "\u001E";
 export declare const LIST_SEP = "\u001D";
-/** The same three, as AppleScript expressions. */
-export declare const AS_FIELD_SEP = "(character id 31)";
-export declare const AS_RECORD_SEP = "(character id 30)";
 export declare const AS_LIST_SEP = "(character id 29)";
 /**
  * One record: the AppleScript expressions in `fields`, separated and terminated

package/dist/mac/run.js

@@ -3,7 +3,7 @@ var __importDefault = (this && this.__importDefault) || function (mod) {
     return (mod && mod.__esModule) ? mod : { "default": mod };
 };
 Object.defineProperty(exports, "__esModule", { value: true });
-exports.ITEM_FAILURE_ROW = exports.AS_HANDLERS = exports.AS_LIST_SEP = exports.AS_RECORD_SEP = exports.AS_FIELD_SEP = exports.LIST_SEP = exports.RECORD_SEP = exports.FIELD_SEP = void 0;
+exports.ITEM_FAILURE_ROW = exports.AS_HANDLERS = exports.AS_LIST_SEP = exports.LIST_SEP = exports.RECORD_SEP = exports.FIELD_SEP = void 0;
 exports.runOsaScript = runOsaScript;
 exports.asEscape = asEscape;
 exports.asString = asString;
@@ -108,12 +108,12 @@ function asIdList(ids) {
 // bodies contain tabs, newlines and commas, but never these — and every emitted
 // field passes through the `sanitize` handler, which makes the framing safe
 // rather than merely unlikely to break.
-exports.FIELD_SEP = '';
-exports.RECORD_SEP = '';
-exports.LIST_SEP = '';
-/** The same three, as AppleScript expressions. */
-exports.AS_FIELD_SEP = '(character id 31)';
-exports.AS_RECORD_SEP = '(character id 30)';
+exports.FIELD_SEP = '\x1f';
+exports.RECORD_SEP = '\x1e';
+exports.LIST_SEP = '\x1d';
+/** The same three, as AppleScript expressions. Only the list one is written outside this module. */
+const AS_FIELD_SEP = '(character id 31)';
+const AS_RECORD_SEP = '(character id 30)';
 exports.AS_LIST_SEP = '(character id 29)';
 /**
  * One record: the AppleScript expressions in `fields`, separated and terminated
@@ -124,7 +124,7 @@ exports.AS_LIST_SEP = '(character id 29)';
 function asRow(fields) {
     return fields
         .map(f => `my sanitize(${f})`)
-        .join(` & ${exports.AS_FIELD_SEP} & `) + ` & ${exports.AS_RECORD_SEP}`;
+        .join(` & ${AS_FIELD_SEP} & `) + ` & ${AS_RECORD_SEP}`;
 }
 /**
  * The handlers every script relies on, called with `my` from inside a `tell`.

package/dist/mac/run.js.map

@@ -1 +1 @@
-{"version":3,"file":"run.js","sourceRoot":"","sources":["../../src/mac/run.ts"],"names":[],"mappings":";;;;;;AAmCA,oCAmBC;AAOD,4BAKC;AAGD,4BAEC;AAGD,wBAEC;AAGD,sBAKC;AAGD,4BAEC;AAuBD,sBAIC;AAsGD,oCAEC;AAGD,kCAEC;AAOD,8BAEC;AAMD,kDAEC;AAGD,sBAEC;AAGD,sCAEC;AAGD,4BAGC;AAGD,8BAEC;AAYD,gCASC;AA5RD,oEAAoE;AACpE,EAAE;AACF,0EAA0E;AAC1E,0DAA0D;AAC1D,4CAAoB;AACpB,wCAAsE;AACtE,yCAAkD;AAClD,sCAAgD;AAChD,mDAA0D;AAG1D,MAAM,MAAM,GAAG,WAAoB,CAAC;AAEpC;;;;;GAKG;AACH,SAAS,YAAY,CAAC,MAAc;IAChC,MAAM,OAAO,GAAG,MAAM;SACjB,OAAO,CAAC,2CAA2C,EAAE,EAAE,CAAC;SACxD,OAAO,CAAC,kBAAkB,EAAE,EAAE,CAAC;SAC/B,IAAI,EAAE,CAAC;IACZ,OAAO,EAAE,OAAO,EAAE,CAAC;AACvB,CAAC;AAED;;;;;;;GAOG;AACI,KAAK,UAAU,YAAY,CAAC,MAAc,EAAE,MAAiB;IAChE,6EAA6E;IAC7E,qDAAqD;IACrD,MAAM,MAAM,GAAG,mBAAW,GAAG,MAAM,CAAC;IACpC,MAAM,IAAI,GAAG,IAAA,kBAAQ,EAAC,KAAK,EAAE,aAAa,CAAC,CAAC;IAC5C,YAAE,CAAC,aAAa,CAAC,IAAI,EAAE,MAAM,EAAE,MAAM,CAAC,CAAC;IACvC,IAAI,CAAC;QACD,MAAM,EAAE,MAAM,EAAE,GAAG,MAAM,IAAA,uBAAgB,EAAC;YACtC,MAAM,EAAE,MAAM;YACd,OAAO,EAAE,WAAW;YACpB,IAAI,EAAE,CAAC,IAAI,CAAC;YACZ,MAAM;YACN,MAAM;YACN,YAAY;SACf,CAAC,CAAC;QACH,OAAO,MAAM,CAAC,OAAO,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;IACrC,CAAC;YAAS,CAAC;QACP,IAAA,wBAAc,EAAC,IAAI,CAAC,CAAC;IACzB,CAAC;AACL,CAAC;AAED;;;;GAIG;AACH,SAAgB,QAAQ,CAAC,IAAY;IACjC,OAAO,IAAI;SACN,OAAO,CAAC,KAAK,EAAE,MAAM,CAAC;SACtB,OAAO,CAAC,IAAI,EAAE,KAAK,CAAC;SACpB,OAAO,CAAC,aAAa,EAAE,KAAK,CAAC,CAAC;AACvC,CAAC;AAED,6CAA6C;AAC7C,SAAgB,QAAQ,CAAC,IAAY;IACjC,OAAO,IAAI,QAAQ,CAAC,IAAI,CAAC,GAAG,CAAC;AACjC,CAAC;AAED,sCAAsC;AACtC,SAAgB,MAAM,CAAC,KAAc;IACjC,OAAO,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO,CAAC;AACpC,CAAC;AAED,oFAAoF;AACpF,SAAgB,KAAK,CAAC,KAAa;IAC/B,IAAI,CAAC,MAAM,CAAC,aAAa,CAAC,KAAK,CAAC,EAAE,CAAC;QAC/B,MAAM,IAAI,4BAAmB,CAAC,gCAAgC,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;IACpF,CAAC;IACD,OAAO,MAAM,CAAC,KAAK,CAAC,CAAC;AACzB,CAAC;AAED,kFAAkF;AAClF,SAAgB,QAAQ,CAAC,GAAsB;IAC3C,OAAO,IAAI,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,CAAC,KAAK,CAAC,MAAM,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC;AAC9D,CAAC;AAED,4EAA4E;AAC5E,EAAE;AACF,2EAA2E;AAC3E,gFAAgF;AAChF,4EAA4E;AAC5E,wCAAwC;AAC3B,QAAA,SAAS,GAAG,GAAG,CAAC;AAChB,QAAA,UAAU,GAAG,GAAG,CAAC;AACjB,QAAA,QAAQ,GAAG,GAAG,CAAC;AAE5B,kDAAkD;AACrC,QAAA,YAAY,GAAG,mBAAmB,CAAC;AACnC,QAAA,aAAa,GAAG,mBAAmB,CAAC;AACpC,QAAA,WAAW,GAAG,mBAAmB,CAAC;AAE/C;;;;;GAKG;AACH,SAAgB,KAAK,CAAC,MAAyB;IAC3C,OAAO,MAAM;SACR,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,eAAe,CAAC,GAAG,CAAC;SAC7B,IAAI,CAAC,MAAM,oBAAY,KAAK,CAAC,GAAG,MAAM,qBAAa,EAAE,CAAC;AAC/D,CAAC;AAED;;;;;;GAMG;AACU,QAAA,WAAW,GAAG;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;oCAwES,+BAAmB;;;;;;;;;;;;;;;;;;CAkBtD,CAAC;AAEF,oEAAoE;AACpE,SAAgB,YAAY,CAAC,GAAW;IACpC,OAAO,GAAG,CAAC,KAAK,CAAC,kBAAU,CAAC,CAAC,MAAM,CAAC,MAAM,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,EAAE,KAAK,EAAE,CAAC,CAAC;AACxE,CAAC;AAED,2BAA2B;AAC3B,SAAgB,WAAW,CAAC,MAAc;IACtC,OAAO,MAAM,CAAC,KAAK,CAAC,iBAAS,CAAC,CAAC;AACnC,CAAC;AAED;;;;GAIG;AACH,SAAgB,SAAS,CAAC,KAAyB;IAC/C,OAAO,CAAC,KAAK,IAAI,EAAE,CAAC,CAAC,KAAK,CAAC,gBAAQ,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;AACzD,CAAC;AAED;;;GAGG;AACH,SAAgB,mBAAmB,CAAC,KAAyB;IACzD,OAAO,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,gBAAQ,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;AAC3D,CAAC;AAED,wDAAwD;AACxD,SAAgB,KAAK,CAAC,MAAyB,EAAE,KAAa;IAC1D,OAAO,MAAM,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC;AAC/B,CAAC;AAED,yGAAyG;AACzG,SAAgB,aAAa,CAAC,GAAW;IACrC,OAAO,WAAW,CAAC,YAAY,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;AACnD,CAAC;AAED,6DAA6D;AAC7D,SAAgB,QAAQ,CAAC,MAAyB,EAAE,KAAa,EAAE,QAAQ,GAAG,CAAC;IAC3E,MAAM,MAAM,GAAG,MAAM,CAAC,QAAQ,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC,CAAC;IACzD,OAAO,MAAM,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC;AACpD,CAAC;AAED,kFAAkF;AAClF,SAAgB,SAAS,CAAC,MAAyB,EAAE,KAAa;IAC9D,OAAO,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC,CAAC,IAAI,EAAE,KAAK,MAAM,CAAC;AAClD,CAAC;AAED,4EAA4E;AAC5E,EAAE;AACF,+EAA+E;AAC/E,8EAA8E;AAC9E,gDAAgD;AAEhD,qGAAqG;AACxF,QAAA,gBAAgB,GAAG,KAAK,CAAC,CAAC,mBAAmB,EAAE,MAAM,EAAE,SAAS,CAAC,CAAC,CAAC;AAEhF,uFAAuF;AACvF,SAAgB,UAAU,CAAC,GAAW;IAClC,MAAM,CAAC,OAAO,GAAG,EAAE,EAAE,GAAG,QAAQ,CAAC,GAAG,YAAY,CAAC,GAAG,CAAC,CAAC;IACtD,OAAO;QACH,OAAO,EAAE,WAAW,CAAC,OAAO,CAAC;QAC7B,MAAM,EAAE,QAAQ,CAAC,GAAG,CAAC,MAAM,CAAC,EAAE;YAC1B,MAAM,KAAK,GAAG,WAAW,CAAC,MAAM,CAAC,CAAC;YAClC,OAAO,EAAE,OAAO,EAAE,KAAK,CAAC,KAAK,EAAE,CAAC,CAAC,EAAE,OAAO,EAAE,KAAK,CAAC,KAAK,EAAE,CAAC,CAAC,EAAE,KAAK,EAAE,KAAK,CAAC,KAAK,EAAE,CAAC,CAAC,EAAE,CAAC;QAC1F,CAAC,CAAC;KACL,CAAC;AACN,CAAC","sourcesContent":["// Getting a generated AppleScript to osascript and its output back.\n//\n// The macOS counterpart of windows/run.ts: running a script, the escaping\n// rules, and the record framing every reader here shares.\nimport fs from 'fs';\nimport { removeTempFile, type RunBudget, tempFile } from '../runtime';\nimport { runScriptProcess } from '../shared/exec';\nimport { InvalidRequestError } from '../errors';\nimport { WORD_SECTION_ANCHOR } from '../shared/replyBody';\nimport type { ItemFailure } from '../types';\n\nconst RUNNER = 'osascript' as const;\n\n/**\n * osascript's report of a script error: \"<file>:<start>:<end>: execution error:\n * <message> (<number>)\". Only the message is worth showing — these reach people\n * in per-item failure lists — and -2700 is the number AppleScript gives every\n * `error \"…\"` a script raises itself.\n */\nfunction parseFailure(stderr: string): { message: string } {\n    const message = stderr\n        .replace(/^(?:.*?:)?\\d+:\\d+:\\s*execution error:\\s*/m, '')\n        .replace(/\\s*\\(-2700\\)\\s*$/, '')\n        .trim();\n    return { message };\n}\n\n/**\n * Run a script from a temp file (no argument-length or quoting limits) and\n * return what it printed, minus the newline osascript appends.\n *\n * `AS_HANDLERS` is prepended here rather than by each caller: a script missing\n * a handler fails to compile as a WHOLE, with an error pointing nowhere near the\n * omission, so it can't be left to each script to remember.\n */\nexport async function runOsaScript(source: string, budget: RunBudget): Promise<string> {\n    // The full text is what osascript compiles, so it is also what error offsets\n    // refer to and what the debug hook and errors carry.\n    const script = AS_HANDLERS + source;\n    const file = tempFile('osa', 'applescript');\n    fs.writeFileSync(file, script, 'utf8');\n    try {\n        const { stdout } = await runScriptProcess({\n            runner: RUNNER,\n            command: 'osascript',\n            args: [file],\n            script,\n            budget,\n            parseFailure,\n        });\n        return stdout.replace(/\\n$/, '');\n    } finally {\n        removeTempFile(file);\n    }\n}\n\n/**\n * Escape text for the inside of an AppleScript double-quoted literal.\n * AppleScript strings never interpolate, so escaping the quote, the backslash\n * and line breaks is the whole job.\n */\nexport function asEscape(text: string): string {\n    return text\n        .replace(/\\\\/g, '\\\\\\\\')\n        .replace(/\"/g, '\\\\\"')\n        .replace(/\\r\\n|\\r|\\n/g, '\\\\n');\n}\n\n/** Text as an AppleScript string literal. */\nexport function asString(text: string): string {\n    return `\"${asEscape(text)}\"`;\n}\n\n/** AppleScript's boolean literals. */\nexport function asBool(value: boolean): string {\n    return value ? 'true' : 'false';\n}\n\n/** A whole number for a script; anything else is refused before it becomes code. */\nexport function asInt(value: number): string {\n    if (!Number.isSafeInteger(value)) {\n        throw new InvalidRequestError(`Expected a whole number, got ${String(value)}.`);\n    }\n    return String(value);\n}\n\n/** Message ids (already validated as integers) as an AppleScript list literal. */\nexport function asIdList(ids: readonly string[]): string {\n    return `{${ids.map(id => asInt(Number(id))).join(', ')}}`;\n}\n\n// ── Record framing ───────────────────────────────────────────────────────\n//\n// Control characters separate fields, records and list items: subjects and\n// bodies contain tabs, newlines and commas, but never these — and every emitted\n// field passes through the `sanitize` handler, which makes the framing safe\n// rather than merely unlikely to break.\nexport const FIELD_SEP = '\u001f';\nexport const RECORD_SEP = '\u001e';\nexport const LIST_SEP = '\u001d';\n\n/** The same three, as AppleScript expressions. */\nexport const AS_FIELD_SEP = '(character id 31)';\nexport const AS_RECORD_SEP = '(character id 30)';\nexport const AS_LIST_SEP = '(character id 29)';\n\n/**\n * One record: the AppleScript expressions in `fields`, separated and terminated\n * so `splitRecords`/`splitFields` can take them apart again. A field holding a\n * LIST must be built with `my sanitizeList(...)`, which cleans the elements —\n * `sanitize` deliberately leaves the list separator alone.\n */\nexport function asRow(fields: readonly string[]): string {\n    return fields\n        .map(f => `my sanitize(${f})`)\n        .join(` & ${AS_FIELD_SEP} & `) + ` & ${AS_RECORD_SEP}`;\n}\n\n/**\n * The handlers every script relies on, called with `my` from inside a `tell`.\n *\n * `isoDate` produces the zero-padded 'yyyy-MM-dd HH:mm' both platforms return;\n * `sanitize` strips the framing characters; `joinList` and `replaceText` are the\n * text-item-delimiter dance nobody should write twice.\n */\nexport const AS_HANDLERS = `\non pad2(n)\n    set s to (n as integer) as string\n    if (length of s) < 2 then set s to \"0\" & s\n    return s\nend pad2\n\non isoDate(d)\n    if d is missing value then return \"\"\n    return (year of d as string) & \"-\" & pad2(month of d as integer) & \"-\" & pad2(day of d) & \" \" & pad2(hours of d) & \":\" & pad2(minutes of d)\nend isoDate\n\non joinList(lst, sep)\n    set saved to AppleScript's text item delimiters\n    set AppleScript's text item delimiters to sep\n    set out to lst as string\n    set AppleScript's text item delimiters to saved\n    return out\nend joinList\n\non replaceText(t, findWhat, replaceWith)\n    set saved to AppleScript's text item delimiters\n    set AppleScript's text item delimiters to findWhat\n    set parts to text items of t\n    set AppleScript's text item delimiters to replaceWith\n    set out to parts as string\n    set AppleScript's text item delimiters to saved\n    return out\nend replaceText\n\n-- Strips the FIELD and RECORD separators only. The LIST separator is left\n-- alone on purpose: a field may legitimately BE a list.\non sanitize(v)\n    if v is missing value then return \"\"\n    set t to v as string\n    repeat with codePoint in {30, 31}\n        set marker to (character id (codePoint as integer))\n        if t contains marker then set t to my replaceText(t, marker, \" \")\n    end repeat\n    return t\nend sanitize\n\n-- A list field: each element loses all three separators, then they are joined\n-- with the LIST separator that splitList() takes them apart on.\non sanitizeList(lst)\n    set cleaned to {}\n    repeat with item_ in lst\n        set t to my sanitize(item_)\n        set marker to (character id 29)\n        if t contains marker then set t to my replaceText(t, marker, \" \")\n        set end of cleaned to t\n    end repeat\n    return my joinList(cleaned, (character id 29))\nend sanitizeList\n\n-- A list whose positions matter, like an email's attachments: every element is\n-- FOLLOWED by the LIST separator, so an empty element keeps its place and an\n-- empty list stays distinct from a list of one empty name. splitPositionalList()\n-- takes it apart.\non sanitizePositionalList(lst)\n    if (count of lst) is 0 then return \"\"\n    return my sanitizeList(lst) & (character id 29)\nend sanitizePositionalList\n\non insertAboveQuoted(c, ins)\n    if c is missing value then return ins\n    set c to c as string\n    if (length of c) is 0 then return ins\n    -- A reply's own empty paragraph sits inside WordSection1; inserting straight\n    -- after that tag puts the new text where the cursor would be. Anything else\n    -- falls back to just inside <body>. ('at' is a reserved parameter name, so\n    -- the cut point can't be called that.)\n    set cutPoint to my tagEnd(c, \"${WORD_SECTION_ANCHOR}\")\n    if cutPoint is 0 then set cutPoint to my tagEnd(c, \"<body\")\n    if cutPoint is 0 then return ins & c\n    if cutPoint is (length of c) then return c & ins\n    return (text 1 thru cutPoint of c) & ins & (text (cutPoint + 1) thru -1 of c)\nend insertAboveQuoted\n\n-- 'rest' is an AppleScript term, so the remainder can't be called that:\n-- assigning to it compiles and then fails at run time.\non tagEnd(c, marker)\n    set ix to offset of marker in c\n    if ix is 0 then return 0\n    if marker ends with \">\" then return ix + (length of marker) - 1\n    set tailText to text ix thru -1 of c\n    set gt to offset of \">\" in tailText\n    if gt is 0 then return 0\n    return ix + gt - 1\nend tagEnd\n`;\n\n/** A script's output as records, without the trailing empty one. */\nexport function splitRecords(raw: string): string[] {\n    return raw.split(RECORD_SEP).filter(record => record.trim() !== '');\n}\n\n/** One record's fields. */\nexport function splitFields(record: string): string[] {\n    return record.split(FIELD_SEP);\n}\n\n/**\n * A field that carries a list. Empty elements are dropped, so where an index\n * into the list must match Outlook's, the field is written with\n * `sanitizePositionalList` and read with `splitPositionalList` instead.\n */\nexport function splitList(value: string | undefined): string[] {\n    return (value || '').split(LIST_SEP).filter(Boolean);\n}\n\n/**\n * A field written by `sanitizePositionalList`: every element at its position,\n * empty ones included, so index N here is item N+1 of the AppleScript list.\n */\nexport function splitPositionalList(value: string | undefined): string[] {\n    return value ? value.split(LIST_SEP).slice(0, -1) : [];\n}\n\n/** A field by position; a missing field reads as ''. */\nexport function field(fields: readonly string[], index: number): string {\n    return fields[index] ?? '';\n}\n\n/** The fields of a script's first record — the summary a mutation returns ahead of any per-item rows. */\nexport function summaryFields(raw: string): string[] {\n    return splitFields(splitRecords(raw)[0] ?? '');\n}\n\n/** A numeric field, `fallback` when absent or unparsable. */\nexport function intField(fields: readonly string[], index: number, fallback = 0): number {\n    const parsed = Number.parseInt(field(fields, index), 10);\n    return Number.isNaN(parsed) ? fallback : parsed;\n}\n\n/** A boolean field; AppleScript renders booleans as the bare words true/false. */\nexport function boolField(fields: readonly string[], index: number): boolean {\n    return field(fields, index).trim() === 'true';\n}\n\n// ── Batches ──────────────────────────────────────────────────────────────\n//\n// A script acting on a list of ids returns one summary record, then one record\n// per id that failed. The failure row and its decoder sit together so the two\n// can't come to disagree about the field order.\n\n/** The record a batch script appends, inside `on error errText`, for the id `theId` it failed on. */\nexport const ITEM_FAILURE_ROW = asRow(['(theId as string)', 'subj', 'errText']);\n\n/** A batch script's output: the summary record's fields, and the items that failed. */\nexport function splitBatch(raw: string): { summary: string[]; failed: ItemFailure[] } {\n    const [summary = '', ...failures] = splitRecords(raw);\n    return {\n        summary: splitFields(summary),\n        failed: failures.map(record => {\n            const parts = splitFields(record);\n            return { entryId: field(parts, 0), subject: field(parts, 1), error: field(parts, 2) };\n        }),\n    };\n}\n"]}
+{"version":3,"file":"run.js","sourceRoot":"","sources":["../../src/mac/run.ts"],"names":[],"mappings":";;;;;;AAmCA,oCAmBC;AAOD,4BAKC;AAGD,4BAEC;AAGD,wBAEC;AAGD,sBAKC;AAGD,4BAEC;AAuBD,sBAIC;AAsGD,oCAEC;AAGD,kCAEC;AAOD,8BAEC;AAMD,kDAEC;AAGD,sBAEC;AAGD,sCAEC;AAGD,4BAGC;AAGD,8BAEC;AAYD,gCASC;AA5RD,oEAAoE;AACpE,EAAE;AACF,0EAA0E;AAC1E,0DAA0D;AAC1D,4CAAoB;AACpB,wCAAsE;AACtE,yCAAkD;AAClD,sCAAgD;AAChD,mDAA0D;AAG1D,MAAM,MAAM,GAAG,WAAoB,CAAC;AAEpC;;;;;GAKG;AACH,SAAS,YAAY,CAAC,MAAc;IAChC,MAAM,OAAO,GAAG,MAAM;SACjB,OAAO,CAAC,2CAA2C,EAAE,EAAE,CAAC;SACxD,OAAO,CAAC,kBAAkB,EAAE,EAAE,CAAC;SAC/B,IAAI,EAAE,CAAC;IACZ,OAAO,EAAE,OAAO,EAAE,CAAC;AACvB,CAAC;AAED;;;;;;;GAOG;AACI,KAAK,UAAU,YAAY,CAAC,MAAc,EAAE,MAAiB;IAChE,6EAA6E;IAC7E,qDAAqD;IACrD,MAAM,MAAM,GAAG,mBAAW,GAAG,MAAM,CAAC;IACpC,MAAM,IAAI,GAAG,IAAA,kBAAQ,EAAC,KAAK,EAAE,aAAa,CAAC,CAAC;IAC5C,YAAE,CAAC,aAAa,CAAC,IAAI,EAAE,MAAM,EAAE,MAAM,CAAC,CAAC;IACvC,IAAI,CAAC;QACD,MAAM,EAAE,MAAM,EAAE,GAAG,MAAM,IAAA,uBAAgB,EAAC;YACtC,MAAM,EAAE,MAAM;YACd,OAAO,EAAE,WAAW;YACpB,IAAI,EAAE,CAAC,IAAI,CAAC;YACZ,MAAM;YACN,MAAM;YACN,YAAY;SACf,CAAC,CAAC;QACH,OAAO,MAAM,CAAC,OAAO,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;IACrC,CAAC;YAAS,CAAC;QACP,IAAA,wBAAc,EAAC,IAAI,CAAC,CAAC;IACzB,CAAC;AACL,CAAC;AAED;;;;GAIG;AACH,SAAgB,QAAQ,CAAC,IAAY;IACjC,OAAO,IAAI;SACN,OAAO,CAAC,KAAK,EAAE,MAAM,CAAC;SACtB,OAAO,CAAC,IAAI,EAAE,KAAK,CAAC;SACpB,OAAO,CAAC,aAAa,EAAE,KAAK,CAAC,CAAC;AACvC,CAAC;AAED,6CAA6C;AAC7C,SAAgB,QAAQ,CAAC,IAAY;IACjC,OAAO,IAAI,QAAQ,CAAC,IAAI,CAAC,GAAG,CAAC;AACjC,CAAC;AAED,sCAAsC;AACtC,SAAgB,MAAM,CAAC,KAAc;IACjC,OAAO,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO,CAAC;AACpC,CAAC;AAED,oFAAoF;AACpF,SAAgB,KAAK,CAAC,KAAa;IAC/B,IAAI,CAAC,MAAM,CAAC,aAAa,CAAC,KAAK,CAAC,EAAE,CAAC;QAC/B,MAAM,IAAI,4BAAmB,CAAC,gCAAgC,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;IACpF,CAAC;IACD,OAAO,MAAM,CAAC,KAAK,CAAC,CAAC;AACzB,CAAC;AAED,kFAAkF;AAClF,SAAgB,QAAQ,CAAC,GAAsB;IAC3C,OAAO,IAAI,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,CAAC,KAAK,CAAC,MAAM,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC;AAC9D,CAAC;AAED,4EAA4E;AAC5E,EAAE;AACF,2EAA2E;AAC3E,gFAAgF;AAChF,4EAA4E;AAC5E,wCAAwC;AAC3B,QAAA,SAAS,GAAG,MAAM,CAAC;AACnB,QAAA,UAAU,GAAG,MAAM,CAAC;AACpB,QAAA,QAAQ,GAAG,MAAM,CAAC;AAE/B,oGAAoG;AACpG,MAAM,YAAY,GAAG,mBAAmB,CAAC;AACzC,MAAM,aAAa,GAAG,mBAAmB,CAAC;AAC7B,QAAA,WAAW,GAAG,mBAAmB,CAAC;AAE/C;;;;;GAKG;AACH,SAAgB,KAAK,CAAC,MAAyB;IAC3C,OAAO,MAAM;SACR,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,eAAe,CAAC,GAAG,CAAC;SAC7B,IAAI,CAAC,MAAM,YAAY,KAAK,CAAC,GAAG,MAAM,aAAa,EAAE,CAAC;AAC/D,CAAC;AAED;;;;;;GAMG;AACU,QAAA,WAAW,GAAG;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;oCAwES,+BAAmB;;;;;;;;;;;;;;;;;;CAkBtD,CAAC;AAEF,oEAAoE;AACpE,SAAgB,YAAY,CAAC,GAAW;IACpC,OAAO,GAAG,CAAC,KAAK,CAAC,kBAAU,CAAC,CAAC,MAAM,CAAC,MAAM,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,EAAE,KAAK,EAAE,CAAC,CAAC;AACxE,CAAC;AAED,2BAA2B;AAC3B,SAAgB,WAAW,CAAC,MAAc;IACtC,OAAO,MAAM,CAAC,KAAK,CAAC,iBAAS,CAAC,CAAC;AACnC,CAAC;AAED;;;;GAIG;AACH,SAAgB,SAAS,CAAC,KAAyB;IAC/C,OAAO,CAAC,KAAK,IAAI,EAAE,CAAC,CAAC,KAAK,CAAC,gBAAQ,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;AACzD,CAAC;AAED;;;GAGG;AACH,SAAgB,mBAAmB,CAAC,KAAyB;IACzD,OAAO,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,gBAAQ,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;AAC3D,CAAC;AAED,wDAAwD;AACxD,SAAgB,KAAK,CAAC,MAAyB,EAAE,KAAa;IAC1D,OAAO,MAAM,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC;AAC/B,CAAC;AAED,yGAAyG;AACzG,SAAgB,aAAa,CAAC,GAAW;IACrC,OAAO,WAAW,CAAC,YAAY,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;AACnD,CAAC;AAED,6DAA6D;AAC7D,SAAgB,QAAQ,CAAC,MAAyB,EAAE,KAAa,EAAE,QAAQ,GAAG,CAAC;IAC3E,MAAM,MAAM,GAAG,MAAM,CAAC,QAAQ,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC,CAAC;IACzD,OAAO,MAAM,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC;AACpD,CAAC;AAED,kFAAkF;AAClF,SAAgB,SAAS,CAAC,MAAyB,EAAE,KAAa;IAC9D,OAAO,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC,CAAC,IAAI,EAAE,KAAK,MAAM,CAAC;AAClD,CAAC;AAED,4EAA4E;AAC5E,EAAE;AACF,+EAA+E;AAC/E,8EAA8E;AAC9E,gDAAgD;AAEhD,qGAAqG;AACxF,QAAA,gBAAgB,GAAG,KAAK,CAAC,CAAC,mBAAmB,EAAE,MAAM,EAAE,SAAS,CAAC,CAAC,CAAC;AAEhF,uFAAuF;AACvF,SAAgB,UAAU,CAAC,GAAW;IAClC,MAAM,CAAC,OAAO,GAAG,EAAE,EAAE,GAAG,QAAQ,CAAC,GAAG,YAAY,CAAC,GAAG,CAAC,CAAC;IACtD,OAAO;QACH,OAAO,EAAE,WAAW,CAAC,OAAO,CAAC;QAC7B,MAAM,EAAE,QAAQ,CAAC,GAAG,CAAC,MAAM,CAAC,EAAE;YAC1B,MAAM,KAAK,GAAG,WAAW,CAAC,MAAM,CAAC,CAAC;YAClC,OAAO,EAAE,OAAO,EAAE,KAAK,CAAC,KAAK,EAAE,CAAC,CAAC,EAAE,OAAO,EAAE,KAAK,CAAC,KAAK,EAAE,CAAC,CAAC,EAAE,KAAK,EAAE,KAAK,CAAC,KAAK,EAAE,CAAC,CAAC,EAAE,CAAC;QAC1F,CAAC,CAAC;KACL,CAAC;AACN,CAAC","sourcesContent":["// Getting a generated AppleScript to osascript and its output back.\n//\n// The macOS counterpart of windows/run.ts: running a script, the escaping\n// rules, and the record framing every reader here shares.\nimport fs from 'fs';\nimport { removeTempFile, type RunBudget, tempFile } from '../runtime';\nimport { runScriptProcess } from '../shared/exec';\nimport { InvalidRequestError } from '../errors';\nimport { WORD_SECTION_ANCHOR } from '../shared/replyBody';\nimport type { ItemFailure } from '../types';\n\nconst RUNNER = 'osascript' as const;\n\n/**\n * osascript's report of a script error: \"<file>:<start>:<end>: execution error:\n * <message> (<number>)\". Only the message is worth showing — these reach people\n * in per-item failure lists — and -2700 is the number AppleScript gives every\n * `error \"…\"` a script raises itself.\n */\nfunction parseFailure(stderr: string): { message: string } {\n    const message = stderr\n        .replace(/^(?:.*?:)?\\d+:\\d+:\\s*execution error:\\s*/m, '')\n        .replace(/\\s*\\(-2700\\)\\s*$/, '')\n        .trim();\n    return { message };\n}\n\n/**\n * Run a script from a temp file (no argument-length or quoting limits) and\n * return what it printed, minus the newline osascript appends.\n *\n * `AS_HANDLERS` is prepended here rather than by each caller: a script missing\n * a handler fails to compile as a WHOLE, with an error pointing nowhere near the\n * omission, so it can't be left to each script to remember.\n */\nexport async function runOsaScript(source: string, budget: RunBudget): Promise<string> {\n    // The full text is what osascript compiles, so it is also what error offsets\n    // refer to and what the debug hook and errors carry.\n    const script = AS_HANDLERS + source;\n    const file = tempFile('osa', 'applescript');\n    fs.writeFileSync(file, script, 'utf8');\n    try {\n        const { stdout } = await runScriptProcess({\n            runner: RUNNER,\n            command: 'osascript',\n            args: [file],\n            script,\n            budget,\n            parseFailure,\n        });\n        return stdout.replace(/\\n$/, '');\n    } finally {\n        removeTempFile(file);\n    }\n}\n\n/**\n * Escape text for the inside of an AppleScript double-quoted literal.\n * AppleScript strings never interpolate, so escaping the quote, the backslash\n * and line breaks is the whole job.\n */\nexport function asEscape(text: string): string {\n    return text\n        .replace(/\\\\/g, '\\\\\\\\')\n        .replace(/\"/g, '\\\\\"')\n        .replace(/\\r\\n|\\r|\\n/g, '\\\\n');\n}\n\n/** Text as an AppleScript string literal. */\nexport function asString(text: string): string {\n    return `\"${asEscape(text)}\"`;\n}\n\n/** AppleScript's boolean literals. */\nexport function asBool(value: boolean): string {\n    return value ? 'true' : 'false';\n}\n\n/** A whole number for a script; anything else is refused before it becomes code. */\nexport function asInt(value: number): string {\n    if (!Number.isSafeInteger(value)) {\n        throw new InvalidRequestError(`Expected a whole number, got ${String(value)}.`);\n    }\n    return String(value);\n}\n\n/** Message ids (already validated as integers) as an AppleScript list literal. */\nexport function asIdList(ids: readonly string[]): string {\n    return `{${ids.map(id => asInt(Number(id))).join(', ')}}`;\n}\n\n// ── Record framing ───────────────────────────────────────────────────────\n//\n// Control characters separate fields, records and list items: subjects and\n// bodies contain tabs, newlines and commas, but never these — and every emitted\n// field passes through the `sanitize` handler, which makes the framing safe\n// rather than merely unlikely to break.\nexport const FIELD_SEP = '\\x1f';\nexport const RECORD_SEP = '\\x1e';\nexport const LIST_SEP = '\\x1d';\n\n/** The same three, as AppleScript expressions. Only the list one is written outside this module. */\nconst AS_FIELD_SEP = '(character id 31)';\nconst AS_RECORD_SEP = '(character id 30)';\nexport const AS_LIST_SEP = '(character id 29)';\n\n/**\n * One record: the AppleScript expressions in `fields`, separated and terminated\n * so `splitRecords`/`splitFields` can take them apart again. A field holding a\n * LIST must be built with `my sanitizeList(...)`, which cleans the elements —\n * `sanitize` deliberately leaves the list separator alone.\n */\nexport function asRow(fields: readonly string[]): string {\n    return fields\n        .map(f => `my sanitize(${f})`)\n        .join(` & ${AS_FIELD_SEP} & `) + ` & ${AS_RECORD_SEP}`;\n}\n\n/**\n * The handlers every script relies on, called with `my` from inside a `tell`.\n *\n * `isoDate` produces the zero-padded 'yyyy-MM-dd HH:mm' both platforms return;\n * `sanitize` strips the framing characters; `joinList` and `replaceText` are the\n * text-item-delimiter dance nobody should write twice.\n */\nexport const AS_HANDLERS = `\non pad2(n)\n    set s to (n as integer) as string\n    if (length of s) < 2 then set s to \"0\" & s\n    return s\nend pad2\n\non isoDate(d)\n    if d is missing value then return \"\"\n    return (year of d as string) & \"-\" & pad2(month of d as integer) & \"-\" & pad2(day of d) & \" \" & pad2(hours of d) & \":\" & pad2(minutes of d)\nend isoDate\n\non joinList(lst, sep)\n    set saved to AppleScript's text item delimiters\n    set AppleScript's text item delimiters to sep\n    set out to lst as string\n    set AppleScript's text item delimiters to saved\n    return out\nend joinList\n\non replaceText(t, findWhat, replaceWith)\n    set saved to AppleScript's text item delimiters\n    set AppleScript's text item delimiters to findWhat\n    set parts to text items of t\n    set AppleScript's text item delimiters to replaceWith\n    set out to parts as string\n    set AppleScript's text item delimiters to saved\n    return out\nend replaceText\n\n-- Strips the FIELD and RECORD separators only. The LIST separator is left\n-- alone on purpose: a field may legitimately BE a list.\non sanitize(v)\n    if v is missing value then return \"\"\n    set t to v as string\n    repeat with codePoint in {30, 31}\n        set marker to (character id (codePoint as integer))\n        if t contains marker then set t to my replaceText(t, marker, \" \")\n    end repeat\n    return t\nend sanitize\n\n-- A list field: each element loses all three separators, then they are joined\n-- with the LIST separator that splitList() takes them apart on.\non sanitizeList(lst)\n    set cleaned to {}\n    repeat with item_ in lst\n        set t to my sanitize(item_)\n        set marker to (character id 29)\n        if t contains marker then set t to my replaceText(t, marker, \" \")\n        set end of cleaned to t\n    end repeat\n    return my joinList(cleaned, (character id 29))\nend sanitizeList\n\n-- A list whose positions matter, like an email's attachments: every element is\n-- FOLLOWED by the LIST separator, so an empty element keeps its place and an\n-- empty list stays distinct from a list of one empty name. splitPositionalList()\n-- takes it apart.\non sanitizePositionalList(lst)\n    if (count of lst) is 0 then return \"\"\n    return my sanitizeList(lst) & (character id 29)\nend sanitizePositionalList\n\non insertAboveQuoted(c, ins)\n    if c is missing value then return ins\n    set c to c as string\n    if (length of c) is 0 then return ins\n    -- A reply's own empty paragraph sits inside WordSection1; inserting straight\n    -- after that tag puts the new text where the cursor would be. Anything else\n    -- falls back to just inside <body>. ('at' is a reserved parameter name, so\n    -- the cut point can't be called that.)\n    set cutPoint to my tagEnd(c, \"${WORD_SECTION_ANCHOR}\")\n    if cutPoint is 0 then set cutPoint to my tagEnd(c, \"<body\")\n    if cutPoint is 0 then return ins & c\n    if cutPoint is (length of c) then return c & ins\n    return (text 1 thru cutPoint of c) & ins & (text (cutPoint + 1) thru -1 of c)\nend insertAboveQuoted\n\n-- 'rest' is an AppleScript term, so the remainder can't be called that:\n-- assigning to it compiles and then fails at run time.\non tagEnd(c, marker)\n    set ix to offset of marker in c\n    if ix is 0 then return 0\n    if marker ends with \">\" then return ix + (length of marker) - 1\n    set tailText to text ix thru -1 of c\n    set gt to offset of \">\" in tailText\n    if gt is 0 then return 0\n    return ix + gt - 1\nend tagEnd\n`;\n\n/** A script's output as records, without the trailing empty one. */\nexport function splitRecords(raw: string): string[] {\n    return raw.split(RECORD_SEP).filter(record => record.trim() !== '');\n}\n\n/** One record's fields. */\nexport function splitFields(record: string): string[] {\n    return record.split(FIELD_SEP);\n}\n\n/**\n * A field that carries a list. Empty elements are dropped, so where an index\n * into the list must match Outlook's, the field is written with\n * `sanitizePositionalList` and read with `splitPositionalList` instead.\n */\nexport function splitList(value: string | undefined): string[] {\n    return (value || '').split(LIST_SEP).filter(Boolean);\n}\n\n/**\n * A field written by `sanitizePositionalList`: every element at its position,\n * empty ones included, so index N here is item N+1 of the AppleScript list.\n */\nexport function splitPositionalList(value: string | undefined): string[] {\n    return value ? value.split(LIST_SEP).slice(0, -1) : [];\n}\n\n/** A field by position; a missing field reads as ''. */\nexport function field(fields: readonly string[], index: number): string {\n    return fields[index] ?? '';\n}\n\n/** The fields of a script's first record — the summary a mutation returns ahead of any per-item rows. */\nexport function summaryFields(raw: string): string[] {\n    return splitFields(splitRecords(raw)[0] ?? '');\n}\n\n/** A numeric field, `fallback` when absent or unparsable. */\nexport function intField(fields: readonly string[], index: number, fallback = 0): number {\n    const parsed = Number.parseInt(field(fields, index), 10);\n    return Number.isNaN(parsed) ? fallback : parsed;\n}\n\n/** A boolean field; AppleScript renders booleans as the bare words true/false. */\nexport function boolField(fields: readonly string[], index: number): boolean {\n    return field(fields, index).trim() === 'true';\n}\n\n// ── Batches ──────────────────────────────────────────────────────────────\n//\n// A script acting on a list of ids returns one summary record, then one record\n// per id that failed. The failure row and its decoder sit together so the two\n// can't come to disagree about the field order.\n\n/** The record a batch script appends, inside `on error errText`, for the id `theId` it failed on. */\nexport const ITEM_FAILURE_ROW = asRow(['(theId as string)', 'subj', 'errText']);\n\n/** A batch script's output: the summary record's fields, and the items that failed. */\nexport function splitBatch(raw: string): { summary: string[]; failed: ItemFailure[] } {\n    const [summary = '', ...failures] = splitRecords(raw);\n    return {\n        summary: splitFields(summary),\n        failed: failures.map(record => {\n            const parts = splitFields(record);\n            return { entryId: field(parts, 0), subject: field(parts, 1), error: field(parts, 2) };\n        }),\n    };\n}\n"]}

package/dist/mac/scripts.d.ts

@@ -12,6 +12,12 @@ import type { ItemFailure, MailFolderRef } from '../types';
 export interface MacAccount {
     readonly emailAccount: string;
     readonly folderIds?: Readonly<Record<string, number>>;
+    /**
+     * Set when the profile has no row for the address because macOS refused it:
+     * the sentence to fail with should AppleScript not find the account either,
+     * since the profile is where a mailbox AppleScript can't see would have been.
+     */
+    readonly profileRefusal?: string;
 }
 /** Look an address up in Outlook's profile database, for the folder ids it can add. */
 export declare function resolveMacAccount(emailAccount: string): Promise<MacAccount>;
@@ -62,6 +68,33 @@ export declare function macFolderPath(emailAccount: string, rootLabel: string, s
  * is exact.
  */
 export declare function folderChainSnippet(indent: string): string;
+/**
+ * Bind `acctRootId` to the id of the account's root folder — the folder every
+ * one of its top-level folders sits in — through the account object when the
+ * probe found one, else from the profile database. Requires
+ * `accountLookupSnippet`.
+ *
+ * Never fails: an account neither names a root for leaves `acctRootId` as
+ * `missing value`, which `ownMailGuardSnippet` reads as a root nothing can be
+ * shown to sit under.
+ */
+export declare function accountRootIdSnippet(acct: MacAccount): string;
+/**
+ * Fail unless `theMsg` is the account's own mail — the macOS counterpart of
+ * Windows resolving an id in the account's store. `message id N` resolves
+ * against the application, so an id alone says nothing about whose mailbox the
+ * message is in, and a stale or wrong one can name mail in another.
+ *
+ * Either of two signs is enough, because neither exists for every mailbox:
+ *  - the message's folder chain ends at the account's root folder. Requires
+ *    `folderChainSnippet` (for `cur`) and `accountRootIdSnippet`.
+ *  - the message's own account carries the address. A mailbox the dictionary
+ *    publishes no account object for answers this with `missing value` (see
+ *    profile.ts), which is why the first sign has to be able to stand alone.
+ * An item neither vouches for is refused rather than given the benefit of the
+ * doubt: what follows moves or deletes it.
+ */
+export declare function ownMailGuardSnippet(emailAccount: string, verb: 'delete' | 'move', indent: string): string;
 /**
  * Resolve `scopeFolder` from `targetAcct`: a well-known root walked down through
  * any further segments. Also binds `scopeCreated`.
@@ -93,6 +126,19 @@ export declare function partitionMessageIds(entryIds: readonly string[]): {
  * against the application, so the message is found wherever it sits.
  */
 export declare function messageLookupSnippet(id: string): string;
+/**
+ * Bind `theMsg` to the id a batch loop holds in `theId`, leaving it `missing
+ * value` when the id no longer resolves — the per-item counterpart of
+ * `messageLookupSnippet`, for a loop that skips or reports a miss and goes on
+ * rather than failing the whole run.
+ */
+export declare function messageByIdSnippet(indent: string): string;
+/**
+ * `theMsg`'s plain-text body as `bodyText`: whole, cut to `maxChars`, or — with
+ * a `maxChars` of 0 — not read at all, the body being the one expensive
+ * property of a message.
+ */
+export declare function bodyTextSnippet(indent: string, maxChars?: number): string;
 /**
  * `theMsg`'s sender as `sndName` / `sndAddr`. `sender` is a record, and
  * `address of sender of m` doesn't coerce, so the record is bound first.

package/dist/mac/scripts.js

@@ -7,10 +7,14 @@ exports.rootFolderSnippet = rootFolderSnippet;
 exports.dateProperty = dateProperty;
 exports.macFolderPath = macFolderPath;
 exports.folderChainSnippet = folderChainSnippet;
+exports.accountRootIdSnippet = accountRootIdSnippet;
+exports.ownMailGuardSnippet = ownMailGuardSnippet;
 exports.mailScopeSnippet = mailScopeSnippet;
 exports.macMessageId = macMessageId;
 exports.partitionMessageIds = partitionMessageIds;
 exports.messageLookupSnippet = messageLookupSnippet;
+exports.messageByIdSnippet = messageByIdSnippet;
+exports.bodyTextSnippet = bodyTextSnippet;
 exports.senderSnippet = senderSnippet;
 exports.messageDetailSnippet = messageDetailSnippet;
 exports.messageDetailFields = messageDetailFields;
@@ -26,7 +30,12 @@ async function resolveMacAccount(emailAccount) {
     const wanted = emailAccount.trim().toLowerCase();
     const found = (await (0, profile_1.readProfileAccounts)())
         .find(account => account.emailAccount.trim().toLowerCase() === wanted);
-    return found ? { emailAccount, folderIds: found.folderIds } : { emailAccount };
+    if (found)
+        return { emailAccount, folderIds: found.folderIds };
+    // Asked only for an address the profile did not give: the script still looks
+    // for an account object first, so a classic account works without access.
+    const refusal = await (0, profile_1.profileRefusal)();
+    return refusal ? { emailAccount, profileRefusal: refusal } : { emailAccount };
 }
 /**
  * Resolve the account whose address matches into `targetAcct`, inside a
@@ -54,10 +63,18 @@ function accountLookupSnippet(acct, needsAccountObject = false) {
     end try`;
     if (acct.folderIds && !needsAccountObject)
         return probe;
-    const complaint = acct.folderIds
-        ? `${(0, errors_1.failureTag)('INVALID_REQUEST')}Outlook publishes no account object for '${acct.emailAccount}', `
-            + 'so the account a message is sent from cannot be set. Its folders can be read; mail cannot be composed from it.'
-        : `${(0, errors_1.failureTag)('ACCOUNT_NOT_FOUND')}Account '${acct.emailAccount}' not found in Outlook.`;
+    let complaint;
+    if (acct.folderIds) {
+        complaint = `${(0, errors_1.failureTag)('INVALID_REQUEST')}Outlook publishes no account object for '${acct.emailAccount}', `
+            + 'so the account a message is sent from cannot be set. Its folders can be read; mail cannot be composed from it.';
+    }
+    else if (acct.profileRefusal) {
+        complaint = `${(0, errors_1.failureTag)('PERMISSION_DENIED')}Account '${acct.emailAccount}' is not one Outlook's scripting `
+            + `can see. ${acct.profileRefusal}`;
+    }
+    else {
+        complaint = `${(0, errors_1.failureTag)('ACCOUNT_NOT_FOUND')}Account '${acct.emailAccount}' not found in Outlook.`;
+    }
     return `${probe}
     if targetAcct is missing value then error ${(0, run_1.asString)(complaint)}`;
 }
@@ -145,6 +162,52 @@ ${indent}    set cur to nextUp
 ${indent}    set guard to guard + 1
 ${indent}end repeat`;
 }
+/**
+ * Bind `acctRootId` to the id of the account's root folder — the folder every
+ * one of its top-level folders sits in — through the account object when the
+ * probe found one, else from the profile database. Requires
+ * `accountLookupSnippet`.
+ *
+ * Never fails: an account neither names a root for leaves `acctRootId` as
+ * `missing value`, which `ownMailGuardSnippet` reads as a root nothing can be
+ * shown to sit under.
+ */
+function accountRootIdSnippet(acct) {
+    const profiled = acct.folderIds?.['root folder'];
+    return `    set acctRootId to missing value
+    try
+        if targetAcct is not missing value then set acctRootId to id of (root folder of targetAcct)
+    end try` + (profiled === undefined ? '' : `
+    if acctRootId is missing value then set acctRootId to ${(0, run_1.asInt)(profiled)}`);
+}
+/**
+ * Fail unless `theMsg` is the account's own mail — the macOS counterpart of
+ * Windows resolving an id in the account's store. `message id N` resolves
+ * against the application, so an id alone says nothing about whose mailbox the
+ * message is in, and a stale or wrong one can name mail in another.
+ *
+ * Either of two signs is enough, because neither exists for every mailbox:
+ *  - the message's folder chain ends at the account's root folder. Requires
+ *    `folderChainSnippet` (for `cur`) and `accountRootIdSnippet`.
+ *  - the message's own account carries the address. A mailbox the dictionary
+ *    publishes no account object for answers this with `missing value` (see
+ *    profile.ts), which is why the first sign has to be able to stand alone.
+ * An item neither vouches for is refused rather than given the benefit of the
+ * doubt: what follows moves or deletes it.
+ */
+function ownMailGuardSnippet(emailAccount, verb, indent) {
+    return `${indent}set inAccount to false
+${indent}try
+${indent}    if acctRootId is not missing value and (id of cur) is acctRootId then set inAccount to true
+${indent}end try
+${indent}if not inAccount then
+${indent}    try
+${indent}        set ownerAddr to email address of (account of theMsg)
+${indent}        if ownerAddr is not missing value and (ownerAddr as string) is ${(0, run_1.asString)(emailAccount)} then set inAccount to true
+${indent}    end try
+${indent}end if
+${indent}if not inAccount then error "item is in another mailbox, not this account - refusing to ${verb}"`;
+}
 /** The dictionary term for a root, or NOT_IMPLEMENTED naming what was asked. */
 function rootTerm(ref, folderLabel = '') {
     const term = exports.MAC_ROOT_TERMS[ref.rootId];
@@ -231,6 +294,35 @@ function messageLookupSnippet(id) {
     end try
     if theMsg is missing value then error ${(0, run_1.asString)(complaint)}`;
 }
+/**
+ * Bind `theMsg` to the id a batch loop holds in `theId`, leaving it `missing
+ * value` when the id no longer resolves — the per-item counterpart of
+ * `messageLookupSnippet`, for a loop that skips or reports a miss and goes on
+ * rather than failing the whole run.
+ */
+function messageByIdSnippet(indent) {
+    return `${indent}set theMsg to missing value
+${indent}try
+${indent}    set theMsg to message id theId
+${indent}end try`;
+}
+/**
+ * `theMsg`'s plain-text body as `bodyText`: whole, cut to `maxChars`, or — with
+ * a `maxChars` of 0 — not read at all, the body being the one expensive
+ * property of a message.
+ */
+function bodyTextSnippet(indent, maxChars) {
+    if (maxChars === 0)
+        return `${indent}set bodyText to ""`;
+    const read = `${indent}set bodyText to ""
+${indent}try
+${indent}    set bodyText to (plain text content of theMsg) as string
+${indent}end try`;
+    if (maxChars === undefined)
+        return read;
+    return `${read}
+${indent}if (length of bodyText) > ${(0, run_1.asInt)(maxChars)} then set bodyText to text 1 thru ${(0, run_1.asInt)(maxChars)} of bodyText`;
+}
 /**
  * `theMsg`'s sender as `sndName` / `sndAddr`. `sender` is a record, and
  * `address of sender of m` doesn't coerce, so the record is bound first.
@@ -271,11 +363,7 @@ ${indent}end try
 ${indent}set attNames to {}
 ${indent}try
 ${indent}    set attNames to name of every attachment of theMsg
-${indent}end try` + (withBody ? `
-${indent}set bodyText to ""
-${indent}try
-${indent}    set bodyText to (plain text content of theMsg) as string
-${indent}end try` : '');
+${indent}end try` + (withBody ? `\n${bodyTextSnippet(indent)}` : '');
 }
 /** The fields `messageDetailSnippet` fills, in row order — see `MessageDetail`. */
 function messageDetailFields(withBody = false) {