TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 02:48:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Provide email proposals from address book

Browse Source
This commit is contained in:
Eike Kettner
2020-01-12 01:04:42 +01:00
parent c84a69aa9c
commit d535130c9e
14 changed files with 426 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
modules/webapp/src/main/elm/Comp/ItemDetail.elm
View File

@ -715,12 +715,12 @@ update key flags next msg model =
ItemMailMsg m ->
let
( im, fa ) =
Comp.ItemMail.update m model.itemMail
( im, ic, fa ) =
Comp.ItemMail.update flags m model.itemMail
in
case fa of
Comp.ItemMail.FormNone ->
( { model | itemMail = im }, Cmd.none )
( { model | itemMail = im }, Cmd.map ItemMailMsg ic )
Comp.ItemMail.FormCancel ->
( { model
@ -728,7 +728,7 @@ update key flags next msg model =
, mailOpen = False
, mailSendResult = Nothing
}
, Cmd.none
, Cmd.map ItemMailMsg ic
)
Comp.ItemMail.FormSend sm ->
@ -739,7 +739,12 @@ update key flags next msg model =
, conn = sm.conn
}
in
( model, Api.sendMail flags mail SendMailResp )
( model
, Cmd.batch
[ Cmd.map ItemMailMsg ic
, Api.sendMail flags mail SendMailResp
]
)
ToggleMail ->
( { model | mailOpen = not model.mailOpen }, Cmd.none )