Concat var names ?

[Philippe M . Coatmeur]

Hi ; I have those two functions and I want to make them one :

(defun mail-bug-desktop-notify-one ()
  (mapcar
   (lambda (x)
     (if (not (member x mail-bug-advertised-mails-one))
         (progn
           (mail-bug-desktop-notification
            (format "%s" (first x))
            (format "%s \n%s" (second x)
                    (third x))
            "5000" mail-bug-new-mail-icon-one)
           (add-to-list 'mail-bug-advertised-mails-one x))))
   mail-bug-unseen-mails-one))

But I have to create distinct lists, so I'd really like to be able to
say

(setq suffix "plop")
(setq myvar-plop "value")
(message "%s" (concat "myvar-" suffix))

And get "myvar-value" instead of myvar-plop... 

Or even better, to use the same mechanism, a mapcar, but what about
the creation of mail-bug-advertised-mails-SUFFIX ? How do I instruct
my function to tell one list from the other ?

Phil