                  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


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


;;; Code:

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

(declare-function gnus-summary-select-article-buffer "gnus-sum")
(declare-function gnus-mime-pipe-part "gnus-art")


