From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: patch for Wanderlust 2.15.5 Date: Mon, 19 Feb 2007 16:35:44 +0100 Message-ID: <3ecf0454e16c0b5f333cb214d4e0cf0e@science.uva.nl> References: Mime-Version: 1.0 (Apple Message framework v624) Content-Type: text/plain; charset=US-ASCII; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HJAYN-0005CB-PE for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 10:35:47 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HJAYM-0005BT-4h for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 10:35:47 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HJAYL-0005BL-UJ for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 10:35:46 -0500 Received: from korteweg.uva.nl ([146.50.98.70]) by monty-python.gnu.org with esmtp (Exim 4.52) id 1HJAYL-00035h-GP for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 10:35:45 -0500 In-Reply-To: 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: Tokuya Kameshima Cc: emacs-orgmode@gnu.org 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