ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ox-koma-letter: Fix cd7adb47d8 

* contrib/lisp/ox-koma-letter.el (org-koma-letter--determine-to-and-from):
  Fix bug introduced in cd7adb47d8.
This commit is contained in:
Nicolas Goaziou 2014-01-17 22:30:25 +01:00
parent a3fab8d899
commit bec25b5397
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
contrib/lisp/ox-koma-letter.el
View File

@ -445,15 +445,15 @@ KEY should be `to' or `from'.
`ox-koma-letter' allows two ways to specify TO and FROM. If both
are present return the preferred one as determined by
`org-koma-letter-prefer-special-headings'."
(let* ((options-value
(plist-get info (if (eq key 'to) :to-address :from-address)))
(headline-value (org-koma-letter--get-tagged-contents key))
(value (or (if (plist-get info :special-headings)
(or headline-value option-value)
(or option-value headline-value))
;; Fallback values.
(if (eq key 'to) "\\mbox{}" org-koma-letter-from-address))))
(and value (replace-regexp-in-string "\n" "\\\\\\\\\n" (org-trim value)))))
(let ((option (plist-get info (if (eq key 'to) :to-address :from-address)))
(headline (org-koma-letter--get-tagged-contents key)))
(replace-regexp-in-string
"\n" "\\\\\\\\\n"
(org-trim
(or (if (plist-get info :special-headings) (or headline option)
(or option headline))
;; Fallback values.
(if (eq key 'to) "\\mbox{}" org-koma-letter-from-address))))))