Auto-rewrap

What is this?
This is a script that should be attached to the "Reply to sender" menu command (see the manual for how to do that). It will rewrap the orginal message when you want to reply to it. It comes in two flavours, the first is the basic one that only do the rewrap part the second will also automatically answer subscription confirmations and turn on various options that Terje likes.


on menuselect(menuName, itemName)
  return false
end menuselect

on postmenuselect(menuName, itemName)
  select text 1 of message window 1
  rewrap quoted text selection of message window 1 width 75 ¬
    indentation none with paragraph fill and removing quote spaces
end postmenuselect



Second version

on menuselect(menuName, itemName)
  return false
end menuselect

on postmenuselect(menuName, itemName)
  if menuName = "Message" and itemName = "Reply to Sender" then
    tell application "Mailsmith 1.5"
      set myWin to message window 1
      select text 1 of myWin
      if (subject of myWin contains "-- confirmation of subscription --") then
        delete selection of myWin
        set use signature of myWin to false
        queue myWin
        display dialog "Subscription Confirmation has been Queued for sending."
      else
        set show cursor position of myWin to true
        set show line numbers of myWin to true
        set show tab stops of myWin to true
        set show status bar of myWin to false
        set zoomed of myWin to true
        rewrap quoted text selection of message window 1 width 75 ¬
          indentation none with paragraph fill and removing quote spaces
      end if
    end tell
  end if
end postmenuselect