                  value)))
 
   ;; Update some variables
-  (setq bbdb-user-mail-address-re (regexp-opt (mapcar #'car db/mail-accounts)
-                                              'words)
-        message-dont-reply-to-names (regexp-opt (mapcar #'car db/mail-accounts)
-                                                'words)
+  (setq bbdb-user-mail-address-re (regexp-opt (mapcar #'car value) 'words)
+        message-dont-reply-to-names (regexp-opt (mapcar #'car value) 'words)
         gnus-ignored-from-addresses message-dont-reply-to-names))
 
 (defcustom db/mail-accounts nil

                                                     (nnimap-inbox "INBOX")))))
                                      remote-mail-accounts)))))

(defun db/mail-accounts--set-value (symbol value)
  "Set SYMBOL to VALUE, as needed for `db/mail-accounts’."
  (cl-assert (eq symbol 'db/mail-accounts)


METHOD can be \"smime\" or \"pgpmime\"; defaults to \"pgpmime\".
ADDRESS is a string containing exactly one email address."
  (cl-check-type address string)
  (unless method (setq method "pgpmime"))
  (epg-list-keys (epg-make-context
                  (cond
