(cuss auto-save-file-name-transforms

    `((".*" ,(no-littering-expand-var-file-name "auto-save/") t)))

(defun rm-whitelist-add (regexp)

"Add a regexp option to the rm-whitelist group."

(unless (boundp 'rm-whitelist-regexps)

(setq rm-whitelist-regexps '("^$")))

(add-to-list 'rm-whitelist-regexps regexp)

(setq rm-whitelist (mapconcat 'identity rm-whitelist-regexps "\|")))