theo: provide optional argument to pick out theo quotes

theo.el

@@ -16,10 +16,10 @@
 
 ;;; Code:
 
-(defun theo ()
+(defun theo (&optional quote-index)
   "Gets a random quote from Theo de Raadt."
   (interactive)
-  (let ((theo-quotes '("Buttons are for idiots."
+  (let* ((theo-quotes '("Buttons are for idiots."
 		     "Why are you guys so fork paranoid? Do you want everyone to vote for the same political party, too?"
 		     "I think your computer science teachers are still teaching you from books written in the 80's, when the word \"micro-kernel\" was associated with a future utopia."
 		     "But software which OpenBSD uses and redistributes must be free to all (be they people or companies), for any purpose they wish to use it, including modification, use, peeing on, or even integration into baby mulching machines or atomic bombs to be dropped on Australia."
@@ -1113,6 +1113,7 @@
 		     "You are not listening."
 		     "This thread is too long.  Please just stop."
 		     "I'm done here.")))
-    (message (nth (random (length theo-quotes)) theo-quotes))))
+    (message
+     (nth (or quote-index (- (random (length theo-quotes)) 1)) theo-quotes))))
 
 ;;; theo.el ends here