Re: Bug in toolbar? and some minor toolbar comments.

[Hrvoje Niksic <hniksic@srce.hr>]

Lars Magne Ingebrigtsen (larsi@ifi.uio.no) wrote:
> Hrvoje Niksic <hniksic@srce.hr> writes:
> 
> > The problem with this command is that it will print the entire buffer,
> > including the hidden headers.
> 
> Yup.  Fix in Red Gnus v0.71.

Speaking of that, could you add the feature that a prefix argument
behaves the way it does with ps-print-buffer-with-faces?  The
following simple patch soves it:

*** gnus-sum.el.old	Tue Nov 26 17:24:43 1996
--- gnus-sum.el	Tue Nov 26 17:29:13 1996
***************
*** 6361,6369 ****
      (when gnus-break-pages
        (gnus-narrow-to-page))))
  
! (defun gnus-summary-print-article ()
!   "Generate and print a PostScript image of the article buffer."
!   (interactive)
    (gnus-summary-select-article)
    (gnus-eval-in-buffer-window gnus-article-buffer
      (let ((buffer (generate-new-buffer " *print*")))
--- 6361,6374 ----
      (when gnus-break-pages
        (gnus-narrow-to-page))))
  
! (defun gnus-summary-print-article (&optional filename)
!   "Generate and print a PostScript image of the article buffer.
! 
! If the optional argument FILENAME is nil, send the image to the printer.
! If FILENAME is a string, save the PostScript image in a file with that
! name.  If FILENAME is a number, prompt the user for the name of the file
! to save in."
!   (interactive (list (ps-print-preprint current-prefix-arg)))
    (gnus-summary-select-article)
    (gnus-eval-in-buffer-window gnus-article-buffer
      (let ((buffer (generate-new-buffer " *print*")))
***************
*** 6372,6378 ****
  	    (copy-to-buffer buffer (point-min) (point-max))
  	    (set-buffer buffer)
  	    (article-delete-invisible-text)
! 	    (ps-print-buffer-with-faces))
  	(kill-buffer buffer)))))
  
  (defun gnus-summary-show-article (&optional arg)
--- 6377,6383 ----
  	    (copy-to-buffer buffer (point-min) (point-max))
  	    (set-buffer buffer)
  	    (article-delete-invisible-text)
! 	    (ps-print-buffer-with-faces filename))
  	(kill-buffer buffer)))))
  
  (defun gnus-summary-show-article (&optional arg)


-- 
Hrvoje Niksic <hniksic@srce.hr> | Hocemo 101-icu!
--------------------------------+--------------------------------
If a President doesn't do it to his wife, he'll do it to his country.