summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Maus <dmaus@ictsoc.de>2010-05-12 10:01:05 +0200
committerDavid Maus <dmaus@ictsoc.de>2010-05-12 10:01:05 +0200
commit032b53ed1307a58f64917f2e7ffd005c796587f9 (patch)
treeeb654ffa21b3a19aa93aaffb5b06c3f2a117f9ad
parent3d8b6de2ad00220e164f226fb0dde5ada831d21b (diff)
downloadorg-mode-032b53ed1307a58f64917f2e7ffd005c796587f9.tar.gz
Don't throw error when `org-store-link' called on WL folder group.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/org-wl.el11
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 <dmaus@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.dominik@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."