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

                    (nnir-notmuch-remove-prefix ,(expand-file-name "~/Mail/archive/"))))

       ;; automatically add accounts when address is not nil and not the empty string
       (remove-if #'null
                  (mapcar (lambda (account)
                            (let ((account-name (nth 1 account))

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