           (address ,user-mail-address)
           (signature-file "~/.signature")
           ("X-Jabber-ID" ,db/jabber-id)))
+       ;; XXX: this should be abstracted away in some kind of function
        (mapcar (lambda (account)
                  (let ((account-name (nth 1 account))
                        (account-address (nth 0 account)))

      ;; `db/mail-accounts’
      gnus-secondary-select-methods
      (append
       `((nntp "etsep"
               (nntp-open-connection-function nntp-open-tls-stream)
               (nntp-port-number 563)

    (if account
        (progn
          (message "Sending with account for %s" address)
          ;; XXX: these calls to `nth’ should be abstracted away
          (let ((smtpmail-smtp-server (nth 3 account))
                (smtpmail-stream-type (nth 4 account))
                (smtpmail-smtp-service (nth 5 account))
