summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2009-11-15 12:07:06 +0100
committerCarsten Dominik <carsten.dominik@gmail.com>2009-11-15 12:07:06 +0100
commit570878b7e5a510f6bee75a9d40f6690aaaf04407 (patch)
treeef57ebc6b1a93780c5bd5c5ec1e8f6a817fa9026
parentd9a9d1c1ea18b183eb8f5b438246052988e48e83 (diff)
downloadorg-mode-570878b7e5a510f6bee75a9d40f6690aaaf04407.tar.gz
Improve wanderlust link handling in the case that wl-use-petname is set
Patch by David Maus
-rwxr-xr-xlisp/ChangeLog3
-rw-r--r--lisp/org-wl.el6
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5c48eb1..339f248 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
2009-11-15 Carsten Dominik <carsten.dominik@gmail.com>
+ * org-wl.el (org-wl-store-link): Handle the case that
+ `wl-use-petname' is set.
+
* org.el (org-set-effort): Improve prompt.
(org-get-outline-path): Widen to get full path.
(org-compact-display-after-subtree-move): Function removed.
diff --git a/lisp/org-wl.el b/lisp/org-wl.el
index 84f7e5c..8270584 100644
--- a/lisp/org-wl.el
+++ b/lisp/org-wl.el
@@ -91,7 +91,11 @@
wl-summary-buffer-elmo-folder msgnum)
(elmo-msgdb-overview-get-entity
msgnum (wl-summary-buffer-msgdb))))
- (from (wl-summary-line-from))
+ (from (let ((from-field (elmo-message-entity-field wl-message-entity
+ 'from)))
+ (if (listp from-field)
+ (car from-field)
+ from-field)))
(to (let ((to-field (elmo-message-entity-field wl-message-entity
'to)))
(if (listp to-field)