That code used to work, I heavily use it, yet no more since 3.9.4. It hangs at select theGroup
, with select
command which indeed can’t be found (anymore) in the applescript dictionnary.
What changed? How to adapt it?
on run
tell application id "DNtp"
set theRecords to selected records
set firstRecord to first item of theRecords
add custom meta data "article" for "type" to firstRecord
set theGroup to create record with {name:(get name of firstRecord), type:group} in current group
set exclude from see also of theGroup to false
set exclude from classification of theGroup to false
set exclude from tagging of theGroup to true
add custom meta data "article" for "type" to theGroup
move record theRecords to theGroup
select theGroup
end tell
end run