Differentiate into a sum



How can I do something like finding the derivative wrt to x[r] of some
function of the sum sum(a[k]*x[k], k, 1, n)? With n an integer greater
than 1 and r another integer between 1 and n, of course. I'd like
Maxima to give a pretty answer whenever possible and not expand the
summation.

Thanks,
- Jordi G. H.