Re: [Orgmode] patch for Wanderlust 2.15.5

[Tokuya Kameshima]

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 <address@hidden> 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
> > address@hidden
> > 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
>