At Sat, 16 Oct 2010 00:43:30 -0700, Erik Hetzner wrote: > > > 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. Hi, I realized what I posted last night doesn’t help too much. Here is one that remembers the directory you used last. Also, if you turn on ido-everywhere: M-x ido-everywhere You get an ido read-file-name, which might be faster. Hope that helps. best, Erik (defun mime-edit-insert-multiple-files () "Insert MIME parts from multiple files." (interactive) (let ((dir default-directory)) (catch 'done (while t (let ((next-file (expand-file-name (read-file-name "Insert file as MIME message: " dir)))) (setq dir (file-name-directory next-file)) (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 "Attach another? ")) (throw 'done nil)))))))
Sent from my free software system <http://fsf.org/>.
Attachment:
pgp88ygrqRNJ8.pgp
Description: PGP signature