How to store list of variable values into another dynamically created variables

[miles christopher <numbchild@gmail.com>]

I want to store some variables' value into another minor mode temporary variable
for later restore.

Here is my Elisp code, I don't know how to implement it in FIXME and TODO. Hope
some Elisp master help me.

#+begin_src emacs-lisp
(defvar mu4e-marker-icons-marker-list
  '(mu4e-headers-seen-mark
    mu4e-headers-new-mark
    mu4e-headers-unread-mark
    mu4e-headers-signed-mark
    mu4e-headers-encrypted-mark
    mu4e-headers-draft-mark
    mu4e-headers-attach-mark
    mu4e-headers-passed-mark
    mu4e-headers-flagged-mark
    mu4e-headers-replied-mark
    mu4e-headers-trashed-mark
    ;; thread prefix marks
    mu4e-headers-default-prefix
    mu4e-headers-has-child-prefix
    mu4e-headers-empty-parent-prefix
    mu4e-headers-first-child-prefix
    mu4e-headers-duplicate-prefix)
  "A list of markers used in mu4e.")

(defun mu4e-marker-icons--store ()
  "Store user old config."
  (mapcar
   (lambda (marker-variable)
     ;; FIXME:
     `(setq
       ,(intern (replace-regexp-in-string
                 "mu4e-headers-" "mu4e-marker-icons--"
                 (symbol-name marker-variable)))
       ,(symbol-value marker-variable))
     )
   mu4e-marker-icons-marker-list))

(defun mu4e-marker-icons--restore ()
  "Restore user old config."
  ;; TODO:
  (mapcar
   (lambda (marker-variable)
     ;; FIXME:
     `(setq
       marker-variable
       ,(symbol-value (intern (replace-regexp-in-string
                               "mu4e-headers-" "mu4e-marker-icons--"
                               (symbol-name marker-variable))))))
   mu4e-marker-icons-marker-list))
#+end_src

-- 
[ stardiviner ]
       I try to make every word tell the meaning that I want to express.

       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner, Matrix: stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3