From: Jens Lechtenboerger Date: Sun, 27 Dec 2015 14:49:18 +0000 (+0100) Subject: * mml-sec.el (mml-secure-cust-record-keys): X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=437c0792b00432e71d73dcbb14e6fa9aa83b8104;hp=16cb769371e2144e0c74bea72688ffbb8db50a50 * mml-sec.el (mml-secure-cust-record-keys): Make gnus-union use `equal' to compare items in lists. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 869784630..5d9341f22 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -11,6 +11,11 @@ (mml-secure-safe-bcc-list): New variable. (mml-secure-is-encrypted-p, mml-secure-bcc-is-safe): New functions. +2015-12-27 Jens Lechtenboerger + + * mml-sec.el (mml-secure-cust-record-keys): + Make gnus-union use `equal' to compare items in lists. + 2015-12-23 Katsumi Yamaoka Fix `gnus-union' so as to behave like `cl-union'. diff --git a/lisp/mml-sec.el b/lisp/mml-sec.el index f526e058c..0a5f47207 100644 --- a/lisp/mml-sec.el +++ b/lisp/mml-sec.el @@ -550,7 +550,7 @@ Return keys." (let* ((usage-prefs (mml-secure-cust-usage-lookup context usage)) (curr-fprs (cdr (assoc name (cdr usage-prefs)))) (key-fprs (mapcar 'mml-secure-fingerprint keys)) - (new-fprs (gnus-union curr-fprs key-fprs))) + (new-fprs (gnus-union curr-fprs key-fprs :test 'equal))) (if curr-fprs (setcdr (assoc name (cdr usage-prefs)) new-fprs) (setcdr usage-prefs (cons (cons name new-fprs) (cdr usage-prefs))))