From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH 1/2] Don't throw error when `org-store-link' called on WL folder group. Date: Wed, 12 May 2010 10:55:05 +0200 Message-ID: <1273654506-17914-2-git-send-email-dmaus@ictsoc.de> References: Return-path: Received: from [140.186.70.92] (port=45518 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OC7jR-0000RG-4b for emacs-orgmode@gnu.org; Wed, 12 May 2010 04:55:58 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OC7jM-0006K7-4c for emacs-orgmode@gnu.org; Wed, 12 May 2010 04:55:54 -0400 Received: from mysql1.xlhost.de ([213.202.242.106]:47256) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OC7jL-0006K3-Vf for emacs-orgmode@gnu.org; Wed, 12 May 2010 04:55:52 -0400 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: emacs-orgmode@gnu.org --- lisp/ChangeLog | 5 +++++ lisp/org-wl.el | 11 +++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2361328..584da7c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-05-12 David Maus + + * org-wl.el (org-wl-store-link-folder): Don't throw error when + called on WL folder group. + 2010-05-10 Carsten Dominik * org.el (org-replace-escapes): Make sure the cdr is not nil. diff --git a/lisp/org-wl.el b/lisp/org-wl.el index 6297a29..3faf2ea 100644 --- a/lisp/org-wl.el +++ b/lisp/org-wl.el @@ -151,12 +151,11 @@ ENTITY is a message entity." (link (org-make-link "wl:" folder))) (save-excursion (beginning-of-line) - (if (and (wl-folder-buffer-group-p) - (looking-at wl-folder-group-regexp)) - (error "Cannot store link to folder group: %s" folder)) - (org-store-link-props :type "wl" :description petname - :link link) - link))) + (unless (and (wl-folder-buffer-group-p) + (looking-at wl-folder-group-regexp)) + (org-store-link-props :type "wl" :description petname + :link link) + link)))) (defun org-wl-store-link-message () "Store a link to a WL message." -- 1.7.1