[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Adding multiple attachments
At Sun, 17 Oct 2010 15:14:21 +0200,
Jonathan Groll wrote:
>
> Okay, here's what I've cobbled together for my .wl:
Nice! If this works, IMO it should just replace the default
for `C-c C-x TAB' :-)
> ;;Cobbled together from posts by Erik Hetzner & Harald Judt to
> ;; wl-en@lists.airs.net
>
> (defun mime-edit-insert-multiple-files ()
> "Insert MIME parts from multiple files."
> (interactive)
> (let ((dir default-directory))
> (let ((next-file (expand-file-name
> (read-file-name "Insert file as MIME message: "
> dir))))
> (setq file-list (file-expand-wildcards next-file))
> (while (car file-list)
> (mime-edit-insert-file (car file-list))
> (setq file-list (cdr file-list))))))
>
> (global-set-key "\C-c\C-x\C-a" 'mime-edit-insert-multiple-files)
>
> Cheers,
> JJG
> --
> jjg: Jonathan J. Groll : groll co za
> has_one { :blog => "http://bloggroll.com" }
>
--
Dave Abrahams
BoostPro Computing
http://www.boostpro.com