-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 On 12/10/05 at 8:01 PM I saw PowerMail discussions type:
>Subject: Re: PGP in Tiger >From: "John Keegan" <[EMAIL PROTECTED]> >Date: Fri, 9 Dec 2005 23:10:29 -0500 > >>>*long ago*, PM did support PGP, it was even stated on their >>>website. I presume this was through applescripts. But while I've >>>dreamed to see it again and in a reasonable user-friendly way, the >>>PGP interface seems to have silently disappeared. >> >>Doesn't Services work under Tiger, John? That's what I use with PGP >>8.1, but I'm on Panther. > >I'm not sure if Services work under Tiger, I can't figure out how I >would make it work... I am just looking to be able to receive a PGP >encrypted email in Tiger, and decrypt it... In Panther and PGP 8.1, >there was a set of Applescripts which would decrypt or encrypt PGP >messages. Is there any way to use PGP to decrypt a message in Tiger >with Powermail? John, I wrote one of the original scripts to handle PGP from within Panther [with special kudos to merul and Andy Fragen] and use it to decrypt my messages permanently. The following script is for decrypting, but will replace the contents of the message with the decrypted version. Be aware that some lines may be wrapped by clients and servers alike, so cutting and pasting the script into ScriptEditor may require some minor fixing after pasting. If you have any questions let me know. Kename - --Start Script - --Use with caution. This will replace the contents of your - --message permanently with the decrypted information. tell application "PowerMail" set theMessages to current messages repeat with msg in theMessages try set windowContent to content of front window as Unicode text -- Get the message id of the selected message as well (Merul) set messageNum to ID of displayed message of front window on error set windowContent to "" end try if windowContent is not "" then -- Decrypt the content tell application "PGP" activate set windowContent to decrypt and verify text windowContent end tell activate set AppleScript's text item delimiters to the ASCII character 10 try set the lineList to every text item of windowContent set AppleScript's text item delimiters to the return set windowContent to the lineList as string set AppleScript's text item delimiters to "" try set content of front window to windowContent on error try set content of message id messageNum to windowContent on error make new message with properties {content:windowContent} end try end try on error set AppleScript's text item delimiters to "" end try else --Next line may need to be unwrapped display dialog "PGP Error: There is nothing to decrypt." with icon stop buttons {"Cancel"} default button 1 end if end repeat end tell - --End Script - -- - PowerMac G5 Dual 1.8GHz - Boot ROM Version: 5.1.4f0 - 1.5GB RAM, 160GB HD - OS X 10.4.3 (8F46) - PowerMail 5.2b4 (4376) - PGP 8.1 -----BEGIN PGP SIGNATURE----- Version: PGP 8.1 iQA/AwUBQ5s0xSZLwsGCCheCEQKxOACgpr9eqbuX1MFiFV/R+OJOQJVveo4AnjC9 2bkhs/LqoBlL/0q5McnGzF1M =WyAO -----END PGP SIGNATURE-----