From mboxrd@z Thu Jan 1 00:00:00 1970 From: Guy Haskin Fernald Subject: Org-mode 4.56 and Wanderlust 2.15.5 Date: Mon, 20 Nov 2006 16:05:17 -0800 Message-ID: Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka") Content-Type: text/plain; charset=US-ASCII Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1GmJ8g-0001mh-GG for emacs-orgmode@gnu.org; Mon, 20 Nov 2006 19:05:26 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1GmJ8f-0001lM-ET for emacs-orgmode@gnu.org; Mon, 20 Nov 2006 19:05:25 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GmJ8e-0001kL-TE for emacs-orgmode@gnu.org; Mon, 20 Nov 2006 19:05:24 -0500 Received: from [64.121.33.184] (helo=fernaskin.dnsalias.net) by monty-python.gnu.org with esmtp (Exim 4.52) id 1GmJ8e-0002kS-Gh for emacs-orgmode@gnu.org; Mon, 20 Nov 2006 19:05:24 -0500 Received: from guy.local.haskin.com (ucsf-113-127.ucsf.edu [128.218.113.127]) by fernaskin.dnsalias.net (Postfix) with ESMTP id 2D4884F4098 for ; Mon, 20 Nov 2006 16:05:22 -0800 (PST) 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: emacs-orgmode@gnu.org First of all, thanks for org-mode. I've been using it for a little while now and it has been great. I'm also using Wanderlust 2.15.5 and I haven't been able to store and follow links for Wanderlust messages with Org-mode 4.56. The following patch to org.el seems to have fixed it for me. Regards, Guy --- org.el.orig 2006-11-20 15:55:19.000000000 -0800 +++ org.el 2006-11-20 15:55:00.000000000 -0800 @@ -10448,8 +10448,8 @@ onto the ring." (defun org-follow-wl-link (folder article) "Follow a Wanderlust link to FOLDER and ARTICLE." (setq article (org-add-angle-brackets article)) - (wl-summary-goto-folder-subr folder 'no-sync t nil t) - (if article (wl-summary-jump-to-msg-by-message-id article ">")) + (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)) (defun org-follow-rmail-link (folder article) @@ -10818,8 +10818,12 @@ For file links, arg negates `org-context (let* ((msgnum (wl-summary-message-number)) (message-id (elmo-message-field wl-summary-buffer-elmo-folder msgnum 'message-id)) - (wl-message-entity (elmo-msgdb-overview-get-entity - msgnum (wl-summary-buffer-msgdb))) + (wl-message-entity + (if (fboundp 'elmo-message-entity) + (elmo-message-entity + wl-summary-buffer-elmo-folder msgnum) + (elmo-msgdb-overview-get-entity + msgnum (wl-summary-buffer-msgdb)))) (author (wl-summary-line-from)) ; FIXME: correct? (subject "???")) ; FIXME: (setq message-id (org-remove-angle-brackets message-id))