diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-12-29 21:28:21 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-12-29 21:28:21 +0100 |
commit | 02443b34b3556d7d614b7b183088e20cefdd1bc2 (patch) | |
tree | 51aa3894951bd1135bb87aad4cf8d4076eaf2fb2 | |
parent | 839dae713ed842a6eac3bb7a16f8d48be16928c2 (diff) | |
download | org-mode-02443b34b3556d7d614b7b183088e20cefdd1bc2.tar.gz |
Fix code typo
* lisp/org.el (org-store-link-props): Fix code typo.
-rwxr-xr-x | lisp/org.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index c30f4ee..c71fda4 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -9923,10 +9923,11 @@ active region." (defun org-store-link-props (&rest plist) "Store link properties, extract names, addresses and dates." - (when x - (let ((adr (mail-extract-address-components x))) - (setq plist (plist-put plist :fromname (car adr))) - (setq plist (plist-put plist :fromaddress (nth 1 adr))))) + (let ((x (plist-get plist :from))) + (when x + (let ((adr (mail-extract-address-components x))) + (setq plist (plist-put plist :fromname (car adr))) + (setq plist (plist-put plist :fromaddress (nth 1 adr)))))) (let ((x (plist-get plist :to))) (when x (let ((adr (mail-extract-address-components x))) |