(gnus-print-buffer): Honor ps-print-color-p.

Suggested by <chris.anderton@zetnet.co.uk>.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f5c7a68a7152502bad0aeaf08579f67dedc26fd0..ca1a4a01ecb25ec607a985f407d20dc0ff8d505d 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-05  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-sum.el (gnus-print-buffer): Honor ps-print-color-p.
+       Suggested by <chris.anderton@zetnet.co.uk>.
+
 2008-02-29  Andreas Seltenreich  <andreas@gate450.dyndns.org>
 
        * nnweb.el (nnweb-google-parse-1): Fix date parsing on articles with

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index f5544bb7fd3d6bf032b364654513b24b5f512fcc..269da70461abc397991a60d654e2101a535e27f0 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -8909,7 +8909,7 @@ to save in."
                          (mail-header-date gnus-current-headers) ")"))))
            (gnus-run-hooks 'gnus-ps-print-hook)
            (save-excursion
-             (if window-system
+             (if ps-print-color-p
                  (ps-spool-buffer-with-faces)
                (ps-spool-buffer)))))
       (kill-buffer buffer))))