[Emacs-diffs] emacs-26 90177d7: Avoid elisp crash for OpenPGP User IDs with no e-mail address

[Eli Zaretskii]

branch: emacs-26
commit 90177d7f12d25e403abc6f1bdf242aed308a7bb8
Author: Daniel Kahn Gillmor <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Avoid elisp crash for OpenPGP User IDs with no e-mail address
    
    * lisp/gnus/mml-sec.el (mml-secure-check-user-id): Verify that
    there is an e-mail address in the current User ID before trying
    to downcase it.  (Bug#34121)
    
    Copyright-paperwork-exempt: yes
---
 lisp/gnus/mml-sec.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index 8c485fe..4fca4ce 100644
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/mml-sec.el
@@ -658,6 +658,8 @@ The passphrase is read and cached."
     (catch 'break
       (dolist (uid uids nil)
        (if (and (stringp (epg-user-id-string uid))
+                 (car (mail-header-parse-address
+                       (epg-user-id-string uid)))
                 (equal (downcase (car (mail-header-parse-address
                                        (epg-user-id-string uid))))
                        (downcase (car (mail-header-parse-address