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 ()