[elpa] elpa-admin 170624f 106/357: Avoid lm-homepage which is not in Emacs-24.3

[Stefan Monnier]

branch: elpa-admin
commit 170624fcc09addf04dd927d155b4bf9bd6dd7bad
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Avoid lm-homepage which is not in Emacs-24.3
---
 admin/archive-contents.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 219a1f9..7ee9c1c 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -187,7 +187,7 @@ Otherwise, return nil."
                  (requires-str (lm-header "package-requires"))
                  (pt (lm-header "package-type"))
                  (simple (if pt (equal pt "simple") (= (length files) 1)))
-                 (url (or (lm-homepage)
+                 (url (or (lm-header "url")
                           (format "http://elpa.gnu.org/packages/%s.html"; pkg)))
                  (req
                   (if requires-str
@@ -452,7 +452,11 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
       (archive--insert-repolinks name srcdir mainsrcfile
                                  (cdr (assoc :url (aref (cdr pkg) 4))))
       (let ((rm (archive--get-section
-                 "Commentary" '("README" "README.rst" "README.md" "README.org")
+                 "Commentary" '("README" "README.rst"
+                                ;; Most README.md files seem to be currently
+                                ;; worse than the Commentary: section :-(
+                                ;; "README.md"
+                                "README.org")
                  srcdir mainsrcfile)))
         (when rm
           (write-region rm nil (concat name "-readme.txt"))