diff options
| author | Sebastien Delafond <seb@debian.org> | 2014-06-13 13:20:31 +0200 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:34 +0200 |
| commit | 2d3359e41007641d7a8e5b088d9286aef64d99e7 (patch) | |
| tree | 61ce84dac761e0621913843f7b8d7b02202b4823 /contrib/lisp/ox-rss.el | |
| parent | bc6d49d7f92105a118915fdd4918a90b57b848bd (diff) | |
| parent | 77ddd382df838e38504b822e729250b2a6dd9b63 (diff) | |
Imported Debian patch 8.2.6-1
Diffstat (limited to 'contrib/lisp/ox-rss.el')
| -rw-r--r-- | contrib/lisp/ox-rss.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/contrib/lisp/ox-rss.el b/contrib/lisp/ox-rss.el index 4bdd1be..5fd2afc 100644 --- a/contrib/lisp/ox-rss.el +++ b/contrib/lisp/ox-rss.el @@ -240,7 +240,11 @@ communication channel." (org-time-string-to-time (or (org-element-property :PUBDATE headline) (error "Missing PUBDATE property")))))) - (title (org-element-property :raw-value headline)) + (title (replace-regexp-in-string + org-bracket-link-regexp + (lambda (m) (or (match-string 3 m) + (match-string 1 m))) + (org-element-property :raw-value headline))) (publink (or (and hl-perm (concat (or hl-home hl-pdir) hl-perm)) (concat @@ -319,8 +323,8 @@ as a communication channel." (ifile (plist-get info :input-file)) (publink (concat (file-name-as-directory blogurl) - (file-name-nondirectory - (file-name-sans-extension ifile)) + (file-name-nondirectory + (file-name-sans-extension ifile)) "." rssext))) (format "\n<title>%s</title> |