set destination_group_location to "/url/delicious/"
 
tell application "NetNewsWire"
	set userInput to text returned of (display dialog "Enter Tag:" default answer "untagged")
 
	set h_tags to userInput
 
	set AppleScript's text item delimiters to space
	set h_tags to h_tags's text items
	set AppleScript's text item delimiters to {""}--> restore delimiters'
 
	try
		if (index of selected tab is not 0) then
			set tabnum to index of selected tab + 1
			set taburls to URLs of tabs
			set h_URL to (get item tabnum of taburls)
			set tabtitles to titles of tabs
			set h_title to (get item tabnum of tabtitles)
			set h_mdate to get current date
			set h_when to current date
 
		else if exists selectedHeadline then
			set h_URL to URL of selectedHeadline
			set h_title to title of selectedHeadline
			set h_mdate to get current date
			if exists date published of selectedHeadline then
				set h_when to date published of selectedHeadline
			else
				set h_when to date arrived of this_headline
			end if
		else
			error "No headline is selected."
		end if
	on error error_message number error_number
		if the error_number is not -128 then
			try
				display alert "NetNewsWire" message error_message as warning
			on error number error_number
				if error_number is -1708 then display dialog error_message buttons {"OK"} default button 1
			end try
		end if
	end try
 
	tell application "DEVONthink Pro"
		if item 1 of h_tags is "private" then
			set destination_group_location to destination_group_location & item 2 of h_tags
		else
			set destination_group_location to destination_group_location & item 1 of h_tags
		end if
 
		if not (exists record at destination_group_location) then
			set destination_group to create location destination_group_location
		else
			set destination_group to get record at destination_group_location in current database
		end if
 
		set archive to create record with {name:h_title, type:html, creation date:h_when, modification date:h_mdate, URL:h_URL, comment:userInput} in destination_group
		set source of archive to download markup from h_URL
 
	end tell
 
	tell application "Cocoalicious"
		if item 1 of h_tags is not "private" then
			make new post with properties {description:h_title, url:h_URL, tag string:userInput}
		end if
	end tell
 
end tell