@dawnlit/outlook-bridge 1.1.1 → 2.1.0

package/dist/mac/scripts.js

@@ -1,10 +1,12 @@
 "use strict";
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.LIST_ACCOUNTS_SNIPPET = exports.FIND_FOLDER_HANDLER = exports.MessageDetail = exports.MAC_ROOT_TERMS = void 0;
+exports.resolveMacAccount = resolveMacAccount;
 exports.accountLookupSnippet = accountLookupSnippet;
+exports.rootFolderSnippet = rootFolderSnippet;
 exports.dateProperty = dateProperty;
 exports.macFolderPath = macFolderPath;
-exports.rootTerm = rootTerm;
+exports.folderChainSnippet = folderChainSnippet;
 exports.mailScopeSnippet = mailScopeSnippet;
 exports.macMessageId = macMessageId;
 exports.partitionMessageIds = partitionMessageIds;
@@ -16,125 +18,193 @@ exports.firstRecipientSnippet = firstRecipientSnippet;
 exports.allRecipientsSnippet = allRecipientsSnippet;
 // The AppleScript fragments more than one macOS operation is built from.
 const run_1 = require("./run");
+const profile_1 = require("./profile");
 const errors_1 = require("../errors");
 const mail_1 = require("../mail");
+/** Look an address up in Outlook's profile database, for the folder ids it can add. */
+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 };
+}
 /**
- * Resolve the account whose SMTP address matches, or raise. Emitted into a
- * `tell application "Microsoft Outlook"` block; binds `targetAcct`.
+ * Resolve the account whose address matches into `targetAcct`, inside a
+ * `tell application "Microsoft Outlook"` block.
  *
- * `every account` errors even in legacy mode, so probe the typed classes. A
- * `whose email address is ...` filter can't be used either: `email address` is
- * also a class name, and AppleScript resolves it as one ("into type specifier").
+ * `every account` errors even in legacy mode, so the typed classes are probed.
+ * A `whose email address is …` filter can't be used either: `email address` is
+ * also a class name, and AppleScript resolves it as one.
  *
- * The thrown sentence is the one `classifyRunFailure` recognises to raise
- * `AccountNotFoundError`, so its wording is load-bearing.
+ * A mailbox the dictionary publishes no account object for leaves `targetAcct`
+ * as `missing value` rather than failing, provided the profile gave a folder id
+ * to reach it by. `needsAccountObject` is for composing mail, which can't work
+ * without the object: the account a message is sent from can only be set from
+ * it, and a message composed without it goes out from the default mailbox.
  */
-function accountLookupSnippet(emailAccount) {
-    return `    set targetAcct to missing value
+function accountLookupSnippet(acct, needsAccountObject = false) {
+    const probe = `    set targetAcct to missing value
     try
         repeat with a in (exchange accounts & imap accounts & pop accounts)
-            if (email address of a as string) is "${(0, run_1.asEscape)(emailAccount)}" then
+            if (email address of a as string) is ${(0, run_1.asString)(acct.emailAccount)} then
                 set targetAcct to a
                 exit repeat
             end if
         end repeat
-    end try
-    if targetAcct is missing value then error "Account '${(0, run_1.asEscape)(emailAccount)}' not found"`;
+    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.`;
+    return `${probe}
+    if targetAcct is missing value then error ${(0, run_1.asString)(complaint)}`;
 }
 /**
- * Outlook for Mac's dictionary term for each well-known root, keyed by the
- * olDefaultFolders id `mailFolderRef` resolves.
- *
- * Verified against the running app. The terms are NOT the ones the Windows ids
- * suggest — `sent mail` and `junk email` do not compile at all, while
- * `sent items` and `junk mail` do, and a bad term fails the whole script at
- * compile time rather than at the offending line.
+ * Bind `variable` to one of the account's well-known folders: through the
+ * account object when the probe found one, else by the folder's own id. `mail
+ * folder id N` resolves against the application rather than an account, and N is
+ * the id Outlook's profile database records for that folder.
+ */
+function rootFolderSnippet(acct, term, variable) {
+    const viaAccount = `    set ${variable} to ${term} of targetAcct`;
+    const id = acct.folderIds?.[term];
+    if (id !== undefined) {
+        return `    if targetAcct is missing value then
+        set ${variable} to mail folder id ${id}
+    else
+${viaAccount}
+    end if`;
+    }
+    // The profile listed the mailbox but not this root, so the probe is the only
+    // way in — and it may have come up empty. Name the folder out of reach
+    // rather than let `<term> of missing value` say it.
+    if (acct.folderIds) {
+        const complaint = `${(0, errors_1.failureTag)('NOT_FOUND', 'folder')}Account '${acct.emailAccount}' has no ${term} folder AppleScript can reach.`;
+        return `    if targetAcct is missing value then error ${(0, run_1.asString)(complaint)}
+${viaAccount}`;
+    }
+    return viaAccount;
+}
+/**
+ * Outlook for Mac's dictionary term for each well-known root, by olDefaultFolders
+ * id. Verified against the running app: the terms are NOT what the Windows names
+ * suggest — `sent mail` and `junk email` don't compile, `sent items` and `junk
+ * mail` do — and one bad term fails the whole script at compile time.
  */
 exports.MAC_ROOT_TERMS = {
-    6: 'inbox',
-    5: 'sent items',
-    16: 'drafts',
-    3: 'deleted items',
-    4: 'outbox',
-    23: 'junk mail',
+    [mail_1.FolderId.Inbox]: 'inbox',
+    [mail_1.FolderId.SentMail]: 'sent items',
+    [mail_1.FolderId.Drafts]: 'drafts',
+    [mail_1.FolderId.DeletedItems]: 'deleted items',
+    [mail_1.FolderId.Outbox]: 'outbox',
+    [mail_1.FolderId.Junk]: 'junk mail',
 };
-/** The date property a folder's items actually carry. */
+/** The date property a root's items carry. */
 function dateProperty(rootId) {
     return (0, mail_1.isOutgoingRoot)(rootId) ? 'time sent' : 'time received';
 }
 /**
- * The Windows `FolderPath` shape (`\\mailbox\Inbox\Invoices`), built here rather
- * than in AppleScript — escaping backslashes through a template literal and then
- * an AppleScript literal is unreadable, and TS already knows the parts.
+ * The Windows folder-path shape (`\\mailbox\Inbox\Invoices`), assembled in
+ * TypeScript: escaping backslashes through a template literal and then an
+ * AppleScript literal is unreadable, and the parts are known here anyway.
  */
 function macFolderPath(emailAccount, rootLabel, segments) {
     return ['\\\\' + emailAccount, rootLabel, ...segments].join('\\');
 }
-/** The dictionary term for a root, or a NOT_IMPLEMENTED naming what was asked. */
+/**
+ * Walk a folder's `container` chain to the top as the list `chainNames`,
+ * nearest first. Requires `theFolder`, and leaves `cur` on the folder the walk
+ * stopped at: the account's nameless root folder, when it got that far.
+ *
+ * The chain's last element is the folder directly under the account, and an
+ * account can't hold two top-level folders of one name, so comparing that name
+ * is exact.
+ */
+function folderChainSnippet(indent) {
+    return `${indent}set chainNames to {}
+${indent}set cur to theFolder
+${indent}set guard to 0
+${indent}repeat while cur is not missing value and guard < 25
+${indent}    -- The account's root folder has a name of missing value, and coercing
+${indent}    -- that yields the STRING "missing value" — so test before coercing.
+${indent}    set rawName to missing value
+${indent}    try
+${indent}        set rawName to name of cur
+${indent}    end try
+${indent}    if rawName is missing value then exit repeat
+${indent}    set nm to rawName as string
+${indent}    if nm is "" then exit repeat
+${indent}    set end of chainNames to nm
+${indent}    set nextUp to missing value
+${indent}    try
+${indent}        set nextUp to container of cur
+${indent}    end try
+${indent}    set cur to nextUp
+${indent}    set guard to guard + 1
+${indent}end repeat`;
+}
+/** 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];
     if (!term) {
         const asked = folderLabel ? ` (asked for '${folderLabel}')` : '';
-        throw new errors_1.NotImplementedError(`folder root '${ref.rootLabel}'${asked}`, `macOS — readable roots are ${Object.values(exports.MAC_ROOT_TERMS).join(', ')}`);
+        throw new errors_1.NotImplementedError(`Reading the '${ref.rootLabel}' folder${asked}`, `macOS, whose readable roots are ${Object.values(exports.MAC_ROOT_TERMS).join(', ')}`);
     }
     return term;
 }
 /**
- * Emit the AppleScript that resolves `scopeFolder` from `targetAcct`, walking a
- * well-known root down through any further path segments. Also binds
- * `scopeCreated`.
+ * Resolve `scopeFolder` from `targetAcct`: a well-known root walked down through
+ * any further segments. Also binds `scopeCreated`.
  *
- * Folder names are compared with `is`, which is case-insensitive in AppleScript —
- * matching the Windows walk's `-ieq` so 'invoices' finds 'Invoices' on both.
- * A missing segment errors by name instead of falling back to the root: silently
- * returning the Inbox for a caller that scoped to one folder hands back the wrong
- * emails under a name that says otherwise. `createMissing` builds the whole
- * chain instead, so a nested destination is one call.
+ * Names compare with `is`, which is case-insensitive in AppleScript, matching
+ * the Windows walk. A missing segment fails as NOT_FOUND rather than falling
+ * back to the root; `createMissing` builds the chain instead.
  */
-function mailScopeSnippet(ref, folderLabel = '', createMissing = false) {
+function mailScopeSnippet(acct, ref, folderLabel = '', createMissing = false) {
     const term = rootTerm(ref, folderLabel);
-    const walk = ref.segments.map(seg => `
+    const walk = ref.segments.map(segment => {
+        const complaint = `${(0, errors_1.failureTag)('NOT_FOUND', 'folder')}Folder '${segment}' not found under '${ref.rootLabel}'.`;
+        const create = createMissing
+            ? `        set foundFolder to (make new mail folder at scopeFolder with properties {name:${(0, run_1.asString)(segment)}})
+        set scopeCreated to true`
+            : `        error ${(0, run_1.asString)(complaint)}`;
+        return `
     set foundFolder to missing value
     repeat with sf in (mail folders of scopeFolder)
-        if (name of sf as string) is "${(0, run_1.asEscape)(seg)}" then
+        if (name of sf as string) is ${(0, run_1.asString)(segment)} then
             set foundFolder to sf
             exit repeat
         end if
     end repeat
     if foundFolder is missing value then
-        if ${(0, run_1.asBool)(createMissing)} then
-            set foundFolder to (make new mail folder at scopeFolder with properties {name:"${(0, run_1.asEscape)(seg)}"})
-            set scopeCreated to true
-        else
-            error "Folder '${(0, run_1.asEscape)(seg)}' not found under '${(0, run_1.asEscape)(ref.rootLabel)}'"
-        end if
+${create}
     end if
-    set scopeFolder to foundFolder`).join('');
+    set scopeFolder to foundFolder`;
+    }).join('');
     return `    set scopeCreated to false
-    set scopeFolder to ${term} of targetAcct${walk}`;
+${rootFolderSnippet(acct, term, 'scopeFolder')}${walk}`;
 }
 /**
- * The message-id text for a script, or an InvalidRequestError.
+ * The message id text for a script, or INVALID_REQUEST.
  *
- * Outlook for Mac ids are small integers; a Windows MAPI EntryID is rejected up
- * front rather than left to fail as a confusing "not found", because a caller
- * that persisted one from a Windows run needs to be told exactly that.
+ * Outlook for Mac ids are small integers; a Windows EntryID is refused up front
+ * rather than left to fail as a confusing "not found", because a caller that
+ * persisted one from a Windows run needs to be told exactly that.
  */
 function macMessageId(entryId) {
     const id = String(entryId ?? '').trim();
     if (!/^\d+$/.test(id)) {
         throw new errors_1.InvalidRequestError(`'${entryId}' is not an Outlook for Mac message id. Mac ids are small integers `
-            + `(e.g. "1263") returned by readInboxEmails on this machine; a Windows MAPI `
-            + `EntryID cannot be resolved here.`);
+            + '(e.g. "1263") listed on this machine; a Windows EntryID cannot be resolved here.');
     }
     return id;
 }
 /**
- * Split ids into the ones a script can look up and the ones that can only fail.
- *
- * The per-id operations report failures rather than throwing, so an unusable id
- * belongs in the result's `failed` list beside a genuine lookup miss — not as an
- * exception that discards the ids that would have worked.
+ * Split ids into those a script can look up and those that can only fail. A
+ * batch reports an unusable id beside a genuine miss rather than throwing and
+ * discarding the ids that would have worked.
  */
 function partitionMessageIds(entryIds) {
     const valid = [];
@@ -144,35 +214,32 @@ function partitionMessageIds(entryIds) {
             valid.push(macMessageId(entryId));
         }
         catch (error) {
-            invalid.push({ entryId: String(entryId), error: error.message });
+            invalid.push({ entryId: String(entryId), subject: '', error: error.message });
         }
     }
     return { valid, invalid };
 }
 /**
- * Resolve `theMsg` from a macOS message id, or raise.
- *
- * `message id N` resolves against the application rather than one folder, so the
- * message is found wherever it currently sits — including a subfolder.
+ * Bind `theMsg` to a message id, or fail as NOT_FOUND. `message id N` resolves
+ * against the application, so the message is found wherever it sits.
  */
-function messageLookupSnippet(id, variable = 'theMsg') {
-    return `    set ${variable} to missing value
+function messageLookupSnippet(id) {
+    const complaint = `${(0, errors_1.failureTag)('NOT_FOUND', 'email')}No email found for message id '${id}'. It may have been deleted - list the mail again for a current id.`;
+    return `    set theMsg to missing value
     try
-        set ${variable} to message id ${id}
+        set theMsg to message id ${id}
     end try
-    if ${variable} is missing value then error "Email not found for message id '${id}'"`;
+    if theMsg is missing value then error ${(0, run_1.asString)(complaint)}`;
 }
 /**
- * The sender's display name and address, as `sndName` / `sndAddr`.
- *
- * `sender` yields a record, and `address of sender of m` fails to coerce, so the
- * record has to be bound first. `name` is absent when there is no display name.
+ * `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.
  */
-function senderSnippet(messageVariable = 'theMsg', indent = '    ') {
+function senderSnippet(indent = '    ') {
     return `${indent}set sndName to ""
 ${indent}set sndAddr to ""
 ${indent}try
-${indent}    set snd to sender of ${messageVariable}
+${indent}    set snd to sender of theMsg
 ${indent}    try
 ${indent}        set sndAddr to (address of snd) as string
 ${indent}    end try
@@ -182,25 +249,17 @@ ${indent}    end try
 ${indent}end try`;
 }
 /**
- * Everything a reader wants off ONE message already bound to `theMsg`, and the
- * row it produces — emitted together so the read order and the positions the
- * TypeScript decoders index into cannot drift apart.
- *
- * Three callers share it (`readEmailBody`, `readSelectedEmail`, and the
- * attachment resolver) and differ only in how they bind `theMsg`. They used to
- * share it by copy: thirty lines repeated, with the `time received` → `time sent`
- * fallback and the field order restated each time, so a dictionary fix reached
- * one reader and not the others.
- *
- * `bodyText` is emitted LAST when asked for, so a stray separator in an earlier
- * field cannot shift it.
+ * Everything a reader wants off one message bound to `theMsg`, emitted together
+ * with the row it produces (see `messageDetailFields`) so the read order and the
+ * positions the decoders index into cannot drift apart. `bodyText` is emitted
+ * LAST when asked for, so a stray separator in an earlier field can't shift it.
  */
 function messageDetailSnippet(withBody = false, indent = '    ') {
     return `${indent}set subj to ""
 ${indent}try
 ${indent}    set subj to (subject of theMsg) as string
 ${indent}end try
-${senderSnippet('theMsg', indent)}
+${senderSnippet(indent)}
 ${indent}set recvd to ""
 ${indent}try
 ${indent}    set recvd to my isoDate(time received of theMsg)
@@ -218,24 +277,14 @@ ${indent}try
 ${indent}    set bodyText to (plain text content of theMsg) as string
 ${indent}end try` : '');
 }
-/**
- * The fields `messageDetailSnippet` fills, in row order. The decoders read them
- * back by the positions in `MessageDetail`.
- */
+/** The fields `messageDetailSnippet` fills, in row order — see `MessageDetail`. */
 function messageDetailFields(withBody = false) {
-    const fields = [
-        '(id of theMsg as string)',
-        'subj',
-        'sndName',
-        'sndAddr',
-        'recvd',
-        'my sanitizeList(attNames)',
-    ];
+    const fields = ['(id of theMsg as string)', 'subj', 'sndName', 'sndAddr', 'recvd', 'my sanitizePositionalList(attNames)'];
     if (withBody)
         fields.push('bodyText');
     return fields;
 }
-/** Where each of those fields lands in the emitted row. */
+/** Where each of those fields lands in the row. */
 exports.MessageDetail = {
     id: 0,
     subject: 1,
@@ -246,15 +295,14 @@ exports.MessageDetail = {
     body: 6,
 };
 /**
- * The first recipient's name and address, as `sndName` / `sndAddr` — what
- * outgoing mail reports in place of a sender, matching the Windows reader's
- * contract for Sent Items (a folder of mail from yourself is unreadable).
+ * `theMsg`'s first recipient as `sndName` / `sndAddr` — what outgoing mail
+ * reports in place of a sender.
  */
-function firstRecipientSnippet(messageVariable = 'theMsg', indent = '    ') {
+function firstRecipientSnippet(indent = '    ') {
     return `${indent}set sndName to ""
 ${indent}set sndAddr to ""
 ${indent}try
-${indent}    set rcps to to recipients of ${messageVariable}
+${indent}    set rcps to to recipients of theMsg
 ${indent}    if (count of rcps) > 0 then
 ${indent}        set ea to email address of (item 1 of rcps)
 ${indent}        try
@@ -266,20 +314,15 @@ ${indent}        end try
 ${indent}    end if
 ${indent}end try`;
 }
-/**
- * Every SMTP address a message was addressed to, as the list `addrList`.
- *
- * `every recipient` covers To, CC and BCC — the full set, which is the whole
- * point of readSentRecipientGroups.
- */
-function allRecipientsSnippet(messageVariable = 'theMsg', indent = '    ') {
+/** Every address `theMsg` was sent to — To, CC and BCC — as the list `addrList`. */
+function allRecipientsSnippet(indent = '    ') {
     return `${indent}set addrList to {}
 ${indent}try
-${indent}    repeat with r in (every recipient of ${messageVariable})
+${indent}    repeat with r in (every recipient of theMsg)
 ${indent}        try
-${indent}            -- The record has to be bound before its field is read: a nested
-${indent}            -- 'address of (email address of r)' does not coerce, and fails
-${indent}            -- inside the try as an empty recipient list rather than an error.
+${indent}            -- The record is bound before its field is read: a nested
+${indent}            -- 'address of (email address of r)' doesn't coerce, and fails
+${indent}            -- inside the try as an empty list rather than an error.
 ${indent}            set ea to email address of r
 ${indent}            set oneAddr to (address of ea) as string
 ${indent}            if oneAddr is not "" then set end of addrList to oneAddr
@@ -288,9 +331,8 @@ ${indent}    end repeat
 ${indent}end try`;
 }
 /**
- * Recursive folder-by-name search from `startFolder`, case-insensitive and
- * depth-capped — the macOS counterpart of the Windows Find-FolderByName, used to
- * resolve a template folder anywhere in the mailbox tree.
+ * Recursive, case-insensitive, depth-capped folder search from `startFolder` —
+ * the macOS counterpart of the Windows Find-FolderByName.
  */
 exports.FIND_FOLDER_HANDLER = `
 on findFolderByName(startFolder, wantedName, depth)
@@ -309,9 +351,8 @@ on findFolderByName(startFolder, wantedName, depth)
 end findFolderByName
 `;
 /**
- * Account enumeration only works when Outlook runs in legacy mode; New Outlook
- * errors on `every account` and returns empty lists for the typed classes, so
- * each class is probed independently and failures are ignored.
+ * Enumerate the accounts, probing each class separately: legacy Outlook errors
+ * on `every account`, and New Outlook returns empty lists for the classes.
  */
 exports.LIST_ACCOUNTS_SNIPPET = `
 set acctList to {}

package/dist/mac/scripts.js.map

@@ -1 +1 @@
-{"version":3,"file":"scripts.js","sourceRoot":"","sources":["../../src/mac/scripts.ts"],"names":[],"mappings":";;;AAiBA,oDAWC;AAqBD,oCAEC;AAOD,sCAEC;AAGD,4BAUC;AAcD,4CAyBC;AASD,oCAUC;AASD,kDAcC;AAQD,oDAMC;AAQD,sCAYC;AAgBD,oDAsBC;AAMD,kDAWC;AAkBD,sDAeC;AAQD,oDAcC;AA1SD,yEAAyE;AACzE,+BAAyC;AACzC,sCAAqE;AAErE,kCAAyC;AAEzC;;;;;;;;;;GAUG;AACH,SAAgB,oBAAoB,CAAC,YAAoB;IACrD,OAAO;;;oDAGyC,IAAA,cAAQ,EAAC,YAAY,CAAC;;;;;;0DAMhB,IAAA,cAAQ,EAAC,YAAY,CAAC,cAAc,CAAC;AAC/F,CAAC;AAED;;;;;;;;GAQG;AACU,QAAA,cAAc,GAA2B;IAClD,CAAC,EAAE,OAAO;IACV,CAAC,EAAE,YAAY;IACf,EAAE,EAAE,QAAQ;IACZ,CAAC,EAAE,eAAe;IAClB,CAAC,EAAE,QAAQ;IACX,EAAE,EAAE,WAAW;CAClB,CAAC;AAEF,yDAAyD;AACzD,SAAgB,YAAY,CAAC,MAAc;IACvC,OAAO,IAAA,qBAAc,EAAC,MAAM,CAAC,CAAC,CAAC,CAAC,WAAW,CAAC,CAAC,CAAC,eAAe,CAAC;AAClE,CAAC;AAED;;;;GAIG;AACH,SAAgB,aAAa,CAAC,YAAoB,EAAE,SAAiB,EAAE,QAAkB;IACrF,OAAO,CAAC,MAAM,GAAG,YAAY,EAAE,SAAS,EAAE,GAAG,QAAQ,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;AACtE,CAAC;AAED,kFAAkF;AAClF,SAAgB,QAAQ,CAAC,GAAkB,EAAE,WAAW,GAAG,EAAE;IACzD,MAAM,IAAI,GAAG,sBAAc,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;IACxC,IAAI,CAAC,IAAI,EAAE,CAAC;QACR,MAAM,KAAK,GAAG,WAAW,CAAC,CAAC,CAAC,gBAAgB,WAAW,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC;QACjE,MAAM,IAAI,4BAAmB,CACzB,gBAAgB,GAAG,CAAC,SAAS,IAAI,KAAK,EAAE,EACxC,8BAA8B,MAAM,CAAC,MAAM,CAAC,sBAAc,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAC3E,CAAC;IACN,CAAC;IACD,OAAO,IAAI,CAAC;AAChB,CAAC;AAED;;;;;;;;;;;GAWG;AACH,SAAgB,gBAAgB,CAC5B,GAAkB,EAClB,WAAW,GAAG,EAAE,EAChB,aAAa,GAAG,KAAK;IAErB,MAAM,IAAI,GAAG,QAAQ,CAAC,GAAG,EAAE,WAAW,CAAC,CAAC;IACxC,MAAM,IAAI,GAAG,GAAG,CAAC,QAAQ,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;;;wCAGD,IAAA,cAAQ,EAAC,GAAG,CAAC;;;;;;aAMxC,IAAA,YAAM,EAAC,aAAa,CAAC;6FAC2D,IAAA,cAAQ,EAAC,GAAG,CAAC;;;6BAG7E,IAAA,cAAQ,EAAC,GAAG,CAAC,sBAAsB,IAAA,cAAQ,EAAC,GAAG,CAAC,SAAS,CAAC;;;mCAGpD,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;IAC1C,OAAO;yBACc,IAAI,iBAAiB,IAAI,EAAE,CAAC;AACrD,CAAC;AAED;;;;;;GAMG;AACH,SAAgB,YAAY,CAAC,OAAe;IACxC,MAAM,EAAE,GAAG,MAAM,CAAC,OAAO,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC;IACxC,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC;QACpB,MAAM,IAAI,4BAAmB,CACzB,IAAI,OAAO,qEAAqE;cAC9E,4EAA4E;cAC5E,kCAAkC,CACvC,CAAC;IACN,CAAC;IACD,OAAO,EAAE,CAAC;AACd,CAAC;AAED;;;;;;GAMG;AACH,SAAgB,mBAAmB,CAAC,QAA2B;IAI3D,MAAM,KAAK,GAAa,EAAE,CAAC;IAC3B,MAAM,OAAO,GAAyC,EAAE,CAAC;IACzD,KAAK,MAAM,OAAO,IAAI,QAAQ,EAAE,CAAC;QAC7B,IAAI,CAAC;YACD,KAAK,CAAC,IAAI,CAAC,YAAY,CAAC,OAAO,CAAC,CAAC,CAAC;QACtC,CAAC;QAAC,OAAO,KAAK,EAAE,CAAC;YACb,OAAO,CAAC,IAAI,CAAC,EAAE,OAAO,EAAE,MAAM,CAAC,OAAO,CAAC,EAAE,KAAK,EAAG,KAAe,CAAC,OAAO,EAAE,CAAC,CAAC;QAChF,CAAC;IACL,CAAC;IACD,OAAO,EAAE,KAAK,EAAE,OAAO,EAAE,CAAC;AAC9B,CAAC;AAED;;;;;GAKG;AACH,SAAgB,oBAAoB,CAAC,EAAU,EAAE,QAAQ,GAAG,QAAQ;IAChE,OAAO,WAAW,QAAQ;;cAEhB,QAAQ,kBAAkB,EAAE;;SAEjC,QAAQ,iEAAiE,EAAE,IAAI,CAAC;AACzF,CAAC;AAED;;;;;GAKG;AACH,SAAgB,aAAa,CAAC,eAAe,GAAG,QAAQ,EAAE,MAAM,GAAG,MAAM;IACrE,OAAO,GAAG,MAAM;EAClB,MAAM;EACN,MAAM;EACN,MAAM,4BAA4B,eAAe;EACjD,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM,SAAS,CAAC;AAClB,CAAC;AAED;;;;;;;;;;;;;GAaG;AACH,SAAgB,oBAAoB,CAAC,QAAQ,GAAG,KAAK,EAAE,MAAM,GAAG,MAAM;IAClE,OAAO,GAAG,MAAM;EAClB,MAAM;EACN,MAAM;EACN,MAAM;EACN,aAAa,CAAC,QAAQ,EAAE,MAAM,CAAC;EAC/B,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM,SAAS,GAAG,CAAC,QAAQ,CAAC,CAAC,CAAC;EAC9B,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;AACxB,CAAC;AAED;;;GAGG;AACH,SAAgB,mBAAmB,CAAC,QAAQ,GAAG,KAAK;IAChD,MAAM,MAAM,GAAG;QACX,0BAA0B;QAC1B,MAAM;QACN,SAAS;QACT,SAAS;QACT,OAAO;QACP,2BAA2B;KAC9B,CAAC;IACF,IAAI,QAAQ;QAAE,MAAM,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC;IACtC,OAAO,MAAM,CAAC;AAClB,CAAC;AAED,2DAA2D;AAC9C,QAAA,aAAa,GAAG;IACzB,EAAE,EAAE,CAAC;IACL,OAAO,EAAE,CAAC;IACV,UAAU,EAAE,CAAC;IACb,WAAW,EAAE,CAAC;IACd,YAAY,EAAE,CAAC;IACf,eAAe,EAAE,CAAC;IAClB,IAAI,EAAE,CAAC;CACD,CAAC;AAEX;;;;GAIG;AACH,SAAgB,qBAAqB,CAAC,eAAe,GAAG,QAAQ,EAAE,MAAM,GAAG,MAAM;IAC7E,OAAO,GAAG,MAAM;EAClB,MAAM;EACN,MAAM;EACN,MAAM,oCAAoC,eAAe;EACzD,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM,SAAS,CAAC;AAClB,CAAC;AAED;;;;;GAKG;AACH,SAAgB,oBAAoB,CAAC,eAAe,GAAG,QAAQ,EAAE,MAAM,GAAG,MAAM;IAC5E,OAAO,GAAG,MAAM;EAClB,MAAM;EACN,MAAM,4CAA4C,eAAe;EACjE,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM,SAAS,CAAC;AAClB,CAAC;AAED;;;;GAIG;AACU,QAAA,mBAAmB,GAAG;;;;;;;;;;;;;;;CAelC,CAAC;AAEF;;;;GAIG;AACU,QAAA,qBAAqB,GAAG;;;;;;;;;;;;;;;;;;;;CAoBpC,CAAC"}
+{"version":3,"file":"scripts.js","sourceRoot":"","sources":["../../src/mac/scripts.ts"],"names":[],"mappings":";;;AAuBA,8CAKC;AAgBD,oDAiBC;AAQD,8CAmBC;AAkBD,oCAEC;AAOD,sCAEC;AAWD,gDAsBC;AAuBD,4CAuBC;AASD,oCASC;AAOD,kDAWC;AAMD,oDAOC;AAMD,sCAYC;AAQD,oDAsBC;AAGD,kDAIC;AAiBD,sDAeC;AAGD,oDAcC;AA7VD,yEAAyE;AACzE,+BAAiC;AACjC,uCAAgD;AAChD,sCAAiF;AACjF,kCAAmD;AAkBnD,uFAAuF;AAChF,KAAK,UAAU,iBAAiB,CAAC,YAAoB;IACxD,MAAM,MAAM,GAAG,YAAY,CAAC,IAAI,EAAE,CAAC,WAAW,EAAE,CAAC;IACjD,MAAM,KAAK,GAAG,CAAC,MAAM,IAAA,6BAAmB,GAAE,CAAC;SACtC,IAAI,CAAC,OAAO,CAAC,EAAE,CAAC,OAAO,CAAC,YAAY,CAAC,IAAI,EAAE,CAAC,WAAW,EAAE,KAAK,MAAM,CAAC,CAAC;IAC3E,OAAO,KAAK,CAAC,CAAC,CAAC,EAAE,YAAY,EAAE,SAAS,EAAE,KAAK,CAAC,SAAS,EAAE,CAAC,CAAC,CAAC,EAAE,YAAY,EAAE,CAAC;AACnF,CAAC;AAED;;;;;;;;;;;;;GAaG;AACH,SAAgB,oBAAoB,CAAC,IAAgB,EAAE,kBAAkB,GAAG,KAAK;IAC7E,MAAM,KAAK,GAAG;;;mDAGiC,IAAA,cAAQ,EAAC,IAAI,CAAC,YAAY,CAAC;;;;;YAKlE,CAAC;IACT,IAAI,IAAI,CAAC,SAAS,IAAI,CAAC,kBAAkB;QAAE,OAAO,KAAK,CAAC;IACxD,MAAM,SAAS,GAAG,IAAI,CAAC,SAAS;QAC5B,CAAC,CAAC,GAAG,IAAA,mBAAU,EAAC,iBAAiB,CAAC,4CAA4C,IAAI,CAAC,YAAY,KAAK;cAClG,gHAAgH;QAClH,CAAC,CAAC,GAAG,IAAA,mBAAU,EAAC,mBAAmB,CAAC,YAAY,IAAI,CAAC,YAAY,yBAAyB,CAAC;IAC/F,OAAO,GAAG,KAAK;gDAC6B,IAAA,cAAQ,EAAC,SAAS,CAAC,EAAE,CAAC;AACtE,CAAC;AAED;;;;;GAKG;AACH,SAAgB,iBAAiB,CAAC,IAAgB,EAAE,IAAY,EAAE,QAAgB;IAC9E,MAAM,UAAU,GAAG,WAAW,QAAQ,OAAO,IAAI,gBAAgB,CAAC;IAClE,MAAM,EAAE,GAAG,IAAI,CAAC,SAAS,EAAE,CAAC,IAAI,CAAC,CAAC;IAClC,IAAI,EAAE,KAAK,SAAS,EAAE,CAAC;QACnB,OAAO;cACD,QAAQ,sBAAsB,EAAE;;EAE5C,UAAU;WACD,CAAC;IACR,CAAC;IACD,6EAA6E;IAC7E,uEAAuE;IACvE,oDAAoD;IACpD,IAAI,IAAI,CAAC,SAAS,EAAE,CAAC;QACjB,MAAM,SAAS,GAAG,GAAG,IAAA,mBAAU,EAAC,WAAW,EAAE,QAAQ,CAAC,YAAY,IAAI,CAAC,YAAY,YAAY,IAAI,gCAAgC,CAAC;QACpI,OAAO,iDAAiD,IAAA,cAAQ,EAAC,SAAS,CAAC;EACjF,UAAU,EAAE,CAAC;IACX,CAAC;IACD,OAAO,UAAU,CAAC;AACtB,CAAC;AAED;;;;;GAKG;AACU,QAAA,cAAc,GAAqC;IAC5D,CAAC,eAAQ,CAAC,KAAK,CAAC,EAAE,OAAO;IACzB,CAAC,eAAQ,CAAC,QAAQ,CAAC,EAAE,YAAY;IACjC,CAAC,eAAQ,CAAC,MAAM,CAAC,EAAE,QAAQ;IAC3B,CAAC,eAAQ,CAAC,YAAY,CAAC,EAAE,eAAe;IACxC,CAAC,eAAQ,CAAC,MAAM,CAAC,EAAE,QAAQ;IAC3B,CAAC,eAAQ,CAAC,IAAI,CAAC,EAAE,WAAW;CAC/B,CAAC;AAEF,8CAA8C;AAC9C,SAAgB,YAAY,CAAC,MAAc;IACvC,OAAO,IAAA,qBAAc,EAAC,MAAM,CAAC,CAAC,CAAC,CAAC,WAAW,CAAC,CAAC,CAAC,eAAe,CAAC;AAClE,CAAC;AAED;;;;GAIG;AACH,SAAgB,aAAa,CAAC,YAAoB,EAAE,SAAiB,EAAE,QAA2B;IAC9F,OAAO,CAAC,MAAM,GAAG,YAAY,EAAE,SAAS,EAAE,GAAG,QAAQ,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;AACtE,CAAC;AAED;;;;;;;;GAQG;AACH,SAAgB,kBAAkB,CAAC,MAAc;IAC7C,OAAO,GAAG,MAAM;EAClB,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM,YAAY,CAAC;AACrB,CAAC;AAED,gFAAgF;AAChF,SAAS,QAAQ,CAAC,GAAkB,EAAE,WAAW,GAAG,EAAE;IAClD,MAAM,IAAI,GAAG,sBAAc,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;IACxC,IAAI,CAAC,IAAI,EAAE,CAAC;QACR,MAAM,KAAK,GAAG,WAAW,CAAC,CAAC,CAAC,gBAAgB,WAAW,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC;QACjE,MAAM,IAAI,4BAAmB,CACzB,gBAAgB,GAAG,CAAC,SAAS,WAAW,KAAK,EAAE,EAC/C,mCAAmC,MAAM,CAAC,MAAM,CAAC,sBAAc,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAChF,CAAC;IACN,CAAC;IACD,OAAO,IAAI,CAAC;AAChB,CAAC;AAED;;;;;;;GAOG;AACH,SAAgB,gBAAgB,CAAC,IAAgB,EAAE,GAAkB,EAAE,WAAW,GAAG,EAAE,EAAE,aAAa,GAAG,KAAK;IAC1G,MAAM,IAAI,GAAG,QAAQ,CAAC,GAAG,EAAE,WAAW,CAAC,CAAC;IACxC,MAAM,IAAI,GAAG,GAAG,CAAC,QAAQ,CAAC,GAAG,CAAC,OAAO,CAAC,EAAE;QACpC,MAAM,SAAS,GAAG,GAAG,IAAA,mBAAU,EAAC,WAAW,EAAE,QAAQ,CAAC,WAAW,OAAO,sBAAsB,GAAG,CAAC,SAAS,IAAI,CAAC;QAChH,MAAM,MAAM,GAAG,aAAa;YACxB,CAAC,CAAC,yFAAyF,IAAA,cAAQ,EAAC,OAAO,CAAC;iCACvF;YACrB,CAAC,CAAC,iBAAiB,IAAA,cAAQ,EAAC,SAAS,CAAC,EAAE,CAAC;QAC7C,OAAO;;;uCAGwB,IAAA,cAAQ,EAAC,OAAO,CAAC;;;;;;EAMtD,MAAM;;mCAE2B,CAAC;IAChC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;IACZ,OAAO;EACT,iBAAiB,CAAC,IAAI,EAAE,IAAI,EAAE,aAAa,CAAC,GAAG,IAAI,EAAE,CAAC;AACxD,CAAC;AAED;;;;;;GAMG;AACH,SAAgB,YAAY,CAAC,OAAe;IACxC,MAAM,EAAE,GAAG,MAAM,CAAC,OAAO,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC;IACxC,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC;QACpB,MAAM,IAAI,4BAAmB,CACzB,IAAI,OAAO,qEAAqE;cAC9E,kFAAkF,CACvF,CAAC;IACN,CAAC;IACD,OAAO,EAAE,CAAC;AACd,CAAC;AAED;;;;GAIG;AACH,SAAgB,mBAAmB,CAAC,QAA2B;IAC3D,MAAM,KAAK,GAAa,EAAE,CAAC;IAC3B,MAAM,OAAO,GAAkB,EAAE,CAAC;IAClC,KAAK,MAAM,OAAO,IAAI,QAAQ,EAAE,CAAC;QAC7B,IAAI,CAAC;YACD,KAAK,CAAC,IAAI,CAAC,YAAY,CAAC,OAAO,CAAC,CAAC,CAAC;QACtC,CAAC;QAAC,OAAO,KAAK,EAAE,CAAC;YACb,OAAO,CAAC,IAAI,CAAC,EAAE,OAAO,EAAE,MAAM,CAAC,OAAO,CAAC,EAAE,OAAO,EAAE,EAAE,EAAE,KAAK,EAAG,KAAe,CAAC,OAAO,EAAE,CAAC,CAAC;QAC7F,CAAC;IACL,CAAC;IACD,OAAO,EAAE,KAAK,EAAE,OAAO,EAAE,CAAC;AAC9B,CAAC;AAED;;;GAGG;AACH,SAAgB,oBAAoB,CAAC,EAAU;IAC3C,MAAM,SAAS,GAAG,GAAG,IAAA,mBAAU,EAAC,WAAW,EAAE,OAAO,CAAC,kCAAkC,EAAE,qEAAqE,CAAC;IAC/J,OAAO;;mCAEwB,EAAE;;4CAEO,IAAA,cAAQ,EAAC,SAAS,CAAC,EAAE,CAAC;AAClE,CAAC;AAED;;;GAGG;AACH,SAAgB,aAAa,CAAC,MAAM,GAAG,MAAM;IACzC,OAAO,GAAG,MAAM;EAClB,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM,SAAS,CAAC;AAClB,CAAC;AAED;;;;;GAKG;AACH,SAAgB,oBAAoB,CAAC,QAAQ,GAAG,KAAK,EAAE,MAAM,GAAG,MAAM;IAClE,OAAO,GAAG,MAAM;EAClB,MAAM;EACN,MAAM;EACN,MAAM;EACN,aAAa,CAAC,MAAM,CAAC;EACrB,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM,SAAS,GAAG,CAAC,QAAQ,CAAC,CAAC,CAAC;EAC9B,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;AACxB,CAAC;AAED,mFAAmF;AACnF,SAAgB,mBAAmB,CAAC,QAAQ,GAAG,KAAK;IAChD,MAAM,MAAM,GAAG,CAAC,0BAA0B,EAAE,MAAM,EAAE,SAAS,EAAE,SAAS,EAAE,OAAO,EAAE,qCAAqC,CAAC,CAAC;IAC1H,IAAI,QAAQ;QAAE,MAAM,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC;IACtC,OAAO,MAAM,CAAC;AAClB,CAAC;AAED,mDAAmD;AACtC,QAAA,aAAa,GAAG;IACzB,EAAE,EAAE,CAAC;IACL,OAAO,EAAE,CAAC;IACV,UAAU,EAAE,CAAC;IACb,WAAW,EAAE,CAAC;IACd,YAAY,EAAE,CAAC;IACf,eAAe,EAAE,CAAC;IAClB,IAAI,EAAE,CAAC;CACD,CAAC;AAEX;;;GAGG;AACH,SAAgB,qBAAqB,CAAC,MAAM,GAAG,MAAM;IACjD,OAAO,GAAG,MAAM;EAClB,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM,SAAS,CAAC;AAClB,CAAC;AAED,oFAAoF;AACpF,SAAgB,oBAAoB,CAAC,MAAM,GAAG,MAAM;IAChD,OAAO,GAAG,MAAM;EAClB,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM;EACN,MAAM,SAAS,CAAC;AAClB,CAAC;AAED;;;GAGG;AACU,QAAA,mBAAmB,GAAG;;;;;;;;;;;;;;;CAelC,CAAC;AAEF;;;GAGG;AACU,QAAA,qBAAqB,GAAG;;;;;;;;;;;;;;;;;;;;CAoBpC,CAAC","sourcesContent":["// The AppleScript fragments more than one macOS operation is built from.\nimport { asString } from './run';\nimport { readProfileAccounts } from './profile';\nimport { failureTag, InvalidRequestError, NotImplementedError } from '../errors';\nimport { FolderId, isOutgoingRoot } from '../mail';\nimport type { ItemFailure, MailFolderRef } from '../types';\n\n/**\n * An account as the generated AppleScript reaches it.\n *\n * `folderIds` carries what Outlook's profile database knows about the mailbox's\n * well-known folders — the only handle on a mailbox the dictionary publishes no\n * account object for (see profile.ts). It is filled in for every account the\n * profile lists, because the generated script chooses between the account\n * object and the folder id at run time; nothing here has to predict which kinds\n * of account a given Outlook build exposes.\n */\nexport interface MacAccount {\n    readonly emailAccount: string;\n    readonly folderIds?: Readonly<Record<string, number>>;\n}\n\n/** Look an address up in Outlook's profile database, for the folder ids it can add. */\nexport async function resolveMacAccount(emailAccount: string): Promise<MacAccount> {\n    const wanted = emailAccount.trim().toLowerCase();\n    const found = (await readProfileAccounts())\n        .find(account => account.emailAccount.trim().toLowerCase() === wanted);\n    return found ? { emailAccount, folderIds: found.folderIds } : { emailAccount };\n}\n\n/**\n * Resolve the account whose address matches into `targetAcct`, inside a\n * `tell application \"Microsoft Outlook\"` block.\n *\n * `every account` errors even in legacy mode, so the typed classes are probed.\n * A `whose email address is …` filter can't be used either: `email address` is\n * also a class name, and AppleScript resolves it as one.\n *\n * A mailbox the dictionary publishes no account object for leaves `targetAcct`\n * as `missing value` rather than failing, provided the profile gave a folder id\n * to reach it by. `needsAccountObject` is for composing mail, which can't work\n * without the object: the account a message is sent from can only be set from\n * it, and a message composed without it goes out from the default mailbox.\n */\nexport function accountLookupSnippet(acct: MacAccount, needsAccountObject = false): string {\n    const probe = `    set targetAcct to missing value\n    try\n        repeat with a in (exchange accounts & imap accounts & pop accounts)\n            if (email address of a as string) is ${asString(acct.emailAccount)} then\n                set targetAcct to a\n                exit repeat\n            end if\n        end repeat\n    end try`;\n    if (acct.folderIds && !needsAccountObject) return probe;\n    const complaint = acct.folderIds\n        ? `${failureTag('INVALID_REQUEST')}Outlook publishes no account object for '${acct.emailAccount}', `\n        + 'so the account a message is sent from cannot be set. Its folders can be read; mail cannot be composed from it.'\n        : `${failureTag('ACCOUNT_NOT_FOUND')}Account '${acct.emailAccount}' not found in Outlook.`;\n    return `${probe}\n    if targetAcct is missing value then error ${asString(complaint)}`;\n}\n\n/**\n * Bind `variable` to one of the account's well-known folders: through the\n * account object when the probe found one, else by the folder's own id. `mail\n * folder id N` resolves against the application rather than an account, and N is\n * the id Outlook's profile database records for that folder.\n */\nexport function rootFolderSnippet(acct: MacAccount, term: string, variable: string): string {\n    const viaAccount = `    set ${variable} to ${term} of targetAcct`;\n    const id = acct.folderIds?.[term];\n    if (id !== undefined) {\n        return `    if targetAcct is missing value then\n        set ${variable} to mail folder id ${id}\n    else\n${viaAccount}\n    end if`;\n    }\n    // The profile listed the mailbox but not this root, so the probe is the only\n    // way in — and it may have come up empty. Name the folder out of reach\n    // rather than let `<term> of missing value` say it.\n    if (acct.folderIds) {\n        const complaint = `${failureTag('NOT_FOUND', 'folder')}Account '${acct.emailAccount}' has no ${term} folder AppleScript can reach.`;\n        return `    if targetAcct is missing value then error ${asString(complaint)}\n${viaAccount}`;\n    }\n    return viaAccount;\n}\n\n/**\n * Outlook for Mac's dictionary term for each well-known root, by olDefaultFolders\n * id. Verified against the running app: the terms are NOT what the Windows names\n * suggest — `sent mail` and `junk email` don't compile, `sent items` and `junk\n * mail` do — and one bad term fails the whole script at compile time.\n */\nexport const MAC_ROOT_TERMS: Readonly<Record<number, string>> = {\n    [FolderId.Inbox]: 'inbox',\n    [FolderId.SentMail]: 'sent items',\n    [FolderId.Drafts]: 'drafts',\n    [FolderId.DeletedItems]: 'deleted items',\n    [FolderId.Outbox]: 'outbox',\n    [FolderId.Junk]: 'junk mail',\n};\n\n/** The date property a root's items carry. */\nexport function dateProperty(rootId: number): string {\n    return isOutgoingRoot(rootId) ? 'time sent' : 'time received';\n}\n\n/**\n * The Windows folder-path shape (`\\\\mailbox\\Inbox\\Invoices`), assembled in\n * TypeScript: escaping backslashes through a template literal and then an\n * AppleScript literal is unreadable, and the parts are known here anyway.\n */\nexport function macFolderPath(emailAccount: string, rootLabel: string, segments: readonly string[]): string {\n    return ['\\\\\\\\' + emailAccount, rootLabel, ...segments].join('\\\\');\n}\n\n/**\n * Walk a folder's `container` chain to the top as the list `chainNames`,\n * nearest first. Requires `theFolder`, and leaves `cur` on the folder the walk\n * stopped at: the account's nameless root folder, when it got that far.\n *\n * The chain's last element is the folder directly under the account, and an\n * account can't hold two top-level folders of one name, so comparing that name\n * is exact.\n */\nexport function folderChainSnippet(indent: string): string {\n    return `${indent}set chainNames to {}\n${indent}set cur to theFolder\n${indent}set guard to 0\n${indent}repeat while cur is not missing value and guard < 25\n${indent}    -- The account's root folder has a name of missing value, and coercing\n${indent}    -- that yields the STRING \"missing value\" — so test before coercing.\n${indent}    set rawName to missing value\n${indent}    try\n${indent}        set rawName to name of cur\n${indent}    end try\n${indent}    if rawName is missing value then exit repeat\n${indent}    set nm to rawName as string\n${indent}    if nm is \"\" then exit repeat\n${indent}    set end of chainNames to nm\n${indent}    set nextUp to missing value\n${indent}    try\n${indent}        set nextUp to container of cur\n${indent}    end try\n${indent}    set cur to nextUp\n${indent}    set guard to guard + 1\n${indent}end repeat`;\n}\n\n/** The dictionary term for a root, or NOT_IMPLEMENTED naming what was asked. */\nfunction rootTerm(ref: MailFolderRef, folderLabel = ''): string {\n    const term = MAC_ROOT_TERMS[ref.rootId];\n    if (!term) {\n        const asked = folderLabel ? ` (asked for '${folderLabel}')` : '';\n        throw new NotImplementedError(\n            `Reading the '${ref.rootLabel}' folder${asked}`,\n            `macOS, whose readable roots are ${Object.values(MAC_ROOT_TERMS).join(', ')}`,\n        );\n    }\n    return term;\n}\n\n/**\n * Resolve `scopeFolder` from `targetAcct`: a well-known root walked down through\n * any further segments. Also binds `scopeCreated`.\n *\n * Names compare with `is`, which is case-insensitive in AppleScript, matching\n * the Windows walk. A missing segment fails as NOT_FOUND rather than falling\n * back to the root; `createMissing` builds the chain instead.\n */\nexport function mailScopeSnippet(acct: MacAccount, ref: MailFolderRef, folderLabel = '', createMissing = false): string {\n    const term = rootTerm(ref, folderLabel);\n    const walk = ref.segments.map(segment => {\n        const complaint = `${failureTag('NOT_FOUND', 'folder')}Folder '${segment}' not found under '${ref.rootLabel}'.`;\n        const create = createMissing\n            ? `        set foundFolder to (make new mail folder at scopeFolder with properties {name:${asString(segment)}})\n        set scopeCreated to true`\n            : `        error ${asString(complaint)}`;\n        return `\n    set foundFolder to missing value\n    repeat with sf in (mail folders of scopeFolder)\n        if (name of sf as string) is ${asString(segment)} then\n            set foundFolder to sf\n            exit repeat\n        end if\n    end repeat\n    if foundFolder is missing value then\n${create}\n    end if\n    set scopeFolder to foundFolder`;\n    }).join('');\n    return `    set scopeCreated to false\n${rootFolderSnippet(acct, term, 'scopeFolder')}${walk}`;\n}\n\n/**\n * The message id text for a script, or INVALID_REQUEST.\n *\n * Outlook for Mac ids are small integers; a Windows EntryID is refused up front\n * rather than left to fail as a confusing \"not found\", because a caller that\n * persisted one from a Windows run needs to be told exactly that.\n */\nexport function macMessageId(entryId: string): string {\n    const id = String(entryId ?? '').trim();\n    if (!/^\\d+$/.test(id)) {\n        throw new InvalidRequestError(\n            `'${entryId}' is not an Outlook for Mac message id. Mac ids are small integers `\n            + '(e.g. \"1263\") listed on this machine; a Windows EntryID cannot be resolved here.',\n        );\n    }\n    return id;\n}\n\n/**\n * Split ids into those a script can look up and those that can only fail. A\n * batch reports an unusable id beside a genuine miss rather than throwing and\n * discarding the ids that would have worked.\n */\nexport function partitionMessageIds(entryIds: readonly string[]): { valid: string[]; invalid: ItemFailure[] } {\n    const valid: string[] = [];\n    const invalid: ItemFailure[] = [];\n    for (const entryId of entryIds) {\n        try {\n            valid.push(macMessageId(entryId));\n        } catch (error) {\n            invalid.push({ entryId: String(entryId), subject: '', error: (error as Error).message });\n        }\n    }\n    return { valid, invalid };\n}\n\n/**\n * Bind `theMsg` to a message id, or fail as NOT_FOUND. `message id N` resolves\n * against the application, so the message is found wherever it sits.\n */\nexport function messageLookupSnippet(id: string): string {\n    const complaint = `${failureTag('NOT_FOUND', 'email')}No email found for message id '${id}'. It may have been deleted - list the mail again for a current id.`;\n    return `    set theMsg to missing value\n    try\n        set theMsg to message id ${id}\n    end try\n    if theMsg is missing value then error ${asString(complaint)}`;\n}\n\n/**\n * `theMsg`'s sender as `sndName` / `sndAddr`. `sender` is a record, and\n * `address of sender of m` doesn't coerce, so the record is bound first.\n */\nexport function senderSnippet(indent = '    '): string {\n    return `${indent}set sndName to \"\"\n${indent}set sndAddr to \"\"\n${indent}try\n${indent}    set snd to sender of theMsg\n${indent}    try\n${indent}        set sndAddr to (address of snd) as string\n${indent}    end try\n${indent}    try\n${indent}        set sndName to (name of snd) as string\n${indent}    end try\n${indent}end try`;\n}\n\n/**\n * Everything a reader wants off one message bound to `theMsg`, emitted together\n * with the row it produces (see `messageDetailFields`) so the read order and the\n * positions the decoders index into cannot drift apart. `bodyText` is emitted\n * LAST when asked for, so a stray separator in an earlier field can't shift it.\n */\nexport function messageDetailSnippet(withBody = false, indent = '    '): string {\n    return `${indent}set subj to \"\"\n${indent}try\n${indent}    set subj to (subject of theMsg) as string\n${indent}end try\n${senderSnippet(indent)}\n${indent}set recvd to \"\"\n${indent}try\n${indent}    set recvd to my isoDate(time received of theMsg)\n${indent}on error\n${indent}    try\n${indent}        set recvd to my isoDate(time sent of theMsg)\n${indent}    end try\n${indent}end try\n${indent}set attNames to {}\n${indent}try\n${indent}    set attNames to name of every attachment of theMsg\n${indent}end try` + (withBody ? `\n${indent}set bodyText to \"\"\n${indent}try\n${indent}    set bodyText to (plain text content of theMsg) as string\n${indent}end try` : '');\n}\n\n/** The fields `messageDetailSnippet` fills, in row order — see `MessageDetail`. */\nexport function messageDetailFields(withBody = false): string[] {\n    const fields = ['(id of theMsg as string)', 'subj', 'sndName', 'sndAddr', 'recvd', 'my sanitizePositionalList(attNames)'];\n    if (withBody) fields.push('bodyText');\n    return fields;\n}\n\n/** Where each of those fields lands in the row. */\nexport const MessageDetail = {\n    id: 0,\n    subject: 1,\n    senderName: 2,\n    senderEmail: 3,\n    receivedTime: 4,\n    attachmentNames: 5,\n    body: 6,\n} as const;\n\n/**\n * `theMsg`'s first recipient as `sndName` / `sndAddr` — what outgoing mail\n * reports in place of a sender.\n */\nexport function firstRecipientSnippet(indent = '    '): string {\n    return `${indent}set sndName to \"\"\n${indent}set sndAddr to \"\"\n${indent}try\n${indent}    set rcps to to recipients of theMsg\n${indent}    if (count of rcps) > 0 then\n${indent}        set ea to email address of (item 1 of rcps)\n${indent}        try\n${indent}            set sndAddr to (address of ea) as string\n${indent}        end try\n${indent}        try\n${indent}            set sndName to (name of ea) as string\n${indent}        end try\n${indent}    end if\n${indent}end try`;\n}\n\n/** Every address `theMsg` was sent to — To, CC and BCC — as the list `addrList`. */\nexport function allRecipientsSnippet(indent = '    '): string {\n    return `${indent}set addrList to {}\n${indent}try\n${indent}    repeat with r in (every recipient of theMsg)\n${indent}        try\n${indent}            -- The record is bound before its field is read: a nested\n${indent}            -- 'address of (email address of r)' doesn't coerce, and fails\n${indent}            -- inside the try as an empty list rather than an error.\n${indent}            set ea to email address of r\n${indent}            set oneAddr to (address of ea) as string\n${indent}            if oneAddr is not \"\" then set end of addrList to oneAddr\n${indent}        end try\n${indent}    end repeat\n${indent}end try`;\n}\n\n/**\n * Recursive, case-insensitive, depth-capped folder search from `startFolder` —\n * the macOS counterpart of the Windows Find-FolderByName.\n */\nexport const FIND_FOLDER_HANDLER = `\non findFolderByName(startFolder, wantedName, depth)\n    tell application \"Microsoft Outlook\"\n        set subs to mail folders of startFolder\n    end tell\n    repeat with f in subs\n        if (name of f as string) is wantedName then return f\n    end repeat\n    if depth is less than or equal to 1 then return missing value\n    repeat with f in subs\n        set hit to my findFolderByName(f, wantedName, depth - 1)\n        if hit is not missing value then return hit\n    end repeat\n    return missing value\nend findFolderByName\n`;\n\n/**\n * Enumerate the accounts, probing each class separately: legacy Outlook errors\n * on `every account`, and New Outlook returns empty lists for the classes.\n */\nexport const LIST_ACCOUNTS_SNIPPET = `\nset acctList to {}\ntell application \"Microsoft Outlook\"\n    repeat with acctClass in {\"exchange\", \"imap\", \"pop\"}\n        try\n            if (acctClass as string) is \"exchange\" then\n                set accts to exchange accounts\n            else if (acctClass as string) is \"imap\" then\n                set accts to imap accounts\n            else\n                set accts to pop accounts\n            end if\n            repeat with a in accts\n                try\n                    set end of acctList to (email address of a as string)\n                end try\n            end repeat\n        end try\n    end repeat\nend tell\n`;\n"]}

package/dist/mac/send.d.ts

@@ -1,23 +1,13 @@
-import type { ReplyEmailParams, ReplyEmailResult, SendEmailParams } from '../types';
+import type { ReplyRequest, SendRequest } from '../backend';
+import type { ReplyEmailResult, SendEmailResult } from '../types';
+/** Send, display or file a new email; a filed draft reports its id. */
+export declare function sendOutlookEmail(request: SendRequest): Promise<SendEmailResult>;
 /**
- * Create an Outlook email as a draft window (or send it) via AppleScript.
- * Mirrors the Windows COM contract from windows/send.ts.
- */
-export declare function sendOutlookEmail(params: SendEmailParams): Promise<void>;
-/**
- * Reply to an email, inserting the caller's HTML above the quoted original.
- *
- * `entryId` is Outlook for Mac's small integer message id (see readInboxEmails),
- * not a Windows MAPI EntryID; `storeId` is accepted for signature parity and
- * ignored, since macOS has no StoreID and `message id N` resolves against the
- * application rather than one folder.
- *
- * `reply to` builds the quoted body Outlook itself would have — the same thing
- * COM's Reply() returns — so the insertion point is the one place the two
- * platforms have to agree, and both look for WordSection1 then `<body>`.
+ * Reply to an email with the composed HTML above the quoted original.
  *
- * The `to` line is the reply's resolved recipient addresses rather than the
- * display-name string Windows reports: Outlook for Mac exposes recipients as
- * records, and an address is the more useful half to verify against.
+ * `reply to` builds the same quoted body COM's Reply() returns, so the insertion
+ * point is the one thing the platforms must agree on (see WORD_SECTION_ANCHOR).
+ * `to` comes back as the reply's resolved addresses: Outlook for Mac exposes
+ * recipients as records, and the address is the half worth checking.
  */
-export declare function replyOutlookEmail(params: ReplyEmailParams): Promise<ReplyEmailResult>;
+export declare function replyOutlookEmail(request: ReplyRequest): Promise<ReplyEmailResult>;