---
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 <dm...@ictsoc.de>
+
+ * org-wl.el (org-wl-store-link-folder): Don't throw error when
+ called on WL folder group.
+
2010-05-10 Carsten Dominik <carsten.domi...@gmail.com>
* 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
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
