Re: [O] Re: Completing with anything

[Michael Markert]

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

pgpi59itLMjlh.pgp
Description: PGP signature