diff --git a/contrib/lisp/ox-rss.el b/contrib/lisp/ox-rss.el index cf2d79e76..c5dbc8eaf 100644 --- a/contrib/lisp/ox-rss.el +++ b/contrib/lisp/ox-rss.el @@ -233,7 +233,13 @@ communication channel." (concat "sec-" (mapconcat 'number-to-string hl-number "-"))))) (category (org-rss-plain-text (or (org-element-property :CATEGORY headline) "") info)) - (pubdate (org-element-property :PUBDATE headline)) + (pubdate + (let ((system-time-locale "C")) + (format-time-string + "%a, %d %h %Y %H:%M:%S %Z" + (org-time-string-to-time + (or (org-element-property :PUBDATE headline) + (error "Missing PUBDATE property")))))) (title (org-rss-plain-text (org-element-property :raw-value headline) info)) (publink @@ -383,9 +389,8 @@ information." (unless (org-entry-get (point) "PUBDATE") (setq msg t) (org-set-property - "PUBDATE" - (let ((system-time-locale "C")) - (format-time-string "%a, %d %h %Y %H:%M:%S %Z"))))))) + "PUBDATE" (format-time-string + (cdr org-time-stamp-formats))))))) nil nil 'comment 'archive) (when msg (message "Property PUBDATE added to top-level entries in %s"