Allows more aggressive control over recursive deletion policy

dired-do-flagged-delete.el

(defadvice dired-do-flagged-delete
  (around dired-do-flagged-delete activate)
  "Allows more aggressive control over recursive deletion policy:
  `dired-recursive-deletes` is set based on the current-prefix-arg: 
   4=>top     (with confirmation)
   16=>always (with confirmation)
   64=>always (without confirmation)"
  (interactive "p")
  (let ((dired-recursive-deletes (case (car current-prefix-arg)
				   (4 'top)
				   (16 'always)
				   (64 'always)
				   (t dired-recursive-deletes))))
    (if (or (null dired-recursive-deletes)
	    (eq 64 dired-recursive-deletes)
	    (y-or-n-p (format "Delete with dired-recursive-deletes = %s"  dired-recursive-deletes)))
	ad-do-it
    )))