[elpa] externals/webfeeder 3a30b31 2/5: Escape author, title and subtitle for XML special characters.

[Pierre Neidhardt]

branch: externals/webfeeder
commit 3a30b31e2268341d885d02ea007d8ef7f86d61cb
Author: Pierre Neidhardt <mail@ambrevar.xyz>
Commit: Pierre Neidhardt <mail@ambrevar.xyz>

    Escape author, title and subtitle for XML special characters.
---
 webfeeder.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/webfeeder.el b/webfeeder.el
index 07f0ed0..1832455 100644
--- a/webfeeder.el
+++ b/webfeeder.el
@@ -406,12 +406,12 @@ variables:
   (cl-loop for html-file in html-files
            for dest = (expand-file-name html-file project-dir)
            for feed-url = (concat (replace-regexp-in-string "/*$" "" url) "/" 
html-file)
-           for feed-author = (funcall webfeeder-author-function dest)
+           for feed-author = (xml-escape-string (funcall 
webfeeder-author-function dest))
            for feed-date = (or (funcall webfeeder-date-function
                                         (expand-file-name html-file 
project-dir))
                                0)
-           for feed-title = (or (funcall webfeeder-title-function dest) 
feed-url)
-           for feed-subtitle = (funcall webfeeder-subtitle-function dest)
+           for feed-title = (or (xml-escape-string (funcall 
webfeeder-title-function dest)) feed-url)
+           for feed-subtitle = (xml-escape-string (funcall 
webfeeder-subtitle-function dest))
            for feed-body = (funcall webfeeder-body-function dest feed-url 
'exclude-toc)
            for feed-categories = (funcall webfeeder-categories-function dest)
            for feed-generator = (funcall webfeeder-generator-function dest)