Remove dead code

[atom.el.git] / atom.el

diff --git a/atom.el b/atom.el
index b0d05121e7b223b549ad50bdfcc989ac2d9484fd..d0d2590bd23599556efa99cf5ca052fc46252c32 100644 (file)
--- a/atom.el
+++ b/atom.el
@@ -203,7 +203,8 @@ Some information may be lost or approximated."
          (setcar (cdr guid) (list (cons 'isPermaLink "false"))))
       (if (and descr
               (equal (xml-get-attribute descr 'type) "xhtml"))
-         (setcar (cddr descr) (xml-node-as-text descr))))
+         (setcar (cddr descr) (xml-node-as-text descr)))
+      (setcar (cdr descr) nil))
     `(item nil ,@item)))
 
 (defun atom-to-rss-translator (source target translations)
@@ -323,17 +324,6 @@ absolute, in the context of BASE, an URL."
   (dolist (child (xml-node-children node))
     (when (listp child) (atom-xhtml-convert-links child base))))
 
-(defun atom-generate-id (link creation-date)
-  "Generate a string suitable for use as an atom:id element. This
-implements Mark Pilgrom's tag: URI method, using the
-CREATION-DATE of the entry, and the domain part of LINK.
-
-See <https://www.xml.com/pub/a/2004/08/18/pilgrim.html>."
-    (format "tag:%s,%s:/%s"
-           (url-host (url-generic-parse-url link))
-           (format-time-string "%Y-%m-%d" creation-date)
-           (format-time-string "%Y%m%d%H%M%S" creation-date)))
-
 \f
 ;;; Functions that should probably not be there