given either as a string, or as an XML tree, of a valid XHTML
fragment. See `atom-add-entry' for additional details.
given either as a string, or as an XML tree, of a valid XHTML
fragment. See `atom-add-entry' for additional details.
-If CONVERT, translate all links in CONTENT so that they are no
-longer relative to LINK."
+If NOCONVERT is nil, translate all links in CONTENT so that they
+are no longer relative to LINK."
(let ((xhtml-content (atom-massage-xhtml content)))
(unless noconvert
(atom-xhtml-convert-links (cadr xhtml-content) link))
(let ((xhtml-content (atom-massage-xhtml content)))
(unless noconvert
(atom-xhtml-convert-links (cadr xhtml-content) link))
(let ((system-time-locale "C"))
(format-time-string "%a, %d %b %Y %T %z" (atom-parse-time time))))
(let ((system-time-locale "C"))
(format-time-string "%a, %d %b %Y %T %z" (atom-parse-time time))))
(defun atom-format-time (&optional time)
"Format a time according to RFC3339."
;; The time zone must be specified in numeric form, but with a colon between
(defun atom-format-time (&optional time)
"Format a time according to RFC3339."
;; The time zone must be specified in numeric form, but with a colon between
(defun atom-parse-time (&optional time)
"Parse a time as specified in RFC3339 into Emacs's native format."
(defun atom-parse-time (&optional time)
"Parse a time as specified in RFC3339 into Emacs's native format."
(date-to-time (replace-regexp-in-string ":\\(..\\)$" "\\1" time)))
(defun atom-massage-html (content)
(date-to-time (replace-regexp-in-string ":\\(..\\)$" "\\1" time)))
(defun atom-massage-html (content)
(list '((type . "xhtml"))
(or (and (stringp content)
(atom-string-to-xml content))
(list '((type . "xhtml"))
(or (and (stringp content)
(atom-string-to-xml content))