emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 3f45c14 1/2: Don't bug out on invalid addresses in


From: Lars Ingebrigtsen
Subject: [Emacs-diffs] master 3f45c14 1/2: Don't bug out on invalid addresses in mml-secure-check-user-id
Date: Mon, 23 Sep 2019 11:37:14 -0400 (EDT)

branch: master
commit 3f45c14035ea194e44cf06bf5a416b731fd420a9
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Don't bug out on invalid addresses in mml-secure-check-user-id
    
    * lisp/gnus/mml-sec.el (mml-secure-check-user-id): Don't bug out
    on invalid addresses (bug#33613).
---
 lisp/gnus/mml-sec.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index 716e4b7..51578a7 100644
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/mml-sec.el
@@ -660,8 +660,9 @@ 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)))
+                 (car (ignore-errors
+                       (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



reply via email to

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