Always get literal content of header fields

* org-wl.el (org-wl-message-field): Always get literal content of
header fields.
This commit is contained in:
David Maus 2010-09-23 18:09:23 +02:00
parent fa93aa78f8
commit eab115bf66
1 changed files with 1 additions and 1 deletions

View File

@ -140,7 +140,7 @@ folder name determines the the folder type."
"Return content of FIELD in ENTITY.
FIELD is a symbol of a rfc822 message header field.
ENTITY is a message entity."
(let ((content (elmo-message-entity-field entity field)))
(let ((content (elmo-message-entity-field entity field 'string)))
(if (listp content) (car content) content)))
(defun org-wl-store-link ()