Re: # # # A P

[Michael R Cook <mcook@cognex.com>]

>>>>> "J" ==   <jari.aalto@poboxes.com> writes:

 J> The framework goes something like this, this is excerpt from my
 J> TinyGnus.el package.

Okay, this patch makes `gnus-summary-print-article' #-aware.  This
patch includes an interface change (`gnus-summary-print-article' was
a 1-option arg function, now it's a 2-optional arg function).

*** gnus-sum.el.~1~	Sat Dec  6 11:45:19 1997
--- gnus-sum.el	Wed Dec 24 14:36:48 1997
***************
*** 6676,6700 ****
      (when gnus-page-broken
        (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*")))
!       (unwind-protect
! 	  (progn
! 	    (copy-to-buffer buffer (point-min) (point-max))
! 	    (set-buffer buffer)
! 	    (gnus-article-delete-invisible-text)
! 	    (run-hooks 'gnus-ps-print-hook)
! 	    (ps-print-buffer-with-faces filename))
! 	(kill-buffer buffer)))))
  
  (defun gnus-summary-show-article (&optional arg)
    "Force re-fetching of the current article.
--- 6676,6706 ----
      (when gnus-page-broken
        (gnus-narrow-to-page))))
  
! (defun gnus-summary-print-article (&optional n filename)
!   "Generate and print a PostScript image of the N next (mail) articles.
  
! If N is negative, print the N previous articles.  If N is nil and articles
! have been marked with the process mark, print these instead.
! 
! If the optional second 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 current-prefix-arg
! 		     (ps-print-preprint current-prefix-arg)))
!   (let ((articles (gnus-summary-work-articles n)))
!     (dolist (nbr articles)
!       (gnus-summary-select-article 'all nil 'pseudo nbr)
!       (gnus-eval-in-buffer-window gnus-article-buffer
! 	(let ((buffer (generate-new-buffer " *print*")))
! 	  (unwind-protect
! 	      (progn
! 		(copy-to-buffer buffer (point-min) (point-max))
! 		(set-buffer buffer)
! 		(gnus-article-delete-invisible-text)
! 		(run-hooks 'gnus-ps-print-hook)
! 		(ps-print-buffer-with-faces filename))
! 	    (kill-buffer buffer)))))))
  
  (defun gnus-summary-show-article (&optional arg)
    "Force re-fetching of the current article.

Michael.