-(defun atom-add-html-entry (atom title link content
- &optional updated id summary)
- "Add an entry to ATOM, with some HTML content. CONTENT should
-be a string enconding a valid HTML fragment. See `atom-add-entry'
-for additional details."
- (atom-add-entry atom
- title link (atom-massage-html content)
- updated id (and summary (atom-massage-html summary))))
-
-(defun atom-add-xhtml-entry (atom title link content
- &optional updated id summary noconvert)
- "Add an entry to ATOM, with some XHTML content. CONTENT may be
-given either as a string, or as an XML tree, of a valid XHTML
-fragment. See `atom-add-entry' for additional details.
-
-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))
- (atom-add-entry atom
- title link xhtml-content
- updated id (and summary (atom-massage-xhtml summary)))))
+(defun atom-add-html-entry (atom title link content &optional props)
+ "Add an entry to ATOM, with some HTML content.
+
+TITLE, LINK, PROPS as in `atom-add-entry'. CONTENT should be a string
+enconding a valid HTML fragment. See `atom-add-entry' for
+additional details."
+ (if (plist-member props :summary)
+ (plist-put props :summary (atom-massage-html (plist-get props :summary))))
+ (atom-add-entry atom title link (atom-massage-html content) props))
+
+(defun atom-add-xhtml-entry (atom title link content &optional props)
+ "Add an entry to ATOM, with some XHTML content.
+
+TITLE, LINK, PROPS as in `atom-add-entry'. CONTENT may be given
+either as a string, or as an XML tree, of a valid XHTML fragment.
+See `atom-add-entry' for additional details."
+ (if (plist-member props :summary)
+ (plist-put props :summary (atom-massage-xhtml (plist-get props :summary))))
+ (atom-add-entry atom title link (atom-massage-xhtml content) props))
+
+(defvar atom-xml-declaration "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n")