mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

Improve wanderlust link handling in the case that wl-use-petname is set

Browse Source 
Patch by David Maus
This commit is contained in:
Carsten Dominik 2009-11-15 12:07:06 +01:00
parent d9a9d1c1ea
commit 570878b7e5
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

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

6
lisp/org-wl.el
View File

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