                  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


;;; Code:

(require 'cl-lib)
(require 'cl-macs)
(require 'mail-extr)
(require 'epg)
(require 'mml-sec)
(require 'gnus)
(require 'smtpmail)                   ; to have the globals bound below by let
(require 'message)



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

;; Let's make the byte-compiler happy
(defvar gnus-posting-styles)
(defvar bbdb-user-mail-address-re)
(defvar message-dont-reply-to-names)
(defvar gnus-ignored-from-addresses)

(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)
