diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2009-11-15 12:07:06 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2009-11-15 12:07:06 +0100 |
commit | 570878b7e5a510f6bee75a9d40f6690aaaf04407 (patch) | |
tree | ef57ebc6b1a93780c5bd5c5ec1e8f6a817fa9026 | |
parent | d9a9d1c1ea18b183eb8f5b438246052988e48e83 (diff) | |
download | org-mode-570878b7e5a510f6bee75a9d40f6690aaaf04407.tar.gz |
Improve wanderlust link handling in the case that wl-use-petname is set
Patch by David Maus
-rwxr-xr-x | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/org-wl.el | 6 |
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) |