A completing read to set message-mode or Gnus "from"

[Tory S . Anderson]

As a Helm user with 7 or so email addresses I might be sending 
with, I wanted to put together a quick completing-read to fill in 
my from address with a keystroke; however, it's not working and 
I'm not sure why. It complains about wanting a list, but when I 
return a list it complains about wanting a string.

--8<---------------cut here---------------start------------->8---
(defun tsa/message-choose-from ()
 (interactive
  (let ((my-name "Joseph Smith")
	 (my-from-list '("abc@gmail.com" "def@gmail.com" 
	 "xyz@gmail.com")))
    (message-make-from my-name (completing-read "From:" 
    my-from-list nil t)))))

(add-hook 'message-mode-hook
          (lambda ()
	    (local-set-key (kbd "C-c f") 
	    'tsa/message-choose-from)))
--8<---------------cut here---------------end--------------->8---

Error:
> command-execute: Wrong type argument: listp, "Joseph Smith 
> <abc@gmail.com>"

Is this to do with "interactive" vs "message-make-from"? The 
completing-read seems to work, but the final step is blocked by 
the error.