[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
|