[Spambayes-checkins] spambayes/Outlook2000/dialogs FolderSelector.py,1.9,1.10

[Mark Hammond]

Update of /cvsroot/spambayes/spambayes/Outlook2000/dialogs
In directory sc8-pr-cvs1:/tmp/cvs-serv28992

Modified Files:
	FolderSelector.py 
Log Message:
Ignore folders that fail when querying their standard properties - as
reported by Tony Meyer.


Index: FolderSelector.py
===================================================================
RCS file: /cvsroot/spambayes/spambayes/Outlook2000/dialogs/FolderSelector.py,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** FolderSelector.py	7 Nov 2002 22:30:10 -0000	1.9
--- FolderSelector.py	15 Jan 2003 03:52:09 -0000	1.10
***************
*** 111,123 ****
  
  ## <sob> - An Outlook object model version
  def _BuildFolderTreeOutlook(session, parent):
      children = []
      for i in range(parent.Folders.Count):
          folder = parent.Folders[i+1]
!         spec = FolderSpec((folder.StoreID, folder.EntryID),
!                           folder.Name.encode("mbcs", "replace"))
!         if folder.Folders:
!             spec.children = _BuildFolderTreeOutlook(session, folder)
!         children.append(spec)
      return children
  
--- 111,129 ----
  
  ## <sob> - An Outlook object model version
+ import pythoncom
  def _BuildFolderTreeOutlook(session, parent):
      children = []
      for i in range(parent.Folders.Count):
          folder = parent.Folders[i+1]
!         try:
!             spec = FolderSpec((folder.StoreID, folder.EntryID),
!                               folder.Name.encode("mbcs", "replace"))
!         except pythoncom.error:
!             # Something strange with this folder - just ignore it
!             spec = None
!         if spec is not None:
!             if folder.Folders:
!                 spec.children = _BuildFolderTreeOutlook(session, folder)
!             children.append(spec)
      return children