Ruben,  That's it!  I was able to correct the problem by including a 
subroutine that replaces "%23" with "#".  It might help with BusyCal as 
well...

   (*

Script to forward email to nozbe

Originally by Mark Anning (thanks!)

Modified and enhanced by Michael Sliwinski

http://www.nozbe.com/


Installation: Copy to your home directory/Libary/Scripts and launch using 
Scripts Menu in Menubar

or use the Automator.app to create a service:

1. Open Automator.app and "New Service"

2. Choose "Run AppleScript" action

3. Mark that service receives "no input" in "Mail.app"

4. Clear the script template there and paste this script

5. Save and give it a name like: "Nozbe - Email to Action"

6. (optional & recommended) Go to "System Preferences" and "Keyboard" and 
"Keyboard Shortcuts" and "Services" and scroll down to find this service and 
give it a shortcut. I gave it Shift+Option+N and it works great :-)

Enjoy!

*)



*repeat*

*set* theResult *to* *display dialog* "What is the action for this message?" 
default answer "Example: Send Followup #Inbox @Mail"

*set* theName *to* text returned *of* theResult

*if* (theName *does not* *start with* "Example:") *then*

 *exit* *repeat*

*end* *if*

*end* *repeat*


-- Your Nozbe email address

*set* nozbe *to* "[email protected]"


*on* replace_chars(this_text, search_string, replacement_string)

*set* AppleScript's text item delimiters *to* *the* search_string

*set* *the* item_list *to* *every* *text item* *of* this_text

*set* AppleScript's text item delimiters *to* *the* replacement_string

*set* this_text *to* *the* item_list *as* *string*

*set* AppleScript's text item delimiters *to* ""

*return* this_text

*end* replace_chars


*tell* *application* "Mailplane"

*set* urlText *to* currentURL *as* *Unicode text*

*end* *tell*


*set* urltext2 *to* replace_chars(urlText, "%23", "#")


*tell* *application* "Mailplane"

*set* urlsubject *to* currentTitle

*set* urlcontent *to* currentMessageText *as* *Unicode text*

*set* m *to* *make* new *outgoing message* with properties {directlySend:
false, optimizeAttachments:true}

*tell* m

 *set* r *to* *make* new *to recipient* at *end*

 *tell* r

 *set* address *to* nozbe

 *end* *tell*

 *set* subject *to* urlsubject & "link:"

 *set* content *to* "\"Open in Mailplane\":" & urltext2 & return & return & 
"Subject: *" & urlsubject & "*" & return & return & urlcontent & return & "* 
" & theName & " " & "\"Link\":" & urltext2 *as* *Unicode text*

*end* *tell*

*compose* m

*end* *tell*

-- 
You received this message because you are subscribed to the Google Groups 
"mailplaneapp" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to 
[email protected].
For more options, visit this group at 
http://groups.google.com/group/mailplaneapp?hl=en.

Reply via email to