* 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 8697846..5d9341f 100644 (file)
--- 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  <jens.lechtenboerger@fsfe.org>
+
+       * mml-sec.el (mml-secure-cust-record-keys):
+       Make gnus-union use `equal' to compare items in lists.
+
 2015-12-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        Fix `gnus-union' so as to behave like `cl-union'.

diff --git a/lisp/mml-sec.el b/lisp/mml-sec.el
index f526e05..0a5f472 100644 (file)
--- 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))))