Make gnus-union use `equal' to compare items in lists.
(mml-secure-safe-bcc-list): New variable.
(mml-secure-is-encrypted-p, mml-secure-bcc-is-safe): New functions.
(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'.
2015-12-23 Katsumi Yamaoka <yamaoka@jpl.org>
Fix `gnus-union' so as to behave like `cl-union'.
(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))
(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))))
(if curr-fprs
(setcdr (assoc name (cdr usage-prefs)) new-fprs)
(setcdr usage-prefs (cons (cons name new-fprs) (cdr usage-prefs))))