Browse Source

ox-koma-letter: Fix cd7adb47d85f6c7d2ddedd33b966d873685b55d3

* contrib/lisp/ox-koma-letter.el (org-koma-letter--determine-to-and-from):
  Fix bug introduced in cd7adb47d85f6c7d2ddedd33b966d873685b55d3.
Nicolas Goaziou 11 years ago
parent
commit
bec25b5397
1 changed files with 9 additions and 9 deletions
  1. 9 9
      contrib/lisp/ox-koma-letter.el

+ 9 - 9
contrib/lisp/ox-koma-letter.el

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