[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin ee591c2: * elpa-admin.el (elpaa--release-email): Cc ma
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin ee591c2: * elpa-admin.el (elpaa--release-email): Cc maintainer |
Date: |
Sun, 20 Dec 2020 10:25:52 -0500 (EST) |
branch: elpa-admin
commit ee591c2b3b8a06b4dda5443f1aca5f9cc72d62dd
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* elpa-admin.el (elpaa--release-email): Cc maintainer
---
elpa-admin.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index c295491..a6474ae 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1360,11 +1360,15 @@ If WITH-CORE is non-nil, it means we manage :core
packages as well."
(message-mode)
(let* ((version (nth 1 metadata))
(pkgname (car pkg-spec))
- (name (capitalize pkgname)))
+ (name (capitalize pkgname))
+ (maint (cdr (assq :maintainer (nth 4 metadata))))
+ (maintainer (if maint (concat (car maint) (cdr maint))))
(message-setup `((From . ,elpaa--email-from)
(To . ,elpaa--email-to)
(Subject . ,(format "[%s ELPA] %s version %s"
elpaa--name name version))
+ ,@(if (stringp maintainer)
+ `((Cc . ,maintainer)))
,@(if elpaa--email-reply-to
`((Reply-To . ,elpaa--email-reply-to)))))
(insert "Version " version
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] elpa-admin ee591c2: * elpa-admin.el (elpaa--release-email): Cc maintainer,
Stefan Monnier <=