[Seaside-dev] Extended WAEmailMessage to include headers

[Dale Henrichs]

On 11/07/2010 05:24 AM, Philippe Marschall wrote:
> 2010/11/6 Udo Schneider<Udo.Schneider at homeaddress.de>:
>>
>> On 06.11.2010, at 19:09, Philippe Marschall wrote:
>>>
>>> The headers should get passed, see WAEmailMessageTest>>  #testHeaders.
>>> The #plainMessage im my image does this except at the end instead of
>>> the start. I'm a bit confused, how did your #plainMessage look before?
>>
>> The methods is as following in my base image:
>> plainMessage
>>         ^ String streamContents:
>>                 [ :stream |
>>                 self
>>                         renderAddress: self from
>>                         withHeader: 'From: '
>>                         on: stream.
>>                 self to do:
>>                         [ :each |
>>                         self
>>                                 renderAddress: each
>>                                 withHeader: 'To: '
>>                                 on: stream ].
>>                 self cc do:
>>                         [ :each |
>>                         self
>>                                 renderAddress: each
>>                                 withHeader: 'Cc: '
>>                                 on: stream ].
>>                 self bcc do:
>>                         [ :each |
>>                         self
>>                                 renderAddress: each
>>                                 withHeader: 'Bcc: '
>>                                 on: stream ].
>>                 stream
>>                         nextPutAll: 'Subject: ';
>>                         nextPutAll: self subject;
>>                         nextPut: Character cr;
>>                         nextPut: Character cr.
>>                 self body isNil ifFalse: [ stream nextPutAll: self body greaseString ] ]
>>
>> The package is Seaside-Email-lr.15. Just checked that your Seaside-Email-pmm.19 package is indeed fixed. Seems to be a problem that the Metacello config still loads v.15. I just checked this with
>>
>> Gofer new
>>         squeaksource: 'MetacelloRepository';
>>         package: 'ConfigurationOfSeaside';
>>         load.
>> (Smalltalk at: #ConfigurationOfSeaside) project latestVersion load: #( 'Seaside 3.0' 'Magritte2' ).
>
> Hm, AFAIK Dale move ConfigurationOfSeaside to Seaside30.
>
>> Sorry for the hassle.
>
> Don't worry, we're happy people are using it.
>
> Cheers
> Philippe

I'm hoping to get all of the Seaside configs updated this week (lets all 
cross our fingers:)

Dale