feat(mail): improve vim-mail plugin

autoload/SpaceVim/api/data/quopri.vim

@@ -0,0 +1,17 @@
+let s:self = {}
+
+
+function! s:self.decode(str) abort
+  
+endfunction
+
+function! s:self.encode(str) abort
+  
+endfunction
+
+
+function! SpaceVim#api#data#quopri#get() abort
+
+  return deepcopy(s:self)
+
+endfunction

autoload/SpaceVim/layers/mail.vim

@@ -48,7 +48,7 @@ endfunction
 
 function! SpaceVim#layers#mail#config() abort
     call SpaceVim#mapping#space#def('nnoremap', ['a', 'm'], 'call mail#client#open()', 'Start mail client', 1)
-    let g:mail_imap_host = s:imap_port
+    let g:mail_imap_host = s:imap_host
     let g:mail_imap_port = s:imap_port
     let g:mail_imap_login = s:imap_login
     let g:mail_imap_password = s:imap_password

bundle/vim-mail/autoload/mail/client.vim

@@ -4,15 +4,21 @@ let s:job_noop_timer = ''
 let s:JOB = SpaceVim#api#import('job')
 
 function! mail#client#connect(ip, port)
-  let argv = ['telnet', a:ip, a:port]
-  let s:job_id = s:JOB.start(argv,
+  if has('nvim')
+    let s:job_id = sockconnect('tcp', a:ip . ':' . a:port,
           \ {
-          \ 'on_stdout' : function('s:on_stdout'),
-          \ 'on_stderr' : function('s:on_stderr'),
-          \ 'on_exit' : function('s:on_exit'),
+            \ 'on_data' : function('s:on_stdout'),
             \ }
             \ )
-  call mail#client#logger#info('mail client job id:' . s:job_id)
+    call mail#logger#info('mail client job id:' . s:job_id)
+  else
+    let s:job_channel = ch_open(a:ip . ':' . a:port,
+          \ {
+            \ 'callback' : function('s:data_handle'),
+            \ }
+            \ )
+    call mail#logger#info('mail client job channel:' . s:job_channel)
+  endif
 endfunction
 
 " Wed, 06 Sep 2017 02:55:41 +0000  ===> 2017-09-06
@@ -37,10 +43,13 @@ let s:_mail_from = ''
 let s:_mail_subject = ''
 let s:mail_unseen = 0
 
-function! s:parser(data) abort
-  if type(a:data) == 3
+function! s:data_handle(...) abort
+  call s:on_stdout(1,1, [a:1])
+endfunction
+
+function! s:on_stdout(id, data, event) abort
   for data in a:data
-      call mail#client#logger#info('STDOUT: ' . data)
+    call mail#logger#info('STDOUT: ' . data)
     if data =~ '^\* \d\+ FETCH '
       let s:_mail_id = matchstr(data, '\d\+')
     elseif data =~ '^From: '
@@ -53,28 +62,25 @@ function! s:parser(data) abort
       call mail#client#mailbox#updatedir(s:_mail_id, s:_mail_from, s:_mail_date, s:_mail_subject, mail#client#win#currentDir())
     elseif data =~ '* STATUS INBOX'
       let s:mail_unseen = matchstr(data, '\d\+')
+    elseif data =~# '* OK Coremail System IMap Server Ready'
+      call mail#client#send(mail#command#login(g:mail_imap_login, g:mail_imap_password))
+      call mail#client#send(mail#command#select(mail#client#win#currentDir()))
+      call mail#client#send(mail#command#fetch('1:15', 'BODY[HEADER.FIELDS ("DATE" "FROM" "SUBJECT")]'))
+      call mail#client#send(mail#command#status('INBOX', '["RECENT"]'))
+      let s:job_noop_timer = timer_start(20000, function('s:noop'), {'repeat' : -1})
     endif
   endfor
-  else
-    echom a:data
-  endif
-endfunction
-
-function! s:on_stdout(id, data, event) abort
-  call mail#client#logger#info('STDOUT: ' . string(a:data))
-  call s:parser(a:data)
 endfunction
 
 
 
 function! s:on_stderr(id, data, event) abort
   for data in a:data
-    call mail#client#logger#error('STDERR: ' . data)
+    call mail#logger#error('STDERR: ' . data)
   endfor
 endfunction
 
 function! s:on_exit(id, data, event) abort
-  call s:parser(a:data)
   let s:job_id = 0
   if !empty(s:job_noop_timer)
     call timer_stop(s:job_noop_timer)
@@ -84,11 +90,15 @@ endfunction
 
 
 function! mail#client#send(command)
-  call mail#client#logger#info('Send command: ' . a:command)
+  call mail#logger#info('Send command: ' . a:command)
+  if has('nvim')
     if s:job_id >= 0
-    call s:JOB.send(s:job_id, a:command)   
+      call chansend(s:job_id, [a:command, ''])
     else
-    call mail#client#logger#info('skipped!, job id is:' . s:job_id)
+      call mail#logger#info('skipped!, job id is:' . s:job_id)
+    endif
+  else
+    call ch_sendraw(s:job_channel, a:command . "\n")
   endif
 endfunction
 
@@ -96,11 +106,6 @@ function! mail#client#open()
   if s:job_id == 0
     if !empty(g:mail_imap_login) && !empty(g:mail_imap_password)
       call mail#client#connect(g:mail_imap_host, g:mail_imap_port)
-      call mail#client#send(mail#command#login(g:mail_imap_login, g:mail_imap_password))
-      call mail#client#send(mail#command#select(mail#client#win#currentDir()))
-      call mail#client#send(mail#command#fetch('1:15', 'BODY[HEADER.FIELDS ("DATE" "FROM" "SUBJECT")]'))
-      call mail#client#send(mail#command#status('INBOX', '["RECENT"]'))
-      let s:job_noop_timer = timer_start(20000, function('s:noop'), {'repeat' : -1})
     endif
   endif
   call mail#client#win#open()

bundle/vim-mail/autoload/mail/client/logger.vim

@@ -1,15 +0,0 @@
-let s:LOGGER =SpaceVim#logger#derive('mail')
-
-function! mail#client#logger#info(msg)
-  call s:LOGGER.info(a:msg)
-endfunction
-
-function! mail#client#logger#error(msg)
-  call s:LOGGER.error(a:msg)
-endfunction
-
-function! mail#client#logger#warn(msg)
-
-  call s:LOGGER.warn(a:msg)
-  
-endfunction

bundle/vim-mail/autoload/mail/client/win.vim

@@ -2,6 +2,9 @@
 "
 
 let s:BUFFER = SpaceVim#api#import('vim#buffer')
+let s:BASE64 = SpaceVim#api#import('data#base64')
+let s:QUOPRI = SpaceVim#api#import('data#quopri')
+let s:ICONV = SpaceVim#api#import('iconv')
 
 
 let s:bufnr = -1
@@ -27,12 +30,39 @@ function! mail#client#win#currentDir()
   return s:win_dir
 endfunction
 
+" =?<charset>?<encoding>?<encoded-text>?=
+" '=?UTF-8?B?VGhpcyBpcyBhIGhvcnNleTog8J+Qjg==?='
+function! s:encode(str) abort
+  " line endings (^M), strip these characters.
+  let origin_str = substitute(a:str, '\r', '', 'g')
+  let target_str = ''
+  let id = 0
+  while !empty(matchstr(origin_str, '^=?[^?]*?[^?]*?[^?]*?='))
+    let id += 1
+    let str = matchstr(origin_str, '^=?[^?]*?[^?]*?[^?]*?=')
+    let origin_str = substitute(origin_str, '^=?[^?]*?[^?]*?[^?]*?=', '', '')
+    let charset = matchstr(str, '^=?\zs[^?]*')
+    let encoding = matchstr(str, '^=?[^?]*?\zs[^?]*')
+    let text = matchstr(str, '^=?[^?]*?[^?]*?\zs[^?]*')
+    if encoding ==? 'b'
+      let text = s:BASE64.decode(text)
+      let target_str .= iconv(text, charset, 'utf-8')
+    elseif encoding ==? 'q' && 0
+      let text = s:QUOPRI.decode(text)
+      let target_str .= text
+    else
+      let target_str .= str
+    endif
+  endwhile
+  return target_str . origin_str
+endfunction
+
 
 function! s:refresh() abort
   let mails = mail#client#mailbox#get(s:win_dir)
   let lines = ['DATA       FROM                                                SUBJECT']
   for id in keys(mails)
-        call add(lines, mails[id]['data'] . '  ' . mails[id]['from'] . '  ' . mails[id]['subject'])
+    call add(lines, mails[id]['data'] . '  ' . s:encode(mails[id]['from']) . '  ' . s:encode(mails[id]['subject']))
   endfor
   call setbufvar(s:bufnr, '&modifiable', 1)
   call s:BUFFER.buf_set_lines(s:bufnr, 0, len(lines), 0, lines)