[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa-admin b3fe7c4 368/439: * elpa-admin.el (elpaa--email-reply
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa-admin b3fe7c4 368/439: * elpa-admin.el (elpaa--email-reply-to): New var |
Date: |
Sun, 17 Oct 2021 15:48:38 -0400 (EDT) |
branch: elpa-admin
commit b3fe7c40bef3a4c897c10937340f68d031dc9d8d
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* elpa-admin.el (elpaa--email-reply-to): New var
(elpaa-read-config, elpaa--release-email): Use it.
(elpaa--default-url): Rename from elpaa--default-url-format,
take `pkgname` argument.
(elpaa--default-url-re, elpaa--release-email): Use it.
---
elpa-admin.el | 14 +++++++++-----
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index 9970c0e..15c6e8f 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -47,6 +47,7 @@
(defvar elpaa--copyright-file "copyright_exceptions")
(defvar elpaa--email-to nil) ;;"gnu-emacs-sources@gnu.org"
(defvar elpaa--email-from nil) ;;"ELPA update <do.not.reply@elpa.gnu.org>"
+(defvar elpaa--email-reply-to nil)
(defvar elpaa--sandbox t
"If non-nil, run some of the less trusted commands in a sandbox.
@@ -70,6 +71,7 @@ on some Debian systems.")
('copyright-file elpaa--copyright-file)
('email-to elpaa--email-to)
('email-from elpaa--email-from)
+ ('email-reply-to elpaa--email-reply-to)
('sandbox elpaa--sandbox)
('debug elpaa--debug))
val))))
@@ -555,8 +557,8 @@ Signal an error if the command did not finish with exit
code 0."
(buffer-string))
(error "Error-indicating exit code in elpaa--call-sandboxed"))))))
-(defun elpaa--default-url-format () (concat elpaa--url "%s.html"))
-(defun elpaa--default-url-re () (format (elpaa--default-url-format) ".*"))
+(defun elpaa--default-url (pkgname) (concat elpaa--url pkgname ".html"))
+(defun elpaa--default-url-re () (elpaa--default-url ".*"))
(defun elpaa--override-version (pkg-spec orig-fun header)
@@ -623,7 +625,7 @@ PKG is the name of the package and DIR is the directory
where it is."
(push (cons :keywords keywords) extras))
(unless found-url
;; Provide a good default URL.
- (push (cons :url (format (elpaa--default-url-format) pkg)) extras))
+ (push (cons :url (elpaa--default-url pkg)) extras))
(list simple
(package-version-join version)
(package-desc-summary pkg-desc)
@@ -1350,7 +1352,9 @@ If WITH-CORE is non-nil, it means we manage :core
packages as well."
(message-setup `((From . ,elpaa--email-from)
(To . ,elpaa--email-to)
(Subject . ,(format "[%s ELPA] %s version %s"
- elpaa--name name version))))
+ elpaa--name name version))
+ ,@(if elpaa--email-reply-to
+ `((Reply-To . ,elpaa--email-reply-to)))))
(insert "Version " version
" of package " name
" has just been released in " elpaa--name " ELPA.
@@ -1359,7 +1363,7 @@ You can now find it in M-x package-list RET.
" name " describes itself as:
" (nth 2 metadata) "
-More at " elpaa--url pkgname ".html")
+More at " (elpaa--default-url pkgname))
(let ((news (elpaa--get-NEWS pkg-spec dir)))
(when news
(insert "\n\nRecent NEWS:\n\n" news)))
- [nongnu] elpa-admin 5ef13b0 326/439: Merge commit '33afdb46e1cd61251736816d965495525b36c9cd', (continued)
- [nongnu] elpa-admin 5ef13b0 326/439: Merge commit '33afdb46e1cd61251736816d965495525b36c9cd', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin f9ce2f8 328/439: Merge commit 'b2c449c0d5aad67eeee9857e7fd7710f985084ec', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 7be6e5f 330/439: ; Update copyright year, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin a186f57 335/439: * README: Convert to org-mode and prepare for export., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin cff34fa 336/439: Support generating readme.html from README, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin cdef4ce 338/439: * admin/archive-contents.el: Add preliminary support for the NonGNU archive, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 0f8fca3 360/439: * elpa-admin.el: Add support for sending out release announcements, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 6d923b9 410/439: * elpa-admin.el (elpaa--prune-old-tarballs): Fix renaming destination, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin da248f5 403/439: * elpa-admin.el: Fix spurious message and unneeded error, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 1d5287f 362/439: * elpa-admin.el: Add support for building Info files and "dir" files, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin b3fe7c4 368/439: * elpa-admin.el (elpaa--email-reply-to): New var,
Philip Kaludercic <=
- [nongnu] elpa-admin 21fc443 349/439: * externals-list ("markdown-mode"): New package, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin cabb85a 398/439: * elpa-admin.el: Avoid build side-products in the tarball, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 08c448d 400/439: * elpa-admin.el (elpaa--pull): Fix last change, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 21e1b0e 101/439: Sync with yasnippet/master, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 7b7692d 243/439: Merge commit '6dc971269f6f9435e5159c2cfe66fc5e4b296df2', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 858666e 250/439: * admin/archive-contents.el: Use cl-lib, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin f4e99d9 369/439: * elpa-admin.el (elpaa--make-one-package): Fix thinko, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 8ac87bb 355/439: Fold ert-support.el into elpa-admin.el, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 7fa8f34 399/439: * elpa-admin.el (elpaa--pull): Don't set non-existing upstream, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 78966fe 348/439: * README.org: Improve introductory paragraphs., Philip Kaludercic, 2021/10/17