From: Michael Markert <markert.michael@googlemail.com>
To: Julien Danjou <julien@danjou.info>
Cc: emacs-orgmode@gnu.org
Subject: Re: Re: Completing with anything
Date: Sun, 27 Mar 2011 00:40:07 +0100 [thread overview]
Message-ID: <87bp0xxxgo.wl%markert.michael@googlemail.com> (raw)
In-Reply-To: <87fwq9fsf4.wl%markert.michael@googlemail.com>
[-- Attachment #1.1: Type: text/plain, Size: 276 bytes --]
On 26 Mar 2011, Michael Markert wrote:
> 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.
Attached code handles both capturing from summary and message
buffer.
Michael
[-- Attachment #1.2: org-contacts-wl.el --]
[-- Type: text/plain, Size: 1211 bytes --]
(require 'std11)
(require 'elmo)
(require 'wl-address)
(require 'wl-summary)
(defun wl-get-from-header-content ()
(save-excursion
(set-buffer (org-capture-get :original-buffer))
(cond
((eq major-mode 'wl-summary-mode) (when wl-summary-buffer-elmo-folder
(elmo-message-field
wl-summary-buffer-elmo-folder
(wl-summary-message-number)
'from)))
((eq major-mode 'mime-view-mode) (std11-narrow-to-header)
(prog1
(std11-fetch-field "From")
(widen))))))
(defun org-contacts-template-wl-name (&optional return-value)
(let ((from (wl-get-from-header-content)))
(or (and from (wl-address-header-extract-realname from))
return-value
"%^{Name}")))
(defun org-contacts-template-wl-email (&optional return-value)
(let ((from (wl-get-from-header-content)))
(or (and from (wl-address-header-extract-address from))
return-value
(concat "%^{" org-contacts-email-property "}p"))))
[-- Attachment #1.3: Type: text/plain, Size: 1 bytes --]
[-- Attachment #2: Type: application/pgp-signature, Size: 836 bytes --]
next prev parent reply other threads:[~2011-03-26 23:40 UTC|newest]
Thread overview: 93+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-02-09 9:02 Announcing org-contacts, a bbdb-like contact manager for Org Julien Danjou
2011-02-09 19:00 ` John Hendy
2011-02-09 20:04 ` Sébastien Vauban
2011-02-09 20:43 ` Julien Danjou
2011-02-09 21:10 ` Russell Adams
2011-02-09 21:25 ` Marcelo de Moraes Serpa
2011-02-09 20:42 ` Julien Danjou
2011-02-10 14:34 ` John Hendy
2011-02-10 14:42 ` Julien Danjou
2011-02-09 19:16 ` Tassilo Horn
2011-02-09 19:26 ` John Hendy
2011-02-10 13:39 ` Dan Griswold
2011-02-10 14:42 ` Julien Danjou
2011-02-10 14:45 ` Dan Davison
2011-02-10 14:56 ` Julien Danjou
2011-02-10 15:05 ` John Hendy
2011-02-10 15:08 ` Dan Davison
2011-02-10 15:26 ` Rodrigo Lazo
2011-02-10 16:30 ` Tassilo Horn
2011-02-10 16:56 ` Julien Danjou
2011-02-10 18:20 ` Stefan Monnier
2011-02-11 10:21 ` [Orgmode] " Tassilo Horn
2011-02-11 14:47 ` Stefan Monnier
2011-02-11 20:15 ` Tassilo Horn
2011-02-11 23:08 ` Stefan Monnier
2011-02-12 18:37 ` Tassilo Horn
2011-02-20 16:58 ` Julien Danjou
2011-03-18 15:00 ` Completing with anything (was: [Orgmode] Re: Announcing org-contacts, a bbdb-like contact manager for Org) Julien Danjou
2011-03-18 18:16 ` Completing with anything Stefan Monnier
2011-03-21 11:23 ` Julien Danjou
2011-03-21 12:51 ` Tassilo Horn
2011-03-21 13:36 ` Julien Danjou
2011-03-21 14:17 ` Tassilo Horn
2011-03-21 16:27 ` Stefan Monnier
2011-03-21 16:55 ` Dimitri Fontaine
2011-03-21 17:04 ` Julien Danjou
2011-03-21 22:00 ` Stefan Monnier
2011-03-22 3:01 ` Eric Abrahamsen
2011-03-22 14:13 ` Eric S Fraga
2011-03-22 15:02 ` Eric Abrahamsen
2011-03-23 9:45 ` Julien Danjou
2011-03-23 14:13 ` Eric S Fraga
2011-03-23 15:05 ` Julien Danjou
2011-03-23 16:03 ` Eric S Fraga
2011-03-24 20:15 ` Cian
2011-03-25 10:16 ` Julien Danjou
2011-03-26 22:06 ` Michael Markert
2011-03-26 23:40 ` Michael Markert [this message]
2011-04-09 12:13 ` Julien Danjou
2011-04-09 13:54 ` Michael Markert
2011-04-11 9:24 ` Julien Danjou
2011-04-11 9:37 ` Bastien
2011-04-11 13:42 ` Michael Markert
2011-04-30 13:39 ` Michael Markert
2011-05-03 8:09 ` Julien Danjou
2011-03-22 10:00 ` Aankhen
2011-03-22 11:57 ` Tassilo Horn
2011-03-22 12:03 ` Julien Danjou
2011-03-22 12:31 ` Tassilo Horn
2011-03-21 15:19 ` Stefan Monnier
2011-03-21 15:54 ` Julien Danjou
2011-04-09 15:11 ` Julien Danjou
2011-04-10 4:03 ` Stefan Monnier
2011-04-11 9:21 ` Julien Danjou
2011-04-12 3:42 ` Stefan Monnier
2011-04-12 9:48 ` Julien Danjou
2011-05-04 15:07 ` Stefan Monnier
2011-05-04 15:34 ` Julien Danjou
2011-05-24 3:14 ` Stefan Monnier
2011-05-24 7:33 ` Julien Danjou
2011-05-24 9:16 ` Antoine Levitt
2011-05-24 12:47 ` Stefan Monnier
2011-05-24 13:18 ` Antoine Levitt
2011-05-24 14:04 ` Stefan Monnier
2011-05-24 14:05 ` Stefan Monnier
2011-05-24 14:45 ` Antoine Levitt
2011-05-24 18:05 ` Stefan Monnier
2011-05-24 18:30 ` Antoine Levitt
2011-05-26 2:23 ` Stefan Monnier
2011-05-26 7:50 ` Antoine Levitt
2011-05-28 2:15 ` Stefan Monnier
2011-02-11 11:08 ` Announcing org-contacts, a bbdb-like contact manager for Org Thierry Volpiatto
2011-02-11 15:08 ` Darlan Cavalcante Moreira
2011-02-23 11:09 ` Julien Danjou
2011-02-12 12:18 ` Bastien
2011-02-12 16:35 ` John Hendy
2011-02-12 17:12 ` Bastien
2011-02-23 11:11 ` Julien Danjou
2011-02-12 19:42 ` Matt Lundin
2011-02-23 11:14 ` Julien Danjou
2011-02-14 18:24 ` Wes Hardaker
2011-02-23 11:10 ` Julien Danjou
2011-02-26 17:26 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87bp0xxxgo.wl%markert.michael@googlemail.com \
--to=markert.michael@googlemail.com \
--cc=emacs-orgmode@gnu.org \
--cc=julien@danjou.info \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).