[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