Permalink
Browse files

mail-ui: Support multiple "To:" addresses.

  • Loading branch information...
mrjbq7 committed Apr 17, 2011
1 parent c56a0f1 commit 1c6136acef6fe76f63923935d43665a3d1004315
Showing with 6 additions and 5 deletions.
  1. +6 −5 mail-ui/mail-ui.factor
View
@@ -1,10 +1,11 @@
! Copyright (C) 2011 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: accessors arrays colors.constants kernel smtp ui
ui.commands ui.gadgets ui.gadgets.borders ui.gadgets.buttons
ui.gadgets.editors ui.gadgets.labels ui.gadgets.scrollers
ui.gadgets.tracks ui.gestures ui.pens.solid ;
USING: accessors arrays colors.constants kernel sequences smtp
splitting ui ui.commands ui.gadgets ui.gadgets.borders
ui.gadgets.buttons ui.gadgets.editors ui.gadgets.labels
ui.gadgets.scrollers ui.gadgets.tracks ui.gestures ui.pens.solid
;
IN: mail-ui
@@ -50,7 +51,7 @@ M: mail-gadget focusable-child* to>> ;
: com-send ( mail -- )
<email>
over to>> editor-string 1array >>to
over to>> editor-string " " split harvest >>to
over subject>> editor-string >>subject
over body>> editor-string >>body
send-email close-window ;

0 comments on commit 1c6136a

Please sign in to comment.