Remove dead code

diff --git a/atom.el b/atom.el
index a7605ba9c6ff99dbc5918d5f0bbbf58ba65de0a8..d0d2590bd23599556efa99cf5ca052fc46252c32 100644 (file)
--- a/atom.el
+++ b/atom.el
@@ -324,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