* [PATCH 1/2] Don't throw error when `org-store-link' called on WL folder group.
@ 2010-05-12 8:55 David Maus
0 siblings, 0 replies; only message in thread
From: David Maus @ 2010-05-12 8:55 UTC (permalink / raw)
To: emacs-orgmode
---
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 <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."
--
1.7.1
^ permalink raw reply related [flat|nested] only message in thread
only message in thread, other threads:[~2010-05-12 8:55 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-05-12 8:55 [PATCH 1/2] Don't throw error when `org-store-link' called on WL folder group David Maus
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).