@IstvánZachar I think the 3 in Drop[{1, 2}, {3, -1}] means the 3rd "gap". The 1st gap is before 1 in {1, 2}, the 2nd one is between 1 and 2, and so on.
The following updated solution is based on the existing solutions from Janus and belisarius, but I consider it an improvement.
Corrected to work with Plot[..., {PlotStyle -> ...}] , and to move the assignment from Rule.
Supporting functions
ClearAll[toDirective, styleJoin]
toDirective[{ps__...