Merge from emacs--rel--22

[gnu-emacs] / lisp / gnus / gnus-sum.el

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index ce22d17168626e4dcbe048c3775cb3b053fe16ca..48232ae53f7133d396f51d289743fa1004417974 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -9277,7 +9277,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))))