--- 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