#####################################################################
# Module : News.hsm
# Description : Version amputée et modifiée de BMessage.hsm
#               Fonctions de traitement des articles sortants
# Auteur BMessage.hsm : Brina <HamsterFR@Free.fr>
# Auteur News.hsm : Olivier Zolli <ozolli@online.fr>
# Version : 27/01/01
#####################################################################

#!load BStrings.hsm
#!load BMsgHeader.hsm
#!load BFichierTexte.hsm

#!initialize
  debug(255,"<<< module News.hsm' >>>")
return(0)

#####################################################################
# Subroutine modifiant les entêtes de tous les articles sortants
# [Entrée] : Aucune
# [Sortie] : Aucune
#####################################################################

Sub EnteteNews

Var($i,$msg,$ContenuMsg,$nb_msg,$subject,$FichierMsg_i,$mid)

_msg=ListeFichiers_DsRep($msg,HamPath+"Groups\News.Out\","msg")-1

$ContenuMsg=ListAlloc

For($i,0,$nb_msg,1)
  $FichierMsg_i=ListGet($msg,$i)
  print($fichierMsg_i)
  ListClear($ContenuMsg)
  ListLoad($ContenuMsg,$FichierMsg_i)
  $Subject=ChaineConvert8_7bit(MsgGetHeader($ContenuMsg,"Subject:"))
  MsgChangeHeader($ContenuMsg,"Subject:",$Subject)

  $mid=MsgGetHeader($ContenuMsg,"Message-ID:")
  $mid=replace($mid,copy($mid,pos("@",$mid)),"@Olivier.jp3>")
  MsgChangeHeader($ContenuMsg,"Message-ID:",$mid)
  ListSave($ContenuMsg,$FichierMsg_i)

EndFor
ListFree($ContenuMsg)
ListFree ($msg)

EndSub