From mboxrd@z Thu Jan 1 00:00:00 1970 From: Thomas Baumann Subject: Re: Please test links Date: Sat, 15 Mar 2008 21:17:32 +0100 Message-ID: References: <3FE7D870-A0BF-48A7-A9B5-1023493C0861@science.uva.nl> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Jacp7-00030V-4b for emacs-orgmode@gnu.org; Sat, 15 Mar 2008 16:17:45 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Jacp6-00030A-1E for emacs-orgmode@gnu.org; Sat, 15 Mar 2008 16:17:44 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Jacp5-000307-Su for emacs-orgmode@gnu.org; Sat, 15 Mar 2008 16:17:43 -0400 Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Jacp5-0005F1-FP for emacs-orgmode@gnu.org; Sat, 15 Mar 2008 16:17:43 -0400 Received: from list by ciao.gmane.org with local (Exim 4.43) id 1Jacp2-0005hF-R4 for emacs-orgmode@gnu.org; Sat, 15 Mar 2008 20:17:40 +0000 Received: from p54961ae6.dip0.t-ipconnect.de ([84.150.26.230]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 15 Mar 2008 20:17:40 +0000 Received: from dtbaumann by p54961ae6.dip0.t-ipconnect.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 15 Mar 2008 20:17:40 +0000 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 quickly installing and learning git.... ... and mhe-links still failing I guess the error comes from (defun org-add-link-props (&rest plist) "Add these properties to the link property list." (let (key value) (while plist (setq key (pop plist) value (pop plist)) (setq org-store-link-plist (plist-put org-store-link-plist key value))))) returning always nil because of (while plist ... thus (defun org-mhe-store-link () "Store a link to an MHE folder or message." (when (or (equal major-mode 'mh-folder-mode) (equal major-mode 'mh-show-mode)) (let ((from (org-mhe-get-header "From:")) (to (org-mhe-get-header "To:")) (message-id (org-mhe-get-header "Message-Id:")) (subject (org-mhe-get-header "Subject:")) link desc) (org-store-link-props :type "mh" :from from :to to :subject subject :message-id message-id) (setq desc (org-email-link-description)) (setq link (org-make-link "mhe:" (org-mhe-get-message-real-folder) "#" (org-remove-angle-brackets message-id))) (org-add-link-props :link link :description desc)))) returns nil and therefore org-store-link will not recognize the successful mhe-link. Cheers Thomas