├── Commands
    └── Add.mmCommand
├── README.mdown
├── Support
    └── bin
    │   └── add
└── info.plist


/Commands/Add.mmCommand:
--------------------------------------------------------------------------------
1 | {
2 | 	name          = 'Add...';
3 | 	input         = 'raw';
4 | 	environment   = 'MM_SUBJECT=${subject.prefix:+${subject.prefix} }${subject.blob:+[${subject.blob}] }${subject.body:no subject}\nMM_MESSAGE_ID=${message-id.split}\n';
5 | 	command       = '#!/bin/bash\n"${MM_BUNDLE_SUPPORT}/bin/add"';
6 | 	keyEquivalent = "^A";
7 | 	uuid          = 'CD68E028-9ED9-4B26-988E-D57B955A79F3';
8 | }
9 | 


--------------------------------------------------------------------------------
/README.mdown:
--------------------------------------------------------------------------------
 1 | # Installation
 2 | 
 3 | You can install this bundle in MailMate by opening the preferences and going to the bundles tab. After installation it will be automatically updated for you.
 4 | 
 5 | # License
 6 | 
 7 | If not otherwise specified (see below), files in this repository fall under the following license:
 8 | 
 9 | 	Permission to copy, use, modify, sell and distribute this
10 | 	software is granted. This software is provided "as is" without
11 | 	express or implied warranty, and with no claim as to its
12 | 	suitability for any purpose.
13 | 
14 | An exception is made for files in readable text which contain their own license information, or files where an accompanying file exists (in the same directory) with a “-license” suffix added to the base-name name of the original file, and an extension of txt, html, or similar.


--------------------------------------------------------------------------------
/Support/bin/add:
--------------------------------------------------------------------------------
 1 | #!/bin/bash
 2 | 
 3 | tmpfile="$TMPDIR/8D444CFE-C1F9-4F82-AD8B-4EA7EC7A77C2.eml"
 4 | cat > "${tmpfile}"
 5 | 
 6 | # Tricky substitution to make it work for " and \ in the AppleScript below.
 7 | name=${MM_SUBJECT//\\/\\\\}
 8 | name=${name//\"/\\\"}
 9 | url="message://%3c${MM_MESSAGE_ID}%3e"
10 | 
11 | osascript <<END
12 | 
13 | try
14 | 	tell application id "DNtp"
15 | 		set theRecord to import "${tmpfile}" from "MailMate" name "${name}"
16 | 		set modification date of theRecord to creation date of theRecord
17 | 		set the URL of theRecord to "${url}" # Allows it to be opened in MailMate using ⌃⌘O
18 | 	        display notification "Added message \"${name}\" to DEVONthink" with title "MailMate"
19 | 	end tell
20 | on error errMsg number eNum
21 | 	tell application "System Events"
22 | 		activate
23 | 		display alert "DEVONThink: " & eNum message errMsg
24 | 	end tell
25 | end try
26 | 
27 | END
28 | 
29 | unlink "${tmpfile}"
30 | 


--------------------------------------------------------------------------------
/info.plist:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="UTF-8"?>
 2 | <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
 3 | <plist version="1.0">
 4 | <dict>
 5 | 	<key>contactEmailRot13</key>
 6 | 	<string>zz-ohaqyrf@sereba.pbz</string>
 7 | 	<key>contactName</key>
 8 | 	<string>Benny Kjær Nielsen</string>
 9 | 	<key>description</key>
10 | 	<string>Archive emails in DEVONthink Pro.</string>
11 | 	<key>name</key>
12 | 	<string>DEVONthink Pro</string>
13 | 	<key>uuid</key>
14 | 	<string>C0AAFCE0-ECEB-46CF-941E-0AE2C406B5EA</string>
15 | </dict>
16 | </plist>
17 | 


--------------------------------------------------------------------------------