emayili/0000755000176200001440000000000014751316262011712 5ustar liggesusersemayili/MD50000644000176200001440000001060214751316262012221 0ustar liggesusers89be0fd0973ad9e4d4011b1fd7494928 *DESCRIPTION e9482534aa9c3cc1164f481529fa63e1 *NAMESPACE e188cf7765d4b01e3ce0f7743c570a58 *NEWS.md 5152cb2e9ce01ac1ac8f92d99a200a62 *R/address.R 309fe70f605b534cf7132b86e546a5d0 *R/attachment.R 3d55bf72f7e474477a5c03fcf95f7b78 *R/body.R 6c8754903b6f5606cb0ac7a1fe66c4a9 *R/const.R 60cb22d4539f83ca178cdee9c91d0f79 *R/css.R ff3a477c1c27653b37e67da05c7ad99f *R/emayili.R bcdf693daa96f37a53a403dd97acff77 *R/encodable.R d5ab75957f411310508b559026335497 *R/encoding.R 47a949608296c9d1185be9ae6f45444a *R/encrypt.R 1fda44149ebc55d057186c503f066cf2 *R/envelope.R a9eeda0b64a5e672c795a8e2667bad6f *R/generics.R f6e44c584e6dddda27c9b171413fb364 *R/header-expires.R cd6dcf59803908c93acc7df3f3592f70 *R/header-language.R b7d4b25b6353653d65aa887ac78470c1 *R/header-mail.R b5b592444574088686cf1b4a8a9c840d *R/header-mime.R 1de0daf892a7152f991e2db11d3d40b1 *R/header-precedence.R f542b177f611b90f57a77cb0634f8208 *R/header-receipt.R 20e63031ff4318e3fc98c59356dde44b *R/header-sensitivity.R b0a492f950f5929f1eb17a74b843552f *R/header.R 00040cdf71af5440dda8495084a386d2 *R/mime.R 0973fa57cb2eed2693a0f0cbcd20fb36 *R/options.R 78c7c7405209698839c4d6ab64d09a09 *R/parties.R af5ec887a18bc5ed997eff592210ef8a *R/render.R 1cf171dd50732dd5e62063f7e1ced4df *R/server.R 9a8c70d94ca165775ffbb2671a882941 *R/template.R 230df445eadf826f8be16f0e15c2aa38 *R/utils.R 746211587f69c8cb73cf54023b92ed77 *README.md 4811f57962b5ecd587244eaf324e2f43 *inst/WORDLIST d0a4e3d1b9e14560942b837b2e7bcd98 *inst/cats.jpg 0f3efe007ff68a56276d9118c67b9291 *inst/github-card.R ccc848c512061f087440a4c1ddbd50d4 *inst/hex/emayili-hex.R 8ce92391eec996d11268f623d45142e3 *inst/hex/envelope-regular.png 2662ce9e3373cb0873542bef65bcd3cd *inst/shiny/send-message/app.R d43d10d3e5b019a34a0c53485545dfb1 *inst/template/newsletter/template.html 8287d69d8a95e7db3c1197cc910d032d *inst/tiny-test-image.png cbf3c24fb86c2c1e9d7db9faf5512ccc *man/address.Rd 29d9ca76e7930e9de17f1bcbbfea50b9 *man/addresses.Rd c63df40cd848f4c6e2a9c7c947a51907 *man/after.envelope.Rd 82fb4023f009dec9489fa81516c45ea7 *man/as.address.Rd 5748feedece87c6c1dce17f5362791c9 *man/as.character.MIME.Rd 2bc6d97a8da452be3874cc57d02760a6 *man/as.character.address.Rd d1bca0239bdc7be6f531945698364092 *man/as.character.envelope.Rd b29fe588090b0cdb4ee24c0c7f2fa2c2 *man/as.character.header.Rd cedb673b93838feb71f37dbe968d14ec *man/attachment.Rd ec5288ddd73365ed9c2b5a595d920d56 *man/c.address.Rd d5ac4aae0199bc22b53bc6af0d026ec6 *man/cleave.Rd 26a8c820d023327ed33d97a970c7abbb *man/comments.Rd 0e7a53ee5377737df29460f2118588c7 *man/compare.Rd e680986987b55d3743b9818a8c5ef202 *man/compliant.Rd f886ac9c9ba7c316259d2ea77d45e51f *man/cutoff.Rd bf21cf5c2923605655bd8ccaab85f7a5 *man/display.Rd 8de08165e196bab369e60986c9816788 *man/domain.Rd 950893dbeb037f2265d0d8b58ee92b3c *man/encrypt.Rd 1fdd63a76101e9216541076dfc141c25 *man/envelope.Rd e4beb641d2a678081dc33f215f9b932d *man/figures/emayili-github-card.png 826eee4cad3710d493fa0462e5d473b9 *man/figures/emayili-hex.png 09e6522ed5ce2b6ed0892d259465daed *man/figures/screenshot-email-rendered.png 3ca1263c4b64026389769d6cab242f5b *man/format.address.Rd c1572da53ed8df44c23577995e2d50ca *man/html.Rd 3b21c526f62c0cb5ed96eedae99ab6f9 *man/id.Rd 128d33ca4acaa491e34d1e9531153cc0 *man/keywords.Rd 0854d7ed1efdea83401b5c01971f251e *man/length.address.Rd c0b86388f87ba0e1e668de3b71f4eb71 *man/local.Rd 9a97fdf484ab576ea8bc54a785200000 *man/message_id.Rd 596f80d468308458b3c08ae34b5bdafe *man/mime-parameters.Rd 74e73f6a50060ce7e13d66e5ce29dd8c *man/normalise.Rd 2572ed5d1f600ea841d6af4a3bcb95ed *man/parties.Rd 07097c63c93f20bbd4d0a537e6684dc4 *man/pipe.Rd 22d55d4fd740d58b38be511da68f48bf *man/precedence.Rd f72a38568f255c606a5b85bf16e299ce *man/print.address.Rd 9178592f5c3c818417e9e913bf151113 *man/print.envelope.Rd 9f39f44dc351935844355731bf1f10bb *man/qp.Rd 425ba683c8295264c69829e0f59555bd *man/raw.Rd d39198e3734ea21736fe4b79b1a50038 *man/receipt.Rd 6787ad1f0462a5e54672563f9dc4cae4 *man/render.Rd 9832fc04d5ff6231df20f20a8aa30807 *man/response.Rd 304f0a5e546b8f8c0d8d82a84a3c71d2 *man/sensitivity.Rd 6aec0391a9724d2af1ffcfd8daef2899 *man/server.Rd 7abeb5f36d31f1b47889f540d070d033 *man/subject.Rd 3fb9a64bec1c685ecb7d6123f5fa3aa5 *man/template.Rd fe2f365a7b973924131f4da469b86ed8 *man/text.Rd 86b433dd45954b567fd10f55bff72184 *man/validate.Rd 31af74948dba8a5c9e23b82f47e15e8c *tools/check.R 29559943ae06e20f7f2770b7d705db68 *tools/coverage.R 863114db451b9d9369d3cfe98dabf764 *tools/lint.R emayili/R/0000755000176200001440000000000014751307772012121 5ustar liggesusersemayili/R/envelope.R0000644000176200001440000001255414751307772014070 0ustar liggesusersis.envelope <- function(x) { "envelope" %in% class(x) } #' Create a message. #' #' @param to See [to()]. #' @param from See [from()]. #' @param cc See [cc()]. #' @param bcc See [bcc()]. #' @param reply See [reply()]. #' @param subject See [subject()]. #' @param id See [id()]. #' @param importance See [importance()]. #' @param priority See [priority()]. #' @param text See [text()]. #' @param html See [html()]. #' @param encrypt Whether to encrypt the message. If \code{TRUE} then the entire #' message will be encrypted using the private key of the sender. #' @param sign Whether to sign the message. If \code{TRUE} then the entire #' message will be signed using the private key of the sender. #' @param public_key Whether to attach a public key. If \code{TRUE} then the #' public key of the sender will be attached. #' #' @return A message object. #' @seealso [subject()], [from()], [to()], [cc()], [bcc()], [reply()] and #' [encrypt()]. #' @export #' @examples #' # Create an (empty) message object. #' # #' msg <- envelope() #' #' # Create a complete message object, specifying all available fields. #' # #' envelope( #' to = "bob@gmail.com", #' from = "craig@gmail.com", #' cc = "alex@gmail.com", #' bcc = "shannon@gmail.com", #' reply = "craig@yahoo.com", #' importance = "high", #' priority = "urgent", #' subject = "Hiya!", #' text = "Hi Bob, how are you?" #' ) envelope <- function(to = NULL, from = NULL, cc = NULL, bcc = NULL, reply = NULL, subject = NULL, id = NULL, importance = NULL, priority = NULL, text = NULL, html = NULL, encrypt = FALSE, sign = FALSE, public_key = FALSE) { koevert <- structure( list( headers = list(), encrypt = encrypt, sign = sign, public_key = public_key, parts = NULL ), class = "envelope" ) %>% header_set("Date", http_date(Sys.time()), append = FALSE) %>% header_set("X-Mailer", paste("{emayili}", packageVersion("emayili"), sep = "-"), append = FALSE) %>% header_set("MIME-Version", "1.0", append = FALSE) if (!is.null(to)) koevert <- to(koevert, to) if (!is.null(from)) koevert <- from(koevert, from) if (!is.null(cc)) koevert <- cc(koevert, cc) if (!is.null(bcc)) koevert <- bcc(koevert, bcc) if (!is.null(reply)) koevert <- reply(koevert, reply) if (!is.null(subject)) koevert <- subject(koevert, subject) if (!is.null(id)) koevert <- id(koevert, id) if (!is.null(importance)) koevert <- importance(koevert, importance) if (!is.null(priority)) koevert <- priority(koevert, priority) if (!is.null(text)) koevert <- text(koevert, text) if (!is.null(html)) koevert <- html(koevert, html) koevert } headers <- function(x, encode = FALSE) { headers <- x$headers # Drop the Bcc header. headers <- headers[names(headers) != "Bcc"] paste(map_chr(headers, as.character, encode = encode), collapse = "\r\n") } #' Print a message object #' #' The message body will be printed if `details` is `TRUE` or if the `envelope_details` #' option is `TRUE`. #' #' @param x A message object. #' @param details Whether or not to display full message content. #' @param ... Further arguments passed to or from other methods. #' #' @export #' @examples #' msg <- envelope() %>% text("Hello, World!") #' #' print(msg) #' print(msg, details = TRUE) #' #' options(envelope_details = TRUE) #' print(msg) print.envelope <- function(x, details = NA, ...) { if (is.na(details)) { details <- get_option_details(default = FALSE) } stopifnot(is.logical(details)) # as.character(x, details = details) %>% cat("\n", sep = "") } #' Create formatted message. #' #' Accepts a message object and formats it as a MIME document. #' #' @inheritParams print.envelope #' @param encode Whether to encode headers. #' @export #' #' @return A formatted message object. as.character.envelope <- function(x, ..., details = TRUE, encode = FALSE) { message <- list( headers(x, encode = encode) ) # Extract HTML and/or text. body <- discard(x$parts, ~ identical(.x$disposition, "attachment")) # Extract attachments. attachments <- keep(x$parts, ~ identical(.x$disposition, "attachment")) if (length(body) > 0) { if (length(body) > 1) { # Both HTML and text. body <- multipart_alternative(children = body) } else { # Either HTML or text (but not both). body <- body[[1]] } } else { body <- NULL } if (length(attachments) > 0) { children <- c(list(body), attachments) # Drop any NULL items. children <- compact(children) content <- multipart_mixed(children = children) } else { content <- body } body <- encrypt_body( content, parties(x), encrypt = x$encrypt, sign = x$sign, public_key = x$public_key ) if (details) { message <- c(message, as.character(body)) } do.call(paste0, c(list(message), collapse = "\r\n")) } #' Append children to message #' #' @param x Message object #' @param child A child to be appended after.envelope <- function(x, child) { if (is.null(x$parts)) { log_debug("Adding first child.") x$parts <- list(child) } else { log_debug("Adding subsequent child.") x$parts <- c(x$parts, list(child)) } x } emayili/R/render.R0000644000176200001440000001755514611676075013540 0ustar liggesusersmanifest <- function(msg, markdown, params = NULL, squish = TRUE, css, include_css, language) { stopifnot(is.null(params) || is.list(params)) if (plain <- attr(markdown, "plain")) { output <- markdown_html(markdown) %>% read_html() } else { # Create temporary Rmd file. # # This needs to be in the current directory in case the Rmd is accessing # files (like CSV) using a relative path. # input <- tempfile(fileext = ".Rmd", tmpdir = getwd()) output <- sub("\\.Rmd", ".html", input) # Clean up rendered artefacts. # on.exit(unlink(sub("\\.Rmd", "*", input), recursive = TRUE)) # Write input to file. stri_write_lines(markdown, input) output_format <- html_document( self_contained = TRUE, # Silence pandoc warnings (mostly due to missing document title). pandoc_args = "--quiet" ) output_format$knitr$knit_hooks <- list( plot = function(x, options) { caption <- options$fig.cap alt <- options$fig.alt if (is.null(alt)) alt <- caption class <- options$fig.class width <- options$out.width as.character( tags$figure( tags$img( src = x, alt = alt, width = width ), if (is.null(caption)) NULL else tags$figcaption(caption), class = class ) ) } ) # Render from file to file. rmarkdown::render( input, output_format = output_format, output_file = output, params = params, quiet = TRUE, # Pass a clean environment. This makes it possible to use params name in # this scope. envir = new.env() ) # Read output from file. output <- read_html(output) } # Decide what sources of CSS to retain. # # * Inline CSS in tags. if (any("rmd" == include_css)) { log_debug("- Retain CSS from inline tags.") } else { log_debug("- Remove CSS from inline tags.") xml_remove(xml_find_all(output, "//link[starts-with(@href,'data:text/css')]")) } # # * External CSS in tags. # - Doesn't apply to Plain Markdown. log_debug("- Remove CSS from external tags.") xml_remove(xml_find_all(output, "//link[not(starts-with(@href,'data:text/css'))]")) # # * Inline CSS in

{{ default(jumbo_title, "Default Title") }}

{% if exists("jumbo_text") %}

{{ jumbo_text }}

{% endif %}
{% if exists("cards") %}
{% for card in cards %}
{{ card.image.alt }}
{{ card.category }}

{{ card.title }}

{{ card.date }}

{{ card.text }}

{% endfor %}
{% endif %}
{% for article in default(articles, []) %} {% endfor %}
{% if exists("about") %}

About

{{ about }}

{% endif %} {% if exists("links") %}

Links

{% endif %}
emayili/inst/github-card.R0000644000176200001440000000157714611676075015223 0ustar liggesusers# https://www.ddrive.no/post/making-hex-and-twittercard-with-bunny-and-magick/ library(magick) # remotes::install_github("dmi3kno/bunny") library(bunny) hex <- image_read(here::here("man/figures/emayili-hex.png")) %>% image_scale("400x400") gh_logo <- bunny::github %>% image_scale("50x50") gh_card <- image_canvas_ghcard("#ffffff") %>% image_compose(hex, gravity = "East", offset = "+80+0") %>% image_annotate( "emayili: Email from R", gravity = "West", location = "+80-30", color = "#0d4448", size = 50, font = "Roboto Slab" ) %>% image_compose(gh_logo, gravity = "West", offset = "+80+45") %>% image_annotate( "datawookie/emayili", gravity = "West", location = "+140+45", size = 50, font = "Ubuntu Mono" ) %>% image_border_ghcard("#8b9196") gh_card gh_card %>% image_write(here::here("man/figures/emayili-github-card.png")) emayili/inst/hex/0000755000176200001440000000000014611676075013461 5ustar liggesusersemayili/inst/hex/emayili-hex.R0000644000176200001440000000076714611676075016031 0ustar liggesuserslibrary(hexSticker) library(showtext) # Load Google font. # font_add_google("Roboto Slab", "roboto_slab") showtext_auto() sticker(here::here("inst/hex/envelope-regular.png"), # Image s_x = 1, s_y = 1.10, s_width = 0.6, s_height = 0.6, # Package name package = "{emayili}", p_size = 16, p_y = 0.45, p_color = "#ffffff", p_family = "roboto_slab", # Hex h_fill = "#3498db", h_color = "#000000", # Output filename = here::here("man/figures/emayili-hex.png"), dpi = 300 ) emayili/inst/hex/envelope-regular.png0000644000176200001440000002363414611676075017453 0ustar liggesusersPNG  IHDRb$bKGD pHYs^tIME +,'Ǵ IDATxw^Uﳳ!m'4 B E( B׆wXs rȵ"] ҋ ¡'%m\]wg Rw5s=3hR)Q)U `t$`. <<<< M4 %Ijs0 h<?88W۽$`p%sH )McCT|08 8#"tH)m|سHB+{Hjny&zईxR! `~$Iﰰ߈Z:~ LD%IjR_W[*810%I*kn13O5A)ˁ$IR)CM} $ \pJছ H)~D^%IҐ.y#RJ; M6H4亀G=# )u[ q$Ie."05"RT5I"RE>v$^`sD<>! p1`$i\ RZX IRShVTlPx3$קި_O)$IRs lIӐ>$5.sqɀC@J $-_j[Ahr@2ȧ$Q&1b9k.h-%IjIM"ղ3?7$Ije}6>R'x'IRKv 8k$Ijyc/-e`K`l ,IRjd&LJ%2x$In`xjY32$IU4%b i$IW""-9Q IR _:$IQ@P00 ITusB $IarDZ7$IuR1$7$I6)QC$I t $Iب %I[\ $>S$Iu2خ ZHT;[ZIjg6l,IRoZIjg\ IRR/i$6R{@Db$I;Z}lc$ $$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I2H$C$I2H$C$I2H$C$I2H$C$I2H$C$I2H$C$I2H$C$I24'Ô(?NIPK)J)iKR>.~`zD%*I0ghsׁ"/UI Z*'`4pWJP/WI i}U U . Q4?RJ'U79=񖗲$d.v/@T9t <%-Ij0l \O^f[տgէ{YK[PwR^J)%I'_TL՗ |*":%I?8اX u ;<@'7/}I}ؐ_R_l w`o w/'`JiO!IM>B?`M.O)}'DF,\C tDtZI p./FP"WD fҔSJUw҉%Ar,$ 8tB'吤~MszhN)d9$_`?>C@+ֶ8}Tj[C18$"޴0 F'吤wF[CnlqWJ0!I70\)>I)RJ'_p\^.N^xrHaX  jh:yCCR˥N`nO)}rHI 1rHN.]w!B`Mj`K`i.4q hJi!"`W`&kVJ)}rHjppyJV搻g]CR c_p~^ Fŷr@l <ĒZ 634xxbV@YE*+fl[`QT~@l)R(`R)sӰOYU{ź2K~_ n6h\>7!U"lH[#"ⲥԵϪڔz]o 8,"RKq=+*- hpW`KbPS2 K-;иN`eʌU X8yy@nCm7,L|NN:*!7bb,` yt-\-cyOԡqcv9-L2Xr;Q K64m*j;ʕrVJW)%gRGN~K>}<$]D<]{rnb. xe%!hxysDg<rH#v`ۥ7n0KwO@D}eL>wF$En.`oKq(W]m!'PXr SJ.HC?N);y6np!sDrlݰ4`ϨF/pO@B@n \K>]oeg{톥A.>'e# g➀*}eKSJ'nX&RJ'hq]‡䖛J| >:+b3]"?-2:)nBSYn!zL&]{w"!P y= ňrH 8&កL~D_c_~Rj$2Q)SߑݸN`kg CfH)#;RJk[]` OWq?3#Kk.YGy)5uiq =ڗq}ˍGss9Ƴ[O8+P톏2cPgɯnD3(.ݰj:N) ;I~sbxr ara+ϲgɻyIX5²x)|Q)Ӏ~w*3F90lvO?G]=T~A=^RDoC@OvGݖCMzoOĶv+U:q~ }.t`#<0׊4)c-p@8wm@)=Z)TfLr&`qMʐj9~B>%ӥ]@ogL\f1|),FpX/L@}gx\k#zXDh94moZp&@bn!5ƵWnX?tuÙg`Cn7|0ZTV'p{1+0rhr{82"*r=!`H.-Fv۸rG-ܔEZRD& !v$6frzS_,~ܟ|xܷS e(mOEOl@G|.Wm-@:8x׷O`i96 XKň} BޘRK>~j> \A^Vrq>1&׊{4ag&y͸\L e,("↚^; 0Ey&>J?*}6؏n9j|'@#v.2ځՁ[RJXZ>1 \ lWPjq$}.k:jtٓsSJ'{Qׁߓs/7/qxDxz.Tp yzsiXpIn?FY}Eĝ=0C>|[<췜'ɍ^/67)i+\x  1 fvzXoS d[Js U/ prﱆV{-v[39)'P.e9F: wZ55X6ȪL!@D^ P5x7"#vN7_.[1_#`EsUpz0E 5i+c(F#_Dk9 -~AA0=.wQNu: sEPclkx7h0Ql7\x`@JiS1ݍ{# 9.9FɧéF<0AElZg *soFn7즫r:c#bu8 Csw>,G M v3,{58(c0xV `K@ Р=.-fڭHY N˱p(>88"n4.cNϖv6<={X3qXC@\PTpy)SJ+[w{k'EDO _.3I>~a0h$ow\i^?ٝ긷NOa#'PX`ઔү@U)?Nnk34C@\l7sӼ~ +t]Ǔq_YE\D\f9 0ؔE}ؗ |)"p&[Z ϣ0\P7l\R8á61; CZ)̉} {[RڸEI) =qhuߍEni.h݋oO?ьEoMlsO!@ ,l\ Rm6x0 u$Z0v﷓:XHXg1 `xr :H+;Up>X`9 #=5C;6Rq@8w'뽀|%xpv&`PnMGaPx3"fZC@3q9@ l܆ume!@j<"otZQ'pGDe9ԔZRJitjDY&4L7ۮ&A5E8 "nC!@wyY7,y V {O7_E S5 #⠈pZrZUJi_rU i$ArCF&B] hx?O[C@r9@g[ NɗdF> ihDġOT%)݁GdE4Hi9T-N~t`Wj|t&@5KO#o#^!gj F~{ \ L1șgT_oŞu4 Zq&$/>>/Z5Z"bOkЪTBGTj t&@z;O"JxbU3H'ot^ 8iHïq@r&@ok| *Cn!ooFkD|l>IDATQ|#Xh*C2n"w{̒`0} :N, C9pJ 'FLK"C!VzHLN/~jUYWDC!@X8g2[@g?g- CX 8&hTз)%M2 d;]uC+q1pd0T`^ىܠA?K#bW CGlO*Nr 񒟴 C4p# GO~/ۀWOC!@æ؛{`"Ȟh86~''C! '́,~L&o!a09`!y=o&b8pwN1!`F0 ظ1Xx:yA;y~LE zxx xx2"^Ғ! I26?FI I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$$I!@$C$I2H$C$I2H$C$I2H$C$I2H$C$I2H$C$I2H$C$I2H$C$I2H$C$I2H$C$I2H$C$IZH)a)$I̳$μ6:HT;m@u$vڀN IRtoZIj6 IR<<̵$F`0$N3B(!IRm3#4 &$B0-"ZIj㮈;@  IRtۧބgHT q?Rjf㭍$I6X%"R@DSF.XI*b9 HJzX]3O-%Iy}3l$al$IRt[ES}?"I`$2.5Pg$I.`爘O-oE_;uAIeԙb6`'OHTY]#%A툸$.ZZXL@10JԒf"եöeW "(IR+NXVXL@1e=%Ij 7* !0JfDVDsgɻ %IRs\Qh(AJl$IM UD\诚RZ m%Ij*=j(DrK+[oI|9`Ljxo`[aIA/:[P:ATr$I#v/R;FKw%IZ |("x>=p !0CaL O/$7AI^'@C@>a$iy=<,t p0h$iP,#"Ec)ˁI@$I2x8("_m =OEr$I-; v%f~ L~{T%x}~MJi`7$ |3"<Կa .%p2bV$Iu7-pRD<2\q6 p E2A0@T껁33#CHV %cD^*!Inڿ_綈H#fL>HD1$I devel # ========================================================================== "debian-clang-devel", "debian-gcc-devel", # "ubuntu-gcc-devel", "fedora-clang-devel", "fedora-gcc-devel", "windows-x86_64-devel", # ========================================================================== # -> patched # ========================================================================== "debian-gcc-patched", "windows-x86_64-patched", # "solaris-x86-patched", # ========================================================================== # -> release # ========================================================================== "debian-gcc-release", "ubuntu-gcc-release", "macos-highsierra-release", # "macos-m1-bigsur-release", "windows-x86_64-release" ), env_vars = c( `_R_CHECK_FORCE_SUGGESTS_` = "false", `_R_CHECK_CRAN_INCOMING_USE_ASPELL_` = "false" ) ) # Check on macOS. # rhub::check_for_cran( platforms = rhub::platforms() %>% filter(categories == "macOS") %>% pull(name), env_vars = c( `_R_CHECK_FORCE_SUGGESTS_` = "true", `_R_CHECK_CRAN_INCOMING_USE_ASPELL_` = "false" ) ) # # Try this one instead? # # # rhub::check(platform = c("macos-highsierra-release")) # # rhub::check_for_cran( # platforms = "macos-highsierra-release-cran", # env_vars = c( # `_R_CHECK_FORCE_SUGGESTS_` = "true", # `_R_CHECK_CRAN_INCOMING_USE_ASPELL_` = "false" # ) # ) emayili/tools/lint.R0000644000176200001440000000004214611676075014145 0ustar liggesuserslintr::lint_package(cache = TRUE) emayili/README.md0000644000176200001440000003531114751311065013170 0ustar liggesusers # emayili [![CRAN status](https://www.r-pkg.org/badges/version/emayili)](https://cran.r-project.org/package=emayili) ![GitHub Actions build status](https://github.com/datawookie/emayili/actions/workflows/build.yaml/badge.svg) [![Codecov test coverage](https://img.shields.io/codecov/c/github/datawookie/emayili.svg)](https://app.codecov.io/gh/datawookie/emayili) [![Lifecycle: stable](https://img.shields.io/badge/lifecycle-stable-green.svg)](https://lifecycle.r-lib.org/articles/stages.html) `{emayili}` is a package for sending emails from R. The design goals are: - works on all manner of SMTP servers and - has minimal dependencies (or dependencies which are easily satisfied). The package name is an adaption of the Zulu word for email, *imeyili*. The documentation for `{emayili}` can be found [here](https://datawookie.github.io/emayili/). Not that I pretend to have many stars on this project, but these plots are quite fun. [![Star History Chart](https://api.star-history.com/svg?repos=datawookie/emayili&type=Date)](https://star-history.com/#datawookie/emayili&Date) ## Installation Get the stable version from [CRAN](https://CRAN.R-project.org/package=emayili). ``` r install.packages("emayili") ``` Or grab it directly from [GitHub](https://github.com/datawookie/emayili). ``` r # Install from the master branch. remotes::install_github("datawookie/emayili") # Install from the development branch. remotes::install_github("datawookie/emayili", ref = "dev") ``` ## Usage Load the library. ``` r library(emayili) packageVersion("emayili") ``` [1] '0.9.3' Create a message object. ``` r email <- envelope() ``` ### Creating a Message The message has class `envelope`. ``` r class(email) ``` [1] "envelope" Add addresses for the sender and recipient. ``` r email <- email %>% from("alice@yahoo.com") %>% to("bob@google.com") %>% cc("craig@google.com") ``` There are also `bcc()` and `reply()` functions for setting the `Bcc` and `Reply-To` fields. You can supply multiple addresses in a variety of formats: - as a single comma-separated string - as separate strings; or - as a vector of strings. ``` r envelope() %>% to("bob@google.com, craig@google.com, erin@gmail.com") envelope() %>% to("bob@google.com", "craig@google.com", "erin@gmail.com") envelope() %>% to(c("bob@google.com", "craig@google.com", "erin@gmail.com")) ``` Add a subject. ``` r email <- email %>% subject("This is a plain text message!") ``` Add a text body. ``` r email <- email %>% text("Hello!") ``` You can use `html()` to add an HTML body. It accepts either a vector of characters or a `tagList()` from `{htmltools}`. ``` r library(htmltools) email <- email %>% html( tagList( h2("Hello"), p("World!") ) ) ``` Add an attachment. ``` r email <- email %>% attachment("image.jpg") ``` You can also create the message in a single command: ``` r email <- envelope( to = "bob@google.com", from = "alice@yahoo.com", subject = "This is a plain text message!", text = "Hello!" ) ``` Simply printing a message displays the header information. ``` r email ``` Date: Fri, 07 Feb 2025 04:50:01 GMT X-Mailer: {emayili}-0.9.3 MIME-Version: 1.0 From: alice@yahoo.com To: bob@google.com Cc: craig@google.com Subject: This is a plain text message! You can identify emails which have been sent using `{emayili}` by the presence of an `X-Mailer` header which includes both the package name and version. If you want to see the complete MIME object, just convert to a string. You can also call the `print()` method and specify `details = TRUE`. ### Options You can set the `envelope.details` option to assert that the details should always be printed. ``` r # Always print envelope details. # options(envelope.details = TRUE) ``` By default the results returned by most of the methods are invisible. You can make them visible via the `envelope.invisible` (default: `TRUE`). ``` r # Always show envelope. # options(envelope.invisible = FALSE) ``` ### Interpolating Text You can use `{glue}` syntax to interpolate content into the body of a message. ``` r name <- "Alice" envelope() %>% text("Hello {{name}}!") ``` Date: Fri, 07 Feb 2025 04:50:01 GMT X-Mailer: {emayili}-0.9.3 MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit Content-MD5: nhjeY5ZYMzru+kSCGUzNKg== Hello Alice! ### Rendering Markdown You can render Markdown straight into a message. Use either plain Markdown. ``` r envelope() %>% # Render plain Markdown from a character vector. render( "Check out [`{emayili}`](https://cran.r-project.org/package=emayili)." ) ``` Date: Fri, 07 Feb 2025 04:50:01 GMT X-Mailer: {emayili}-0.9.3 MIME-Version: 1.0 Content-Type: text/html; charset=utf-8

Check out {emayili}.

Or R Markdown. ``` r envelope() %>% # Render R Markdown from a file. render("message.Rmd") ``` In both cases the function will accept either a file path or a character vector containing Markdown text. Interpolation also works with `render()`. ### Rendered CSS When you render an R Markdown document the resulting HTML includes CSS from three sources: - [Bootstrap](https://getbootstrap.com/) - [highlightjs](https://highlightjs.org/) and - `{rmarkdown}`. You can control which of these propagate to the message using the `include_css` parameter which, by default, is set to `c("rmd", "bootstrap", "highlight")`. 🚨 *Note:* Gmail doesn’t like the Bootstrap CSS. If you want your styling to work on Gmail you should set `include_css = c("rmd", "highlight")`. ### Extra CSS You can insert extra CSS into your rendered messages. ``` r envelope() %>% render("message.Rmd", css_files = "extra.css") ``` If you are having trouble getting this to work with Gmail then it might be worthwhile taking a look at their [CSS support](https://developers.google.com/gmail/design/css). ### Adding an Inline Image Adding an inline image to an HTML message is possible. There are two ways to achieve this. *1. Base64 Encoding* First you’ll need to [Base64 encode](https://en.wikipedia.org/wiki/Base64) the image. ``` r img_base64 <- base64enc::base64encode("image.jpg") ``` Then create the HTML message body. ``` r html_body <- sprintf('', img_base64) ``` And finally add it to the email. ``` r email <- envelope() %>% html(html_body) ``` *Note:* It’s important that you specify the appropriate media type (`image/jpeg` for JPEG and `image/png` for PNG). *2. Using a CID* Unfortunately some mail clients (like Gmail) will not display Base64 encoded images. In this case using a CID is a working alternative. First create the message body which references an image by CID. ``` r html_body <- '' ``` Then attach the image and specify the `cid` argument. ``` r email <- envelope() %>% html(html_body) %>% attachment(path = "image.jpg", cid = "image") ``` ### Create a Server Object Create a SMTP server object. ``` r smtp <- server( host = "smtp.gmail.com", port = 465, username = "bob@gmail.com", password = "bd40ef6d4a9413de9c1318a65cbae5d7" ) ``` It’s bad practice to include credentials in a script. A better approach would be to keep the credentials in your `.Renviron` file. GMAIL_USERNAME="bob@gmail.com" GMAIL_PASSWORD="bd40ef6d4a9413de9c1318a65cbae5d7" You can then pull these variables into R using `Sys.getenv()` and then create the server object. ``` r smtp <- server( host = "smtp.gmail.com", port = 465, username = Sys.getenv("GMAIL_USERNAME"), password = Sys.getenv("GMAIL_PASSWORD") ) ``` If you’re trying to send email with a host that uses the STARTTLS security protocol (like Gmail, Yahoo! or AOL), then it will most probably be blocked due to insufficient security. In order to circumvent this, you can grant access to less secure apps. See the links below for specifics: - [Gmail](https://myaccount.google.com/security) - [Yahoo!](https://login.yahoo.com/account/security) and - [AOL](https://login.aol.com/account/security). Gmail has recently changed their authentication procedure. If you are having trouble connecting to the Gmail SMTP server then take a look at [this](https://datawookie.dev/blog/2022/03/updated-gmail-authentication/). ### Sending a Message Send the message. ``` r smtp(email, verbose = TRUE) ``` To see the guts of the message as passed to the SMTP server: ``` r print(email, details = TRUE) ``` ### Encryption Both transport-level encryption and end-to-end [email encryption](https://en.wikipedia.org/wiki/Email_encryption) are supported. An SMTP connection can be initiated on port 465 (SMTPS, see [RFC 8314](https://www.rfc-editor.org/rfc/rfc8314)) or 587 (SMTP-MSA, see [RFC 6409](https://www.rfc-editor.org/rfc/rfc6409)), enabling transport-level encryption. Public-key cryptography (via GnuPG) can be used to sign and/or encrypt message contents for end-to-end encryption. ## Standards Documents The following (draft) standards documents relate to emails: - [RFC 2822](https://www.rfc-editor.org/rfc/rfc2822) — Internet Message Format - [RFC 5321](https://www.rfc-editor.org/rfc/rfc5321) — Simple Mail Transfer Protocol - [RFC 5322](https://www.rfc-editor.org/rfc/rfc5322) — Internet Message Format - [RFC 6854](https://www.rfc-editor.org/rfc/rfc6854) — an update to RFC 5322. ## Similar Packages There is a selection of other R packages which also send emails: - [blastula](https://cran.r-project.org/package=blastula) - [blatr](https://cran.r-project.org/package=blatr) (Windows) - [gmailr](https://cran.r-project.org/package=gmailr) - [mail](https://cran.r-project.org/package=mail) - [mailR](https://cran.r-project.org/package=mailR) - [sendmailR](https://cran.r-project.org/package=sendmailR) - [ponyexpress](https://github.com/ropensci-archive/ponyexpress) ## Blog Posts
Support for Gmail, SendGrid & Mailgun
Message Precedence
Message Integrity
Right-to-Left
Styling Figures
Managing CSS
R Markdown Parameters
Rendering R Markdown
Rendering Plain Markdown
Interpolating Message Content
Rudimentary Email Address Validation
Updated Gmail Authentication
## Developer Notes ### Code Coverage You can find the test coverage report at [Codecov](https://app.codecov.io/gh/datawookie/emayili). For development purposes it’s more convenient to use the [`{covr}`](https://cran.r-project.org/package=covr) package. Generate a coverage report. ``` r library(covr) # Tests that are skipped on CRAN should still be included in coverage report. # Sys.setenv(NOT_CRAN = "true") report() ``` Calculate test coverage. ``` r coverage <- package_coverage() ``` Coverage statistics as a data frame. ``` r as.data.frame(coverage) ``` Show lines without coverage. ``` r zero_coverage(coverage) ``` ### Checks Check spelling. ``` r spelling::spell_check_package() ``` Quick local checks. ``` r devtools::check() ``` Remote checks (take longer but more thorough). ``` r devtools::check_win_devel() # Check for a specific platform. # rhub::check(platform = "debian-gcc-devel") rhub::check_on_windows(check_args = "--force-multiarch") rhub::check_on_solaris() # Check on a bunch of platforms. # rhub::check_for_cran() # Check on important platforms. # rhub::check_for_cran(platforms = c( "debian-gcc-release", "ubuntu-gcc-release", "macos-m1-bigsur-release", "windows-x86_64-release", NULL )) ``` emayili/man/0000755000176200001440000000000014746126101012460 5ustar liggesusersemayili/man/pipe.Rd0000644000176200001440000000065314611676075013723 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/utils.R \name{\%>\%} \alias{\%>\%} \title{Pipe operator} \usage{ lhs \%>\% rhs } \arguments{ \item{lhs}{A value or the magrittr placeholder.} \item{rhs}{A function call using the magrittr semantics.} } \value{ The result of calling \code{rhs(lhs)}. } \description{ See \code{magrittr::\link[magrittr:pipe]{\%>\%}} for details. } \keyword{internal} emayili/man/mime-parameters.Rd0000644000176200001440000000277714611676075016067 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/mime.R \name{mime-parameters} \alias{mime-parameters} \title{Parameters for MIME functions} \arguments{ \item{content}{A string of message content.} \item{disposition}{Should the content be displayed inline or as an attachment? Valid options are \code{"inline"} and \code{"attachment"}. If set to \code{NA} then will guess appropriate value.} \item{charset}{What character set is used. Most often either \code{"UTF-8"} or \code{"ISO-8859-1"}.} \item{encoding}{How content is transformed to ASCII. Options are \code{"7bit"}, \code{"quoted-printable"} and \code{"base64"}. Use \code{NA} or \code{NULL} for no (or "identity") encoding.} \item{language}{Language of content. If \code{FALSE} then will not include language field. If \code{TRUE} then will attempt to auto-detect language. Otherwise will use the specified language.} \item{description}{Description of content.} \item{name}{Name used when downloading file.} \item{filename}{Path to a file.} \item{boundary}{Boundary string.} \item{type}{The MIME type of the content.} \item{children}{List of child MIME objects.} \item{interpolate}{Whether or not to interpolate into input using \link[glue]{glue}.} \item{.open}{The opening delimiter.} \item{.close}{The closing delimiter.} \item{.envir}{Environment used for \code{glue} interpolation. Defaults to \code{parent.frame()}.} } \description{ These are parameters which occur commonly across functions for components of a MIME document. } emayili/man/response.Rd0000644000176200001440000000231614636234570014617 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/header-mail.R \name{response} \alias{response} \alias{inreplyto} \alias{references} \title{Add In-Reply-To and References header fields} \usage{ inreplyto(msg, msgid, subject_prefix = "Re: ") references(msg, msgid, subject_prefix = "Re: ") } \arguments{ \item{msg}{A message object.} \item{msgid}{A message ID. This would be the contents of the \code{Message-ID} field from another message.} \item{subject_prefix}{Prefix to add to subject. If specified will be prepended onto the \code{Subject} field. Set to \code{NULL} if not required.} } \value{ A message object. } \description{ Add In-Reply-To and References header fields } \examples{ envelope() \%>\% inreplyto("<6163c08e.1c69fb81.65b78.183c@mx.google.com>") # Now for German. envelope() \%>\% inreplyto("6163c08e.1c69fb81.65b78.183c@mx.google.com", "AW: ") # And also for Danish, Norwegian and Swedish (but not Finnish!). envelope() \%>\% references("6163c08e.1c69fb81.65b78.183c@mx.google.com", "SV: ") # Can reference multiple messages. envelope() \%>\% references(c( "6163c08e.1c69fb81.65b78.183c@mx.google.com", "e8e338ff-a05c-4c0f-99f2-0dc8fb72682f@mail.gmail.com" )) } emayili/man/sensitivity.Rd0000644000176200001440000000176314611676075015363 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/header-sensitivity.R \name{sensitivity} \alias{sensitivity} \title{Set or query message sensitivity} \usage{ sensitivity(msg, sensitivity = NULL) } \arguments{ \item{msg}{A message object.} \item{sensitivity}{Sensitivity level. One of \code{"personal"}, \code{"private"}, or \code{"company-confidential"}.} } \value{ A message object. } \description{ Manipulate the \code{Sensitivity} field as specified in \href{https://www.ietf.org/rfc/rfc2156.txt}{RFC 2156}. } \examples{ # Not sensitive. envelope() \%>\% subject("Your daily dose of spam") # Sensitive personal message. envelope() \%>\% subject("The results from your test") \%>\% sensitivity("personal") # Sensitive private message. envelope() \%>\% subject("Your OTP (don't show this to anybody!") \%>\% sensitivity("private") # Sensitive business message. envelope() \%>\% subject("Top Secret Strategy Document") \%>\% sensitivity("company-confidential") } emayili/man/addresses.Rd0000644000176200001440000000317214611676075014742 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/header-mail.R \name{addresses} \alias{addresses} \alias{to} \alias{cc} \alias{bcc} \alias{from} \alias{reply} \alias{return_path} \alias{sender} \title{Add address fields to message} \usage{ to(msg, ..., append = TRUE) cc(msg, ..., append = TRUE) bcc(msg, ..., append = TRUE) from(msg, addr = NULL) reply(msg, addr = NULL) return_path(msg, addr = NULL) sender(msg, addr = NULL) } \arguments{ \item{msg}{A message object.} \item{...}{Addresses.} \item{append}{Whether to append or replace addresses.} \item{addr}{Single address.} } \value{ A message object. } \description{ Add address fields to message } \examples{ # Populating the To field. msg <- envelope() msg \%>\% to("bob@gmail.com, alice@yahoo.com") msg \%>\% to("bob@gmail.com", "alice@yahoo.com") msg \%>\% to(c("bob@gmail.com", "alice@yahoo.com")) # Populating the Cc field. msg <- envelope() msg \%>\% cc("bob@gmail.com, alice@yahoo.com") msg \%>\% cc("bob@gmail.com", "alice@yahoo.com") msg \%>\% cc(c("bob@gmail.com", "alice@yahoo.com")) # Populating the Bcc field. msg <- envelope() msg \%>\% bcc("bob@gmail.com, alice@yahoo.com") msg \%>\% bcc("bob@gmail.com", "alice@yahoo.com") msg \%>\% bcc(c("bob@gmail.com", "alice@yahoo.com")) msg <- envelope() # Populating the From field. msg \%>\% from("craig@gmail.com") # Populating the Reply-To field. msg <- envelope() msg \%>\% reply("gerry@gmail.com") # Populating the Return-Path field. msg <- envelope() msg \%>\% return_path("bounced-mail@devnull.org") # Populating the Sender field. msg <- envelope() msg \%>\% sender("on_behalf_of@gmail.com") } emayili/man/compliant.Rd0000644000176200001440000000131614611676075014751 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{compliant} \alias{compliant} \title{Tests whether an email address is syntactically correct} \usage{ compliant(addr, error = FALSE) } \arguments{ \item{addr}{An email address.} \item{error}{Whether to create an error if not compliant.} } \value{ A Boolean. } \description{ Checks whether an email address conforms to the \href{https://en.wikipedia.org/wiki/Email_address#Syntax}{syntax rules}. } \details{ An email address may take either of the following forms: \itemize{ \item \code{local@domain} or \item \verb{Display Name }. } } \examples{ compliant("alice@example.com") compliant("alice?example.com") } emayili/man/as.address.Rd0000644000176200001440000000122314611676075015007 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{as.address} \alias{as.address} \title{Create an address object} \usage{ as.address(addr, validate = FALSE) } \arguments{ \item{addr}{An email address.} \item{validate}{Whether to validate the address.} } \value{ A list of \code{address} objects. } \description{ Create an address object } \examples{ as.address("gerry@gmail.com") as.address("Gerald ") as.address(c("Gerald ", "alice@yahoo.com", "jim@aol.com")) as.address("Gerald , alice@yahoo.com, jim@aol.com") as.address("Durrell, Gerald ") } emayili/man/receipt.Rd0000644000176200001440000000121214611676075014411 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/header-receipt.R \name{receipt} \alias{receipt} \alias{request_receipt_read} \alias{request_receipt_delivery} \title{Request read or delivery receipts} \usage{ request_receipt_read(msg, addr = NULL) request_receipt_delivery(msg, addr = NULL) } \arguments{ \item{msg}{A message object.} \item{addr}{Single address (optional). If \code{address} is not specified then will use sender address.} } \value{ A message object. } \description{ Request the recipient to acknowledge that they have read the message. Inserts MDN (Message Disposition Notification) header entries. } emayili/man/cutoff.Rd0000644000176200001440000000150214611676075014246 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/header-expires.R \name{cutoff} \alias{cutoff} \alias{expires} \alias{replyby} \title{Set or query message expiry or reply-by time} \usage{ expires(msg, datetime = NULL, tz = "") replyby(msg, datetime = NULL, tz = "") } \arguments{ \item{msg}{A message object.} \item{datetime}{Date and time.} \item{tz}{A character string specifying the time zone.} } \value{ A message object. } \description{ Functions to specify the time at which a message expires or by which a reply is requested. } \details{ Manipulate the \code{Expires} and \code{Reply-By} fields as specified in \href{https://www.ietf.org/rfc/rfc2156.txt}{RFC 2156}. } \examples{ envelope() \%>\% expires("2030-01-01 13:25:00", "UTC") envelope() \%>\% replyby("2021-12-25 06:00:00", "GMT") } emayili/man/domain.Rd0000644000176200001440000000054014611676075014230 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{domain} \alias{domain} \title{Extract domain of email address} \usage{ domain(addr) } \arguments{ \item{addr}{An \code{address} object.} } \value{ A character vector. } \description{ Extract domain of email address } \examples{ domain("alice@example.com") } emayili/man/compare.Rd0000644000176200001440000000061314611676075014410 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/utils.R \name{compare} \alias{compare} \title{Compare vectors} \usage{ compare(lhs, rhs) } \arguments{ \item{lhs}{LHS of operation.} \item{rhs}{RHS of operation.} } \value{ A Boolean value. } \description{ Returns \code{TRUE} wherever elements are the same (including \code{NA}), and \code{FALSE} everywhere else. } emayili/man/qp.Rd0000644000176200001440000000116014611676075013400 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/encoding.R \name{qp} \alias{qp} \alias{qp_encode} \alias{qp_decode} \title{Quoted-Printable encoding} \usage{ qp_encode(x, crlf = CRLF) qp_decode(x) } \arguments{ \item{x}{A string for encoding or decoding.} \item{crlf}{End-of-line characters.} } \value{ An encoded string for \code{qp_encode()} or a decoded string for \code{qp_decode()}. } \description{ Encode to and decode from Quoted-Printable encoding. } \examples{ qp_encode("Mieux vaut être seul que mal accompagné.") qp_decode("Mieux vaut =C3=AAtre seul que mal accompagn=C3=A9.") } emayili/man/attachment.Rd0000644000176200001440000000232114611676075015110 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/attachment.R \name{attachment} \alias{attachment} \title{Add attachments to a message object} \usage{ attachment( msg, path, name = NA, type = NA, cid = NA, disposition = "attachment" ) } \arguments{ \item{msg}{A message object.} \item{path}{Path to file.} \item{name}{Name to be used for attachment (defaults to base name of \code{path}).} \item{type}{MIME type or \cite{NA}, which will result in a guess based on file extension.} \item{cid}{Content-ID or \code{NA}.} \item{disposition}{How is attachment to be presented (\code{"inline"} or \code{"attachment"})?} } \value{ A message object. } \description{ Add attachments to a message object } \examples{ path_mtcars <- tempfile(fileext = ".csv") path_scatter <- tempfile(fileext = ".png") path_cats <- system.file("cats.jpg", package = "emayili") write.csv(mtcars, path_mtcars) png(path_scatter) plot(1:10) dev.off() msg <- envelope() \%>\% attachment(path_mtcars) \%>\% # This attachment will have file name "cats.jpg". attachment(path_cats, name = "cats.jpg", type = "image/jpeg") \%>\% attachment(path_scatter, cid = "scatter") file.remove(path_scatter, path_mtcars) } emayili/man/print.address.Rd0000644000176200001440000000074314611676075015546 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{print.address} \alias{print.address} \title{Print an address object} \usage{ \method{print}{address}(x, ...) } \arguments{ \item{x}{An \code{address} object.} \item{...}{Further arguments passed to or from other methods.} } \description{ If display name is specifed as "Last, First" then the display name will be quoted. } \examples{ gerry <- as.address("gerry@gmail.com") print(gerry) } emayili/man/validate.Rd0000644000176200001440000000110114611676075014544 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{validate} \alias{validate} \title{Validate email address} \usage{ validate(addr, deliverability = TRUE) } \arguments{ \item{addr}{An email address.} \item{deliverability}{Whether to check for deliverability (valid domain).} } \value{ A \code{logical} indicating whether or not the address is valid. } \description{ Validate email address } \examples{ # A valid address. validate("cran-sysadmin@r-project.org") # An invalid address. validate("help@this-domain-does-not-exist.com") } emayili/man/c.address.Rd0000644000176200001440000000077614611676075014642 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{c.address} \alias{c.address} \title{Concatenate address objects} \usage{ \method{c}{address}(...) } \arguments{ \item{...}{Address objects to be concatenated.} } \value{ An \code{address} object. } \description{ Concatenate address objects } \examples{ gerry <- as.address("Gerald ") alice <- address("alice@yahoo.com") jim <- address("jim@aol.com", "Jim") c(gerry, alice) c(gerry, c(alice, jim)) } emayili/man/print.envelope.Rd0000644000176200001440000000124314611676075015732 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/envelope.R \name{print.envelope} \alias{print.envelope} \title{Print a message object} \usage{ \method{print}{envelope}(x, details = NA, ...) } \arguments{ \item{x}{A message object.} \item{details}{Whether or not to display full message content.} \item{...}{Further arguments passed to or from other methods.} } \description{ The message body will be printed if \code{details} is \code{TRUE} or if the \code{envelope_details} option is \code{TRUE}. } \examples{ msg <- envelope() \%>\% text("Hello, World!") print(msg) print(msg, details = TRUE) options(envelope_details = TRUE) print(msg) } emayili/man/server.Rd0000644000176200001440000001677414636236745014312 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/server.R \name{server} \alias{server} \alias{gmail} \alias{sendgrid} \alias{mailgun} \alias{sendinblue} \alias{mailersend} \alias{mailfence} \alias{zeptomail} \alias{smtpbucket} \alias{mailtrap} \title{Create a SMTP server object.} \usage{ server( host, port = 25, username = NULL, password = NULL, insecure = FALSE, reuse = TRUE, helo = NA, protocol = NA, use_ssl = NA, test = FALSE, pause_base = 1, max_times = 5, ... ) gmail(username, password, ...) sendgrid(password, ...) mailgun(username, password, ...) sendinblue(username, password, ...) mailersend(username, password, ...) mailfence(username, password, ...) zeptomail(password, ...) smtpbucket(...) mailtrap(username, password, sandbox = FALSE, bulk = FALSE, ...) } \arguments{ \item{host}{DNS name or IP address of the SMTP server.} \item{port}{Port that the SMTP server is listening on.} \item{username}{Username for SMTP server.} \item{password}{Password for SMTP server or API key.} \item{insecure}{Whether to ignore SSL issues.} \item{reuse}{Whether the connection to the SMTP server should be left open for reuse.} \item{helo}{The HELO domain name of the sending host. If left as \code{NA} then will use local host name.} \item{protocol}{Which protocol (SMTP or SMTPS) to use for communicating with the server. Default will choose appropriate protocol based on port.} \item{use_ssl}{Whether to use SSL. If not specified then SSL will be used if the port is 465 or 587. This enables SSL on non-standard ports.} \item{test}{Test login to server.} \item{pause_base}{Base delay (in seconds) for exponential backoff. See \link[purrr]{rate_backoff}.} \item{max_times}{Maximum number of times to retry.} \item{...}{Additional curl options. See \code{curl::curl_options()} for a list of supported options.} \item{sandbox}{Use email sandbox to test server.} \item{bulk}{Send bulk mail to multiple recipients.} } \value{ A function which is used to send messages to the server. } \description{ Create an object which can be used to send messages to an SMTP server. } \details{ These functions return a function that can then be called with a message object. This function mediates the interaction with the Simple Mail Transfer Protocol (SMTP) server. SMTP is a plain text protocol, which means that it is not secure. The secure variant, SMTPS, comes in two flavours: TLS and StartTLS. With TLS (also called Implicit TLS) the connection with the server is initiated using an Secure Socket Layer (SSL) or Transport Layer Security (TLS) certificate. Such a connection is secure from the start. By contract, a StartTLS connection is initiated in plain text and then upgraded to TLS if possible. By convention TLS operates on port 465 and StartTLS on port 587. The specifications of an SMTP server are given in an SMTP URL, which takes one of the following forms: \itemize{ \item \code{mail.example.com} — hostname only \item \code{mail.example.com:587} — hostname and port \item \verb{smtp://mail.example.com} — SMTP URL (default port) \item \verb{smtps://mail.example.com} — SMTPS URL (default port) \item \verb{smtp://mail.example.com:25} — SMTP URL (explicit port) \item \verb{smtps://mail.example.com:587} — SMTPS URL (explicit port) } } \section{Gmail}{ If you're having trouble authenticating with Gmail then you should try the following: \itemize{ \item enable 2-factor authentication and \item create an app password. } Then use the app password rather than your usual account password. } \section{Sendgrid}{ To use SendGrid you'll need to first \href{https://www.twilio.com/docs/sendgrid/for-developers/sending-email/integrating-with-the-smtp-api}{create an API key}. # nolint Then use the API key as the password. SendGrid will accept messages on ports 25, 587 and 2525 (using SMTP) as well as 465 (using SMTPS). } \section{Mailgun}{ To use Mailgun you'll need to first register a sender domain. This will then be assigned a username and password. Mailgun will accept messages on ports 25 and 587 (using SMTP) as well as 465 (using SMTPS). } \section{Sendinblue}{ To use Sendinblue you'll need to first create an account. You'll find your SMTP username and password in the SMTP & API section of your account settings. } \section{MailerSend}{ To use MailerSend you'll need to first create an account. You'll find your SMTP username and password under Domains. See \href{https://www.mailersend.com/help/smtp-relay}{How to send emails via SMTP with MailerSend}. Although this is not likely to be a problem in practice, MailerSend insists that all messages have at minimum a valid subject and either text or HTML content. } \section{Mailfence}{ To use Mailfence you'll need to create a premium account. } \section{ZeptoMail}{ Zeptomail is an email sending service provided by Zoho Corporation. It is designed primarily for transactional email delivery, which includes emails like password resets, order confirmations, notifications, and other automated, non-marketing communications that websites and applications need to send to their users. } \section{SMTP Bucket}{ SMTP Bucket is a fake SMTP server that captures all the messages it receives and makes them available through a website or REST API. SMTP Bucket is a fake SMTP server that captures all the messages it receives and makes them available through a website or REST API. } \examples{ # Set parameters for SMTP server (with username and password). smtp <- server( host = "smtp.gmail.com", port = 587, username = "bob@gmail.com", password = "bd40ef6d4a9413de9c1318a65cbae5d7" ) # Set parameters for a (fake) testing SMTP server. # # More information about this service can be found at https://www.smtpbucket.com/. # smtp <- server( host = "mail.smtpbucket.com", port = 8025 ) # Create a message msg <- envelope() \%>\% from("bob@gmail.com") \%>\% to("alice@yahoo.com") # Send message (verbose output from interactions with server) \dontrun{ smtp(msg, verbose = TRUE) } # To confirm that the message was sent, go to https://www.smtpbucket.com/ then: # # - fill in "bob@gmail.com" for the Sender field and # - fill in "alice@yahoo.com" for the Recipient field then # - press the Search button. # With explicit HELO domain. # smtp <- server( host = "mail.example.com", helo = "client.example.com" ) # Set parameters for Gmail SMTP server. The host and port are implicit. smtp <- gmail( username = "bob@gmail.com", password = "bd40ef6d4a9413de9c1318a65cbae5d7" ) # Set API key for SendGrid SMTP server. smtp <- sendgrid( password = "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" ) # Set username and password for Mailgun SMTP server. smtp <- mailgun( username = "postmaster@sandbox9ptce35fdf0b31338dec4284eb7aaa59.mailgun.org", password = "44d072e7g2b5f3bf23b2b642da0fe3a7-2ac825a1-a5be680a" ) # Set username and password for Sendinblue SMTP server. smtp <- sendinblue( username = "bob@gmail.com", password = "xsmtpsib-c75cf91323adc53a1747c005447cbc9a893c35888635bb7bef1a624bf773da33" ) # Set username and password for MailerSend SMTP server. smtp <- mailersend( username = "NS_Pf3ALM@gmail.com", password = "e5ATWLlTnWWDaKeE" ) # Set username and password for Mailfence SMTP server. smtp <- mailfence( username = "bob", password = "F!Uosd6xbhSjd\%63" ) # Set password for ZeptoMail SMTP server. # nolint start smtp <- zeptomail("yA6KbHsL4l2mmI8Ns0/fs9iSTj8yG0dYBgfIG0j6Fsv4P2uV32xh8ciEYNYlRkgCC7wRfkgWA==") # nolint end # SMTP Bucket server. smtp <- smtpbucket() # SMTP Bucket server. smtp <- smtpbucket() } emayili/man/message_id.Rd0000644000176200001440000000055014636234570015057 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/utils.R \name{message_id} \alias{message_id} \title{Create a message ID} \usage{ message_id(domain = "mail.gmail.com") } \arguments{ \item{domain}{Originating domain.} } \value{ A message ID. } \description{ Create a message ID } \examples{ message_id() message_id("example.com") } emayili/man/encrypt.Rd0000644000176200001440000000365714611676075014461 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/encrypt.R \name{encrypt} \alias{encrypt} \alias{signature} \title{Encrypt or sign a message} \usage{ encrypt(msg, encrypt = TRUE, sign = TRUE, public_key = TRUE) signature(msg, public_key = TRUE) } \arguments{ \item{msg}{A message object.} \item{encrypt}{Whether to encrypt the message. If \code{TRUE} then the entire message will be encrypted using the private key of the sender.} \item{sign}{Whether to sign the message. If \code{TRUE} then the entire message will be signed using the private key of the sender.} \item{public_key}{Whether to attach a public key. If \code{TRUE} then the public key of the sender will be attached.} } \value{ A message object. } \description{ Specify whether the message should be encrypted, signed or have a public key attached. } \details{ The \code{signature()} function will add a digital signature to a message. It will also optionally include a copy of the sender's public key. The \code{encrypt()} function will encrypt the contents of a message using the public key(s) of the recipient(s). It can also add a digital signature to the message (this is the default behaviour) and include a copy of the sender's public key. Signing happens \emph{before} encryption, so the digital signature will only be accessible once the message has been decrypted. If a recipient no longer has access to their private key or their email client is unable to decrypt the message then they will not be able to access the message contents. } \examples{ \dontrun{ msg <- envelope( from = "flotilla@kriegsmarine.gov", to = "schunk@u-boat.com", subject = "Top Secret Message", text = "Immediate readiness. There are indications that the invasion has begun." ) # Encrypt and sign the message. msg \%>\% encrypt() # Only encrypt the message. msg \%>\% encrypt(sign = FALSE) # Only sign the message. msg \%>\% signature() msg \%>\% encrypt(encrypt = FALSE) } } emayili/man/format.address.Rd0000644000176200001440000000114414611676075015676 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{format.address} \alias{format.address} \title{Encode email addresses in a common format} \usage{ \method{format}{address}(x, quote = TRUE, encode = FALSE, ...) } \arguments{ \item{x}{An \code{address} object.} \item{quote}{Whether to quote display name (only relevant if display name is given in "Last, First" format).} \item{encode}{Whether to encode headers.} \item{...}{Further arguments passed to or from other methods.} } \value{ A character vector. } \description{ Encode email addresses in a common format } emayili/man/subject.Rd0000644000176200001440000000244014611676075014421 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/header-mail.R \name{subject} \alias{subject} \title{Add or query subject of message.} \usage{ subject( msg, subject = NULL, prefix = NA, suffix = NA, interpolate = TRUE, .open = "{{", .close = "}}", .envir = NULL ) } \arguments{ \item{msg}{A message object.} \item{subject}{A subject for the message.} \item{prefix}{A subject prefix.} \item{suffix}{A subject suffix.} \item{interpolate}{Whether or not to interpolate into input using \link[glue]{glue}.} \item{.open}{The opening delimiter.} \item{.close}{The closing delimiter.} \item{.envir}{Environment used for \code{glue} interpolation. Defaults to \code{parent.frame()}.} } \value{ A message object or the subject of the message object (if \code{subject} is \code{NULL}). } \description{ Add or query subject of message. } \details{ The \code{prefix} and \code{suffix} can be used to add extra \href{https://en.wikipedia.org/wiki/List_of_email_subject_abbreviations}{subject abbreviations}. } \examples{ # Create a message and set the subject msg <- envelope() \%>\% subject("Updated report") # Retrieve the subject for a message subject(msg) } \seealso{ \code{\link{to}}, \code{\link{from}}, \code{\link{cc}}, \code{\link{bcc}} and \code{\link{reply}} } emayili/man/parties.Rd0000644000176200001440000000101114611676075014422 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/parties.R \name{parties} \alias{parties} \title{Extract sender and recipient(s)} \usage{ parties(msg) } \arguments{ \item{msg}{A message object.} } \value{ A tibble. } \description{ Extract sender and recipient(s) } \examples{ msg <- envelope() \%>\% from("Gerald ") \%>\% to(c("bob@gmail.com", "alice@yahoo.com")) \%>\% cc("Craig < craig@gmail.com>") \%>\% bcc(" Erin ") parties(msg) } emayili/man/local.Rd0000644000176200001440000000054414611676075014057 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{local} \alias{local} \title{Extract local part of email address} \usage{ local(addr) } \arguments{ \item{addr}{An \code{address} object.} } \value{ A character vector. } \description{ Extract local part of email address } \examples{ local("alice@example.com") } emayili/man/render.Rd0000644000176200001440000000663414611676075014252 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/render.R \name{render} \alias{render} \title{Render Markdown into email} \usage{ render( msg, input, params = NULL, squish = TRUE, css_files = c(), include_css = c("rmd", "bootstrap"), language = FALSE, interpolate = TRUE, .open = "{{", .close = "}}", .envir = NULL ) } \arguments{ \item{msg}{A message object.} \item{input}{The input Markdown file to be rendered or a character vector of Markdown text.} \item{params}{A list of named parameters that override custom parameters specified in the YAML front-matter.} \item{squish}{Whether to clean up whitespace in rendered document.} \item{css_files}{Extra CSS files.} \item{include_css}{Whether to include rendered CSS from various sources (\code{"rmd"} — native R Markdown CSS; \code{"bootstrap"} — Bootstrap CSS).} \item{language}{Language of content. If \code{FALSE} then will not include language field. If \code{TRUE} then will attempt to auto-detect language. Otherwise will use the specified language.} \item{interpolate}{Whether or not to interpolate into input using \link[glue]{glue}.} \item{.open}{The opening delimiter.} \item{.close}{The closing delimiter.} \item{.envir}{Environment used for \code{glue} interpolation. Defaults to \code{parent.frame()}.} } \value{ A message object. } \description{ Render either Plain Markdown or R Markdown directly into the body of an email. If \code{input} is a file then it will be interpreted as R Markdown it its extension is either \code{"Rmd"} or \code{"Rmarkdown"}. Otherwise it will be processed as Plain Markdown. } \section{Plain Markdown}{ Plain Markdown is processed with \code{\link[commonmark:commonmark]{commonmark::markdown_html()}}. } \section{R Markdown}{ R Markdown is processed with \code{\link[rmarkdown:render]{rmarkdown::render()}}. Regardless of what \code{output} type is specified in the input file, \code{render()} will always use the \code{"html_document"} output format. Rending an R Markdown document can result in a lot of CSS. When all of the CSS is included in the HTML \verb{} and sent to GMail it can result in a message which is not correctly displayed inline in the Gmail web client. To get around this you can specify \code{include_css = FALSE}. This will mean that some styling will not be present in the resulting message, but that the message content will be correctly rendered inline. } \examples{ # Plain Markdown markdown <- "[This](https://www.google.com) is a link." filename <- "message.md" # Render from Markdown in character vector. msg <- envelope() \%>\% render(markdown) # Create a file containing Markdown cat(markdown, file = filename) # Render from Markdown in file. msg <- envelope() \%>\% render(filename) # Cleanup. file.remove(filename) # R Markdown filename <- "gh-doc.Rmd" # Create an Rmd document from template. rmarkdown::draft( filename, template = "github_document", package = "rmarkdown", edit = FALSE ) # Check for suitable version of Pandoc (https://pandoc.org/). # # Need to have version 2.0 or greater to support required --quiet option. # pandoc <- rmarkdown::find_pandoc() suitable_pandoc <- !is.null(pandoc$dir) && grepl("^2", pandoc$version) # Render from Rmd file. if (suitable_pandoc) { msg <- envelope() \%>\% render(filename, include_css = c("rmd", "bootstrap")) } # Cleanup. file.remove(filename) } \seealso{ \code{\link{text}}, \code{\link{html}} } emayili/man/address.Rd0000644000176200001440000000175714611676075014421 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{address} \alias{address} \title{Email Address} \usage{ address( email = NA, display = NA, local = NA, domain = NA, normalise = TRUE, validate = FALSE ) } \arguments{ \item{email}{Email address.} \item{display}{Display name.} \item{local}{Local part of email address.} \item{domain}{Domain part of email address.} \item{normalise}{Whether to try to normalise address to RFC-5321 requirements.} \item{validate}{Whether to validate the address.} } \value{ An \code{address} object, representing an email address. } \description{ Create an \code{address} object which represents an email address. } \examples{ address("gerry@gmail.com") address("gerry@gmail.com", "Gerald") address("gerry@gmail.com", "Gerald Durrell") # Display name in "Last, First" format. address("gerry@gmail.com", "Durrell, Gerald") # Display name contains non-ASCII characters. address("hans@gmail.com", "Hansjörg Müller") } emayili/man/normalise.Rd0000644000176200001440000000114114611676075014750 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{normalise} \alias{normalise} \title{Normalise email address} \usage{ normalise(email) } \arguments{ \item{email}{An email address.} } \value{ An email address. } \description{ Ensure that email address is in a standard format. } \details{ Performs the following transformations: \itemize{ \item lowercase the domain part \item replace some Unicode characters with compatible equivalents. See \href{https://en.wikipedia.org/wiki/Unicode_equivalence}{Unicode equivalence}. } } \examples{ normalise("bob@GMAIL.COM") } emayili/man/after.envelope.Rd0000644000176200001440000000051614611676075015701 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/envelope.R \name{after.envelope} \alias{after.envelope} \title{Append children to message} \usage{ \method{after}{envelope}(x, child) } \arguments{ \item{x}{Message object} \item{child}{A child to be appended} } \description{ Append children to message } emayili/man/figures/0000755000176200001440000000000014611676075014137 5ustar liggesusersemayili/man/figures/emayili-hex.png0000644000176200001440000007022014611676075017061 0ustar liggesusersPNG  IHDRX.' pHYs.#.#x?v IDATxyxT, !l$@uW\.Ui[[*jUZ.j\@qZEE dȈeMΜs]\&3woy@DDDk.[bx XlJDDDW&p7Ё>p}HqUlCiSDDD"P; HvEDD$`=I(W9֓KqTfz^!DDDo\d`-ֿ@ӟGDDDz|s0ҿꀫ~HO(EDDdW_  W#|`_X' [DDD]n逰_H1rF/+t@X1ND?/p0dh(2¿hտQ_ ;L}*/5&y "^`_S}r)xهN_:6P15K`?x4,,"(DmXNHb1Rp/p'tcxV6*c],"QD@$Axڍ$fCAj.;4՘j CR]EEo D 83U4h/^Oȃ\ !6(>\ **"` bCNf7u\gr=1ؾq na"e[ہvEg DS8Cߋ.AGS/œn5|ж+e˱6'>btHK:7H3U4cMJR+?fX,*"` ҿN*;IגXS%{,RO zc]ǰl2UTDvN@uhS=)3r=7T>i-3i?&amʼ. n~.7هFѤkg)iZ7(f:j*LxdQ6H.º'T=xu$idlz*_|`Gүa^aX D;^ )pهndHųwQLz`(0 8TAwb2y/ĝ`"D[]Fٓв&v=3.|F*\dμ#%B(DN&+dQx` {nˉ*:l?&_GڈM:[;ox/F,.֚,*O DzgLLLKtpMjX?n>zd6"f& )nxd˛1?$*(M_x/L$"ݠ` =[!_ $*8@bS%+b;xM&K=EEbιIXO HAE1^9 2UT$)X0UЛI)Ddri*hXɲ, "*n~u OJq~ϻ2e0dQX` -㐯MuEg\q'<{j7z Ο,*d "S1n`RpL gd7TS>6300z뒈)H+1UГA{yf.Bok-[N[#1&  $^El3&!#HIىP_;5:srK"N` &2w?)ד2$!ǚ`g|4b?XmHS0xrýMeQ8r.};٩wGj@"LdvǺhn_2y'8XӲͽ53Yv[`6,1N@bf޽㐯7HIP X7n6Yc6YT$(H,8}(:7UR",Jիx狁u&D5c|TAe\C5R`έxg1 +C>C_ߌC ORbƕR>V*W,Lw` N51/㐯'1@E fh3Yz)&7q-MM+hudm"DR*_0>9<hHR0':k jrjZM[i\df#:L4q|!=9 M2QR~ϝIre >@{AєH.TIqPϦŏGbXi,7YT$ $ڝlPb`aNd&*_#oυPT-㝯޺$bDQ, S;~:??CniY)soyG&b=xgJ m7q-odρˀM+^K{ۏד:|S%%N;ۨߨzF,ĺdQR0hp,>}L8dκ T̟EF)v dSݾd;;1TYm4ZJܙd-uYHS0;WbD631v#,OAd`o|dQP0e\SESx FdHt6ᕿ9~SeCSX!TQ]Q0r(oZ'BKh߸nE&˶w& lD6LCxt4Y5y&m_,[@% $RRK^Ȍ{g:77TIucT>ښL^&l` p*G`I)|-5UR_Z#3J`"` f(S=)8dqϝIӗ,[^4Y Q0CkO o@%E5:67Yvp-"}` }\q{NkI.TIGҟjo1Y5,*E@zT.AC2 Cg2vh0UT⇂ԞX㐍{;'x!c!8FeϝIs'&v=JS0Gp$ľs>dCμAFJ8V(DN&+kzbE%v)Ȯl<0:l? S%EbBW#6E%(u j_S}r)x!Bgm% 1=޹ k[$vYg$5!'$1s?"h$4URD!dQ~ TJLLNѤkw" ,(ć!6UГA{ ʊH}Fܙ4e6't,,G ec R!r}iMoz"b^7(f:j*LxdQ. i8䛀LSE8)iCl\;ZM~ k E%:(Ğ㰖 2UЗO>tS%Euoٻ4YE v b!Ė({ZdYw1 ΗueHE@љX`DȍwxE)8r;<@S%E$ m =hXkgu~ &d`% :j ܦʊH^wSK&n<h6YX"OY樟c˛1?5Y$5~.n e+kG5(8C!_ObN"``ߙGsMP0n.`ijbSEFP<:22vĐ@K/gzO*TQ1O zSr!HWRm4,d-t,,f(DF'X's$ '\7-DI#ޠ|ޭtT,y&J)DsBMuEg\"㝟v SE éX7U0i0 '\NO2URDC5  *fFo]S0(1'*8py\("]e){r&ͫ?2YkXaAl``XCr$d))"SuLwYktX㝍޺$ݣ`пC-0Th RF*)"m67^A 6YTvNupoS}YyNC'K)E^uUT̿;R㝯MӻI5yn_2y';E""F4y3i-_ixR05XT CB#%ED""f?{MVumE m{ Tє}(ri#2URD$TwCSX3d֙**ƺ{ &d`/5YD}Z*2=޹kԳ``6'FN]/]')DI5|y3iduh }5)8)3HdlHuST,EdX㝗,o zg8;&P4:2cHԊx >>#M8dgU){++,یuT\{HКsdCsgұd/hs7)ږq7fyE%pS%ED/iT>w]-&K\,7Y4)ܩX*8h(C&^q"";D x.kLt'&wOiH73i^ɲXOG+oC۶C| +ηY[iJWLu:1U4u~O*)"W~ bPjS)X1U7 ‰WhHtmb,j7Zxw`ɦ } w'wb""MR>w&?7Y ;eIq'A*֍X`j2__cTACHk߸yѰ|ɲ-]<ٮ`PCk\.eOL{je˰esd޽3FA$fH;?w/]&Ku2Ew?XMLNѤkw"""h#5 K;qcLd,""Q3Τ,[I?# HD`5xӳWn| Œʠ/>ݭH? mφݭ9^7(f:j*Lk&n-`8䛀LSEw?)3Hq}gN"& y>""Ѣ3_lw7eM~YmlzQ*_|`GүadQ0 G| '\Fa*w.>4 {f "=g <'w66;8S K&CY?簢D l9_Ft;]Fٓв&w5eru(:| 7YI5$D$CM\F[qP X7n6YcKRX?؇:ߒ:t_F>@&(Hd\P=M5 \.Rbpy4ošP߫z1㰎K|7p{2S05\[o]PS"ү! ,Zbw+վi- f  ֥"{4v!#r8s/c@DD-9kB4~.sorɲ`swA!_ObNqIEgHj@D챲_,3hw+`:?:ŝIXIy#(r{6U2t0rRv!"BW0y嬫ש 4P}Wx#8T7LOD :)ź@DFSgcFh*|ޭ4|d-t|~- Ƀ>sy1 M2QRg84/2M~y-+R Τcsɲ_a?onyWI~̽P4:JL͆o_E$*uvX]ɹ}{A_ÆlzW|Ci()w8ϻS$jD)ŠT/_vV qy<$\G[J~cDeOr:\qhC\$yyav!"K G?C.yqg\n9GNK59.xlR1#}ZD$!8o_i:c$B|g՟9v0ES'hd'_BO7sLx|Ǝv;l|m6A6 z73&'w~2BEQn74p?tT۩^q0p'&…0we4 nCDǂ!8_F\iZ3i]y?"S)z-uҭ[;2)hžv "'n훶'%=TQ` "vukO z\:%"w1v ݠ`" KSP0rD$6x.~ې]P0rHDbbPc|%B X~QHl5(d Xaz-JO f(HlhS0bGZ`4bYDDyXOHR0b""t.%شw_47]$^|xH[('"""` """a """` """a """` """a """` """a """` """a """` """a """` """a """` """a """` """a """` """a """` """a """` """a """` """a """`  4 .=<6$ )ȷ<.r2!?3ʴ Bzm5('݆DHqfK"ɫǃ-ن"'% IDATZV!.xzP|}s)%{<04LDb'nC^e*HJ3,VD/Ja%QBJ^e"vmnEDzIՓ?&}H$z]\p`pݭH7yy{Pz@@z = nCDvd5X@zL@zY?(I$wrZ>^WXEdTu mzY2}(^S0^~Iv!"_?/'&+Hxn@v1{A:![[7I݆=1>Ky"[RF =1#d9ݎHXID"-7˘Z> e&dݎHqD$=1HSİۏS(ҫDL͢ J8(VD޺cKnEbDeMv[q,F&KWD\Y `Y峻GٲgGÐ(HӇ݆cY£g)HR0~vY k.w瑪 t\QY i\B%uv#u?k=` Q㸒4rRVGV&U(Q#bb*H~Դe42 U|n|j!wow+"oi(QF@) H Ҽ<6H+Qq2R!; g݆N)JTKBTȲ ]R0dޞ>SȰ^Y<7/8J.<2Gq.?"d}S(c$5Y%+2nCGPeDޞ>2:١ ѫٮVu td$%GPbNn'shg.Y [(` ;ulhF$y]kr I\̰>ή>Ek[nETyZoW;rRJ?R铔7s;?娿fmd [_XI 1Й?鉽bGn2h 2ZE̯t'XWeçq4[y!9.@>Unw0 #qj:uqqyҗ* :/P!N'b^qr{= E@*X[̟±O }o3gow+"a U^O[OTzy!v*N37k.[Vow"P0z'eݴxz ) 7<{N'缿@8knEd]%q+7w^8"S:@ kr%FmwnEd $j-ZNYݭJnsYv3ޞ>G.;WW7݊N)HԻJ_8,GE-:=Oht0/ Blš/) nLdg qFc9sxUW0ĕlO݊H(#,]9VzeD^>w8;No]Pȁ>GIl 9zN)K;s9LⓂ8ʍon=r%p1.gocOwtBZG!kw"=5zj$yx${ud76vր$ϟ5̑O !uj:8^UEVœ68rSbŰ hw+QkT=xqU#_ow"` 5 NvE\~DngE/fd%9ofgWsݒj) +w-S n#*Lw#:gٚ8^?_?uBރ(%GMײ.^Xiw"F(HLzF^Wqb.=<>.80KKs^@_ǟ?qIQ0gײBJ%`-,)kqqwNtv3s)Y?å$90%Gpؿđy3Pֵw1fv)yVDswH7`EumJc;v.@w\;f0=ؑK' ] ~`=Wn_{OKe%>*q'߼Z٫m벻Q0xm g?e ;݊[#̗ͭ^+d}c${WFaFݭ٣g98b[ T-Hp ^ T̝'氟X.p( W5%Վ;uqSȓ]P*nE8;USƔe 4hm>8$͑ѯP qǙ߭"T`Վݜu10%IiCsm2̷61I-HQ0sd9rne.6б"?]7݊- $.}O9n~D{grpaݭliCIyG5|ٙw`͇;OwYşr}`[/7rXøn|c#ֶ݊@[k}}JKzxzj1) ndžή=^@=1`qpAَ/'7I:; "ߡ'"[dC99cK‘tBzV5Z1 +;v"u'A >kpEH[nM^9w83̫?nO.o"i Wwpy8}p˓?뫛yn͎H O#9=O݆HR0فJkxaܐ]^7`y\<.!!r"O DgQ:Bln a&$ttSyaھnGv-dCBzb f_'wY@ Dz}Cb, h &􊂁H/qsJy|Hi;sJnEı Dz+E7VM@B٥T5<@zicǵv"x "LWG:g@*cCVDb-A~b%?{--0D}{cfj@ >Ƥ'iA?bsS݆HQ01+uT.!_Om[ݭfN|d jqңk={mg kYز:6nE$)DЖ* ͌}?qDHS0T͋6k*Z V"A@@Pqj~H'~y|UawQduwY+s!xS嬭ﴻ=1RWZbfA0Uq DD]Ű>yf^>9`њf~VDd DN&g}-A+Yw83^]Dڶ.om k;9k DFO DͼSvO1 楆ήj:JZ:uS)8 XqS|m \R%5]E,`g 8v Ghq\|YVZàDbH `'u.LᢃC<.=M nwY]۩AHqF |Yɗ5j&}O?+]vNoxc#/}dCGuˆt|ǏHiU3w[Mm[Wإ3d!ۄFБH|Htso/ṀFؤ"ȹgqA<^  \jMğƎ P//@!-%HŇfou]\>nCW"s)gDى[{_F?l6&ɯ{̞vqr7jttKUG ;!.zj;mKC^0ƾԊB5}3\~Dq r~mG "Q ]V=4hIAGO d\Q~Sgy!>Sv]z:>**ی|mzbV%Gm!,m-#ّ7Qٴ~HIC RlxO}B}{ #&x#OK+}d)"{|D=s'AbWӪXqD<|`g g!q<{ɗ5[ v9j[:X3|qٴjAg]k>Mє ٳ7e! ҷeRO"Q|ߛy;^hc+ՇdO_%M9.Û>/$Jov0DgDIy5>O3g3: `'E'E NcQ*%ٰP(V;͇1e2ΤS%wWRWk#nz(|$*0W9dLvY?T(Qcdv"9|^͝A,N~2ۑ|d]Զw9hel2ܤܴB4ui  މa.MfjϿdT IDATC5^j`0HkkX&_KRnƔJ|3'dr܈tv2O~skEk[xw#guko `aھL#c;1~XQn1*)d2<˷#FËR8itD~z.?fCWW7]{xQ \`=z #ӸؼիmGքǽW/_hK[(?bO[^7? ѸmrDeA{zHxW&gʹݡq#ҸAd&|=v˘qSd < ~wBb‹!$լ2GI)kI۰ԛd2۽5Kyux.rӼ쑓Ȅ=3u^n;. c=Wރ90? /7iI82=;xsM mj+aCR8(en\qd?ۏ##c]^M4vtsD)I`wP6om|'gg>u-5@?DrŒ*HҷSGתvXVNZd$0$#?S^y+omu~[;f>h,qHa2ǖmS =qR(Q2>7|-}S{!b;xM&K xgҮ~hJ[sLt,_6.Ǔ=A;5;'m;w"T vp|somrY\xPf̓u]IV_U;jg'ux.^pR֛\>77;qomx\o*lo. lXPQPIDS5(X.FPAXQ}gA`,3;Nޯʗq˜羯U:'Zx᛺o=@f3oe˦>jM~[k;|[σ'/ʿ6&p}/k6Tc4 ywrCeߖ34K悯AӦhSb2+ćEac5B/VcYUƖ#'{?%:b/0n寱˩M-B&LG_N Ol7?_߫(8˭MEou9qJfͯc/G4ycOWVzSr~ͳkW))uth[Ǎ:{\00EwƢF9ݔ5ydqG>Wg;K 4Pe>5؝u%Z1QR[mdsp 鿁d'dQ{o[3%~Fݏ5]=^mRANīow܈ikmnV8+oonMP?V-֭љh@*€M׋8*<ۡlk=p0۝`85U"'Kg#W{yY޹E\0[+;w_Q"ߕ 4,Ob`l H]]?͝N Orj!YFd$Y`ס_sX}I1sVA?"}XYw|6=úO889.cL.C[<VM;>`#E.ʬ ~>>3^:[ PlZ=O`M|TUg;tDpo䆯G~9qKns"_-S⍺ř/onjb?:!]ѐ CtWcv7`G AzsUlboPXM]p+kn <T7*kޡh$xPI4jdf&lݻvDc95ONZs?y_FL=翮]EF=@$GWZ[T7Tӫ:0fx{/oduUNs}e;+۩hq~Aר\?çh UdG[5xzzKioB#ƛ]7k,mᓪ8^vjnO %yOJ 6> Fߨs7)gĬ. 0mD:/~9Qa\Ȏ%<~Y.* h}OK)A4,֣t֕܉kHP=hCbV(tE4n\N/0{g8ָ翮㍒}u0&c95/9 /LB}>­geG@SG.&Qiwh~ qv'})#ҹ󜾺zme)+CT6mEz~lq`NQ)\68-wG3H_7/q>LѰ؜nomyl5'ǥ^ fmP>*PϕCӤ(k#Kv]V0]](jЕ)ynz;_xz+w]W5pF+F931^- <nn©4pHۑ L-.1&x=Jj3/fk*O聢Bbp8OѦ9f˜\'ߎ)Ivǁ6m7yißIVґ˾ &_ǏZh `WYqFǙu!:X5`la2fMzKm~uq0,;y>2YɿJY_p'Sq歫V}jf QqxjFțxw6z6spR#M6sYܿW}g4, :n>Kj;itbh-65yQMS͜E- ē_vkAG, iJqO&ٛ碵W=-k#9l}GVEdjtqU&KA:7]}Bϋ7mL^~^ݭT}:G O1qw;0St{ll鐢 Hζ&/U#цڝSo?xt- A} fg~~HL:t嚍._:_gseEG5F{OimTRɻFN,h&^Nt+tNu}োAn˩ZnG8Wva< bRi 6?| _ۂxo/P;1Id\͝N\^7,բGeaOM08 L֝ OguT7gU+\ ]h%F.{U^bz61aG~g93z6/W" ;z?ǻۚjֽ-L>TL]PdgqH &àmT{#*lgoS{8Ў#p+ <*)%&l=l}r:7 7:=NRv|tǾ {Bh@sth+wl:_F[{88/nbKюep- hpHJXm޵ynSɂx?;𱏱{r^8 y#eƇ{ Fs^}.7KwHa83~8[;wG 7 u6\r|jPR>c!L:-b+b[:cfsY(H՞hq,}6l b=PJPxl&SRΛH:55泯ؕ9 ~u!?=EV<[զH?*UcJzGvh3"}sJ-:kQml:˷GYNYFWp 3ua?6MxrtAMr&rn1x$ Nd.L X Zl.x,jD.q:'4n.lN&OqFM`lA2 .@m@K _;]-LN4"''f0$+}Ș$& Kֳ,d%ZY9T:t7~{m脌.Qi0 -S7(s7 to2`|>O32oc lp*Cƛ $ t}|Rdb3(5}5%aG*~B-OF-՜*ДIJ{eqԸVq8kʈtWG`]nk5VߟӗKa@Z vgk 9 unJjs_԰I3/ǘ$rEtaOK[u^?3?&t*&s h;g}rt\n^juU {ZsKy^_-6 8aץgpV+mRbW]:RVʤywd&鿵74f[WcY8*cDL1YhRhN$o1 1mw_-OIuPǰM\bpowRbgG]nF5A{<$+:n*Zlz>X}M,@ o)??-SC+`GX6Szi mz;.k=vqtkK3NVlgOCxA 8uhg#ENaJ;ozJ/3X>G>:/[] bhnC%t}XZve\8d#T6o JUh v 6tZ1f?"ZL8>X$ 䞚=RX_NGݑ03i.f~V-44;WqR?Mژ6o}nĮ?~6gli1/zֺ < WhLH&_wo0#x^8@pŻۚZٲFZiJ=1Gg_%[#yx\?.EgIu.9!RXmR~PMi{?b_qRDV>†߸XK:XTD[!PvL=Ia3/*МAg46~ϵ\f ~dQUJY\|2xx?i) gOϻ)1x y/P)D3 Ɋg`xrRę; 8MT,]@7T4p һV+0d^@1y7dGѵH[*R!Ž;GSkہU) WE;G?Bмm5⹴WP{\Uq9 t9CBD;um)A@-#xy(\tE$u"Ǹ:ۨ*?zC%->N iuh09 J"".־wR9`=;AxB1) BkQII^~ot%! RV<=O# HRK*0>3w}ִ,l*?C7[@;g`Ь*T+Jωn2T ;3I.*R!沵ST|N݆?,U*| e7jVH)Ns_BDƒ唽(ri)= M sgsIDATeM䍿<; !_[fʊк; h+2Ha&]O @bAL}FS)؛jXlc<U*'AxHnCڕ*4}9^3CUE !b7x8;Z`P=RhM|o &39IÔ"RKcY82qaE t&ㅱitTc4m\emB@`<) —g3hH.IY =SU" 9ۚ(_|xm2mP/mx;?HBUB(ph{hW-Z5*CzRD㝍q: SbX!Djپ⹴oW[@!G) "8' ǀIxg!bTg>/~F8v` M`ZRD&x私U)OH g")oH!DC~9J{ @;~X2T7) bS>82U"2Ia <<:5y|UB&bϓ8ZT&֏`P0G<\*3y1&$"fl8m*c+v@@ %hG ӟi'i`=!PIԭ]4 B,Ȼ%0㝋EʠSUE U<㐫ީ2z ڑ=*CEt@# xmYI@\}qj!"M l*g_2TD') D FwRUgs`W+Dı-p.U"E01m`U 9Q0d""k6_[@;*p@U Rw~HW6|UE ;5_aU)Z*CE@+x04M=܁9-KEad9tد2v' B"Ha T9M tWQ4oRegGDl@dT&O8BUB( B5nZURPH9'IUhƨq͘IBNH!B8% p5m*C) DhWV?ySUD [WcY8*c#'#!@ ў*kuÀIkd+8iڸBel#'vBM Sh+OU&Dьduζf*HgCا*THa zZηj@+(^da!)J{ C=Je"-CD7;U SˎoϦmqȕhAdRv)Ug?N,BPEg]p+h a")A BSBьY :EUq.[;ULղq;TF/A{lP2T@x5G FL{KWVsXshU&oCP!!G#Ѧ7WhLH&_xgM5u*c=_*"MFp~ɟzwdobߐq"Ia ]<[`6*4}9^IQqѪ23U "R @nLs?N̩*"E!ϡEe.~dRHsxsTS2ț(cYGn, Ҵ Viqd RH4lbb`f<@ 竊a.T S03^@YÌQ(v } UE0v99j!ڠ2w*CIRhPg 8r.1SĔ*Vmϥbr}2YD<) D4@Yø~ t+9=t4Pel<0PzA"6~BSEጙ*RWg;ULG/ Z[*CmRh|Z/|YD 8hs T*D@Da|`;߈1.AUPȺfc:F[a"Ha bťhNPG;>*U"Hj=qMBWRX<d Mv3f\0BUN͊R :TFvpP!™"e)\8>iJ"KcyQ:딎C |2TH eMo@U)97_`0ǩ:6SV<]ߩmD;B !T&DuHq6ƿjU 0B<3I0TUdr;|F(!@;~X2TH%GGS~Lfr. oǔ)[WS֣tT-f "Ia 3/UhNC[ds:`YMVC~P,D4@ hrU&@ጙ =SUdq5Q%?{î* CKRql)݄d$-PC~Y-*EGFeH !7x FU1.~_Gޕ7xk(+~m*c+? 㐅Bbs' ӟi'i`_}_q`.Т2Xh[@Bc~ rT 9]jFê2SU !0" x?`NR*%˱Ϧ~;!/U*Bh 4%g7a9޹ͲKZv~2C"Ĥ0LF0PU`bA^s?']*F*>qw5BIa DJnfBGCѵ;XUC~9J{ DG_BIa D(@k㝛Ʋp;UZ ',D/@5m٪{bsG,o?Fƕ*cۀy8d!zB>#S@UE'R4c&CPe/bhT !G !G*>@YÌQ(H~EwI-u^whV BtBhSՍwO߸1`-;b)C~^A;y R.Ap@;*)_N!BRvg"\?B!"ޅt BNW-B1W_Az !gA[wQp^o@!B[@'?VBB8HƄ9MIENDB`emayili/man/figures/screenshot-email-rendered.png0000644000176200001440000021703414611676075021704 0ustar liggesusersPNG  IHDR.;\D8zTXtRaw profile type exifxڭiv\7c,9^~IْrY]],TD;k)fKk/=^Z>~.o_0xoם}F_o|aғ5 y=~^F|~C u}&X]*xRH} is]HS1} aϫo?-~_ֲ~Qzި"}V^eՖƎ;m`bݶ 'riN?k7|˭]?߈ZZ|u폨k-(fD,@ě"@BG[9*rX*A|B,7?#9DQ"BOTmmf=Zͨ-bY̭qP򩕰Wq B073ưOӗO_7Sͧ\m7Rn ZlvY0eRi0a<^c K;IȬ\^,D[C򽈛g.tX6U;FmճJW{#͞Mu|uXW!mJ%)Axz$B_y  J}kaH^쉆ٸ_4V=I0*Gr ;XfiYEH]Iܩo QTlDŽhJ\;z3;Vʗ@jQW!\uʭ<4.PBFFu2q>PG2* HZ#ךnOUH~RSK!֙7/jzRe7-K{ +Q'G^;7AxEp(.ߔF` ͡aؠPT@(օ[_ :J `Ki0vz"KZH)x Q]DwSlde'8b,@OJv2h^P&1)3IP0c3ln9vDld'eM~<&хO\60a5֒'cv,+,Uq.kG^m"$u|§{r?~wtz?N; 7݀]d;241R?G%n S>0IZ3K֭2Щf{U9 لW࢖\$K*ט:/ JIv$$Ik ]7TY3Ve&IH}QQRyfwXr .c *}QPqEaxoc5pʨul FзLvfå ZWfUԿdb;ň0)uJؾ/ގx"hQe+rBLChI,uaG1/ǥ}X&@fL8Ka0Ԩj#0(pjPeC]<"XUbϳ@unH]pf8 D~@sdKUBl-f5 PiQv8n {Hc3"SE%q'd8\5\r)E#)$?\\H%ˎ,pD2~#xb/YR QPTNE#eQBzΰXRZ2P!3Bl 4 ϥ#ia/gFUgWOBg_RkѴ q53YZKAõ֥8gW$=y}M t FڎFGeQߕD"ZrR{&V'l$1e K0W)BC)@@i#YISXРʆ.򰫝14^N]1</y(zx!4)U(fF;JэI$IG;H'L=>X*A:hsU{Lhș):G,&CȒRrxoXJZe`Y4nsLHf.𘍦)E񣷹 f=#S{Ji+{-T?F-v:SBzJ 3֬/+TS(yEAKtX$7jc&{p+!tpɉ͎XNu|0VK4S`N_M^[9Yp57\HFṂ $9QOpڑЕfnR/Ǣ.hS٫-b9b0Ml>Xnp- "<+kp|ÿe|rrD|'ψ n_ DVΊ}ޙE4dwP7^BGX8A&U6bY20 0R]BKE #clX(XRR׮I"{oA+]ר UԥbtRqbd,^@I@,S Y1nqu.D@`gX9U,bv~Q`GN&ۈ99p.ގ(0^$ƷVQGhygua)DYԱB@PPӍAO<H̠:# ej S O8Ж0nbۑūo2sae `pKjN!26F+: M f[- JQ,&ϭJ 吣:\Mp7^ TH]R 㨕ʒg]5"^ ܫa}I3Da4'uUXCHB.ɯQ#4QP%Dva0 ԞF>%4z{ȦbǐyOalXȷir bGZ۪/8Pw*o- #o6DjnTܕ W@'2.T-d`9i3lCfCa6%ρկX6$Qhr!Hz=:OV!}X,R:xy\,cJ["= 0Mlí;/P979`R7Uj装`@s0q,&vGt ˝\\H܊b{hD68GWmJiXu&Xb}Rj*ט1^ȩKl dQPOn3mXUhUƸ #ހ=*``q(emi^B3#وR-.OFJ:݃zîulhu71mLPv ]3£}2E]I2rz’ C{b4"CuHrHxzd9ՄD(ȳ ʨ&YU[+t$G;Ѹb[UHvBbXjhoIY,(<Ϝ=G2F>"ymT5DEf`iE[1/8 6"LfV(iTxiz[otۡ$FbG ANi+6U}9Hنn|ɇALDr77wo;06X:T:~'@ Ctejڢ&6Y#^,*$;B"lT##3EW`VdkpP/p U!^N_':pkf 刪S~TC(]Ka{~ Ad@O C = Uj雳N{&ːDOv.e> ' X3 YbߙD_ވ88 _}H-Md]sm!Lͻ}cyW_^wѺ.]8,7P@Q#N^jlѶiȯTzxC9݌;n0# qq9Ni2c]]pt`oEi kIG$<mBL/VȧβMmdRl8b8TZA\dx(C} *,3m8*ubXN`K@\Ak%s0:\n0bHn&{R-AІ(Abn zuhu0g#w#>[y#~S':QxryW54E*`N}6tHZz}6yxV7òab` \@Vǩc;)NR &Lg ]KIrI zh0Lr%UQiC.j-PdȠ7%Uϊի? JLa #J.Ks;Ǣhw/]7HQ:]ǑvO)8W' 6fal4xtéVJIb!ylgOt}|a;CeX;#EGɖ -Vo/A3$<֞r@ Ot2mnu]Nelq v ]>;a iMm$SN w5>$E ilkS28UYA2Pek{RN3w %N!/mM0}Tȉ(ֈ3H#Ptnɫ> j t}‰"hꨩN0N{/mОvGg"LQNmS΀ ƪ3`x[?TP=jj6N=ERq,>ҊswLNr<CiCCPICC profilex}=H@߶JUvP,t*BZu04$).kŪ "%~Zxq}w^f1eq!]ه$fswQ]Ur&|, xxf9YQRω #e8̰NBm̊J7e[g[@ze{o4rLbKGD pHYs  tIME  持 IDATx{p7cvL6` ݵL oB.4;1]qS{{&fD)lqv=gi;}WƥrZd&&)B udɖo/_<@N> !݅UBV`G9s٢UVm޼yڵb`%ܱy[$o-4헾uN}z{owt5Μ9s}$z~m VOoﭞu!mB]Ɖ'W*۟zcܜnz^x tGe / E{eY}pcK݉b͛?UJj 9r49(;;L׺ϼ瞁UX,Y=fѪ:uT*JnxW:l}}sϩ:h;wll6|w=s_lݰ ^Pet8sQk9g4_566j/n >V*xGI>^zӻw6w}l޲eƍnqH2ص-o{nٲew}Ivo`3}ip'ڞ:aY!?h4~_ݲe޽{o2MsT޽yEwދݻ~fcrLc?]k$.] xT~O<:5!w9p@{{\|V֞'tfP v:wn>;=:jG_u3]I\"]^bv\m}`6{^xwIvֽbhw)Z5 ]L*3?A WkԳ,foX,_c pB\.$ya!u7y睗_~_q/@s< :_04hm_}2ee 4/yy'ł;@%',C!})NR#hX<eaZ] /qBy,<jFlĒ'x$^xԎԴ~a>pC(?'>o߾y?>d^̷a4:@9 WEˁ*6eMﵒzM+ߜ&A` R,5U믿NV6lxj\ 2EG5\ $hX Yр#&zZPtMd=<L4@hmv/Pbp{9bV{m~SO@0w[Qrf8G;x.#ɜGꂿT/Rݾ@N}9N;KjJ* >'Zd1? @:09 ")Qf5{G͛Ʈr^e\>+)@7|MN{S٪䠵\{zYDB${Qb;pW^#el'Gj3=m@GFĕf۶m}gLtEQ, M CiLѵOƳuF8PFy+ozl&[2`,0ΉV& ePeں~J'6&,FCI ل/s=FEٶmPG78oM:>}4˲ {}>̌8(* =1;%<5 "MT۵%6(^ӊyx /=裏7_qĉݻw:uj۶m 7ڜ{fXmBQsg8)x'JV$2tpż»D"](&lܦ"TQh@hpBR7[ndf=czQ^H˂G2.K' ++JnԳk$ІrUh=AR淽Wmyhrus='9g߾}׹0Fu$:7qUV.h%JۼK>߯`ʥw:FJO̺zi\pV+;frm۶5nFG}W{7䶀 e[̶ 3A/ֳ@q۶#id4,϶^ݻԩS[lY:,q_800p)Q-5r+]i 9tJw_Q-U`/\<@E&㹒%B:'vr2\m ,Jl|$IDE.!dJiΈ.P,z>[m>h=al9ʩL]\4b^mW|UFKLwI5J丮мw.ĉZaj3IQv%}.Y979a" ,d ipw2L/7嵄zcj-Xhq(B|KhTB"@űTJoJ4쮇#mhTڻ:sOEh|h xV#,poӨ7z!NP,.~S4MKt ujvY/ +xzr~ A$Gj .1o t9Vu᥾iP)奠 E%m:Z!2:{&aj۶q&Q%&;zP4E`0R4+2$bda0Rv+O]F}ݧOʙLֹ,NDj$qH$ $`dOےC.KrTS}~ӦZPulʹ/Q',{mD߹sw^nJ|TϟzFP޴8=;v-w{bKIPFb x~zfǛz,{nVwv=ttt*~GPG{}T"/D7۲c o u>#4r{]XU;]Xj.Wh}vhkڪUn :JcʡG9s٢UVm޼yڵb`%ܱy[B&!PG!:B!0 / 2ZHņs[Ñ &Cӱ]I97IJo/zT`EaA*pZ?"Jj흮Ŋ 9yND*PGKEeRj:^^x_\/kOZ?_ZMK dZ2tz/-)`4bI/DA?47F\ezWuzׯԻ7! +2^gW&qݽ6zM3# 'e @^.UFwx<eC.hecs y 7ՅP_k>}s~$[ON_a/?}_T_<_NP,l:^rTۃ[H1HN7 +{<6B,(j0Pm6{otA 15J"#E\e ̠+p$iZx9D~. N#ى(vszٓm=?:*`ZpsSF>e9\aCMr5`x뵛ꓙ`<#:+51Jr0Ye3j:ɊUUsX:7Q#vXk̶ɗXwGY, \l0)(U998B]7r449x~7'-v\w,?Y<BKtnΞ8W#@?;M+Noe ްN2l@A}~g=~/{ںע۝=MB#]$誜WJ|"70h$Bwڸe<a*5%{H1AMgLt/\}~/J*`/LQ@WJeLeYR+r"V`}6m`; f=1Ǯf5Ϳm}&45 ns^@'ΞN5v\T3A_P]HղHDb }A l<@% Rbp{9b3uMK,;E5 X7 2z%t90ޠrР?mH^Tyh5ܝ]$`6TphY A Y@6_TsZ.A252[yY@PFQV\F+KBOo?S]-a/ʶx9b&L3 P-܏S||ϩgVǏaǏ֖7}OԆ r7VY3T %,XR60Hn% HK<ɉȧ&؛NP UT Dj"MOjkPDRBJiΈ.o6y"f2@44M_J9̛\BNXbGKق~e[N֠fՅvkM(`nMCвt:]Epݟ~ϰ1M dEQd6d,+cHwC@,S X`!%Wt[?BLWR]x=c-%3ȌfmVrN歝MbB)K!xB w\IDV괉^Lv]h"6`hVdfY|@쭃aQzj.;}(8;Km5wп]q$BweOZ=Ͼ>^cMS2ñp~d IDAT8\r*,2T|lda,ڭRજI ņ U<B~x o'2dcs7iX41Lȉ`<[IJ]NܝNO87ZuR)-]65yxO;q_r&@ǃ{iE€G2ۇB|ёlfcߟb/WM7G'赗 =xR`0iHNw4O{h3ܻFk.u54ϫ`s]r<=T_-rü<g|r ZBOtН'~}~Ϯ^~ԉʕW{]RUuRkѨW&l7rZ Y *@ENe!Ip'_޿~$[;q V~ajԛQ#NTeO{G RFrE˖JK'{G*FR 'K*e55\%iy@WEYN^ES!t _M'dž~w`NR|-Zm(Ni| g7'7>'6@}=ev|]ش ۹5t񒙮&={l`m#ɂ>7g~@;B#D<Dt2B%Ҭx"I4]+#ARؾ3l2SDO:ÉD"px#Po&.9>gy??}~S&8aѫ[ZkVKrz~}P^)T]7]:)#-$*?PN&5<<0xhq[2ic>FQTV+S֦g:3&xJtnvb&QS(xq\~e$2DJA].:Mr VI /[xEM&5U0{:%n'c;{ZGf"dnlv <NN tZ bɤb3@bX#;S7nڸ~~ZW#ԆԽS'~@(8q˗Sg&{bF Zc* eoM)` :@Eeuu%I˯` XPG1Y`y( '(E |X jFqPvIvh* W$VfyC=;A[/t$W :J6#}#NIOu݇5oZ}-75Zށq{GB-#]cWaoon@>*zq]i+`P0<{ !~mcٟ&(m{3Xѷ譆yEQ7.ZZMQZvswB}L*@!0B!B! uBa#B!PG!:B!0B! unu_ve X! ;J 窷fч#FFӱ]I97IRˣ^+/XBwJ61VOu;v{k`lhBNj&(7<ԫb풹Qٮm7|/;7^xc;'w/ϿNOn?)cLQV+u0R&ڝ.@3(`4#K,?'&țlRNSzWƓ!~W/ڿ*+5GC@\e$gw^SHIuK We@j' |e'r'D5k/tw޼VBCFXEXz|%63;7=V;S~苟YRHN7 +{<6B,(j0Pm6[hƨ^ MT`xStyx 2RT˵:P@ GySOD璁ýL9HA5kR ԡH82ξA1h77*I= 㨣 Z '}>;7zo] P6.W\ ܽ^9> 3,/{R=DI-W 9\V=Ȫ^U5s5i猵l|e[xm+p$+:ހٝ_㙂R]>#5{!GsAC=Oḏp'~sbb٘zCO!:{W(Hל?/.81 h`4i AWʸ}VRAS< "m^/K䑘 S)C4h:c(}{9PRp @xmd tRT5].`(rX95iýnۉ\WtnW7 9vu4m=6 hL4@hmv% F4Mma `3pδwB` K j'"c]гt30<+,@a#\IH땳lKPBax3y0bQ6Z)7r&[]NHdrD|v@SfV;G tY+V0=;/qT=suy<B_`.N l/bxVV:AZPj) jkO~Tjhb\ -㹂nc2!x@T$Ҡ+UóM鋬6JEFӗ2(`8ʐ EO,)x'nAx KU8 )E@Uv wMeNQeX}u4Mi&Qj%2faZ'Gga݅sPM`}" gwDR B=v ٢{2r 02\贰m,7XzzVXG%Z7h ~WUI=p4`\,)|=] ŀmnP~LtНf{N38z>G?~f>QRB.pf3sXeyP)&P cPKU}k+rwIVDz4I`#q7FuL+oG?!05'D&_L`_BC wi:$6Ba#Bh p`0B!B! uB]w+~_c- Be.\Z@!nBa#BC!B!PG!0B!B! uBa#B!PG!:B!0B!Ba#BC!B!PG!0B!B! uBae~usoy +ήhՎxT"*+B2=2oSz~˜ ѭzߚi+yfh5tH3mddvg&<Ba2G~xFPW؂BCf̦3S?lݲ w7B! [4Է*)u/l.e8"B. dCX;G_:!7_2H?śtosK"?e7rs`&|37"mh;LT~G- ~ȫoCXyY<B]no|vHlJ7Kн`:ӦuP^2}:ӦMܰu(% G^<0F_XtwknkK/ue/n^_zz 2t0ڜi˖[M?~#<Bf|gLޚl1 g̴v^mLn 㳓l 0ٱ0B~fnڲ%`ݪUW\>Y/:U Ծ "Bkt]~xQѪU]i/9Ӽ9B[%7R:\b-YZt[:iv;|_XܙLZ7HB!Ʌi֍-?z7[gG?elٺ:9sō9W0[FǿPiF릭[[lPݏ7B,[zzRo=)oZ2}cwt:׵vWF_ztȑ#G?۟ġ! 7|W.aQV IDATujm~itanwݖkW[o«xdj/?.\p -|Wl1f|+׮]r\p76.i|,y!3퇘KMVx&yiƭ <p1W?Л/?#Yُ>h;d֮jn{`ָ/%BL۟yȷȗ73֕kC._U回fۮu]QiwCW7MG}SXr-Q#.wsps>cƵ+`%o|7Lx"]pk!–:B!0B!B! uBC!B!PG!:B!B! uBa#BC!B!:B!0B!B! uBC!B!PG!:B!B! uBa#BC!B!×eSh>=KX!nP/bUL[wxș/yۿsxg2OZ^B!~TH>se9p0CɄrfHj-":㩈H|jT%r1W#11g{1N/`= ѭ೦G#2a '%UB^:N& ٱfMRex</6 \Ơ^*tJz̆Mp|,1 A}-BŴ,˶7[_^u?kzp:5ʢ CSTOOE1,/*7E-~J*Krhd>>~_<78:19591JX*g.x~opv"~ᖕ^NG'&''F(g'!4dgA|dbj4/}J,\ϻn=gWt#w̜EBصyLd 7RoopܺI4/w_Y/5,`VjZmh}g{Y^a%{iaV0-SJ3tazH^C bVg휨Ȥl7M"ə4V(tkA aiΫW-׳ƳᷬqJi7gmMθe}' ^~"@"ݸإz@]†0lX1zg :PNjB|0"ɳ? ˆ^?^ՁJvݯv* 8'KĮtѹeOgq)sO<ìb. A9ZgvuejFA( }EU֫j2@ (,j~}AAr /)R>n2eaEM)e >6 3iX~1Q,QV&~"} * 䑗呬hJ5$ cQ{P$\-${.eDr`H<, rك:VVBYbEI GwbYn|G7@ mqA2՗_|D fdx/?#AW|Cr ѓ$ ZAAp  uAA0# AAA0# AAA  `PGA  `PGA:  A  A  uAA0# uAA0# AAA  AAA  |Saha+9.peoͥD:hD.Pò,˰\5GHPY8$TndZ.aaKFcnԹzzŮ[?xF4F]7h*6]L_=X. ^6l[\]lT/q_F2Ky`xVu&WiV"[{zVs~Z.@R4ò,ðDp˲,/պ)]] .0ءjWaYa9Rv (]^aTw%᪱5>ԉaNaN\hBԄUKPIZ1 [KjNxаl\4|{W^uיװӋӈ+B]`U/mc0Y%=C3XN8Qy}0}3b^nai 0 S06aԆRX VJVZmAU ݸ>[aJ`ԥv6Uu%7 ]f ‹o.5x:@O\NeNjD.Į.qǗk&V\d#4UsDz:VTUIg0șrViRo.8IJĦE%Q,QCOV^)e9^,+YE&q,˲~n<- @xFPJ$/ ,U`Y$}eْ>vYX8^64_, pb EXJN8c9A5lx~b.d'Q7MJYNmT$Q#wg- w* s}%T%K e, 9e eU$bKbP=HK*E"!2.$=l,Ib5EF,ҬesuIXp51[sQg9v"U7de9(%׬]"LR3qBh8_,E͍ 5Ddɜy1@i+[aФVit 0UeYIJf+4^RI4> Ė(N~Ek_]q<{^咒:v?\]XD$mqobd6 /]xD! [4pMW ,Mfja Kg<\A<ub,Sg 0u۫^@Q=:SޡKI.%Irdol:IjGFcӵ$ITkJDqd9$/3vf 힭%Ith$nCI$K'OIqHؑ}C{璹C{g $ITOJvh8qRέ/%IR/N%Imvp_ؑ$IjNj$;4Z=$SC{t-Yڟe1=W;$IrfplsqG {gkIR;35[<ܾȾڪ 4R=dzod\$ GwH=44u$I4=?!xgcnPq əsFFڷ`ڦ9F5rWZ#|y待}is{z'/%Id_qBQƏ'YZH&Isݝ֣vjrި Gzha|nBnĩZZ#Yǎ,mW7[K:zhe/Z;Ӛs{|j&{:KGƊi Vvh76=^L X܆X:>?89}|r|zi7(fw*KG#L kVԎf`0=7oCZGmU͝3w8q*5K6.+_Z3VMZ)j%xadSҡSfӯ!?YƦkҡFKC+%+Oڥ?uU;\+ M|:%s{ Vs{i]/ +KRgEèq,nY.Et#ɪfXnDQ-Ԓ(@Tl "GqdeiS.o0BU4Aiؐ#" r Aӥwa|SQ0+W, +fi9jspZʚPvå/T!BDk(d bleȲ`1 PF>%'0b8̢@U ]kBHibۧ@9 he*X2!˰ v5V5T$N bժoNRXIlZoeR(/ .۴aF])RTQ4bZLJ70R>"FRcnWTehlmܒ%EYKvi*Y63/JEx^ceV:!(V9v*r*R%iBˡr vzh0ZKCĞT٪+4-(rc[25O&l9Morm"5NeκTS_hq x_1Y9a dEUi eԭdSB^&9[aY:=UQ9_䙦j&ܼa˪vT"bxɨ*t 3l6>zĒMbU(0 Mޓ$ r`+LU ,(N7Oc_#R~*;*_lĢ7'Nvc$镹ːidHroc=lEJ5G\Iɉ!U:=TRi1!TQq'WZ시$%+uAAڀ~GA  |T/{fِWbW+C$N VyEKtn-eQnךּ 3t“{_[w{>D'>?=%x+4|p/v}kPO.:_)cr Wꗙȭu(6S CO>zU %`KeX].tAq|̫`ǭ7_XuO8:}PP;u|l0p-Ѷoyqy.A°|&Er2'(eYX%edzRU^ǫ.tCڪye L*dQZ̩BhcS%xB@Jhn9+ % w*irѢ-nlILoJJg|h"0ZTx[uwhƴLJN]"˲,GJV 8aPl8qսLr435f򫛵?~7'z^O^/;| fnxWOR~7oe ߞc?5p[M qO'fm+yp 7k7<|_<|ޟOoQ_N=|}kߙw~>,a_碌{~~eOx_7ؚLS=k7<ppÞ7NCm9曏&>oYͿr6߼5X𵇃y?m?׾3w_϶O~~_=on~t7'_gDwoZ_B3Co0ս835,L کݳ 'J$ITkLPNVYeAF6zyjBYtdlp,MMXޞl͉7>v$k IDATInWz$yL8R$9v_7a IN ]~,]}I$/q% p~I|W/Z$Y/s=%?/*g\H vyz$h_/o-$I. o^~7I] lNݵ]^18 xU2kE9ani%^"4-x v,' banHT;[BeU>k|DOXzs)A!%4*n&U/y?oh2[EsꜢˍQ}ˍ;*Psq"#FyJ Ȓ$mm JbT5%Wu4|ڷkvjOq2Wo`MGOgş|s-uXh["Ijվwp饷wo\u~͚ ߼̝x` 1{ pl}돯7['w'g> @?:m5|+,M>_Gn䔳pi O=G?A_;,}Ooe?ss5@XxoMz$3A_)֏TҘʖ%7F(oZz8U&%F Юq7V˩TZbN5n5R K+1T'mJn[;y-㶖ϵM_c*$ I R؄vhؒ#)^rCcawȖ-XQ#QmH XT+EiE4Tꚕ @sO}򳟾x{7CfwMc3Mj!3ws{DI(`* ET$Bw6&z+ H$jYy6V+QR%PX%fjq;;Vo#(N54ΪmK饆ݚDQ\U ?ngvQ #SZz$P )bR@gUS]+dӦ]r'zw/5' /./sɸ6t'W~{c/>_>_ͤ}7_~[ͷ~Uz~5'(uoU;oڛcs-_xo;w|fo~>|s̿Rmjr^pˋOroy~{]18›9^z7/bp\LP[~]x/Y$HxFF b= J^@KU+PK@ͪrLCnD:)trr",Cst&~GGjLXf9rvxYW5I\= (jtK hv,JRlYj@bPlBו \ mN?n7=Ƀ7/``}|ܛp5z7|/qlg{#\s)_> 3WoL}|s/ۿ>xc~puY.;ƛ@ oEp#Szz77yMS3j߼@7 pw?>uo*vW?sU:xkr /}yGaYyl*ށ?݅] S=E2 تgJ4b1|03yoF7]REIS_wR!u  O'1-;J?_we L4JAA>> `PGA:  A  A  uAA0# uAA0# AAA<UQ"S(R ok>+ z̑j.Km#)TOMt/nsylTOOGZY3qp[a$3"1 7j|IdZoh JX%\Ʌ1Aص5܌÷.Ke{EeE ungk]Ko?nإ^N}acĞYuKk`T?A:i 9e²,Nje;\)UgYeyIϺk@8eXA<,M&"pDzQnsKfz!r!Nkg(qˑU46F`$CPӮ`+{O96E(,bɎZڥA`BZ Y8_ÏFpJ쮔$K"yQs]5Ǯ.q Dmhž!qfkE&q,˲lZS%X«V-b[q鼾XBɎ.Բ4nxk~n?McI/'hnӵe L 9VՆXlXq*KDyR߱Mu LEBO{Y?7z,;dh\R/ [HdnPo$IƎԒda`vjrpplٿ'N5grd8zh)IdsI,,YJC$Ivd06ݒԩ?K$=8w.YP;>QJ$KKKI;;lph*bڡx=nkBSj+;P}P/@t-IjFz$ @#GZhHszoxl-IjGF  OJTV5 . _H6{$ҡjM] 3o$MFŴvٽ}cGRǧ$Y/'NrZ'5O_Jک&;$in p,<$G/%ؑWYʇƯ7[K$Y?lxqhZ$sG2:SKR_HW;@^ʵC#ʼn㵶TZ`oqmcImi)}`ڡ#}cIj9F/uDqd>~f|z)ICK$Im~/NZJdh!Xav`1sƤVKֺ}^6ǭtԎBfO Oג]yVvfU{^[uX<KSKS<358\,m 7N&'#:)U7/ MuiVBh` O[ac9aK$FȦ4' bVi$f(+n1AlځPYUa탴ވp/it.o;b%tWCirmwa5ۘY-- Y)^ {0Vd"phA$u^(dFӵ]^1Xn rGa48EsC#V;.BP pXEhQ( ^uF < $X ,'BTbDO!"e8~H9Dqbz-g,;\U4uPa6G",$fNC\,4'y)ЂDXZW 6ľQ*~ aBJg P~u YEuFR Hx",Quvh`%4',+Z`TzvdCt 9-˭9>[K$Q䛬B9! =\tۋb)۹URE>@i%dIEQ8S0+')$i 8NW[  >'e&Uo? 8ʖ%7tY`)H6\u}a8l/Enj}U:H(W:ж2Ԇ+){P9Uk8QJau%QJ7BǭF pc& B^4-KG:}@6Hƶڦ >.:le 7hUG:|:c21=M T]~բ:]5NuqE?k2ТBN^>z$evK, G8N#Kt8*6AKWJprM(\ *WtA%:  w# uAA0_6!ky=O{#S(eYa8QsMĦ؍Q{VDrRatg" G&cOYp3"C[!+7^{sWY.Yl! de˙s6OḲ."O47ꤶuk p5I\8c6 ,O&VTVrE :Hwt+1w8z;{6UަW*{3U}ÅzrrN: EƎ,dڊ(6I4 /Ԏǧk¾ݳIrj2-_C͐MKjgW)yxMD>"'갎7ViºKcžؑM(ʺt|EsI,Nbzޡbj#cTU(7>t[;%zN4kQpi|(S^8>5<8?~6 Gx]X(Ffv`ax|[^AݎM?m'ZAN<#}׿TP`UUw ʱ8} ص}%L\9B1MF l;4+0DTE eI旤RȖm/XWwC)ti2^r`>14n (yttVȵOJ7U]j,3^\h*U(˺t([;EAX`xei@ \e 54ВJT͍JTQfn`kg3胩!iCKתQR&.9@J7z+ZoXٰ|#rŰՠqW?8КXYsRVtG5٠pkjE9ϳ$*rJDRtҤqV zso^ׇ5^߬XCUDZʤV=R33xh6Jתma#R-o%}cwȧCGoVقC"oD !62&vx|gC.`>H]>"CB5'n0TKQ+k2o܌o1r |s^ΕUJ56rx-k3]\Պnm3ժriv9=8Wx W藍GPDD\ڗQ& ET$ 氢@"iϯy;z ^7+k 텃c}u=۞ᙘZm}o}[KŁGUx,~[ pvgy=w?_]pїx~W?̼0?pG!3:^{{v=pѶ:ŝw홧z=v86m `Po":}xߙhͷNxc];g<{WDpߢ >:>vt; o?ٛh~TgMV:ot]nzո/g`PGA>jlu[gvr)({)^awO<9s>N'mYܦV<7ҺށNX|pT<5 A}>pO]`b|홹ݱZn lx{g1.K3G}޺'A|6lxAǖߏ;<,/Tnda1[:Xi|w'E1gmʼn{n)j==A2h>slqAғ$VdSO;>#1<}OS}`<}{ `P,A=:v;=%9uA:  W"wA  uAA0# AAA0# AAAV_{(\{A>+ΝGp۹h|VcYa?DƏBfڱ=3m:}"3 -26޶K00[,l;6޶B^d?쮁O|eA>lq=<_~986j!tsR/=sӁ;.E=8C¶]>|ƒ"*.99m?:^Zص?8>LT(_, \Mxt0]wb۾A A}30;ŻwC= 蕙c꓋?-ї[ߴ0pǣ4s33xfmo?n1h' 'Ǯ9{w'|c'/Ӈo;͝O?t~7xt;z4 M;w-~ihw?^m[f8p}{~B@Ο?wnOB|hg&Bb"Զ+>;p TqK_;};E1;  Ȗ:'?t T=O)p+< >sϾCqn+nvۮdnGgk8з8Jo6_q~Z6=p=76~tqǝz!ѝA0os30pӰvx̱{.egh 6i=3>|ᎧۏG>wsONinl[;/> ۮ֝Ήaf={ϝ<83>x'a|Ꭷ ś~C: ǕS?slf׳`$A@r ++dJAX+ͽQg'y__yؽ"!DDsMpؽ@@]=v:AgP.89=>~ ;<xB!gg˱ ^w* 5tyĞx'n}ֱw$Azx쁱'_:|G_z'='O~w/g։ ;|ns;DŽ?VQaޝw>pz?:qlڞ9xrsbz|nz`;4"4 fkT 8G$;wcOjH?:.ޡC 4PN5Ϟ>߿o=;kuA[Pgv<|sG}ܿw?kuKmQxg%"D%㜰dRLڕ*Xe -`]"UitZlSaF'5s0f*M쥴ז |A]>/{߽M,2vaVzthhHښ>xCư.yr]2Ƒ&d}w. ݚ<5eLuf>?m)p͏s3}u$\ŕϋP(L0.-u,ZUM{pْ{hҥE^fVDϒuo B䚻@M56Fakk|0iEr!bd apm+V&Fl| C3er g3LB]&zY[h8lzԈi#-w_<%J3DĻ+h;U\|Gݼ> e}F;V&;b/tLmS06gP+ʩ\J$VӺ]|q&%8uy/ yUϕv{LDVf4!Uު"""mt|5NT]ʂK.GJKBQe?6Yat6wn[UU,g\YSOTFYn-t~`s0xN2BYWgrt7xWeY֜']`1Lwk=ff1.SCPQ8U//.,8gE04_y7yVd-TcE^G'2$y,uMY]*ʵHJ8crYoCD9È{ێ+mE91Tjm]^Vj8s;vue=T+EgE.[Gx:m^lw٣,!͗QDZc3QQJAUse20]-K6ƨZʱgW-ɝ+"S#,T<=u- k<29ەZk[[%RO?JKv(h45\h,l(. TJKh>hySE9ڄ]k8Θ &"iށEg*P'E*{l&*l#\e%Cu6BE9:\&* [ \;WqnfWfJeqA?:ݮ폻V8ë \p=l)3؆\nIM(PTSV/+>@˜$q%RRѼwvw'2R5s+{,`,]o,,g\mPڷ* ,g丸"76ќNCGE1!!%uurxRk(P#UhzlxD~dE[#Vdž,ܵ5!O`XmYeecS2V扈lM.oYPo _L .gEXçFE9+,ŊrU &+v–7#K8##'yD s- rAH vpx/<+"̝f*Ur2D-MJ+rys|j~'\ax Mʏ`RkUk,&6 O-TWD,31 ʚ$ 9%D޲RU=t;2,ű'#:c1G^^04ϲEPc30-`B磢ȃ30(>0 B.PZ?*y q\Aؾ$ꂷ2ɐQ)֌3TvwfXXQ]DZǙ]x SQn'(GD*OeծwyԌȤrݞq 2 Bl6k;MҷꞶlpl\i~*922d쥶ZTQ|謁,F+py srBѸqOhQ*$>ԅxډD sډG(D-n+)uR[g(GTYPOz(GYk H_2in+)QYJZfߪCnlz#ȑa\UVG[D7-b RqS`AE9TP|Y28e c)yWeYuW%s,q]Z#oY2Dz,.r$3*]Sdt''#K,%yzi&0,ŕzph\>raI6^?4%eiev{]i}Xr V-}bAFY|+n}ڽ^/Zz(DŽlKˆiv͖퟿nKM.WZL>RVQe`X,.rXXh^U[UOhH6suл?Uv[Qsj0yÒ|+HN2n>.ڟ,KBweYhN_[b.EfsQ[cE9W,.}͸3Fc\nthfN$flY cug"^^\VYq Iϊ`hڿ\eoZC[sr)$fOt;2 9x^,x(R%,)?jSԡ*Up;4T١,#W55asб]:,TuRal)WVDO9+v ?=k~zIo5b[2|FRInqwq=4\\vWN%FF^k~QU [_R$Xpw;Wz0:TE r9hzXvԛ\zok筨](׶]qlZc""{{L UUnbR kɠQ0FћRl՝_S^5*#0 FF%9{\c򱽋DD|5ŤW)Qh Qm5]_)ωgu*0*vX<'թ P<:u[}\j54]WHkOa35GHɫ9{9%mԝ_>qٔPIyg&> >'f:Ǥ߳WOgjr5-~n~ȞOmFvU@%{?K66׹?/?/o͚BMOf7OdJ48nP|#1v[Udwzj6F%L?i vꨦn3zɩ̘Dipz[|ٳGjduӶnLךӒ褜ab5ӚW7NY_vPݞ,q|s<{uyK8홯6Sm\Ȋg =CՅ͉|uwW՞9O}yFkj[kiN^z#[ީ^e :1*]7scοH?~hިms[)ژݖw6څ6%S0Fq k]qZ*lƺ-+j֗lk;rm1w 0\]妔x8V[/{^^rW:ݕ]F5k-cguT<۲JMT+‰dFol9 .ޤGܟt1'/6gM }LLiL1ѶƠJ~uBӳB{ap 0l]PWi4It oM-N3uC Jߵ4Mƴ./6o w"FhQA5J&Wg̵yC/|YWm Sfޢc:O}%۷UOyq S呶Fw HHTTw?ǵH̰꺎qyo ߠө]B 5m"V ZDPjmfysEWr5vpVWT|G6&XǑpe{c -y;{T2 E@_>s_Z.~ s-.̳uk2wy3-8[n; +Zey-BC{DJ$dZΊv:2f4vƓ;-'ɴs紾E{VlTw=W@9g6w[2w[ n.9bz);w*.YqprjLF$˕9ƥ痩 [:Wu0{{KS2;sLy7[h2ɔڹ7|]ܹ2wZ)L:ǼDC)\mۢZ9Mܼ|yTZ)o^R;øh^-^3aaJ"zaHuZA?|vaAߛ+S;)..=(;S#K Zew '3*espxV6gW ,.*^U[vvE^t^ZsQӨ6ovE%˵ h3"nprY;cޝ}7Ef m\WnyKR9Dlr}L!"]L~pͮ5{BAD|yNzk5OԐHGM}ASc!j{KLo0TP5ŨZI115Q&4ė۪ Q"Rc4L٭jĊ#^_C GE"(VADz2fCb[Κ(6[]c'.S*2;iIeuRelLNED .۫fAFiS+LqzUo{N`tvnVP"# !RL9VQu<. Qqr,c8(g$&*Jt'p0^iL{|[aș鰶vjfO*y:jrXC .Y6QCvb]ZPۆuX .>Ϟ&3/t-*.6k^1DC"v-O5R᭮N.nH7?f μ (qMT:U'"ixt-̱73{ҩ"Yh4m*!jkaytVW*=85ӔXkwUǰQ̜LV8=O\cyXVG[U /iX6 .V\QWQ5imŒe[KD^{7"Fkkk>'QWQ^U[Sj ;}r&m}DoEΔ]㌏z{=l<˶و.:ۜpF8*'<ʤp9y1*"ZXo`s4*BqnF"Feʴ _]%M|^L9DK ]oWEEŰJ(Eb_+j 60FEՅ11zMg]vII&mܸ5~?-ΤRcΝ!H~ݻw;iӦs>.~߳gOg744|׭y嗌D"9w\_0`~~'N谒sagnup ?ϭVQpClߥRI6mYfa.+t&JCBBl+vmiii9ޞz &kwb.@k&##)((@_ ~6s̱cWWW3N8uN|:c~E7 ԇ?}3<_<#G~ZZڼyP|*pvڀ~aӹm۶W^y655a8YgRRҴi,X0ydAM&ɼ^oHHvuR˲ڙ3gvءhLr:\~.ŋ EIIIZZtMo1cp `Ą:1 OK$ٳg/Y gRvw0wxϏȑ: P: P: P: u: u: u+R0&A:Y"t 둺 ~AĿv|#uq8~l-BHHHddO?a:H u?yٲeO#`@_2]~aD"=z̙3۾Ԅ25P>v7|׿t 7L<9 V:r!1D[SSwaH uߟoLTk<<Ϸ\yϲ ׬Y3nܸ7N4i̙?~|wJ֑83KyΜ9ޛ2es΍3*tĉcǎ7N@B}X^x!##c޼yθq ņ Ǝb:H$w~wovi4{19 ԇW_uUVZtiUUUCCرcLmCԩS999yyy^{mCCCttދ0Jt[iӦux ZCO>;A95 :LdV,.JRi@ ?a]q뭷;vL|.y9zh<#PW=3jԨAZuI.{hGVXA0B]"dB?aÆoq'mִ'=J&L8qZ/^,>6Dzϝ; x#u"jjjr8~_ݻCCC0R?{oYXXxYTJD3g|'Mt.BcccAAJ (ʸ8sZ]]?I.KC~!!!bZP.HFaÆӧO|Z駟.[lRT|e„ yyyGF\D"y7游8Lv{}є˗qAAA'O|wFRīpC߱cNj/xu}sO'{%J|ILo:uJatapOb:2 G=CuuuUA{SN544\{W_}5@O]]@@q ,JIIIsΥ~>Y.~OOO1cƜ9sΝ;mڴ'|رcm[o~d_BіpBR0GVDoqs)ԄPr3 IDAT/y晀^{n~իVpp: Bd/[lŊeee{w~~JSL)((h uj9sFRZԄ.Hx:ujaaa|| ZvzZgoڴԩS~ꫯ{{v#+?455֎3a 5j/BUUUHHHjj?mo6,XpYn=ztw']|yիWr _5iҤ?o~px_~o655uϞ=ǎkll>~׻t7˗/ONNq R\k/~'|2$$d7N<)00'Nܼy_=pِH$^ wܡ=è pB]<ٱcǙ3gnUVm޼;Wddd7˧Lw&\vA zA566755۶m6mڄ V^]\\Lms=xwyG<[op4iRmmڵkmٲ^:%uq8K$m=M'|Gaq\n_CRippMƌuqߜ \`s=WSSy&XmF\D.gee}7ƍpw1ڗ,Y'KK$ &'\^?S\D &7\=&:n=Pp::`x:>ׯ8N%Rn6#)%ɹsAؽ{D"ӧO[#l>jԨɓAAA&M;v,z`8SSSoӧO m6F:6ϩKJJ;o޼|j4ԍ1|>ɓA{9 o=''ȑ#|WO矻n55ij}>~vu]Vj:ԉH&=>z`d:u+jHtbl#. )u@Bu@@? `HVQ" F0o|bǗ0R_+Ξ=J1x@HK+V<3sϗ_~xuG Y=z488xƌ~ɿկ+$:8{B 3a+$$̙3 ߎ5 -ꝏ֩n!DVoW^y??SNc~g}fZn㸟cƌ>.²elr75 \ѡ?u%&&>CRԩSΝ;lق 7J~QuBC]RoYn}}޼y>ɓ''Ly7vNDz".0^ 5vٳgq`zg+w.Zzu\\=ܣT*O:^{k#&ԥR\./((8~x]]ꪫƍ'ˑ#l.‘#G>cǎ566^wu=]^~LxR?p~xN.7|۶L O%#>#~*1wDr>^߳gv0 /߃~gFӵ755qv@_bR4$$u wBsY _i|v4iV YdIMM2QѦMV~;Dl2q*}~G<02B]wޔ3f$%%8q>;  ~=tBǏ/--5kN8P V\駟>Ν^|Ņ |>T==vX||O 0 ӊrdgRĉ'Nj29qz#D" |?#GtMfP#.)AAA3gΜ9s& 8p::DHFvFP::婵N{Z9BFdwp<P赵oVEEرccccZ-2{mЗ_~z饗?eHFoĉ=T*UTO… ş_c-PC~Ր `%|AAAs@DW^/[nt \?w??zg}611$v@0~믿|IIIcƌ뮻8ӟpP7X .}0Ʀ&E/T:~ѣG__q: .Yλ$HF!J-Z;\s @gprfF5xƀT2P1wRׯ'xg};{ ;@f?{!888..ȑ#}\V$[awFp>O?믟3g_k)AFp٠ T7ߌ;;0Rh1۾#oAlْ7cƌg}~Sぁ>hJJ__}ǎ5dwa,دiT!ol]Sϝ;wȑ?XP??~|Koێ;~w?###暿JUtC !vqЗrUľd6u5`yv>gqqBX,5ljIIÇf~yM7 cǎm}|?x&!H9ۖN>J84yɓ'8p̙;Ǐ>o̙SL ' 3gj} ر?s=7|s?Rt֬Y}!ƊAAA<-j'MMM}ч~8jԨGy;̙36m:rD")3_x nٲkK^ر_W*R4 `߾}=/"Joᆦݻww}O~,Yk[ϊnϧp.BCCCJJo4.\.;R~۫~?3.?䓏<ڵk<ؗDe˖ɓ'6lꫯ<ؗ9s_`A\\/7x/wB` Eۂ0=dL&{W<bŊ'|r̙}fI'!NaE,K/=MMMMMMuuu7ojkk;/r;>}7|sܹ>^(**jlllll>}m.ljjp8l\\=,(:pnGyŒ+V8|).^W'644,\RD_ܹsnjSS3jժFlhh|~iLLL}c=vIrV^';wĉhhh8x>zV'Z?~ / Ӟŷ@4 Eڀ AvEB+qvA%5쒺JXJu +MSRbK҇i8mH۴ i|*'0677#jjjq&rIlhhr;x<!D3fbuuubnNn߾}~ /h4~]b?LSwhhVJsH$8pX,߿?Ax)~ivAAoA͎>~ʔ)oy<5kּ ( lܸqѢE555}ڵk+V|WuuuSL9sf;TBDnb{o۶tz<3fxn'aQ饗z}~:)çx<]vٳ_=!!Nܿq:oF|||'v_|I.]nz1Agk`LݺuѣGB3fXhD"Z|w󺳲͛?x`TTܹsNBp8ǎ:ujjjj'Ak׮I$$_vC 8Z۳gϾ$mvl`D .ܸqT*Laxx5:::m<F~D"yv]{vjv-\0 6 Kv|wKDDV`{ƃ1z"P=yG 9CӡN׃o7g:Vw X$q?e˖Tս{~8#;o< k׮KUV-Yd`Laaٳg͛9%VZk%&&sm;o޼+EA#(@KWHII^x_~G|uuu|||89|RR_ 1bnTwE^\0ƈ6lؠAݤ xh$Y `,QM,x?0Oqίp9_FI69s*222L9v#{]*"[ڠǜs?{ Ü a6pAg0ߗUsƒT/UϷASpz3P}6lۤ!C 2$L>iKHHHII ũC SRRucyg zr~l'm԰!궦zO]/eѣGgdd;vѢEUVVˏ?s=wҥYKͦhg6m4y>x<SBg  .|2ѪU(JOO;vl^^=}4˲oCd /´if̘qAjuff& nJ(z?uLRYRR/~#Fgdd߿!tĉ3fL<׿ummms…ٳgO>eSNyv1%D,qZ'`f֭]&MzGǎ;n8˅ R 盛O<9~|͖r^/=fΝ;ߗ{?6nOk x|^9}tff˗ǎ{Ŏ)*^d8q!C.^^VRRR\\\SSzٻwիWg̘yPz?׿uYYÇ}њFdɒk׮}'-y]zڒ^{~ʔ)͛&MVZZhѢ?sx 啗 ֮[O=T}}C9?3mڴW:uj̘1.+==+..zjSS7|ӻBʃ.ݛ>b\*,,_|ũSB9sfbbO&bbb,Xj}ZzGW^=w/eܸqN3DYDGz>66׮]۹sgii)AN￟0a€ϟ׿U,$ɖ,Y"J)z7n׿h"Tlڗrĉu姟~zrͺ:矗DDD<=py#b>8qbLLL]]ݠA"##cccE"Qee%qЍ7B$ID_|89`}TUU SB"hԩ4M=\VV#>y͖?+xOKKs8"ׯe׮]7oJ-!CjjjD"Qyy }aD"ȑ# /]ԯ_Çd{rpT*yy ϟ2dHTTV{'_~իWoڴI*ӧo߾ Kׯ_(˗ϗ.]Y^^nZ$۷oYYґ#G|B/rpšʇz?z3tP3^zG Z,|bqLLLsssZZZAAAz׭y/9p@]]]TT0Pk"W_}u%Bo߾~xС/¦Mbbb?N>=11 -*ǍWׯ_ᇓ{=_ʈ#xѰ\YƮ[N,OLJ(ʚs,5zp_ '|gϞA9ڵkf9%%E$=z}UUU :j;wnᑑV]v6 kܳgF:uJ"|IIIbf۷oLLdڵkȑ#WPP0h jMHH)))q\ 믏; w@SEDV4M߸q㥗^jlln7Mӿկ6m$lٲ}?~gyW6o\[[sO>ɓK.O]xڵ&իӦM[rC***V^f=uuuvFkǏ/--]rn0a?㊊zH$u%?gٳ?On)S[UUwߍ=RPt:dzsΟvsYYY|EEc=w=.--3fLaae>CnXjkkkjjXݸqcAA~7n VW0ms]K1g'9-z]V澽KR_.1IF kkRcsCwA!4i}s﫞ƿ թBC MQr |GJiUi$IRFʕ;C0- @5OԉdKcDm9H4e7/)ǰ,Z!ӟRBhb&E; ˲첽]2m+hHRkRrZPJíqhމ?TiB6 ]9 hDf5MQEQrѮ epVb&0*$IqI UYh Nbm)($IgmDuס9Mj")j! J9I$)W[ MhPIIR\K)JF4J崦u]5-Wz FU KJlgbeJT+!խӔ(>]Kɕ{C-+cjB2tk)2.ZڦQ*XF.gua6H\SjUt֭ӤI$IZ] Jܚ2*PGH_t jC\NWOD`Gw0C,ZܢeFah#t뙙s>9a3՝jY~[4y5uTKb]0IҒreô+[n,NHWئiϘHqe$IE&ْW4tVmN]|W gVJhq ZZ7;%k&XjSd>Aݰ#[2j|65Y 1+5+ 4䯙s3Rgm"B g%/>С ℄쏮4`g.+&%zDxrlf* ;=ÁũT Wf'HX̅Օ $k:Xnjyo^ HeBXbT*yƩ:VÅ4-sGuzyR)'BrF fPN!Br'BTpKK>}سy G- cʳ,li!Ѕ?f]{aѦ-ɹּoN>;;ӈBH27Jod$+r /LX^MMoߢZlol[1-"2W׳mT!$elG*6Oe,3sY[R0I2svCZ2aQu(Bjnù CX 7Bm5Z8!}(?(q Y$6ssZ.#Xh-&Y~RNfU |%eUݠ1KJ ɝhv!81 u[FF!9&{][a74KgֱF`wUt)biKό bwZ TVNԺ=ºBrmmmny3mJAJbU^Eɥr٤5\*GB6)-!NQ K$[{3H RFo3~"J"s,@ޕ%X1kKFyuՙ;F- ٶ+ZBHʵd>9v:7BH^YTU0P3={[ I2W%cnܹl\s:Fpޤ!iz9&K(@)f9I٩ФIEH14eX[kg)B`rr *50E#SMTۡ FbXRJd-ߤڨUF&J2%D:a T*#ȖSoQRrDQFRMndLICuzvCQNbY yIRI5BRd |(ߋެViҍ[ur`srJ12R&#턐k,&*Yh*mƷmԤkn5TVX`_QM7QNUKRrU)q6nozkҠ(R'%)wήdH-Ji2*m *U:1k-fׇ(:8ۡD#Z:Ri? Xd)TF1\NB%#w]Y4Cڍ]!A$:!>[cv-!-V5 ܇8428nkÙXҢuUKo2ݤB A f%gVsA$D@b3*!zP;aT* N8s*كhX@Am!H^z`m='w@}G|t-][@wm!hߑ=nɮ-` 7px N׋rw@}G|-BD=xJ53r9|Zo!t IQ%Wl4;BA7YOcpZ9IrKmD9j2MKh-u@Du@Qu??lIENDB`emayili/man/figures/emayili-github-card.png0000644000176200001440000026765214611676075020507 0ustar liggesusersPNG  IHDRc gAMA a cHRMz&u0`:pQ<bKGD XtIME 4-L1IDATxutk&w NBRXqP@{q$@g?>>?dknzrrN?ӄ SΜi G;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;D;d1:>n٭)73qif+.`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`(`,F?+qUUҽ[/{*NJq9KʩitZݠnD[oҔSNY(Oze㗍4i\ӸJtiTwdݑuGJNY8e1:=`[<{+|u ^3; (Cqqc->XbӋMmuVGj$IT5_|UI[m鷥al F5ɚd~5(ۯP|@q^{}/hVjg{K[nԿqKݞv{FjP`*UHG]uZhq bi*6/ټd)f[̶mo0z4iSiƂ f, .,}U_tNWzzz rQ*FU+_٫fV=_|s)eˤn&UJZ&i_w_5&jqƉ'J +0tKjy=X̝ RzVVNfUrڧG~I~*V8J'Vϗ“[tRvI{\q/^ƽvݙwg^in~RunԹ! 6 ۀlRᆅn(9q8п:|߲>>>YYYEZD꾼˥:s-RZߤuL%#%IMɥXl'¦=O^ӴdjhTvy###+֯XBj>1acƄIM#F6q /Creee4+ŬRHnͻ5c쏱?p`eɱO$ E#}+Sy@ǯ$G>M:74s+L}7+S)VOdfͬ EŰqq{^xcjj*ݑE_J~;>sAj0ae_Jꨎh˿I| (PlE{]W^fze/KI?&d_#%I=\)ʫ;ehdTskijfb&+ݶ\B}[H*{ڮ#gb_G߼otKfQ׭_~ݤ3 ,(S9 z得m.\HcNv8d:::vLu:Is2lȿDJ١򄎧%9V2y;ܵ4Y=Xwi#+|-fW!ETғ.<.hF׳^z=Kڬ,iw%w7qo.cK-RQG%9p0 @#rKҍK7.!qCD)rRIg)a)EHŊHr ![QF9dq |)Xw>WlKK;XzVTض;uoRՄo?/@ҢZ,j!ztѡGRw/cN97QQ걫Ǯ7J24+~~cJ\g%Tk(,^~Cio~KF/珙֚oKiC瑔!m'M]jбңsnJ/^KP'[ \eZ&]]vue I -p4Ku:uFOZyh塕sϝ>W:u hUVyyyF'guVg;wK㧎:~zH"EܳXjzږ+DFHN5RߑLML^q,|nH!k<]9g[GvTtm?JɺW"}WߕW_uUk\׸qRGkGkGfr3ӄ SΜi{/666^lYeirRԜ9Qsl8CTFrX^4[Rvy% .^rFog͐MzCG~72zÒur=g*h*h*(S~p٫f]:u$wa8qڴYNUҬYIu{YGjVYf1/Ƽ~rޡRVm?!Ia$ZcӕDO1ppIZRzsT.Yx}v'''s{9G|ΧuZG: l 0&L3SO<%5^;o-%&&pbsɵzJ)J_:Wp?K惎_#KlGQwW2M f)䟒_jլUVͤw|Rܞ=q{ [OZy4SJK<9 p #|d! ?0ZhxX 9\KgtgKQN7^H O=ҫTM%YO$mI,NV'tR'uRR'uR'Iߗ%p_ʪ,={*TFo ;"maȆ!R]mw% ;a{pI'Irw),]|}ɒViVi„SgδZS={vft Ih&t!giZiy~/R[í68ӴGr|:m)RǛKmB2p|hV`C7uSO Vz%bvMm&%6npD 5k+wܽrK_~Z&LhSӧFcL8mڬYFʡJk9 8(QhFx{OZjO&?MZ{k-i ',:3vq$yUbL彝K3p(/fvrҹ[/J^۵lIK+[K'~y .%\~_Ju;Zj]uMӸO>R_SKN-Gbnn.-yђRt _2ʬ+l80P9TNr:5z}õC6I4*y E >v>ǮRRפwN;uVTŒ9Sm(m(؆bR *(4"Hzᮇ 4aԩ3gZFǩ=u3:%M.\T:ϥ>L:?t~p4hQlڒ`ѩJwK CJRɵqjK1FzPsCҋ"9JIc&Gז$cۍM22e4CNK64diRI[U[^3qil?Az哗OfqHjiꦩ9 3C\%缏+62TeJ)\ch=`2i~\W$m5:FJ{EQ%u3ݷG~I :6ʫW+/i灝vggg^,F5]5y=ڒkK.iԒQKF-.BKI;S;׷dZiRIqRC><3e^K2]1'/I* a^W5H>3rwGzr՟I:mi)7HEe|^Aڭݒx8!_c|ҠA B?O%ђhI4zK*UWYsHTDѢ سߚfҀ+M=={wݽ'9V8] qUN)vInSgLWMV'Fok7Y.;v3Q(AiK1]REү.xҹK.v=~xiꧩ /.q>9rK0`/W\Qqkƭ'XxB\2˂H֮IJTd&%mRѻfjc 6-ܕ68$wGIPNң#K#pȾRobzoԾQ[1#i嫖E%59\sR@홍'q͉'ݲwҌg3xJks_--u5)b̽'J/C73.C =ڦqRvM-'9O QͻFK1cKɉɉ<"|@ʫO^}iK-d&ԝPwB]ȡ#)Oyn!u㥠h]^-W@ՎK&_S)in;̒e@oI* 5YZ osoi_Hq3R|hL1~#Hm6u^K'埔CWqjj)]yxᕇRtN'+V^:RH#Em?֒#o))xV{xHu}R g0aԙ3VԿϞݺ===k^׼yIKr.ɹ$4)ϤZz8hC٥yע p`}W})L3mFk.窟+&N6m,Sc@%].⊋RaM5&06 WStGLq^JBv)$6/T Jn`Kc<_'J!>5o~(yEdQ>~W٥g,)G¤o?uש^潞zkQ~R<#uV[KKK#.Vonݎ'L?2Ro}[isgd֖PϣT;ErKЙtg,$eZ5\R1]zH/y:x acM tܤ3>s[ޯJ?(@Zqr' _6| @)I9r$VU^UyUe6lD)=Ӻ6o(_OzWcFJi*49R;0[Foکsr24db)CU}zJcRTy=Wr.Oo}z[W_!ʪѫ2ӄ SΜi{?~_JS:L0䦒J#L̙$׾g.-Sp) DF%SFgK$0Ԃ&)xsORj2aegnI^9YR SVS{OOjZiե FKb>2z+C`1: VITI}?~Kn9Q"DD sQJJ^xW[\Fy%!3ϕMU[D5zE> asI,JrߖaM]{фm羔^"uSR o>/J갱[glU|DͥecJ^^^Fo .|G'N-(쎲R .-\!]tU7bĄGJתU1'tYZV=l!Fo\Ѳ5J3 k:tOSH\x.{Ũ/F}1JjOK\RŒ 3l7ϔ)uu͖K~XRP2-/8q+oV9)Uv)ui~+fk{V#2sw%}jjZbyQmD&p`uY[g-[&%NʝDӄ SΜi{|XxRI iy字&]ti%nOV\s k5H3p=;L0]y恛A/j2]RM]>"K(:JM/e(i]Rw0I5=~ΠA;_lQc;ۓnO=I]J\\7nr]f2YH/hC?p`=1U{Q,~K)E"94tw 0z+^ RܷIl(=Yޖ)j8oyiH!m\q])ݴwޕ_ 0ij~='M(1ĄR-YfY?S%S&w~5:KOyO-Oy)??PɥuPRt+Z<"z/%i,aOs>4f6[j揥78ZJڛ7iѫ'{G{^~zYڼh͋QG=Pzͫ7 Tۏ5:su<dP=)Bg=VK3(\20].H]|_ژ}QRdcM,E\}p`Z $|ymƷJ7ްzä+xZsa;  'Hc:5zKmPx_N<}A>瞞{zJgURȡ7zL|Zy8%IRcWΫ\WI'KE5.I!pɦUKY%Y[%'O,/mVmt܅sIMF6dYgK~N~N~NFo I:뤯.fI7]*X ?V^{zeÁ]$4~B&J/K j,*wUEqoFIW| fJnR)jrx]) W In%E:N<uSGj2e'OJf|lf͎-M4KR P I?4 ?6՜l|[<_ޫ 5u$96aVn>YJŔ/Ji{7L5G,W%eSw`y4C;HFtaFZ6x<xwL&L:sjt|ٳ[7Sn~[Z?mӤ}]jٔgSMiyvNg,nE%U*\ɧD "vcvɱVՐbs'\'nhi| 7}^$ oͺֺֺVyԯM6H,,,RK-.%Xb鋥6Y]5]r\5)Jk;lrzd)el Jwf&J R3}iotaɭjEYI5>mcG˺I-s}[ndGwOI|uuut{EICo 1T @@iAȂ!㌏3>(ik[b1: ?Zh#雥,ftKI^I^I^6sOY]%K{I/Y'cpnVSsiy$iqbg 4~Sm7N;9>)IO K+{쵲4ghŊtXu-a3M0u̙VAq߿gn݌NQb=^xCڝ}w٥FyK:uS%FFFۍ558FHnҞϝA >U}bג9KL^9,^}oI=^qJz@RtCUv\?qFm藢_ )9dq8Y"!&N6m,Sc@?pN;I#݈來fܚQzɃ'l?a RTU+ Nr7U/I*`YURέZ4,-K"ۥmlc-dIocVZ\hqŅ}9Gj͋6/޽{[rYe@wq7'0gÜ Ҽ/}9K3gkiwZ{ThPRwx&9O*ߢ)+SgSgUP$yȰ>%)TZR]W^8ibo1tŦJC4DC$-^xRJ*$5|e×a<*7b6:ђ~I%iI%mZeoUvi† &lexYljr2<+W_69AFoz}W:RhXCH60TmH I RzͻB -=]{J]Ov=tƉ'nH**aV/ N9j5:>N٭)Wb_IMMM䪓N*޿{` FpE ,XvSO%5"N&/IRn3OLsRHbyR]vY+ KNs+ϭ<$S[S[S[ĉӦ͚et |>|uZ;TSAfpi:vAjݯl?aRkt*e9|Qs'K 5^uu&/e)͔I<B%56?ݼDDD/iwfߑ6 m*ORC+w.9fy?K,ckXC*|G>,Hr+%kYkYkY_bt?ߗ>dieeE^{m?ϴױ)Li<K KCe.Et`,}7l"\jWlKxH;^duh$7o?E_TZ~jy@RaM;4TrG@ڣ=#=:죳N;-$M5-״\ҽ{Ql?enގJ)Vбp3F`[9UFr.#EQkϚ%n\89ARɩ|uuutLtLⳋ.>+'wR՟W.qr-`{ǺƺƺF5fk4uSK;*eÁV_Kq!UDI)v '>Rv`;[G m (EݷoyսY25vCeؗa_[ܭ[s7ޖ2>4SIT@^oltI:J{clyNGڲk.)1Wb\6XB+% >$)uֆA&)Js*QCra0U3EIN_RשoS)B\ Vl*5HHJenVIt;>)C.kn#/<"92Ș#RZ2tsioyIǓ'{_o傖 Z.W_i)<6<6<Q6X#Fb NߓZ o.S9}WKʾ* mSzA@4Rꭍ\_2gm俳Ӻ$G)NFo j)dX$2ط=fKK lTArZϳ=ӃNҬ'z"6߷Ɔ "okʡJk9 8(QhF'^x}B*W)J!3r9Ҟ|3)RD[>:KS{n oIg֭K7{MCK:FoK1WlJn\9={EJx6_n]kkkN;}1E\(s̅$cvT<>>[o%u%N5^SK/d'x* HN^-~ 렯P6{K^]n-vC~)pP٨RڝN='*a\'n̺1H+ܺ4£ K!!!DpJ'ǟ/-`҂I3/%MI4EMK&.9 HHsC+Z)e~=:J.__lʹ.Ky.)DGcJ)RUtM EtY1}{HJK=@@((IO>94m(7NRVLY1eEIK^q/r4i'YtfҌQ3F%%MN4ن̿8DJˎ23ʡN>)0͖\S|J qtrPr]ۏ(Q V[}nI-[{rIɚښښE+ZTS=O%ܰs PNCK/JnfMf@HB.k9-s"S$\ \I5+6Kމ W)yȹL#ɣC~:&E=|a^)F;%-uϋI*&[[ҁ*UY]eu_D-^{I%c7n69 aGZk)fiנ]v ~vaϳ4!|Z3ӧ_I>%=Ur"_4I"KAA*yM_%_3ICeVw?W3w%myy[o6lݰuVRĥKR<4# uد~˺u/kv+ |&M>*}[ddd/ ^,EW]ݦ#өdy8@R͒v*{Ir瓔 J2z7^r$_,$nH)yt9\6I)æ z]E$KBk%^|W7y4.ia*bZ˒B[v%(\+)Ѯ JM ܳ\H7^ t-HJ_+IVz#b~jվ}API9;옳C~$|뺮p`)UgiE왖%{َ#;<6z+gN_IyZM'[9nIi{pL)9sxf ,ML)N z]=RJpK~f ^]/8ҽu/%XgFG͔|:jtviv\ )E?6eN); urkٷwm޵yIvu}w9{J/ݿtI^( N9j5:>N٭)Ŝ9s^8~Ƀ&ZIÒ:z^qbrH缔"7KB;in999ԩkJvhڡT$HlXl 62qif+xz ]W~뻮:)'',H|oKv\JߪIS$DžLWŔU*u-m5؛ʥ#uTu)ER)HSHժf+}|`9e^2k\;Η\/H!#kN$DW) 84ݼ3gH7dOJ3:s"E܋8p KW_er+Kcw9v$ILsU*e,۽rH>oURժ3w;pK? qԨBΑ{Cs,mute0&=6YZgۤcL9-VM<;L7əW{n ݫi&%'G6wLQ/b+vr!E.r1z; 0xwUZq]u&ǚkrL{TQA^JnBy(eCoJi6 ve3KT*~֭I>4&}\R)ZFޮYRћTV4:%|MXmϤ /;z_M,<ܛwRްa{:PJ:$A4z;[{$&gLΘ^ _n|R 78,9pRƒ l0%z1٤ M.eKo]Mzb͒9T9Fo,7JvU|C.S^I7K}4=o- *{,TazW!9Ϝ>T_ ORxS S'm%ǶމA'%U)xyϯ>>f}hhТRʰa+˓.O|HgN%< öM Vt>Z2s3z+wLCMMե 73{d u OreF|*42_*?TpRl׏{5?)-m?vB>ZUzHʭjy *4Jb6jJ*)iRҤIFogQTLTL}/>2R޴yM+;>å>\j3ܪzM4+$eNRjVrIQ1\?b:eꪌWm+NJ 9C͍N0okC>iʙSFHELmѩGL7J^.e*e )c.)fl<[gVl89 =|ztWaՒ<3D nj)̀&ن\[/m*"d[?)Ͻ;\>Lt19Ij$pKSYH9{M<*|]3'$KρU$If[> ;&u۵o׾ЇC}(E,Xm^?{ӁO>h7&u:KKi4Z We]Y}H~rQ R'B~sp5%/+I]{ï'RA\K3:rKI͌M=FVM5䔲\50K!F @GR8Oݸp`TI*{'ݽi SimRn\o,D+Yr{^4[֢!RGw<>}[)V6& r,h>et(6,F&w]LJt,OH/OJ9C]cN;M%pNF|,]ͅtB4S4A=VqG1tFo {" Ŗ̒wYN9>t{Fo {"{vggF|kLML}N@pLC$dnwo*IfWݍNKҋF;R7:bo4: PxOV2J::;ҎoG4: ؑJ*FG GRK|Oe ʱŤ;^s4CDYS咷Tܜ[!x _ N. Z eѩbtn¦.R1ҠLtlat:1 ވsCM23s;-vir]WDgҖWFl\t@j!GSm_2%2h$ǁ x;=TZR^ H/Z6-2p`;.7si`>ˤ.9 {Lj l*艻ifiSݓeѩYͩMF9W{H=EGXMN>f`[TF>R">H+?r\MjR*zR/ /2$aKY;biK?侴йQNb1KWH*UW=@%L4M V/Թs%.G6t}v8uTt4)OX S{\_skc1RtIret8%Ksu>iHNIˆDJFgOCoziP}|>s"PPR2Aϝ Q{qHMBr&-a\,R~D׍F`O, MbSwv;,/UM)㌥F!_S9 xqOpBj?o.ɷSp"}Vlʠ$S? v,F$_ȭ^ÌiSJC?yQԷctI깪RcϜ_Jit: J3c!]˴,+ekTXaW)S~J2p,ٴt˚::Y-7Ig_{zUϒ@RBSr875ɣ46F _J~Rzr*&M64iCnOJoGj%4HH.ktXd3WH&Y̮ft:w  'm}gH|ڧYJ:'sΫ9XzIMW^|~o}ߏX:ARgifٟsZRxّIH)IIEGKŊcM2Cxw) \|`I)ՕH~ct8S[)T9>RŔU2``xQ,eWKæ]5?>iO?s҄NU$emuBrX||4ڳ╔mJ#hj@/+9{jњ9Nc;+j]F4)XEїƎPBѷ,MsF|ޗWV9fut0Hzerb^[et:oP'*?G:Q3 SZ<)o/]5VmBykK9sO͌N .͏uvvr&>J|R?)tRRaѿJ%w宐џ_)qWRI_t$xC7Ik-o4h)sH .KCDRY'fe3MҬ6\~e7ilnI$nO9 -UoB38.YyDgSnAR$QYyҴa) 3W 0~]?ߌkx,9ַ4TdI*JK+Vk%k5igO\v_;YT>iHx/A)Z92 2Keq,{iy4ı:{͟?jtHZ=Ku}yuLq-Ibt6 @̈@˩qF᧽3>N_H{?t>͛7.ܜ[n\vWe< uy.oBNw;oG󽯊"n}u̵h:,?՘Rz=N_GšJ_ze΍;e6z<ᲩTdEW$ 7k4AH/ǍO-cQ_H]*b.1/>0[o/F/H|ʬLץWScc[JǦ1]_Nyw9K'5H,#[W/ݭ~deg_Wqi*JnY]w-6݊ R6SZI UNe%#ک+/m1oY4St=i&/Xie?~/ϑ+WRJ%0zSmE*[84d.&i^҉uk.(j?e/C Ilg`t*w}?9̕3=.tS~Gqx~!I6 ݩP:Ptv REq>v^υ@9&Uɰ;E-JZ>wogt::y_z_z.("T OB+)f+)wRgq.'9m40:-P`a? qҌOq6 O8F=j,Rt]I#vM1ǥLR}kϤW @xd*xrTe.w,6a)r875Jw]C]ҸcUiNaSZHJ_w![N xSNj J& . w7GN؉^a,U;y])$Z聂Yר.H@׺#˘ҩѩ |3%K(mO{u-x aɧ"+Kf$kB; LR-@Nh%7IKЖ7u7zH%tƛϩ|\!+so}hYi}N~q9^GңqNH|P|ԺMUeV̐qǥwi6>Pk\od"pxQOrʹ|?vt\4yRKwWPTH9FK؉o.Rw:\џ/]|&]tƽҳ+ѻ]g'E8pl(y8>NJp`}~fvg}_vX<𾣌 ]N9 e۵I9*3,B`|'_H?@z&M]yVHEob5>la;.IYr (DѶ@Z\a֏X\gGl½gOOO . }QwTn44uկ!?7n|0(s6zEٕ%^ϊDžEGH_bGMD|:f5<9v[J)`H{ۖEI$0T /+5JnL{PMz3ANz5.R=PnYWQ@"vG'`_=}<[tod]NO(_a Q>s܋QS1m5M XzR8bhD[8x_PlG`8:@Uc[g4jU`c ?yMGݧjyQuKRŏy\~>t+8iƌifj8;uEP[-\=dx*@v#S@bR~|Ew~jqE 7Zm4 <=x׵v˳w,dSE[g?G)HE!4\ yx`c;OdP.l3`zF~6۪ bd/w r44`t=_{LSo0";?_WC_Ӣ;xnlM:+|]~QT tQwԾ@_ !Ra+uc9K]{wL7۶w zNI%P2S2 JH?*$ۧ8d{%.ϟELhP} tBĎRyꪔF kkY˥.vHuXً 8g 80l7nN;:Z-`WәMO{c#""IE({,9x#gޥʾ_}hc4ȴS,b j 8Z h}wqfUH񈢑のgߙ1G%Ŵs]j52\=|{x/?*-RhyBd`\u_;'ޟuZLJԯQMJۗ>p}?+> -ϟiRKTUjTo|wuZmZ,s,aߡ9p72gQv7)ۀמߎIYL*ƌJĿ:BteUY4^@=QuKrFFvMSK{i> 4%6fOs j|-X쨈 a `"$o)&F'T ^Rx%Na~Qqvq *̖WRdˇ4&oD10LcG^;[h.Ll|P_VY+]#q@bf?Xlo}g-6+`WJga h !%tG Ue:]=-|x*߮{w'04@edJ+Sc KhϮn;`#c0g&%=׷۫/x?ݫtnA*P`j 翉-l@c^U닕;q_RG20og$$$/޿kQ >6t<=Bl60&.gqE+4N: t Oh?\j,0[>FМ[cqjCU #255ewxQ}GۮGkq~ZPgV).oBBǥcl>)#oliv/_}Q' qp$ۋ}+0VR|u*+\`ef玟e7tݫTRB9O=? v+XRcѪ1 ;3jQ(pw@}_]y޼W6R]iYNO~p]eU;j"".]3w~ zV0^V ?bbGTvJ1 軱y@w`~* _>ύO*vDCR^ARi$`ݲ6%}bGUCN2B6x'4`i!İbGGDDD3Uva? BňNZ rCQx}XujUݫ&ܰo6pWcӏOdd,}̜9 5z:RA25YR KE,d`־Է3?^HjϬSg-=~s VZ(`yӑ#l/0C46_huP@6[jͱgKW QlW+}םRK"hFz ZyRû/mPgʼn Y0_$+ӏ@V Vn-jŨS?4^odcTyh4&?}`}1iNMNŎ2wP$T-SxdqB+? T=\xֈ4*ͳ#5D&?Y+y&a{l`lp4cxPn:e:jEh=1Q{`1E^DDDD-ywU% JZx ݝz}<`Zy_*X *¢[EoSq;h'?2Ix}S2LPJˆUt߿2n)& T_F+k'v+㒖P!i]czg<f:vliN_){dWj!uNԾ5qB%rەx}';DMHx=_yՉ׀Z#*ͳܟYsGKr&]|eX_B8t6@Zoym7iz3BpyM[WgG|s_?i`]=剀DDtl5o|E`㙆_ )%Wx+vʣb(Qט*G>*)|Py! d@Rr_ >ƺ9m%KB#/'5JǺn5 gy)(`@" TJ(wg+,5]?4UJRER/kn3 M?NH|Wί-0UQz_.n5f-`7CL-w)~oIYmå*[wLS_7%'KMGv1c@pgᩊ кb]fQ&RÆ6JO%^u(W-;D٥X}{Sz6uDx܉NԾ}N{tjii=f oBrh.b>lc Ĺyk'\g^K`*zg@9s=˻?#@Es_IKʖK{?w  iZZg|& b"!`bt20yGp40:- ua"QbG|F4T݀ߚ6^brʯ_~=qáU4&*}$U%Ŏhx=vz-2u_70V_캤[" cqג2񏈈r#&#ݥO2QufK^33qEﾴ(qʪ LLg<.~i_'(¿Ftf7p}_6djԜ% J\buڀ$H2S2Iz#$\x:a㺽mx<QRG5 -3vg3}Z}v!aF:\+VЮ􃱫 `q3__Кq8wnH݀5\'7%vT9HW3\6di%S쨨~0A}@ʩzuM;8K({`MWPK`̧c;RIŎH1&"ý>q00!1xp.0({BoBtzhv,(jzoZx9 ` L~5.r\\\LIDATN B˰(zdWnqu\}*iߪ}sʬ,xÀ otQ-?}T2GkBO@J&˔T~JZdu5}'|u!+oOckQ=vǬW l Vc۪^>mEvG|2jySAtC}m tjp5RMY(~FDsMnOfm|R5Nh;Z%tXeuk`X0hi&K{IK)vߙ*``hEG8j**ڈ~̼//, pnsObSH[QƘHD}+Q4b<Z{,v+)(ś}Lí4:0"_/Lx\¸qE#6g73.llׇ*0#a;?\zqV_^ 0sIGG8)pYRl2}*ׯTU#@>4ixCJܑfdN^娟@뙯n#+up*PxzL^N HZ6R C:ם7[[_y)ӟYNmwQ<.T*P}ҁ-~O̗]7n >ȵ;:b ݊MRy@6{[k%?.?-MN8Uz3=~Ojl,toہg~רn_CfEĎR ~|^TFhלm@͆Z*-BJIqڮꛕݮ5X*S@O*/vd9cB2[Qmf"""T~-qpIQPAqM[WU^ Z;p6^E#Nje 膘A>p72x*'2T_Fw:\"Q "_A3%g>{ &`X,E]Q;(T7<\z7To'P F;:K.Fb/ZFt'ؤP( Q.AJeRӜQR# (7ūD{oeNTWZ5suKθ PNr<0_} MʖS8}S@Sآ/;q鷷\SV@OE2 ~! ~:M'OpԞF"OvI};B.}~MO=KGfݓ~p묏f\-%V)Eƨ-v#i} jsh2`۶"OÝ7YߺĮOɏ)[5l=X1Ⴑ!zTĎJd/gF_}W]4( I:H興r94x\WfL- 5Yrd퍝6 w^ysI㫝04 1Q9~*UJ6cTIX8y:|}:n&+)t=SFKەӏȵ@i̝؋@ъ:M=M}||7>dxj' O *=?٭x\h9WXtTӰVYUb]15-?V9OKll=֭(yōf5Ӫ;^-Q}(U4);!"+g|y2We9v~N+j\R/r>1T1;j"ɤǀo_ <<^{瑉?î/JapC`C+FCjrZiTlq TH`?bG\Yyܭwϣsf}&ߒ6;:""""c QQUJoOOuLjbGK= H(-tBR] 2RbGsiv?NG{|-| Uh5_tQ-^Qtݳ.Z]p܍WDEsYSiI/EKb E<5U4㇋Zqto>^D\"%Oy!<%&dg$?W_$eFۥ6-t'XުHŎEL3`v:)Zx;6|1.i@cY#"""9L$"#Z.3Nǝ*s'RnOUB_ ^]L>UV{B2a\⠤Liw:h.Xdqtu5ֿ-+V*^ث#ʛfV_%K;JR"Znts+qΏ_Uc:+V)wdh_/wW1gՉl;O8(FR興r.ɍ7:=5;iW*"o*;7BTTԲa' O;j""?@7`ZMgO ((Le 0q%F6[V});:Sf -\ںR 4תϒ;:% ) n ><~x2z_:@6^ @"z k/+dU׻]\}26ZD6Ȯm3~W;IDD%++%LxqN;J) e ĎNT<%q]}`DZ ڊeVɮ:ˀ0ߡWrɪ݃}[7?--vTDDDD)zq롷~ԁFSN? |x?; ^Wz wnl`E!#v7ԫc=j퉃L쁡O-_Y\=>Vs+HHM>/ZYUb]_ߡJzj-{5lkU?w0^a@: u p%vyǗߎewozSV|Kt麟>e~?R -gſu'sZx$V, m@$)$"5"+E .5 BuMq6wz<þc@+S>򅮩^@oZU+-\TB9+T 7.Jc)Cx! ׊j|<ҭSXsР҅2g &Z\mxޥ&;>ά b@758NڤlI9EG| ]Ys37Ֆ 6im\E)#--#Qg_w' 8\]w`T 厕K*/\2P /,C]kKNҐ.?& {jpE~ ]&LX+gI@3 ;tRu_88$}xOx[ķ_!Q{O-O{&0i|qvТPNaFs puΛ}xqi@c6s;&3~Hb%7qf=2ݢw/c5  T>@DUEΨTyl4(?ɸCFڱHCƛ݀+ +r\\| 7^Wd 1 y/oX%7#kSck_3Sӱ@fVҿ&&}~=>ֳ?OWͽN=? px ߏ PT=O+M@҄ ǥOuL-~#"c Sx]H@g,Sw}ܰzmʏ7kЯYwyz$Xb| >>[w U<.\ <[uCuI)e< \6) T4);PߪJbጫ>?+ 'O#ݾ77<0HqĿW<|wu_ZnL>nX0fgʘxs"\5 immwz͙N.pq}7 /[5JxǙnOڄ"f~Z轹j IL$\ GJ1v7kU/xH8P:C(JnTlc4ٸ%vl9S䢤 `[6JdY""""$W֭2؁P4uFe}Ng/T_0>3'9GBW ,uqy GW?5pk'3<Ӄ%q~wǀ#ϟĿSW/`鐿(_ҧ?*ͩOgm\Ull=ЪʤjSH\𜧼x&8 \(v + 3?Ou)dʋW ]Qbva͆0>?'vT9b+snVޔ DDD%eͷ<oL o'8KV>?Z(ѯP]ͨA3c4WPVRY@HEo)p{& %y|GC?h+n݇UnmߴpLZ0P_T@>_ADkJ/Y3s?ρ=gzݧrJ|^u_;78rGzu'Z-'Q.3p @eǣ/K.Ck.Daס4-'ƪ_;|,<ЦT:neN 05-vʓT54ҭq `[@AbGGDDD0-rNHȢ磽~h L ZD? (|RR] 0(sV - %< F )BFb};]>^¢ZFo'IjD'vâJ*Zxi▕a6^_W_F6wrSgӼ~X /D;ş ]Q0Rџg Tye죙B%Z_U^lLԀPl~ZՁO->09Bu)_Js.41Io@MٲD9GjWV*XN7\ωs^DKߟT |;Q)[SnD$&5 "Q~F%6,P رS)a:5La*$VWEG|Q>>Gao6x^R%vDDy;D@mPodY~<ߟJb&Q~ <@jNkʶWr=`۠d-*lS2wW+Yh2a2WɝĎ2هN(8l5V~`o]"p1@@1CTDTj`)a5FR}l}lLDDD枧_Ydd_%""""""""eMz X:޹oeQO;'8(vtgߡR;?Fi;ns Z̀kSU%Hʾ˟ˤL#""">L$"""J#``ȑ7*sƧ" /\K쨉Hi5If/E.k|pb'K]RyިLgk 7y[P|%ZCbG{) ;w+Cq1J2 ޗ̑8> \eߓ2T &1EIk >1uqt^QNuKzs'cH@LX*XuPmxEf%JV.7V')"9'LK4* k,@G[Sd*`J$]Y[Y>N%"""5V?^|GovJ+ӏbODDDDDDDDb~ JbEpûFN@ŎNJB-Tt4\ (rU;9:[QuQbׁFkH@WS> %97uMç$;8"""CMrʂ!{ JVE SSG yy޵+/QzѪ+"""""""" nR Xjh81TJ`Vq|LCTb5n\n?Bc5j;8%+A0mq}@B5n]bG|=r}+>}"Thb) @C"""܂ DDD逳IeV(ѯP]Դ<[Q Sts}:aM`fd+E5Fxn/ ,yJpyPe#eK\SV$v.t8[U[<(\K;Fe}4.34?5i-(߫~Тp ۥ'_ .$z&JzJ)@[Q~v)VA`,7!u*/.Qx$ )u0;JQuQ um ~CJ{Dو_%T.~oԴ+UPnK-\죨|Qͤ_\ nwt[ bGGDDDDi1=% Ps-f 10 ^#vDDDDDDDD߹-%!hDlRIe)O(ag@C&ZJ-*(#/='*}IDJpN]^#*h2ԛX652,^azx͇6b,J}r@G ~gYm\V/ETQC H& *"sjC`Nf@]fT2ZcM~(И6Orݲ*t\f{"^#xEzvt =cJu]Yi9ln4G#\Il+= nG7;WŎ2@"""""""""""""uWKLĕ%_/cmjVxLUT;`K+ 67S4|<@6P.q YdDZ8KT0 0rӼ]xA@)o_JqII {"\m5z0pd)jf*ދ$er-Hil||>*`_|a=G`@ v9Oy!5Q@uuPN4j,[c@0TKNH(Dc@2 `+$o]br #DȋbGGDDDD DDDDDDDDDDDDDH؎ɯn8- K>@LD=Ă-~U!h.O${HGT綁^#$) """""""""""""v}4 ٜp3 jRK(KZ̜u9(x{%DJ쨈( Q.`>3<(t:\IM" H]ewG}KcqE e'V$""""""""""""C;kN$N;*->ωJfrTp7 HV쨈HYHDDDDDDDDDDDD?2X88$KG .}ؗ|deĎr w/Cu>4b$JŎQɩڤ$ DDDDDDDDDDDDDI=G̏c=:W/0X0HTv X5WhM\Td]@VUŎ@""""""""""""|C)zJ+Bn_R=e^Hgq:)Ukw ܨ,f jb@DDDDDDDDDDDDDJ_I{jtYZ~`vzƅw胪b\v^TC&~vE==3쁥QQn DDDDDDDDDDDDDH Oq;"[ܶb';G ܞ%0?lŎr;V$""""""""""""*Δxu+]' ߦ;E5X&vA$;"e5}/|"뢝w$HDDDDDDDDDDDDT=Gܻ;("0ksu/ +vGܲ~R'JBTuquŎV$""""""""""""<3V'.0 pb ES46ZT,U$ C2zm=8ep˘ ~zŁ)Oo$"""HWu{nZ,g2!e'q~bG{~_P|[`G߽jH3񏈈(X~=ڣ- xhQE=^D^Z^Z^'/T  V$ @ЬY[-`p;`hhRZ1bKY..خ/P\r $A """""""""*!1_H$9%/]/|wm` t58*b גIÁy 8m}: z؁Q~@""!H>6s|qWsϩ^^Oka7 MшF4ݣu_'p渃; X6llitR@Y=gly\qB 0 }Ј ょ%4]koyTn<7R@u*ΊmK'Dg`.ϲ!n $K,>;J""""HDTP )6ۼ /]tjROy`>kr &hF{{{4U[L1ii@UV 5Ոr^ԯՉc wX?!/%шV(>X#0F%b!1@kX:=H| /\A?8˚Ts_?""""!L "*`B,BcdNŎNW)RK_,}py՗v5kt̽>|7Xb͊;Z"""""""""+1.e45"\/T`lYd ЮP:=vumI!;j9YV>5=Gj `u"Z.Eむ/U؂Yhc Q~7<:wlq` ݁#ڊܟNN7<zVZmt:ZbGKDDDDDDDDDTpu xΣ`ZօU9e}PP=XC`L@F7x@F*APz `<3Y6BY\zKx.;$p[ŧql_8s 3G+p9UJDDDDGɏos}28쾲{ɘ(vt/bhЈ#<4h X{3@BBV(~РA -QzqoKkdotS)ZPP>I?E2`_)Z0t@ዪ*=5ui8 $~Bi *NW/rZbrwBmRH9"5pL#BDDDDyL$"g  5wߎII>^>>>] .@k|b$&&&&&޽{͛7o@ݺu֭+vDD/O******@/vD?T*JǏ?N?e˖-[;Z"""""LGMіQ+ |t{$p_+;WS՟<"‰Q79лI&܁;ĿN;ozݺ3 n\ܸ^bG{ 6lذa`ccccc۷o߾Q)϶m۶mhkkkkkk׮]60hРAǏ?~Qfׯ_~Yf͚5puuuuu;J,|)J366666_"y{ŋ/D"d ,X@죮Xn=DDDDDDDDDY@"<.==0cdɏŎ*q0Tgΐ@OO_PPPPP*v4DD9/.....d2LhӧO>ڵk׮];ٳgϞ=bcccccG=zH^)Ǐ?~;jӧOEΝ;wYCD9܅烈3&Unp0s!*[(?S;""3篟~N[mo= p_Ư344L4eӔ/&_;.w\nW|bGMdإK.]%QnADDDDDDDD+o6YPO)3̔W~~SU UGlW]w885/xA81wotj|5k֬Y-d)wyݻw_ZͷjժUVbGKT񺛻|Q~@"gb܆v; HIIm|:k{pDT T|?GԏKҒv 5x H Q⺉rPrʕ+l۶m۶mbGCԩSNR]HH|.<DDDDDDDD0Q.䗒==.|9l ث~F|z繜p9K/h*""""a Q.w|?)R6,|O>Yث~Og> ,LY2ptj#"""*______yʴՁ:tAh('0Qn 8ܺs_>Lj'tEWY W HY yG@xxxxx8`ddddduP"d2zիW@PPPPP H$ PXbŊ+VX"PN:u?̬ӧO>}Z&M4iD~}Kn?BO>})ӧO>р<.:~>*wYBBBBB`nnnnnlٲe˖9Q@"\ʿgK/FzL Ḇ+B G?#6b#|_~6u,ʢKMMMMM6o޼yfWoooooSD%JÇ>|8lٲe`ڵk׮||||||>oɒ%K, =zqƍe}J*UT x|ʕ+W\9 Y=o|… .\XL2eʔ'64!ݻwޕ\MMMMM HLLLLLTTTTT'O@f |xA#ϟ?+7O,6IY>~{0- D¡P[n?Bŋ/-˅JFbQ!awJLcƌ3f~ҥK.e>aN $ ?@Zjժ?~β*CY^zUy Ç>|055555-[lٲO4)nݺuVB *T._|eW+'ܷ>|ۅz:uԩSŕW˗/_8`իWʕ+W\9|"PapҤI&M͛7o޼~?O+psΝ;wo=mѢE-DDDDDDDDDD@"\ >wMUbJh?;.w|/<_x(7nܸqgϞ={qd+tҥKNs!1LHiֵ%"fvZoڴiӦM@.]t"?Y_֡,7o޼yBDH"۷o.vԹǬYf͚ׯ_~@LLLLLLG*Rb;s̙3g ʖ_χx^PB )Qe^/Ǐ?\`fffffXYYYYY)wׯg:n߾}mۅ5lLDK?}Ԅs!!U8?+W\re[ %%!!ZjժUKM6mڴW:>iZjժU8yɓ'ߧ(T#JWi kE΅?T3* +%e6֭[nݒz* _3`Q`F=<<<<<ҷLKnoZȨ5p|޼y͛/*PlҥK.M?NHgΜ9sLǗ['%.ݳgϞ={5555lg߿+N8*)jE,]]㇌Z +jQVFb}%$>ѣG)ze-iݺu֭8&R[Yx}OYOYw fF̌b&TS B,,LtGpHf`RSf͚5k*?FhHn{eȨUf/^xEۅ sjիW^qkٲe˖-3'UT(?%l޼yZk ->{ݻwoŕ]tҥK[l 3j TTTTTTɩ8F|Qbʈie*=MZ+ŋ/^d2 BhZ::::::ⷎ'"""""""""ʪl}""R"#(2G~.E+ڟP ڌ*iӦM6Y?i O۶m۶mK?Ν;wL2eʔk׮]v[ +/_|ey+dk׮]vMveW*SL2eoTq7 Y( G[ԨQF@իW.OKK9mڴiӦe~Z c8UL$"ʥS@|;wQu³!OJfTJ A֭[n })&**Ç>(.$@(B[F:2߿WSN:u .\p!֡Sa9-"""""Bɨ+ x>~?ψpߝ4iҤIo?tСC?sΝ;wzDDD s3B$v,[?Mc`Gc!"C,}20(*T:|qy1@E堇CqКthҥoFz" zĈ#FȾB=&v>,-----?PQ"**sΝ; )ޮy%J(udJ!sŊ+Vk|۷obGXTTTTTOJJJJJWTQ-#ksE۷o_`ӧOO˗/_'4*/>>>>>^^6-%s۶m۶m 4q@*^!vTr&t'k&t.v0DDDDDD "VaSM>s?~@NN\ثRqf7uoޜ,v[Yq*.TBkݻw޽;ĖWχЊ0-`ppppppBbDZgϞ={v -/Ӷ4UT_ZB&Ew3? 5eE%ܻw޽{snEn)jɛ]nܸq ş/5kzի"Ŋ+Vо}+o߾}e

>ѷ>_:TuuuuuuQ~ϟ?&L0asB ]vUPehhhhhhjjjjj _BkNAE~>VZjUۅ|Bei[Fzzzzzzgղe˖-[5k֬Y&rʕ+W[G СC*olٲe˖e"Z*Jd3gΜ9srʕ+W.%ֿBҜz[yFF=zh̙3gΜIȑ#G֬Yfp… GK.]tI~r6QVDK\M>*h*vTDD_ɜdBX0(צ^;WЇHD"[kbMå:J+ѮBW}uu| -={ٳ'vڵk999999DEUVZ!$\(+fF:TP֑YBH!iӦM6ӧO 4444? -;vرc:MQ™)$Bϟ?^NX*#hѢEW wΞ={Y}<-E=z葋Z(1S R+kUP;(""ʷHL`رџ'"\ʲeqˑ3eRmSÆ |ow+WuW 00 Oex) TgYIPB owwwwwwW~իW^U]HɩV&Ǐx^뮲!_sr>(gHM͑;""ʯt'aQV0(9^I?I?I?$%%W&%Mzw~Ͻ XNmqtq^uz1b4x`q5WOM<98 kf/[_֭[nxȹ~Wf[[fwb؊-ZhQ}|||||r>v>VZj?Jki 8p_\ׯ\_߿~3իW^=iӦM_$t.\p!O:u)2_~[Gvӓ4hРA?yɓ'-ƜuK89]vڵ$D"IӧO>}R9kTn+(h#o.\pѣGxڵk׮]+_p}MKHeun*kbGuAD_R؁bBDDOģTpob!""` Q.guUytP<O#exx~O(("f4v6ƅ {8kvhgC7T#י>}J3ӸO>'^xq80:#]j E[x684PiV_i-Zhxܔ)SLxyyyyy\|%Tbquuuuu;cjjjjjx7nܸq!TK˗/_L544444޽{[Bk ......ӧO>G-5jԨQF3$>Lrv?ϬQF5Jq3gΜ9s8rȑ#G' ZZZZZ"SnrcD9|(2X#]Dh(X!wdŎ DD]WtEw`DIb+tA#m#mNs_~,@Nmnw}$H:`௸FjCf횵kL]]7d}y_l~lS..nC`lFˀS~NUb'N۱(( pT7o޼yW܉큛7o޼y3HF5jx ,X|bGu:tǏ~޿]~9B+ߴVsiv֭[nWx111111Ih#T@]nݺu:2 #ʠUKK̙3g/nBB5k֬YsYOZ #!P,|~YB #G92v?bĈ#F('ʬ9%^wAAAAAA={ٓ{ב_^akcbx`c""/iJu{[=\5/]!-vTDDDjb@DDcogo.T~mƭ0.] ?8?=1Dx8{t1!AH&٘ W2PA%/M<+c-\Yre?MZ5 7WꨜCHo`˗/O?۷o߾}W lҤI&MN:u 077777W:IHHHHH?Çϟ?<1|Ç+n** :tСJCu:b_~ m9E,dɒ%Kߞ 4mڴiӦ!C ԯ_~<,22222x۷osΝ;wxŋ/䉠|(Jhݙ5lذaÆ[*"&!C~ק'$ZYYYYY[6nܸqƀs}֭[nG=zh 8ӦM6mаaÆ u(PQ>i ҥK.]Z~E&/Vi ޞ={3C:t׫7o޼ypvvvvv|P/烈䲩eAX5@OPU興(\1S'mBpO예(k$W֭2؁P4uDH!>Z 4t^7@5DkHݒv},{&Z~""վ=6 7n1-[tՎRU,۫nc4iQJ͈P_~;vرcիWV?#B>|p/믿/`۷oW~ڵk׮];˗/_V~֑_G˗//OtHZ9RRRRRRe˖-[ L?^zՓ?SIIIIII@=z81,uڵk׮;E :eBRZŋ/^x@!QQH$HKhu)$dTi)J0Yz̝;wܹL2eʔQRO -% c!_H0-nJ5k֬Yxɓ'9JOwڵk׮]~<2#~2:i )SL2EVnfֶm۶m=zyw|Pޤv:::@-ZYЭvbGO9Rb4˟]09A=3""!{λEU`bGE9-=D~אq[)2zfƍ۶e}?DDy7eYo꿶@@h@hEвC˝$uI `Հ"㊌+ 4@PTTJ= z uu?ZhHeNy.wљrO@UUUUU8rȑ#Gϟ?(TPB؄_Ben׮]vWFQ/#ƍ7*t%|O:u)yB"'Tsrrrrrz_~[ }gϞ={B:mRv* OWŋ/^8~Mh}fW|U~JBkE444444rOߴru7;v쨄sj|QlȦ[HbGCDDyUnNYMT!ϗQ5Ŏ򨑒QACe7KNHNHvTQe{K+++vp\Ḣk `Χ9NFt7n!jj0_mHC;[įyqTGN6nx'`TQFUJ)yT-2#Q[G;v~mO<$-7ܰrNgOz[mY(#B;Eׯ_~}Uhr/_|UVZf[nݺ%vDDc edXӣUϒ@#r5/aґ~J7ul9ȭP&pUHV-H^upĎ']/{Q+3oE%vTDDDLL$"gJ-➋{.Y-[? RnII:7qz-Z맯"DS~wwY:MM\r (? pwwwwwWbKEf[ϲn?b=6lNiVPDZsXvo%~3?VZjUG?% Ϧ*G;63+p!Hy!ЉRYDD~fwÉpI`ٹK#^}?ЀUDDD0qԩf.DL٥ ! u?iF|PF^^w^\{C W]_FPkG<<``dlIGW-"ϕdj?Q cae+עr[1R=I)9U*L pOz̄,ם_~ntȯ4iڴٳ]t"^4kG8œ?}K7'Z@$N#p9>i16pO!""@Bޔy.6*cI< `)h/i n OzAU,~~DDDD^@Sxw`Baz߄w J9zgq~ {}\lJ]'yt:[frPpT._\w\p}\b̫ rU{M]w~dĹ\0,h38/9PKΙA~B˼qin/1v޼;8NVHNZg]v;wդIE=˞Se|C͔\ᓂ.Ɨ8PDDD$iPDDDDDDDDDDDD^iqa%4*r(mE.3^{;P1"L:5x힒l{c"*,gmaE"W>)“@8eܔWӟ#ao:'탯 ;9 FfOGJ;&Խ9 c """&+EDDDDDDDDDDDxLr*j<[LE py=|nB/kZ1Q =U2u7_\z/$s[+~-.45|ueY)~eٚT:Ͼnn 9 y0X-p˳i{/wl;H """"o p3 x)s^ͿQps̿>*0pʛDLB"^N/~XJՊ/RB:*+f;Ȳɓᇑ$97xw]gX'Apoap{ة<%fe6/ڿ}|<;9}FNu) H(FĄHl<XFKrAP c]r@v=QG13H31rM<衉X{ǑS@%vr>[#<(,Ok?fS;(Zˏ}XríI*/^u Rc9f~NOk?Kn)?Os7Co_\ NG~'<X(of^nɺ%떬 SO? ""E""""""""""">}@eΗ9CO =5\YueՕU0sE>'~|<> "=d0>Uq`eh]} Lb vY? Y(A #J1y$Z?u&ö=m1ºϮF|w%S2q;_T }ߜgsPnIDATy[![&M:(دtd7[[PA\36+H0=ϩqa ~ɸ0vʱ}-1ħ4w NF=`:n@Ț竻b„ "6B[RqT@ˑ @=ul{rSsY >sr6~koO_ӏ/{\YOaq"V?$M{}.LE\{5/et㏹KǛ>_ IX床EUt*-s˰y|JTH2`e{iA{%}ߧ4 J㏟jrlݫ`I7)A雒V4"e^|h3<_s,:e!XUR/%%%Ζw#o_h<Ї>qtWDD@1c1yw WVv^yeg6iM +߮|2XYY<{͔GIS w̘i-xyL7sV _;wwtDaḡ?ܵ" P%ҷsK?.=2L67B(i4mL||fh5&6[~;|1͜/K蓩b kn㢗ؠ6;GȚ=sI)y"Š sq0?\c,d>iimw OXDvHc}W6_wxB釁Wr&/sPT-{v aw7WF&[k{?^) ˁ D1]g_ޭ0Ќ4rtU"7,r8D\v~}t6񣃩۽{oB y`ԉQ'FJ*t Ӂd#""DDDDDDDDDDDd!!![[تbA*=caK>k/6XZstWӗ^GW>4ẹap*S|CZF9w xn:ۮߏn ӺV-(\=5[mۍE 9j<# *ur09Kx Pbg&mz>FB])9S-? M9r(zgCL Ӿ f95+84۹N0)XE~yqɯ?3e *z02,K{p'C2ȶ?pr˲g忾(ܠ?Cwf&!~}`e oZ΅>}t4s3x7]|aWU*W\""Z """""""""""iNs(޼x>1|4 I'͟46~_C_!/<Y뼽d|\R!@B5oK@:Ywa\ob;M3\/ד,fdu |jMÐbK `mcLWؿ~X?o=Z>QeXFg lJT-Ho}O?1-8m|4hK` ? i2p`Iś4{-?^Ku>'2dc_>^G3 w)d -M/k.沃@ Pw|P|5SӻѽV;ỰU Xr#(|.t/(Zhū<856s[hMU^?, >6#MTNck.znV X ?UAƲǝ :Udݳ=ƀq=Ca2XcpgFp3&w{YS r.u;Ytx0U?;-(](l}). 6L]s><,;)7?y0ۙoK* # Rز oVL~Wϔ3&LRf`*8~xh|[VݼT3?Z/$ـO?,gP nߍ$ |v?"]u #AL2ɐvYjC皝kv ]~EߋW Gy_7H6 J,JjVY`F f4*R/;}IVbvkA '/ sܨ||"7\2 wM5^\y}  9^MP/Ӊ:JϟQeXxGi EHK'/sg85jQ \f|:#l鯯,U&~Ө a`d+mF[nXG/E$2a~et%idy;ysGdONӚ,1V 휸qE`B)˜|*TryY;L wr&}ǶL ?T;?< %ج^~SfKi?*)oxH/^tʯϲ{:7}(Tطk<;vμ7<8y>w,L$0Hi;}iWىr)`٬"AHە?$2%qW06W^n;c8X0e]1wJ2f$RyYuc-C.[sMœA-mA1,Z˖wlpD͡~/g[g3|ƴce\& ~%+EKQ!G&޿MVh`7Xސ?wMc] W󏙐z.8)e ]$z]8CYںU>|X% aOy=ضm۶m`]uֵ`r1\Imy p:a7W߄ .h܌nF[}#˖0aa~ x뮥s%Swޥ#|Yp/Tp@k7.8X¸2y-#9 >ʐ۵‹A~1 R.9爺X kFL3=gKgK.g/nb? q)ؾߵgۣ܇n)lu^.Kyuy$?^~azi;׼}m0i,k¤ϏN\x25>NPꜘlm+ i y9Xoy`[+CG鑫߿O|;'Av;}qt } #uɫI^N%cpdGqM׶r?+T:nd=鹣J%Ua _ O\9t9LaԔQSFM^xF7n t]qPlhņқKo. .޻8 0dÐ p|Bعs_!a|$F&OGVYֿI-൩jV;KG99FC{E}Rri=AB\Bh#-O`G5=Tf>/[rfd4и׃β4B|0 /Nsd.eX u6 i>_ӄ $6OxR??y;:.z'c+sG4{tai/^֡/ `s/ycs -З/^fϊ? )@_ ?A?ߧWVڟ{Oyt.v=r3=4~a oҖrjs(msqlCH0i/ci_l Wދ<9Swzay醺P\ Êd>6 11zp<V7RO󯿄^AzCXS6}φͽ`IR//%%^z##<f蚡/.lE+Z9;""W? UfW],ò 2K.mC 2d <>#͓s巇?4W)[2okvwnE6e  ۉ׆aTZ-}WåP?K6[`{"^uz>vFS駙N2tvq{<3uu恆,yRچ?[{ ́X_f+d[iZ?Оdhgl搯h}q=w H7)/?3!ɯ ܥ>'188)<蘶0}:ٜ!s7 |Je Vs?0p*eKJIϵܑx H(t6cPevUf#>e&M׮]]z"""""""""""D~ ||Swm޵9^s7) 17v/}R_gI{_\/FY\1g7`hfߏ]<q0%.MMa*}}Az&10?_wgd3ÇÊߏ#JXy=O qy|؃[P>_g++KVc?fRws-Ĕ]? UxQ'|n=3Ӟ. I^b]ۃr{SI f$ʠWq |Gy4Uesi?pnh_fKEpHфjp)%6Ob~e{g^> g[b߲<ՙ -F GW-b!<̇[oC[Ew[M=jP?O,>8ڝkwhODD ϲwm׼_~?555C٦fzIAӷ64ϯu;Io9& #⭠R !)AZ\!oo/ua^)^Bs@ G7BHaGPZ7iVԼ0=0ňIpqz>oa㿲,3Gw~^ϒSTY##o6MrV .gL_l(GӔKpl@k|se1̜rO79ۋL[aQ$9f~kϔujσ)p֔B@اꞻ׷myg ̱kuyRx$m=qSڪ&pia}:H`kizwr |֛\MoCўo_\b[>j 3WB`_Ckp,QTRpȺtPJi)~{SCxw^'AdD?kIW״pg|-W۾J!<6#~٤piI/~|ﰾ[:.츰B0~a"""4c\rʵ`[mUUͫ6ڼ *0Hp%5FnjͶ)xhXp3l⒖!˵Sݝ77w!%NM[ w80 ?5y>>܂M@#ceñWiC0bxlh郞 Nyqmkۦd77,0T3s}%_O]cn4]Nw[ǎBNT}2([f}%e1&/o./%ʐ[87W̺Om̱+KǟGKt"텶^Kɗ/%ä铦O殛.5|k* f3kձcW˜ c2^Ͻ{=OȃO&8 X6Y1bxgH h"__  YR `oCğͳp-8ի0-/L cm#>!)WS@}Y ~~~@c!Xś@ӽ6c4M߭3H|`Ϸvtec &wƎreڜ&yL[ג ;mC|z:Ϝm6IٔruWݒi3|}v׌OtYCv>C^);l4CL^`7L4NM_~{'|\S&c -& 6^*g(K̝![ο}^!3s?kmG}}wlp5D7eg FwU k] ^ZrGykX2.Q04~avƍ܃|oP{Ϧ\ƛ`/9FP✁cA< Rb`oCb/C\,ԫh5<2oLAPýio_\x7 cCÉ m1-sƷ_T͸1qln`a\bZX?cCN^+ C dnNN'+.@˴ss3NW;}wfΊ<?v؇[%}6 l^ix\p]7?P&2 lʏ+_?|w݇eo*Zw'^jm`Y26XpPM%&,JwSDȝ)pbPb{t5B*pjZ?3G!]S"dK`p}n2<'l W [iz;>n'4.ws!K`N4W^%qgyGͽ: |DB9Z94FrƐ:!3"] 49B[i'Ӣm^|WWvY_߯/mV^aOš9W{EmO Y\o<#ƃ_YXs69e]߹ |ӼN?<΄CG$ IGOXw5%{(*4 -;2f;bZ")iq{?3E!3x,w*h 8BbRT ӂu子&=Zp)spTxup¶p񽡦GMW' ^>9e"?$* :*fuwmO3xD L-N? 5W7}|S/!8t~B=X;kϭe/yp̑W7@kJ=J91'qTJa[-akKA. 5gu*о_iAf{N{u vNgWH1ak Cpghx䂰͢:BO_ߒ,c"fFg̚n#v03O:t> wq:AE[m &N:u,хț=tqt""""""""""Wg0c,8Xc666(k C5)q-x*rl05t.讼&i.lc_ޛ¥92PnSP?46LfL AsV3X#}fOXm +UYmPplcx0tgEćա<`lڽ='44}|hӬ d|=x7Jy|ۀSSjbxNP%֡9 0!qJw6k |!Ci$Аx|^ 0~0saS>k"УO_UcZ6x5\1_1~ n|6N(狼-8z>,bsf]X\QfRi/~'=x,f{!/bo/G1S«Lr+%#P5c[0H,ɯk0Cir; Z{X7FMNW +qBH)JTM{!dۋB9Ws HS/6iN5%-{J+9<`(C٤IӦ͞*MW_ΰɰɰ Z.lBXz~aНAw݁t1bҽ  $ 2-=\x\u]q!)yݕWlBrY۱oa4p;awrf =}:sPPH IrHl]`xNp0ZVvܺs?& G߯6}QNϾc?,DEEL> S*89|[s!tm\sKsx1fJG?%$m̓{=/ k~8@V~K!Ռ~{=6!<53 `烞B΍ & dKD_1E={L9g眝J/DD䵠štǓO~< n[m!ƇƇƧ~kU}%zBz +rt7*6q7)N{V\~d?t?}qhl9uۘiqa=?Mgɱ_YO'['hbGwQ\BWX ٢RR pl?-Ovto`]ud.yHè=⒛]ި/ދ-ҫ΋뽖T(c\* >S?E[sB7ABrCsw_R+G9A"E]v]u[{o9os讈L'#iPJ""""""""""I&bbbh.#\FƧn EEEkh`4 < _B2tiV$r;W)X5,.q:r@ƀ3qowt" '4M_ۻ.3TT0m04U0#߇ ]uc(,{.@>Vl{:hqqMG\ݔ'.md49x<rؚ)2@Cizyfwo^yy藥_~Ypd‘`ee讈?ő `qg1c6 .; W^{`ndndn|)_@.-{>?Ln=Cit`25q/8`iuP/] y6tt"-Cn]~?O;FϱëW]7 ՠ֝-<B8NEqAFs4}ؘPЪW[1%‡Cc;΀kGǼO=6{L ߅B yxx@ 77 6th,PluVkODDY4(""""""""""" Jn*A6ma͚5k֬\[vmCl!6m˩pi~>}9)bƅ}8^el;}~HHk/D{q[}"]&GW-רgF(x7l /dQ B# XϕmW}zhgiK)*Ck&xZaϸ{{cB5Ǿ=>Huxkcb!%wdgUS?7ǎ;rYgu^TzQi(L2`#""0;x(D!븯㾎փ[n=&|l1q+\ ѕ+GW~'lb* !t_«ߵk!d!} &yڅidG7gd/m t9Yx8 mɅ{_Rų?󍃆%Om]4"4sZ@_ۂ)S^C(4 &оurɘ'?\\EX=1~;iKT=c;|tet!渟Kgfs>Ny|2ЋA'mւH%sy b;J=q) { { {!Lj#ro~)oBꧫ2̎ȟK'o4 E=zF]xvمdKvOx]5]wE@dKptSz)t푛`Ͷk#Bb2+|Ћ]29I^tB>{u"a܂:SҍӗNu Kچ6}{PSf觐'?迱 u K495)6F6lV4%%JH}{F>i-{Y'O?a.p)å 2ŬWLcMhn=DgfU"k{F |#ncSoGw`S<v߼'6-=[r((k{1+%}(NKg.Zxpt[}+@؟X r%KT;XzcҦG W`F\ {v{"<53CH vt)>zwo? _7ly~^g }8q.j5k |G|讈&N:u,хț=tqt"""""""""":~W]_Y~e3?bTN[ނLs>Jydh覈0|lhh9oYyur^殆4(a*^jXV;jp9tOϷk6 =2 RV~ls|sh>`h͆6ޛ7;)""/oҤifvt """""""""""IMjBŖ[ V.X`%FYnd9}ۧS/6NԪZQ°][!s)z:I"kM $MJ([kVT@ ߔudVԺ͇!%9!;ܽP`3۾sTݩ:S;O<0t)C@˥/ .]6hODDwHPҍI7&hC 7ް:6oۼm} *TX[- )6 [HZ!Sr&]ʁ[|CZS&G7KDD^W֚;b ǷGێX NOܰ{W%K:(s2Gaއ:%딬SL&W+PҔvtwDDD^OFG """""""""""wvB i'@߈}#`娕V{;R/ϾbM""GLJύ9Bvts./ttWDD5rY0~yWGg| taH ]3tMoi+S222;5""" :PDDDDDDDDDDD033惲ˮ.(3 h״]vMa)v.۹ k$H y$!ki tzٖy_n'_k`>Q2mstDDQ_؂!)_!١] ͱ;IV0qfƙgBGm}z!dF69;"""L ݡըYgj̪1,L.fBRq5cBGB3u̶ƍzTܾ̕Ks]ߒ#0?{&֋eOsV8W-260cChܢq-`x5ׄٳfϚ"",:PDDDDDDDDDDDDO?֚֚VX}EaB -' M\>x٘&x8f/7Bcoaؖ["SCD ѻO'l2#1 xC!ł{!O l4cXjFREG snι9&L?mP(PH`.sֈHj2L8uYv 7S={v*DDDDDDDDDDD^oO_)SΧ7ǤIӦ͞*MEDDDDDDDDDDD^sdLn2&қKoBUU888#lsƯ7;۶};[&讈RD{~N 9E.9Oyl>Ϯ򷗿mޮ{4'""&?[:nuZskͅ}w֖Y[fm(X2d"8q*T& Z@_o M7bj#!`q GwGD%O,RB|3\:&!8fep]ػwax?'G}r4|_®] aptwDDD4("""""""""""~M7}9fȚ!0tqCǁ4iR5r' n~oacAr}gVbZ߽{v_u 68o#]^ty] o6ac6ڸqoLj0^ J|f&O a@(GXO>o-~Zqa U ; 쏭-B'7AP] 䳥X(5򌽌 W\Yse޳z= >.qK)S;țKKK^:3QG0ܤsK/zVC\sVϫKϹ2Un'#|nI1 UbC}/H'lG?)젬aAwot *T*y""""""""""""o8]ݻBSkSkS+9M4(s 0|ha*ڪYsC삻;>cf:w>Q\8l,8;"`4Bzpvp=MTcӳ@Wu=4޴zpۃ59oASSDDDNkB|u,_|000w*U5WX6 {"ˇptWD fg%~_Q̺c@Pۀ> Ln0̋9/*篜r~055utWDDDuWȯ277'?0L>م.  hшk~;t5x4Ͷeq莎[NTw"bGW6O_3gIO'=]w^ak|σ""""1(""""""""""""jV˷Z´~M괫ӮLX4aфE;@θq;_!|(P^#w |ةj::e4 N N '?z5ߚ3[[H|?dhO l2?[dJ| u u u k,оW^{Aw[w[w_]N?aaa2_~CM ^z*sS;~`,<^5wK w*s""m%8n<~9?lݞM!4=v-2%kT <Xg 1 u2_ybu i׉NABi76jG^SSNMj諾_PwUUuWiii""""@q(ݞ=wà5 Z/WZ^iy\FtI{u*ؿi%IE@$DpH_g Z_N.]vncY7%1O; ?w)I<3Ng@%g +4}QG`hh讈ytI'r`ȁ!`EWtwh 9 9 9S/^*Qqxĭ^:ó^-[єGI]Bҩ0@<^AţV{[]` [R/eFC mO>|PJT94(""""""""""""5:::R)R,]z>3pnڹu*NoS'Mֵg5jR֜yXǤ߁}=5$M6| "x5/9 iLcH4KK. .\p-h"y5՜WPPP]""""""""""""b 1CuRK.rʙ+g·.ߺ|.J4$~]Qٕ!jՐ-v=:GY*1I v;{-q-Խ 5Iܪ-ת_+ۮn[iҎiPDDDDDDDDDDDD24;lK_Gab'UW_l~WϳIĄAa[>ȷ.zCUn~3G(GLttD[cm>U w1%ĘnGm9.5Fw;_PC]A[mlr66lXDDDDDDDDDDDD(~w݁1d N^:ydgggs7s7s˳]J^!?,){,BO;f=|K%NutWD~.l+6pR7x0zAO ׭'m?^l^O>]tecY6>s-Zε/ enP#o5vN۝`}gJ+*O;v> Mm[!7߃Z;7I]zYyS$ +g3q^\/0}>QB ^1c>Ǡ N= &N8i"npwtwDDDD `h1Zh8q \rpľľߛ bSĦMÍW}!mַמ48yYp3bIɝzyPbc:W*K"""""""""""""`bbٖf[m) 9搛.Gr'O +l  48r 3F0NrqXU}L5z3C9GwKl,l_ϕ\aOyM!2}Q8LLLԂS N.:v nKܖ-qtWDDDD9 ` )ܲes S&L0[Xla1mok| cןhPDDDDDDDDDDDDwp s s } ˷,߲| T]w`kkܛ 5m |W tp+mB5[@GwGr=o xV}%C1 ;#&E'HWѳ#آbpr ''̶3l Egό9I""""\yN}:6Lh3_i~Dxrg`jbA|Jv(١$t;d9sGwEDDaҤifvt2;|wfQnF9h&_4sv9`/c/cOӬq"]im21=XԹN06}h>b': B,,&\cAHZra-jI-Z&A)S͒7KDDDD64(""""""""""""8q4{RoK-[iSMכ_o~9X3Y3Y3<>)g!v]WƜ ^ۊܫ:25׶p`$۱ { CCG;IC=#7FG~g3<ڳj_\XwtwDDDDgtt"""""""""""""o"Ʈ]Cv klklklcq=Bׅ S1pi{!ϵm {C`-s~1}ݕ7}}-3U}Ju\zˮ(G]_j!y ׎\;riQӢEۋn/ U3VX5"""""/0qԩf.DL٥OZkM`lևmӷM6NG:S^f 4U);3!@ Fy߲}k 7.z(8#O? wYnL<ȑ-G٠܎s;΅nwv|Y讈&M6mlGW!o*(""""""""""""wK,PdYeEϺ6+ *T,(c-壗= N9vp^ Ґ| 9怚ΈwF3 O O OIM=UțJ'z_ ,,,rʡ+GY>Q011I@g~Kv|0?q޲^ cwZ'blZGwWa7D=9C<72`-()nsGGG@Yneݠwz7j 8q:X`IPDDDD( _y~'V[n0M|o)sRy/9?:=rF𯱷7ᚆkM麧d|? e(CL$!^1b8t7ݝt/HFFF,,F+Gl'Kx-pk`{co{9;윳3Yw׺ݕbI3gF5iM69yG[zJY-3Zf$޿z”0%Y{tѵGZkylw ߌiY۲emؒcK%{wjs $s=8`M") raw(gerry) } emayili/man/precedence.Rd0000644000176200001440000000323614611676075015063 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/header-precedence.R \name{precedence} \alias{precedence} \alias{priority} \alias{importance} \title{Add fields for message importance and priority} \usage{ priority(msg, priority = NULL) importance(msg, importance = NULL) } \arguments{ \item{msg}{A message object.} \item{priority}{Priority level. One of \code{"non-urgent"}, \code{"normal"}, or \code{"urgent"}.} \item{importance}{Importance level. One of \code{"low"}, \code{"normal"}, or \code{"high"}.} } \value{ A message object. } \description{ Functions to influence message delivery speed and importance. } \details{ The \code{priority()} function adds the \code{Priority} header field which gives a hint to influence transmission speed and delivery. Valid values are \code{"non-urgent"}, \code{"normal"}, and \code{"urgent"}. The non-standard \code{X-Priority} header field is similar, for which valid values are \code{1} (Highest), \code{2} (High), \code{3} (Normal, the default), \code{4} (Low), and \code{5} (Lowest). The \code{importance()} function adds the \code{Importance} header field, which gives a hint to the message recipient about how important the message is. Does not influence delivery speed. } \examples{ # How rapidly does the message need to be delivered? # envelope() \%>\% subject("Deliver this immediately!") \%>\% priority("urgent") envelope(priority = "non-urgent") \%>\% subject("No rush with this.") # How much attention should be paid by recipient? # envelope() \%>\% subject("Read this immediately!") \%>\% importance("high") envelope(importance = "low") \%>\% subject("Not important at all. Just delete.") } emayili/man/as.character.envelope.Rd0000644000176200001440000000112014611676075017126 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/envelope.R \name{as.character.envelope} \alias{as.character.envelope} \title{Create formatted message.} \usage{ \method{as.character}{envelope}(x, ..., details = TRUE, encode = FALSE) } \arguments{ \item{x}{A message object.} \item{...}{Further arguments passed to or from other methods.} \item{details}{Whether or not to display full message content.} \item{encode}{Whether to encode headers.} } \value{ A formatted message object. } \description{ Accepts a message object and formats it as a MIME document. } emayili/man/envelope.Rd0000644000176200001440000000374014636234570014600 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/envelope.R \name{envelope} \alias{envelope} \title{Create a message.} \usage{ envelope( to = NULL, from = NULL, cc = NULL, bcc = NULL, reply = NULL, subject = NULL, id = NULL, importance = NULL, priority = NULL, text = NULL, html = NULL, encrypt = FALSE, sign = FALSE, public_key = FALSE ) } \arguments{ \item{to}{See \code{\link[=to]{to()}}.} \item{from}{See \code{\link[=from]{from()}}.} \item{cc}{See \code{\link[=cc]{cc()}}.} \item{bcc}{See \code{\link[=bcc]{bcc()}}.} \item{reply}{See \code{\link[=reply]{reply()}}.} \item{subject}{See \code{\link[=subject]{subject()}}.} \item{id}{See \code{\link[=id]{id()}}.} \item{importance}{See \code{\link[=importance]{importance()}}.} \item{priority}{See \code{\link[=priority]{priority()}}.} \item{text}{See \code{\link[=text]{text()}}.} \item{html}{See \code{\link[=html]{html()}}.} \item{encrypt}{Whether to encrypt the message. If \code{TRUE} then the entire message will be encrypted using the private key of the sender.} \item{sign}{Whether to sign the message. If \code{TRUE} then the entire message will be signed using the private key of the sender.} \item{public_key}{Whether to attach a public key. If \code{TRUE} then the public key of the sender will be attached.} } \value{ A message object. } \description{ Create a message. } \examples{ # Create an (empty) message object. # msg <- envelope() # Create a complete message object, specifying all available fields. # envelope( to = "bob@gmail.com", from = "craig@gmail.com", cc = "alex@gmail.com", bcc = "shannon@gmail.com", reply = "craig@yahoo.com", importance = "high", priority = "urgent", subject = "Hiya!", text = "Hi Bob, how are you?" ) } \seealso{ \code{\link[=subject]{subject()}}, \code{\link[=from]{from()}}, \code{\link[=to]{to()}}, \code{\link[=cc]{cc()}}, \code{\link[=bcc]{bcc()}}, \code{\link[=reply]{reply()}} and \code{\link[=encrypt]{encrypt()}}. } emayili/man/as.character.header.Rd0000644000176200001440000000076314611676075016555 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/header.R \name{as.character.header} \alias{as.character.header} \title{Create formatted header.} \usage{ \method{as.character}{header}(x, width = 30, ...) } \arguments{ \item{x}{A header object.} \item{width}{The width of the head name field.} \item{...}{Further arguments passed to or from other methods.} } \value{ A formatted header field. } \description{ Accepts a header object and formats it as a header field. } emayili/man/display.Rd0000644000176200001440000000062714611676075014434 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{display} \alias{display} \title{Extract display name} \usage{ display(addr) } \arguments{ \item{addr}{An \code{address} object.} } \value{ The display name or \code{NA}. } \description{ Extracts the display name from an email address. } \examples{ gerry <- as.address("Gerald ") display(gerry) } emayili/man/cleave.Rd0000644000176200001440000000067014611676075014224 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{cleave} \alias{cleave} \title{Split a compound address object} \usage{ cleave(addr) } \arguments{ \item{addr}{An \code{address} object.} } \value{ A list of \code{address} objects, each of which contains only a single address. } \description{ Split a compound address object } \examples{ cleave(as.address(c("foo@yahoo.com", "bar@yahoo.com"))) } emayili/man/html.Rd0000644000176200001440000000410414611676075013725 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/body.R \name{html} \alias{html} \title{Add an HTML body to a message object.} \usage{ html( msg, content, disposition = "inline", charset = "utf-8", encoding = NA, css_files = c(), language = FALSE, interpolate = TRUE, .open = "{{", .close = "}}", .envir = NULL ) } \arguments{ \item{msg}{A message object.} \item{content}{A string of message content.} \item{disposition}{Should the content be displayed inline or as an attachment? Valid options are \code{"inline"} and \code{"attachment"}. If set to \code{NA} then will guess appropriate value.} \item{charset}{What character set is used. Most often either \code{"UTF-8"} or \code{"ISO-8859-1"}.} \item{encoding}{How content is transformed to ASCII. Options are \code{"7bit"}, \code{"quoted-printable"} and \code{"base64"}. Use \code{NA} or \code{NULL} for no (or "identity") encoding.} \item{css_files}{Extra CSS files.} \item{language}{Language of content. If \code{FALSE} then will not include language field. If \code{TRUE} then will attempt to auto-detect language. Otherwise will use the specified language.} \item{interpolate}{Whether or not to interpolate into input using \link[glue]{glue}.} \item{.open}{The opening delimiter.} \item{.close}{The closing delimiter.} \item{.envir}{Environment used for \code{glue} interpolation. Defaults to \code{parent.frame()}.} } \value{ A message object. } \description{ Add an HTML body to a message object. } \examples{ # Inline HTML message. envelope() \%>\% html("Hello!") # Read HTML message from a file. htmlfile <- tempfile(fileext = ".html") cat("

Hello!

\n", file = htmlfile) envelope() \%>\% html(htmlfile) # You can pass a vector of character. Components will be separated by a # "\n". envelope() \%>\% html(c("Hello", "

World!

")) # You can also pass a tagList from {htmltools}. if (requireNamespace("htmltools", quietly = TRUE)) { library(htmltools) envelope() \%>\% html(tagList(h2("Hello"), p("World!"))) } } \seealso{ \code{\link{text}}, \code{\link{render}} } emayili/man/id.Rd0000644000176200001440000000076014746126101013346 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/header-mail.R \name{id} \alias{id} \title{Set message ID.} \usage{ id(msg, id) } \arguments{ \item{msg}{A message object.} \item{id}{An ID for the message.} } \value{ A message object. } \description{ Set message ID. } \examples{ # Create a message and set the ID msg <- envelope() \%>\% id("1234567890.123456@example.com") # Create a message with specified ID msg <- envelope(id = "1234567890.123456@example.com") } emayili/man/text.Rd0000644000176200001440000000372214611676075013752 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/body.R \name{text} \alias{text} \title{Add a text body to a message.} \usage{ text( msg, content, disposition = "inline", charset = "utf-8", encoding = "7bit", language = FALSE, interpolate = TRUE, .open = "{{", .close = "}}", .envir = NULL ) } \arguments{ \item{msg}{A message object.} \item{content}{A string of message content.} \item{disposition}{Should the content be displayed inline or as an attachment? Valid options are \code{"inline"} and \code{"attachment"}. If set to \code{NA} then will guess appropriate value.} \item{charset}{What character set is used. Most often either \code{"UTF-8"} or \code{"ISO-8859-1"}.} \item{encoding}{How content is transformed to ASCII. Options are \code{"7bit"}, \code{"quoted-printable"} and \code{"base64"}. Use \code{NA} or \code{NULL} for no (or "identity") encoding.} \item{language}{Language of content. If \code{FALSE} then will not include language field. If \code{TRUE} then will attempt to auto-detect language. Otherwise will use the specified language.} \item{interpolate}{Whether or not to interpolate into input using \link[glue]{glue}.} \item{.open}{The opening delimiter.} \item{.close}{The closing delimiter.} \item{.envir}{Environment used for \code{glue} interpolation. Defaults to \code{parent.frame()}.} } \value{ A message object. } \description{ Add \code{text/plain} content to a message. } \details{ The \code{text/plain} format is described in \href{https://www.ietf.org/rfc/rfc2646.txt}{RFC 2646}. Uses \code{glue::glue()} to evaluate expressions enclosed in brackets as R code. } \examples{ msg <- envelope() \%>\% text("Hello!") # Using {glue} interpolation. # name <- "Alice" msg <- envelope() \%>\% text("Hello {name}.") print(msg, details = TRUE) # Disable {glue} interpolation. # msg <- envelope() \%>\% text("This is a set: {1, 2, 3}.", interpolate = FALSE) } \seealso{ \code{\link{html}}, \code{\link{render}} } emayili/man/as.character.MIME.Rd0000644000176200001440000000060214611676075016044 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/mime.R \name{as.character.MIME} \alias{as.character.MIME} \title{Convert MIME object to character vector} \usage{ \method{as.character}{MIME}(x, ...) } \arguments{ \item{x}{MIME object} \item{...}{Further arguments passed to or from other methods.} } \description{ Convert MIME object to character vector } emayili/man/length.address.Rd0000644000176200001440000000050514611676075015667 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/address.R \name{length.address} \alias{length.address} \title{Length of address object} \usage{ \method{length}{address}(x) } \arguments{ \item{x}{An \code{address} object.} } \value{ A character vector. } \description{ Length of address object } emayili/man/keywords.Rd0000644000176200001440000000163214611676075014633 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/header-mail.R \name{keywords} \alias{keywords} \title{Add or query keywords of message.} \usage{ keywords(msg, ..., append = FALSE) } \arguments{ \item{msg}{A message object.} \item{...}{Keywords.} \item{append}{Whether to append or replace keywords.} } \value{ A message object or the comments of the message object (if \code{comments} is \code{NULL}). } \description{ Add or query keywords of message. } \examples{ # Create a message and set the keywords. envelope() \%>\% keywords("newsletter, marketing") envelope() \%>\% keywords("newsletter", "marketing") envelope() \%>\% keywords(c("newsletter", "marketing")) # Retrieve the keywords for a message. msg <- envelope() \%>\% keywords("newsletter, marketing") keywords(msg) } \seealso{ \code{\link{to}}, \code{\link{from}}, \code{\link{cc}}, \code{\link{bcc}} and \code{\link{reply}} } emayili/man/comments.Rd0000644000176200001440000000120414611676075014604 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/header-mail.R \name{comments} \alias{comments} \title{Add or query comments of message.} \usage{ comments(msg, comments = NULL) } \arguments{ \item{msg}{A message object.} \item{comments}{Comments for the message.} } \value{ A message object or the comments of the message object (if \code{comments} is \code{NULL}). } \description{ Add or query comments of message. } \examples{ # Create a message and set the comments. msg <- envelope() \%>\% comments("This is a comment") # Retrieve the comments for a message. comments(msg) } \seealso{ \code{\link{subject}} } emayili/man/template.Rd0000644000176200001440000000267714611676075014611 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/template.R \name{template} \alias{template} \title{Add message body from template} \usage{ template(msg, .name, ..., .envir = parent.frame()) } \arguments{ \item{msg}{A message object.} \item{.name}{A template name. This can be provided as either: (i) the name of a template that's baked into the package, (ii) a relative path or (iii) an absolute path. The paths must be for the directory containing the template files, not the files themselves.} \item{...}{Variables for substitution.} \item{.envir}{Environment for substitution.} } \value{ A message object. } \description{ Variables given as named arguments will override any variables in the environment with the same name. } \details{ Will probably not get variables from environment if used as part of a pipeline. In this case might need to use the \code{\%|>\%} (nested pipe) operator. } \examples{ # Use a builtin template. envelope() \%>\% template( "newsletter", title = "A Sample Newsletter", articles = list( list( "title" = "Article (with date)", "content" = as.list("Vivamus, justo quisque, sed."), "date" = "1 January 2022" ), list( "title" = "Another Article (without date)", "content" = as.list("Quam lorem sed metus egestas.") ) ) ) # Use a custom local template. \dontrun{ envelope() \%>\% template("./templates/custom-template") } } emayili/DESCRIPTION0000644000176200001440000000473214751316262013426 0ustar liggesusersType: Package Package: emayili Title: Send Email Messages Version: 0.9.3 Authors@R: c(person(given = c("Andrew", "B."), family = "Collier", role = c("aut", "cre", "cph"), email = "andrew.b.collier@gmail.com"), person(given = "Matt", family = "Dennis", role = "ctb", email = "matt@fathomdata.dev"), person(given = "Antoine", family = "Bichat", role = "ctb", email = "a.bichat@yahoo.fr", comment = c(ORCID = "0000-0001-6599-7081")), person(given = "Daniel", family = "Fahey", role = "ctb", email = "dpfahey@gmail.com"), person(given = c("Johann", "R."), family = "Kleinbub", role = "ctb", email = "johann.kleinbub@gmail.com"), person(given = c("Panagiotis"), family = "Moulos", role = "ctb", email = "pmoulos@gmail.com"), person(given = "Swechhya", family = "Bista", role = "ctb", email = "swechhyabista@gmail.com"), person(given = "Colin", family = "Fay", role = "ctb", email = "contact@colinfay.me", comment = c(ORCID = "0000-0001-7343-1846"))) Description: A light, simple tool for sending emails with minimal dependencies. URL: https://datawookie.github.io/emayili/ BugReports: https://github.com/datawookie/emayili/issues License: GPL-3 Language: en-GB Imports: base64enc, commonmark, curl (>= 4.0), digest, dplyr, glue, htmltools, httr, logger, magrittr (>= 2.0.1), mime, purrr, rmarkdown, rvest, stringi, stringr, tidyr, urltools, xfun, xml2 Suggests: cld2, cld3, gpg, here, jinjar, lintr, memoise, testthat (>= 2.1.0), roxygen2, showtext, Microsoft365R SystemRequirements: The function render() requires Pandoc (http://pandoc.org). To use PGP/GnuPG encryption requires gpg. Encoding: UTF-8 RoxygenNote: 7.3.2 KeepSource: true NeedsCompilation: no Packaged: 2025-02-07 05:18:37 UTC; wookie Author: Andrew B. Collier [aut, cre, cph], Matt Dennis [ctb], Antoine Bichat [ctb] (), Daniel Fahey [ctb], Johann R. Kleinbub [ctb], Panagiotis Moulos [ctb], Swechhya Bista [ctb], Colin Fay [ctb] () Maintainer: Andrew B. Collier Repository: CRAN Date/Publication: 2025-02-07 05:40:02 UTC