emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]