Emacs M-x a2ps-region prints entire buffer

I noticed that Emacs always prints the entire buffer instead of the
selected region with M-x a2ps-region.

Here's the fix.

--- a2ps-print.el	2003-08-22 12:12:38.001000000 -0400
+++ a2ps-print.el	2011-02-03 15:21:39.627747200 -0500
@@ -80,7 +80,7 @@
 	  (let ((oldbuf (current-buffer)))
 	    (set-buffer (get-buffer-create " *spool temp*"))
 	    (widen) (erase-buffer)
-	    (insert-buffer-substring oldbuf)
+	    (insert-buffer-substring oldbuf start end)
 	    (setq tab-width width)
 	    (untabify (point-min) (point-max))
 	    (setq start (point-min) end (point-max))))


Thanks for a2ps!
/a

-- 
In general, we reserve the right to have a poor
memory--the computer, however, is supposed to
remember!  Poor computer.  -- Guy Lewis Steele Jr.

2011-02-03  Aaron S. Hawley  <[email protected]>

	* a2ps-print.el (a2ps-region-1): Fix bug of printing the whole
	buffer instead of just the region between start and end.

--- a2ps-print.el	2003-08-22 12:12:38.001000000 -0400
+++ a2ps-print.el	2011-02-03 15:21:39.627747200 -0500
@@ -80,7 +80,7 @@
 	  (let ((oldbuf (current-buffer)))
 	    (set-buffer (get-buffer-create " *spool temp*"))
 	    (widen) (erase-buffer)
-	    (insert-buffer-substring oldbuf)
+	    (insert-buffer-substring oldbuf start end)
 	    (setq tab-width width)
 	    (untabify (point-min) (point-max))
 	    (setq start (point-min) end (point-max))))