method save () =
match filename with
None -> self#save_as ()
| Some f ->
let channel = self#build_channel () in
try Rss.print_file f channel
with
Sys_error s
| Failure s ->
GToolbox.message_box "Error" s;
self#save_as ()