From xemacs-m  Fri Aug 29 17:49:01 1997
Received: from newman.aventail.com (root@newman.aventail.com [199.238.236.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id RAA01716
	for <xemacs-beta@xemacs.org>; Fri, 29 Aug 1997 17:48:57 -0500 (CDT)
Received: from kramer.in.aventail.com (wmperry@kramer.in.aventail.com [192.168.1.12])
	by newman.aventail.com (8.8.5/8.8.5) with ESMTP id PAA26243;
	Fri, 29 Aug 1997 15:48:53 -0700 (PDT)
Received: (from wmperry@localhost)
	by kramer.in.aventail.com (8.8.5/8.8.5) id PAA30324;
	Fri, 29 Aug 1997 15:48:12 -0700
To: kifer@cs.sunysb.edu (Michael Kifer)
Cc: xemacs-beta@xemacs.org
Subject: Re: lpr.el is hosed
References: <199708292231.SAA04132@cs.sunysb.edu>
Errors-to: wmperry@aventail.com
Reply-to: wmperry@aventail.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;
From: wmperry@aventail.com (William M. Perry)
Date: 29 Aug 1997 15:48:12 -0700
In-Reply-To: kifer@cs.sunysb.edu's message of "Fri, 29 Aug 1997 18:31:32 -0400"
Message-ID: <86d8mwd2s3.fsf@kramer.in.aventail.com>
Lines: 52
X-Mailer: Gnus v5.4.64/XEmacs 20.3(beta18) - "Bratislava"

kifer@cs.sunysb.edu (Michael Kifer) writes:

> lpr.el requires message.el, but this is not found anywhere. It used to be
> in lisp/gnus before.

*** lpr.el~	Sat Apr 19 16:21:10 1997
--- lpr.el	Fri Aug 29 15:47:41 1997
***************
*** 114,122 ****
    (interactive "r")
    (print-region-1 start end lpr-switches t))
  
! ;; XEmacs change
! (require 'message)	; Until We can get some sensible autoloads, or
! 			; message-flatten-list gets put somewhere decent.
  (defun print-region-1 (start end switches page-headers)
    ;; On some MIPS system, having a space in the job name
    ;; crashes the printer demon.  But using dashes looks ugly
--- 114,129 ----
    (interactive "r")
    (print-region-1 start end lpr-switches t))
  
! (defun lpr-flatten-list (list)
!   "Return a new, flat list that contains all elements of LIST.
! 
! \(lpr-flatten-list '(1 (2 3 (4 5 (6))) 7))
! => (1 2 3 4 5 6 7)"
!   (cond ((consp list)
! 	 (apply 'append (mapcar 'lpr-flatten-list list)))
! 	(list
! 	 (list list))))
! 
  (defun print-region-1 (start end switches page-headers)
    ;; On some MIPS system, having a space in the job name
    ;; crashes the printer demon.  But using dashes looks ugly
***************
*** 139,145 ****
  					 (list lpr-headers-switches)
  				        lpr-headers-switches)
  				     switches))))
!       (setq nswitches (message-flatten-list    ; XEmacs
  		       (mapcar '(lambda (arg)  ; Dynamic evaluation
  				  (cond ((stringp arg) arg)
  					((functionp arg) (apply arg nil))
--- 146,152 ----
  					 (list lpr-headers-switches)
  				        lpr-headers-switches)
  				     switches))))
!       (setq nswitches (lpr-flatten-list    ; XEmacs
  		       (mapcar '(lambda (arg)  ; Dynamic evaluation
  				  (cond ((stringp arg) arg)
  					((functionp arg) (apply arg nil))

