diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-11-18 23:03:01 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-11-18 23:03:01 +0100 |
commit | b3125dc84bf6fd17f803b1270c538b0cfda34350 (patch) | |
tree | ff25dd41d08df41a16d6d5e8907780f632f97509 | |
parent | 400186d839574ce76f63cf4e5aac0eb9b89aeb0c (diff) | |
download | org-mode-b3125dc84bf6fd17f803b1270c538b0cfda34350.tar.gz |
ox-icalendar: Use \r\n instead of \n as line breaks
* lisp/ox-icalendar.el (org-icalendar-fold-string): Break lines with
\r\n instead of \n, per RFC 5545.
Reported-by: Stephen Eglen <sje30@cam.ac.uk>
<http://permalink.gmane.org/gmane.emacs.orgmode/110306>
-rw-r--r-- | lisp/ox-icalendar.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el index c22866a..8c9fba6 100644 --- a/lisp/ox-icalendar.el +++ b/lisp/ox-icalendar.el @@ -458,7 +458,7 @@ or subject for the event." (mapconcat (lambda (line) ;; Limit each line to a maximum of 75 characters. If it is - ;; longer, fold it by using "\n " as a continuation marker. + ;; longer, fold it by using "\r\n " as a continuation marker. (let ((len (length line))) (if (<= len 75) line (let ((folded-line (substring line 0 75)) @@ -468,11 +468,11 @@ or subject for the event." ;; line, real contents must be split at 74 chars. (while (< (setq chunk-end (+ chunk-start 74)) len) (setq folded-line - (concat folded-line "\n " + (concat folded-line "\r\n " (substring line chunk-start chunk-end)) chunk-start chunk-end)) - (concat folded-line "\n " (substring line chunk-start)))))) - (org-split-string s "\n") "\n"))) + (concat folded-line "\r\n " (substring line chunk-start)))))) + (org-split-string s "\n") "\r\n"))) |