 
 ;;; 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")
 
  


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

                 value)))

  ;; Update some variables
  (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
