Hello CheshireKat,
Thanks for your reply. That's pretty neat, and it does successfully
(permanently) insert the date & "cheshirekat". But when I try to type on
it I still get the same message from PM5; "This s a received message. You
can't modify it. Do you want to copy it to a new message?" My answer is
no, I just wanted to trim this message of junk, join 2 messages in one
place, or make a note to myself about it. So this doesn't quite do it for
me. But take a look at the following...
Below I have pasted an old applescript for Claris Emailer. It is for
replacing all or part of an incoming message with whatever text is
currently already copied on the clipboard. I've used this script for
years & it worked great. Nicely done. What would it take to update this
script to work with PowerMail 5? Can I trade you for something I can do
for you?
Best,
Dave Nathanson
Mac Medix
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
=-=-=-=
-- Script to replace message of open Emailer message with clipboard contents
-- Allen Watson, 5/25/99
tell application "Claris Emailer"
activate
try
set theMsg to the displayed message of the front window
on error
display dialog "There must be an open message for this script
to work"
return
end try
try
set theCopy to (the clipboard) as text
on error
display dialog "Cannot access clipboard; may be empty."
end try
if length of theCopy = 0 then
display dialog "Clipboard empty; nothing to replace WITH"
return
end if
try
set snippet to text 1 thru 60 of (theCopy as text)
on error
set snippet to theCopy as text
end try
display dialog "Choose: Replace entire message contents with clipboard?
or replace selection?
1st 60 characters are: " & snippet buttons {"Contents", "Selection",
"Cancel"} default button 1
set theChoice to button returned of result
if theChoice = "Cancel" then return
if theChoice = "Contents" then
set the content of theMsg to theCopy
else
set theWindow to the front window
set theSel to selection of theWindow
set howLong to length of theSel
if howLong = 0 then
display dialog "Nothing selected."
return
end if
set theWhole to content of theMsg
set whereTo to (offset of theSel in theWhole)
--Pick out parts before and after theSel; handle when first/last
character selected
if whereTo <= 1 then
set partA to ""
else
set partA to text 1 thru (whereTo - 1) of theWhole
end if
if (whereTo + (length of theSel)) >= (length of theWhole) then
set partB to ""
else
set partB to text (whereTo + howLong) thru -1 of
theWhole
end if
set theNew to partA & theCopy & partB
set the content of theMsg to theNew as text
end if
end tell
