DateListPlot[ FinancialData[#, "Jan. 1, 2004"] & /@ FinancialData["NYSE:AA*", "Lookup"], Filling -> Axis, Joined -> True]