--- a/lisp/ChangeLog	Tue May 13 20:16:53 2008 +0200
+++ b/lisp/ChangeLog	Tue May 13 14:56:38 2008 +0200
@@ -1,3 +1,11 @@
+2008-05-13  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* printer.el (generic-print-region): 
+	(generic-print-buffer): 
+	Use #'valid-device-type-p instead of #'valid-specifier-tag-p to
+	check if the msprinter device is available, now that msprinter is
+	always available as a specifier tag. 
+
 2008-05-11  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* disp-table.el (make-display-table): 

--- a/lisp/printer.el	Tue May 13 20:16:53 2008 +0200
+++ b/lisp/printer.el	Tue May 13 14:56:38 2008 +0200
@@ -263,7 +263,7 @@
       (let* ((print-region (and (interactive-p) (region-active-p)))
 	     (start (if print-region (region-beginning) (point-min buffer)))
 	     (end (if print-region (region-end) (point-max buffer))))
-	(if (or (not (valid-specifier-tag-p 'msprinter))
+	(if (or (not (valid-device-type-p 'msprinter))
 		(not display-print-dialog))
 	    (generic-print-region start end buffer)
 	  (let* ((d (Printer-get-device))
@@ -312,7 +312,7 @@
   to-page    Last page to print, inclusive, If omitted, printing ends at
              the end.
   copies     Number of copies to print.  If omitted, one copy is printed."
-  (cond ((valid-specifier-tag-p 'msprinter)
+  (cond ((valid-device-type-p 'msprinter)
 	 ;; loop, printing one copy of document per loop.  kill and
 	 ;; re-create the frame each time so that we eject the piece
 	 ;; of paper at the end even if we're printing more than one