[Fix] the #mailOut feature of the ChangeSorter still refers to the old address. This fixes it

danielv at netvision.net.il danielv at netvision.net.il
Sun Sep 2 22:29:17 UTC 2001


Third fix to the same thing...
We also have had the updated header cutters for Celeste for a while, and
the mail out bug reports also.

Could the update culling guys please put this matter out of our misery?
please?

"Rob Withers" <rwithers12 at mediaone.net> wrote:
> This is a multi-part message in MIME format.
> 
> ------=_NextPart_000_008F_01C12E9D.042D37E0
> Content-Type: text/plain;
> 	charset="iso-8859-1"
> Content-Transfer-Encoding: 7bit
> 
> 
> 
> ------=_NextPart_000_008F_01C12E9D.042D37E0
> Content-Type: application/octet-stream;
> 	name="ChangeSet-mailOut.1.cs"
> Content-Transfer-Encoding: quoted-printable
> Content-Disposition: attachment;
> 	filename="ChangeSet-mailOut.1.cs"
> 
> 'From Squeak3.1alpha of 7 March 2001 [latest update: #4282] on 26 August =
> 2001 at 5:29:16 pm'!=0D=0D!ChangeSet methodsFor: 'fileIn/Out' stamp: =
> 'rww 8/26/2001 17:28'!=0DmailOut=0D	"File out the receiver, to a file =
> whose name is a function of the  =0D	=0A=
> 	change-set name and either of the date & time or chosen to have a =0D	=0A=
> 	unique numeric tag, depending on the preference =0D	=0A=
> 	'sequentialChangeSetRevertableFileNames'."=0D	| subjectPrefix slips =
> message compressBuffer compressStream data compressedStream =
> compressTarget |=0D	(Smalltalk includesKey: #Celeste)=0D		ifFalse: [^ =
> self notify: 'no mail reader present'].=0D	subjectPrefix _ self =
> chooseSubjectPrefixForEmail.=0D	self checkForConversionMethods.=0D	=
> Cursor write=0D		showWhile: ["prepare the message"=0D			message _ =
> MailMessage empty.=0D			message setField: 'from' toString: Celeste =
> userName.=0D			message setField: 'to' toString: =
> 'squeak-dev at lists.squeakfoundation.org'.=0D			message setField: =
> 'subject' toString: subjectPrefix , name.=0D			message=0D				body: =
> (MIMEDocument=0D						contentType: 'text/plain'=0D						content: =
> (String=0D								streamContents: [:str | =0D									str nextPutAll: =
> 'from preamble:';=0D										 cr;=0D										 cr.=0D									self =
> fileOutPreambleOn: str])).=0D			"Prepare the gzipped data"=0D			data _ =
> data _ WriteStream on: String new.=0D			data header.=0D			self =
> fileOutPreambleOn: data.=0D			self fileOutOn: data.=0D			self =
> fileOutPostscriptOn: data.=0D			data trailer.=0D			data _ ReadStream on: =
> data contents.=0D			compressBuffer _ ByteArray new: 1000.=0D			=
> compressStream _ GZipWriteStream on: (compressTarget _ WriteStream=0D				=
> 					on: (ByteArray new: 1000)).=0D			[data atEnd]=0D				whileFalse: =
> [compressStream=0D						nextPutAll: (data nextInto: compressBuffer)].=0D	=
> 		compressStream close.=0D			compressedStream _ ReadStream on: =
> compressTarget contents asString.=0D			message addAttachmentFrom: =
> compressedStream withName: name , '.cs.gz'.=0D			CelesteComposition =
> openForCeleste: Celeste current initialText: message text].=0D	=
> Preferences suppressCheckForSlips=0D		ifTrue: [^ self].=0D	slips _ self =
> checkForSlips.=0D	(slips size > 0=0D			and: [self confirm: 'Methods in =
> this fileOut have halts
> or references to the Transcript
> or other ''slips'' in them.
> Would you like to browse them?'])=0D		ifTrue: [Smalltalk =
> browseMessageList: slips name: 'Possible slips in ' , name]! !=0D
> ------=_NextPart_000_008F_01C12E9D.042D37E0--




More information about the Squeak-dev mailing list