mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:07:49 +00:00
Code Releases Activity

Fix code typo

Browse source 
* lisp/org.el (org-store-link-props): Fix code typo.
This commit is contained in:
Nicolas Goaziou 2015-12-29 21:28:21 +01:00
parent 839dae713e
commit 02443b34b3
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/org.el
View file

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