--- auctex-11.53/tex.el.orig	2004-08-29 00:57:47 +0300
+++ auctex-11.53/tex.el	2004-11-27 07:52:24 +0200
@@ -356,7 +356,10 @@
 ;; you only have one printer.
 
 (defcustom TeX-printer-list
-  '(("Default" "%(o?)dvips -f %s | lpr" "lpq"))
+	(car (read-from-string 
+       (shell-command-to-string "[ -x /usr/bin/lpstat ] && { echo '('; for p in $(lpstat -p 2>/dev/null | cut -d' ' --fields=2); do echo -n \"(\\\"$p\\\")\"; done; echo ')'; } || echo nil") 
+		)
+	)
   "List of available printers.
 
 The first element of each entry is the printer name.