blob: 89de1ff80d1c830e7839ee1a1b51f285c651d945 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
" Vim syntax file
" Language: fetchmail(1) RC File
" Maintainer: Nikolai Weibull <now@bitwi.se>
" Latest Revision: 2006-04-19
if exists("b:current_syntax")
finish
endif
let s:cpo_save = &cpo
set cpo&vim
syn keyword fetchmailTodo contained FIXME TODO XXX NOTE
syn region fetchmailComment start='#' end='$' contains=fetchmailTodo,@Spell
syn match fetchmailNumber display '\<\d\+\>'
syn region fetchmailString start=+"+ skip=+\\\\\|\\"+ end=+"+
\ contains=fetchmailStringEsc
syn region fetchmailString start=+'+ skip=+\\\\\|\\'+ end=+'+
\ contains=fetchmailStringEsc
syn match fetchmailStringEsc contained '\\\([ntb]\|0\d*\|x\x\+\)'
syn region fetchmailKeyword transparent matchgroup=fetchmailKeyword
\ start='\<poll\|skip\|defaults\>'
\ end='\<poll\|skip\|defaults\>'
\ contains=ALLBUT,fetchmailOptions,fetchmailSet
syn keyword fetchmailServerOpts contained via proto[col] local[domains] port
\ auth[enticate] timeout envelope qvirtual aka
\ interface monitor plugin plugout dns
\ checkalias uidl interval netsec principal
\ esmtpname esmtppassword
\ sslcertck sslcertpath sslfingerprint
syn match fetchmailServerOpts contained '\<no\_s\+\(envelope\|dns\|checkalias\|uidl\)'
syn keyword fetchmailUserOpts contained user[name] is to pass[word] ssl
\ sslcert sslkey sslproto folder smtphost
\ fetchdomains smtpaddress smtpname antispam
\ mda bsmtp preconnect postconnect keep flush
\ fetchall rewrite stripcr forcecr pass8bits
\ dropstatus dropdelivered mimedecode idle
\ limit warnings batchlimit fetchlimit expunge
\ tracepolls properties
syn match fetchmailUserOpts contained '\<no\_s\+\(keep\|flush\|fetchall\|rewrite\|stripcr\|forcecr\|pass8bits\|dropstatus\|dropdelivered\|mimedecode\|noidle\)'
syn keyword fetchmailSpecial contained here there
syn keyword fetchmailNoise and with has wants options
syn match fetchmailNoise display '[:;,]'
syn keyword fetchmailSet nextgroup=fetchmailOptions skipwhite skipnl set
syn keyword fetchmailOptions daemon postmaster bouncemail spambounce logfile
\ idfile syslog nosyslog properties
syn match fetchmailOptions '\<no\_s\+\(bouncemail\|spambounce\)'
hi def link fetchmailComment Comment
hi def link fetchmailTodo Todo
hi def link fetchmailNumber Number
hi def link fetchmailString String
hi def link fetchmailStringEsc SpecialChar
hi def link fetchmailKeyword Keyword
hi def link fetchmailServerOpts Identifier
hi def link fetchmailUserOpts Identifier
hi def link fetchmailSpecial Special
hi def link fetchmailSet Keyword
hi def link fetchmailOptions Identifier
let b:current_syntax = "fetchmail"
let &cpo = s:cpo_save
unlet s:cpo_save
|
