From: Carsten Dominik <dominik@science.uva.nl>
To: Tokuya Kameshima <kames@fa2.so-net.ne.jp>
Cc: emacs-orgmode@gnu.org
Subject: Re: patch for Wanderlust 2.15.5
Date: Mon, 19 Feb 2007 18:16:56 +0100 [thread overview]
Message-ID: <d312fad04c01d7dce1868a2783f8c62c@science.uva.nl> (raw)
In-Reply-To: <u8xeu9kfo.wl%kames@fa2.so-net.ne.jp>
Looks fine to me, I cannot test it, but take your work for it.
Thank you very much.
- Carsten
On Feb 19, 2007, at 17:33, Tokuya Kameshima wrote:
> Hello.
>
> How about the following code for the "to" field. This is a quick hack
> but works fine for me.
>
> Thanks.
> --Tokuya
>
> ----------------------------------------------------------------------
> (elmo-msgdb-overview-get-entity
> msgnum (wl-summary-buffer-msgdb))))
> (from (wl-summary-line-from))
> + (to (car (elmo-message-entity-field wl-message-entity 'to)))
> (subject (let (wl-thr-indent-string wl-parent-message-entity)
> (wl-summary-line-subject))))
> - (org-store-link-props :type "wl" :from from :to "???"
> + (org-store-link-props :type "wl" :from from :to to
> :subject subject :message-id message-id)
> (setq message-id (org-remove-angle-brackets message-id))
> ----------------------------------------------------------------------
>
> On Mon, 19 Feb 2007 16:35:44 +0100,
> Carsten Dominik <dominik@science.uva.nl> wrote:
>>
>> This is very nice, thank your very much. Since you are at it,
>> what do I have to do to get the "to" field in org-store-link? This is
>> a part I am still missing.
>> Thanks.
>>
>> - Carsten
>> On Feb 19, 2007, at 16:02, Tokuya Kameshima wrote:
>>
>>> Hello.
>>>
>>> Recently, I have started using org-mode found it's very great tool.
>>>
>>> I have a problem to access the 'wl' links in org-mode, where I uses
>>> Wanderlust to visit the imap folders. This is my patch to org.el
>>> 4.65
>>> for Wanderlust 2.15.5.
>>>
>>> Thanks.
>>> --Tokuya
>>>
>>>
>>> --- org.el-4.65 Sat Feb 17 23:44:37 2007
>>> +++ org.el Mon Feb 19 14:37:38 2007
>>> @@ -9000,7 +9000,8 @@
>>> (elmo-msgdb-overview-get-entity
>>> msgnum (wl-summary-buffer-msgdb))))
>>> (from (wl-summary-line-from))
>>> - (subject (wl-summary-line-subject))) ; FIXME: untested
>>> + (subject (let (wl-thr-indent-string wl-parent-message-entity)
>>> + (wl-summary-line-subject))))
>>> (org-store-link-props :type "wl" :from from :to "???"
>>> :subject subject :message-id message-id)
>>> (setq message-id (org-remove-angle-brackets message-id))
>>> @@ -10072,10 +10073,19 @@
>>>
>>> (defun org-follow-wl-link (folder article)
>>> "Follow a Wanderlust link to FOLDER and ARTICLE."
>>> - (setq article (org-add-angle-brackets article))
>>> + (if (and (string= folder "%")
>>> + article
>>> + (string-match "^\\([^#]+\\)\\(#\\(.*\\)\\)?" article))
>>> + ;; XXX: imap-uw supports folders starting with '#' such as
>>> "#mh/inbox".
>>> + ;; Thus, we recompose folder and article ids.
>>> + (setq folder (format "%s#%s" folder (match-string 1 article))
>>> + article (match-string 3 article)))
>>> + (if (not (elmo-folder-exists-p (wl-folder-get-elmo-folder
>>> folder)))
>>> + (error "No such folder: %s" folder))
>>> (wl-summary-goto-folder-subr folder 'no-sync t nil t nil nil)
>>> - (if article (wl-summary-jump-to-msg-by-message-id article))
>>> - (wl-summary-redisplay))
>>> + (and article
>>> + (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets
>>> article))
>>> + (wl-summary-redisplay)))
>>>
>>> (defun org-follow-rmail-link (folder article)
>>> "Follow an RMAIL link to FOLDER and ARTICLE."
>>>
>>>
>>> _______________________________________________
>>> Emacs-orgmode mailing list
>>> Emacs-orgmode@gnu.org
>>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>>
>>>
>>
>> --
>> Carsten Dominik
>> Sterrenkundig Instituut "Anton Pannekoek"
>> Universiteit van Amsterdam
>> Kruislaan 403
>> NL-1098SJ Amsterdam
>> phone: +31 20 525 7477
>>
>
>
--
Carsten Dominik
Sterrenkundig Instituut "Anton Pannekoek"
Universiteit van Amsterdam
Kruislaan 403
NL-1098SJ Amsterdam
phone: +31 20 525 7477
prev parent reply other threads:[~2007-02-19 17:17 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-02-19 15:02 patch for Wanderlust 2.15.5 Tokuya Kameshima
2007-02-19 15:35 ` Carsten Dominik
2007-02-19 16:33 ` Tokuya Kameshima
2007-02-19 17:16 ` Carsten Dominik [this message]
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=d312fad04c01d7dce1868a2783f8c62c@science.uva.nl \
--to=dominik@science.uva.nl \
--cc=emacs-orgmode@gnu.org \
--cc=kames@fa2.so-net.ne.jp \
/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).