Elisp: меняем настройки Wanderlust при переходе по папкам

Я использую два разных imap-ящика и не нашёл в wanderlust способа настроить отдельную папку Trash для каждого из них. Пришлось выкручиваться.

Функция для получения petname (название, alias) текущей папки:

(wl-folder-get-petname (elmo-folder-name-internal
        wl-summary-buffer-elmo-folder))

Использовать можно как-то так:

(defun vyazovoi/wl-folder-switch ()
  (setq my-wl-current-petname (wl-folder-get-petname (elmo-folder-name-internal
            wl-summary-buffer-elmo-folder)))
  (cond ((equal my-wl-current-petname "INBOX@domain")
         (message "Настройки для domain"))
 ((equal my-wl-current-petname "INBOX@gmail")
         (message "Настройки для gmail"))
 (t
  (message "Настройки по умолчанию"))))

(add-hook 'wl-summary-prepared-hook 'vyazovoi/wl-folder-switch)

Я таким образом перенастраиваю папки Trash и Drafts, настройки smtp, поле from, подпись и др.

P.S. Можно также использовать переменную wl-draft-parent-folder, но она локальная в буфере draft, так что, например, папку Trash с её помощью менять смысла нет.