From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Hans Halvorson" Subject: Re: org-store-link with wanderlust Date: Sat, 29 Dec 2007 13:55:29 -0500 Message-ID: References: <87tzm1obg6.fsf@bzg.ath.cx> Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1J8gqJ-0000na-Oa for emacs-orgmode@gnu.org; Sat, 29 Dec 2007 13:55:31 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1J8gqJ-0000nF-4x for emacs-orgmode@gnu.org; Sat, 29 Dec 2007 13:55:31 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1J8gqI-0000n6-S0 for emacs-orgmode@gnu.org; Sat, 29 Dec 2007 13:55:31 -0500 Received: from an-out-0708.google.com ([209.85.132.241]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1J8gqI-0003ay-I9 for emacs-orgmode@gnu.org; Sat, 29 Dec 2007 13:55:30 -0500 Received: by an-out-0708.google.com with SMTP id c25so650205ana.84 for ; Sat, 29 Dec 2007 10:55:29 -0800 (PST) In-Reply-To: <87tzm1obg6.fsf@bzg.ath.cx> Content-Disposition: inline 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: Bastien Cc: emacs-orgmode@gnu.org After applying the patch, and trying M-x org-store-link on your messasge, I get the new error: Debugger entered--Lisp error: (wrong-type-argument listp "Bastien") car("Bastien") (let* ((msgnum ...) (message-id ...) (wl-message-entity ...) (from ...) (to ...) (subject ...)) (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)) (setq cpltxt (org-email-link-description)) (setq link (org-make-link "wl:" wl-summary-buffer-folder-name "#" message-id))) (cond ((run-hook-with-args-until-success ...) (setq link ... desc ...)) ((eq major-mode ...) (let ... ... ...)) ((eq major-mode ...) (setq link ...) (setq cpltxt ...) (org-store-link-props :type "info" :file Info-current-file :node Info-current-node)) ((eq major-mode ...) (let ... ... ...)) ((or ... ...) (and ... ...) (vm-follow-summary-cursor) (save-excursion ... ...)) ((eq major-mode ...) (let* ... ... ... ... ...)) ((or ... ...) (let ... ... ... ...)) ((eq major-mode ...) (save-excursion ...)) ((eq major-mode ...) (let ... ... ... ...)) ((memq major-mode ...) (and ... ...) (let* ... ... ... ...)) ((eq major-mode ...) (setq cpltxt ... link ...) (org-store-link-props :type "w3" :url ...)) ((eq major-mode ...) (setq cpltxt ... link ...) (org-store-link-props :type "w3m" :url ...)) ((setq search ...) (setq link ...) (setq cpltxt ...)) ((eq major-mode ...) (setq cpltxt ... link ...) (org-store-link-props :type "image" :file buffer-file-name)) ((eq major-mode ...) (setq cpltxt ... link ...)) ((and buffer-file-name ...) (setq cpltxt ...) (when ... ...) (if ... ...) (setq link ...)) ((buffer-file-name ...) (setq cpltxt ...) (when ... ... ...) (setq link ...)) ((interactive-p) (error "Cannot link to a buffer which is not visiting a file")) (t (setq link nil))) (let (link cpltxt desc description search txt) (cond (... ...) (... ...) (... ... ... ...) (... ...) (... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ...) (... ... ... ... ...) (... ... ... ...) (... ...) (t ...)) (if (consp link) (setq cpltxt ... link ...)) (setq link (or link cpltxt) desc (or desc cpltxt)) (if (equal desc "NONE") (setq desc nil)) (if (and ... link) (progn ... ...) (and link ...))) org-store-link(nil) call-interactively(org-store-link t nil) execute-extended-command(nil) call-interactively(execute-extended-command nil nil) On Dec 29, 2007 8:52 AM, Bastien wrote: > > > When I try 'M-x org-store-link' in the wanderlust summary buffer, I > > get an error (have tried with many messages). For example: > > > > Debugger entered--Lisp error: (error "Invalid address: (Brad Pitt > > )") > > signal(error ("Invalid address: (Brad Pitt )")) > > error("Invalid address: %s" ("Brad Pitt ")) > > mail-extract-address-components(("Brad Pitt ")) > > org-store-link-props(:type "wl" :from "Jolie, Angelina" :to ("Brad > > Pitt ") :subject "RE: u r hot" :message-id > > "<664F5EF544B264BEFE154B2FE40A770279053@CREXUSER08.foobar.com>") > > org-store-link(nil) > > call-interactively(org-store-link) > > execute-extended-command(nil) > > call-interactively(execute-extended-command) > > > > The address reported in the backtrace has, of course, been changed ... > > but it is structurally original to the original valid address. > > Looks like wl-summary-line-from return a list, not a string. > > Please check the following patch against Org 5.17a. > > > -- > Bastien > >