[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Adding multiple attachments
- To: wl-en@lists.airs.net
- Subject: Re: Adding multiple attachments
- From: Erik Hetzner <ehetzner@gmail.com>
- Date: Sat, 16 Oct 2010 00:43:30 -0700
- Delivered-to: wl-en@lists.airs.net
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:received:received:message-id:date:from:to :subject:in-reply-to:references:user-agent:mime-version:content-type :content-transfer-encoding; bh=OJe5rVPS2Iq16Hg/7vj6XKXQYEEBvPlozRwogZKqi2M=; b=lMCvLshVugNghiP7XfP6CoBSStiN2aqfsNk2y8bj6CQAonOxab68abyWzoFfD5Ocbq YpR7AtBy9JNiGQ9LPy8bQgVeTWMokYbZ2a5C++7B+r2wRpvOuQs3MpCv3h50lxRxxfcl rAGcsHUWXfr6APRpb4qv2E+kKnlgvsc8p75bY=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=message-id:date:from:to:subject:in-reply-to:references:user-agent :mime-version:content-type:content-transfer-encoding; b=K+4AKEPjYf59Z2/vYIj0rie3Ms8VxoBZokfuzV8bxZhgvZcptXy1Eq/FjNyJXL2Srf YiR4nRj7xMq42r1fVQvQRO8Xqv+w6GIcAwyuLOTZ1sRJxJT/xjpVql5tEhUocaLQVGjD xF3DQAOYUHIBFfAgoATDeCdJPhYPphUuqAG7c=
- In-reply-to: <4CB94448.2060701@gmx.at>
- List-help: <mailto:wl-en-ctl@lists.airs.net?body=help>
- List-id: wl-en.lists.airs.net
- List-owner: <mailto:wl-en-admin@lists.airs.net>
- List-post: <mailto:wl-en@lists.airs.net>
- List-software: fml [fml stable 20011102.2100]
- List-unsubscribe: <mailto:wl-en-ctl@lists.airs.net?body=unsubscribe>
- References: <834oco2b26.wl%lists@groll.co.za> <4CB94448.2060701@gmx.at>
- Reply-to: wl-en@lists.airs.net
- User-agent: Wanderlust/2.15.9 (Almost Unreal) SEMI/1.14.6 (Maruoka) FLIM/1.14.9 (Gojō) APEL/10.8 Emacs/23.1 (i486-pc-linux-gnu) MULE/6.0 (HANACHIRUSATO)
At Sat, 16 Oct 2010 08:20:56 +0200,
Harald Judt wrote:
>
> Hi,
>
> On Fri, 15 Oct 2010 09:02:25 +0200 Jonathan Groll wrote:
> > Using Wanderlust, how can one add multiple attachments to an email
> > painlessly?
> >
> > Up until now I've been using C-c C-x TAB (mime-edit-insert-file), but
> > doing this multiple times and re-entering the file path multiple times
> > is highly inefficient.
>
> A long time ago, someone posted this function somewhere:
>
> (defun mime-edit-insert-multiple-files (name)
> "Function to insert multiple files, e.g. `~/images/*.jpg'"
> (let (file-list)
> (setq file-list (file-expand-wildcards name))
> (while (car file-list)
> (mime-edit-insert-file (car file-list))
> (setq file-list (cdr file-list)))))
>
> I hope this helps.
It would be nice to prompt the user for multiple files, & easily
enough done:
(defun mime-edit-insert-multiple-files ()
"Insert MIME parts from multiple files."
(interactive)
(catch 'done
(while t
(let ((next-file (expand-file-name
(read-file-name "Insert file as MIME message: "))))
(if (and (file-exists-p next-file)
(file-regular-p next-file))
(mime-edit-insert-file next-file t)
(throw 'done nil)))
(if (not (y-or-n-p "Insert another? "))
(throw 'done nil)))))
Maybe something like this could be in SEMI?
best, Erik
Attachment:
pgpWIaVCiVcaW.pgp
Description: PGP signature