-----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-----
