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 18:16:56 +0100 Message-ID: References: <3ecf0454e16c0b5f333cb214d4e0cf0e@science.uva.nl> 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 1HJC8M-00073i-O8 for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 12:17:02 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HJC8M-00073R-AE for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 12:17:02 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HJC8M-00073O-2v for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 12:17:02 -0500 Received: from korteweg.uva.nl ([146.50.98.70]) by monty-python.gnu.org with esmtp (Exim 4.52) id 1HJC8L-0003xa-Nf for emacs-orgmode@gnu.org; Mon, 19 Feb 2007 12:17:01 -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 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 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