
              GNUS  -  Integration of Muttprint in Gnus
              ~~~~ 


 I've got following Code from Hans-Jürgen Ficker (thanks to him). I cannot
 say whether it works or not -- I don't know anything about Gnus/(X)Emacs and 
 the stuff like this ;-)

 Put this code in your ~/.gnus and you should be able to print with "O P" 
 in Gnus.

 Please don't ask me any questions. If you have a better code: please 
 mail me: Bernhard Walle <Bernhard.Walle@gmx.de>. Thanks in advance.

 BTW: Oort Gnus 0.04 has built-in support for Muttprint.
 
 Anyway, here's the code:


---------------------- 8< -------------------------------------------------
(define-key gnus-summary-save-map "P" 'gnus-summary-muttprint-buffer)

(defvar muttprint-command "muttprint")

(defun gnus-summary-pipe-to-muttprint (&optional dummy)
  "Pipe this article to muttprint."  
  (gnus-eval-in-buffer-window gnus-article-buffer
    (save-restriction
      (widen)
      (shell-command-on-region (point-min) (point-max)
                               muttprint-command nil)))) 

(defun gnus-summary-muttprint-buffer (&optional arg)
  (interactive "P")
  (require 'gnus-art)
  (let ((gnus-default-article-saver 'gnus-summary-pipe-to-muttprint))
    (gnus-summary-save-article arg t)))
---------------------- >8 -------------------------------------------------
