[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] [PATCH 1/2] Don't throw error when `org-store-link' called on
From: |
David Maus |
Subject: |
[Orgmode] [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 |
---
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 <address@hidden>
+
+ * org-wl.el (org-wl-store-link-folder): Don't throw error when
+ called on WL folder group.
+
2010-05-10 Carsten Dominik <address@hidden>
* 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Orgmode] [PATCH 1/2] Don't throw error when `org-store-link' called on WL folder group.,
David Maus <=