emacs-orgmode
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]