Help needed to simplify code for customisation

[Richard Riley <rileyrgdev@gmail.com>]

Could someone please recommend the best way to remove the 3 similar lines
doing string-match on the "account" assign and iterate a variable list to
which I can "add-to-list" in other .el libraries for example?

,----
|  (if (message-mail-p)
|       (save-excursion
| 	(let* ((from
| 		(save-restriction
| 		  (message-narrow-to-headers)
| 		  (message-fetch-field "from")))
| 	       (account
| 		(cond
| 		 ((string-match ".*root.*" from)"richardriley")
| 		 ((string-match ".*richardriley.*" from)"richardriley")
| 		 ((string-match ".*rileyrgdev.*" from)"rileyrgdev")
| 		 ))
| 	       )
| 	  (setq message-sendmail-extra-arguments (list "-a" account))
| 	  )))
|   )
`----

Thanks for any pointers,

r.