Send Photos to iPhoto1.0.0b1

I wrote this for my Mom because she kept asking me how to get photos in an email into iPhoto. I found it useful myself too. There is no "send all to iPhoto" button in Mail.app. You'd think there would be, but there isn't. The only direct way to do it in Mail.app is to start a slideshow and then manually send each photo, individually, to iPhoto. Plus there's no easy way to send all the photos in multiple messages to iPhoto. With Send Photos To iPhoto you select or open a message containing photos in Mail.app and run the script (put it in your Dock for convenient access). That's it. You can also select multiple messages in Mail.app and Send Photos To iPhoto will operate on all the messages at once, only pulling out the images, ignoring any other attachments and messages without photos in them, and sending them all to iPhoto as one "Roll". As a plus you can also drag-and-drop one or more photos onto Send Photos To iPhoto and it will send them to iPhoto, which is a lot more convenient than uncovering and/or re-arranging windows in order to be able to see the Library "album" in iPhoto in order to drag onto it (you can't drag onto iPhoto's application icon if you are dragging more than one file - why I don't know!) This will work from any application that lets you drag-and-drag image files, such as the Finder, but also Mail.app and other applications. Hopefully this makes the purpose of this script clear and I hope somebody else out there finds it useful.