From mboxrd@z Thu Jan 1 00:00:00 1970 From: Tokuya Kameshima Subject: Re: patch for Wanderlust 2.15.5 Date: Tue, 20 Feb 2007 01:33:15 +0900 Message-ID: References: <3ecf0454e16c0b5f333cb214d4e0cf0e@science.uva.nl> Mime-Version: 1.0 (generated by SEMI 1.14.5 - "Awara-Onsen") Content-Type: text/plain; charset=US-ASCII Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HJBS6-0001FH-FP for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 11:33:22 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HJBS3-0001ES-3l for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 11:33:21 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HJBS2-0001EJ-UA for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 11:33:18 -0500 Received: from mx09.ms.so-net.ne.jp ([202.238.82.9]) by monty-python.gnu.org with esmtp (Exim 4.52) id 1HJBS2-00048Q-7E for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 11:33:18 -0500 In-Reply-To: <3ecf0454e16c0b5f333cb214d4e0cf0e@science.uva.nl> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Carsten Dominik Cc: emacs-orgmode@gnu.org 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 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 >