[elpa] elpa-admin cdc36a0450 1/2: * elpa-admin.el (elpaa--release-email): Report bad email addresses

[Stefan Monnier]

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

    * elpa-admin.el (elpaa--release-email): Report bad email addresses
---
 elpa-admin.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index 1dba3220df..22a7c8ebf4 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1981,12 +1981,16 @@ If WITH-CORE is non-nil, it means we manage :core 
packages as well."
              (maints (if (consp (car maint)) maint (list maint)))
              (maint-emails
               (mapcar (lambda (x)
-                        (and (stringp (cdr-safe x))
-                             (string-match "@" (cdr x))
-                             (format "%s <%s>"
-                                     (replace-regexp-in-string "[<@>,]" " "
-                                                               (car x))
-                                     (cdr x))))
+                        (let ((name  (car-safe x))
+                              (email (cdr-safe x)))
+                          (if (not (and (stringp email)
+                                        (string-match "@" email)))
+                              (message "Error, no email address: %S" x)
+                            (while (string-match "[<@>,]" name)
+                              (message "Error, weird char \"%s\" in name: %S"
+                                       (match-string 0 name) name)
+                              (setq name (replace-match " " t t name)))
+                            (format "%s <%s>" name email))))
                       maints))
              (maintainers
               (mapconcat #'identity (delq nil maint-emails) ",")))