On 22/9/2004 at 2:59 PM I saw Dr Dave type:
>What it does do is write the time & date at the top of the message.
>However, when I try to type anything myself, PowerMail tells me that this
>is an incoming message, and do I want to duplicate it? No, I don't I just
>want to delete some of this one, or maybe add a comment to myself.
>
>Does anyone have an updated script to enable editing of incoming messages?
>Thanks
Here's a swipe at it...
This is set up based on how I work through the messages in a list. Any
changes made will insert the line:
[Edited on: <current_date>]
at the top of the message. Other things can be filled in there as well.
If you don't want the "Edited" message, feel free to delete that part.
If you don't want to work with multiple messages, you can delete the 2nd
and 3rd lines and the next to last line.
{Also, just because I forget this 90% of the time I copy scripts, make
sure that the wrapped lines are either reconnected or end with the ¬
[newline in applescript].}
<applescript>
tell application "PowerMail"
set messageList to the current messages
repeat with theMessage in messageList
set theContent to content of theMessage
tell me to set newContent to text returned ¬
of (display dialog "Change Content:" default answer
theContent)
if newContent is not theContent then ¬
set content of theMessage to ¬
("[Edited on: " & ((current date) as text) &
"]" & return & newContent)
end repeat
end tell
</applescript>
Again, great thanks to Wayne and Sub and the other great icons of
scriptitude on the list for their great inspiration.
