On 25 Mar 2011, Julien Danjou wrote: > [1 <text/plain; utf-8 (quoted-printable)>] > On Thu, Mar 24 2011, Cian wrote: > >> Can you separate out the gnus specific code at some point. If I ever >> get any time (two small children and a day job, so big if) I'd like to >> integrate it into Wanderlust. But currently the code assumes that >> you're using gnus. > > Sure, I'll add that to my todo list.
I've wrote some code at least for template support:
#+BEGIN_SRC emacs-lisp
(require 'std11) ; from FLIM
(require 'wl-address) ; from Wanderlust
(defun wl-get-from-header-content (buffer)
(save-excursion
(set-buffer buffer)
(std11-narrow-to-header)
(prog1
(std11-fetch-field "From")
(widen))))
(defun org-contacts-template-wl-name ()
(wl-address-header-extract-realname (wl-get-from-header-content
(org-capture-get :original-buffer))))
(defun org-contacts-template-wl-email ()
(wl-address-header-extract-address (wl-get-from-header-content
(org-capture-get :original-buffer))))
#+END_SRC
Because Wanderlust keeps several message buffers you have to start
capture from within a message buffer, not a summary buffer. But I'll
look into it.
Michael
pgp4j9w8yAfos.pgp
Description: PGP signature
