Search Mailboxes II

What is this?
What is the syntax to search all mailboxes for any messages whose label is "Some Label" and then open a message list window with those messages. (A Query Results window would, of course, be much nicer.) I've tried what seemed obvious to me (but I won't show it so I won't be ridiculed ;-)), but it didn't work.

You can't. At present, you need to loop over all mailboxes and run the query for each mailbox. You will end up with a search results window for each mailbox. The other would be nice, but you cannot do it at present. Here is an example ... [deleted]

Here is a slightly modified version of Jim's script which opens up a new query results window for each mailbox that has unread messages showing only the unread messages.


on run
    tell application "Mailsmith 1.1"
        set ct to count mailboxes
        repeat with i from 1 to ct
            set obj to mailbox i
            my process_mailbox(obj)
        end repeat
    end tell
end run

on process_mailbox(mbox)
    tell application "Mailsmith 1.1"
        set n to name of mbox
        if (exists (messages of mbox whose seen is false)) then
            set the_name to "Unread messages: " & n
            make new mail list window with properties {name:the_name} with data (messages of mbox whose seen is false)
        end if
        set ct to count mailboxes of mbox
        repeat with i from 1 to ct
            set obj to mailbox i of mbox
            my process_mailbox(obj)
        end repeat
    end tell
end process_mailbox