From 437c0792b00432e71d73dcbb14e6fa9aa83b8104 Mon Sep 17 00:00:00 2001 From: Jens Lechtenboerger Date: Sun, 27 Dec 2015 15:49:18 +0100 Subject: [PATCH] * mml-sec.el (mml-secure-cust-record-keys): Make gnus-union use `equal' to compare items in lists. --- lisp/ChangeLog | 5 +++++ lisp/mml-sec.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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)))) -- 2.25.1