You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

387 regels
14 KiB

  1. #!/bin/sh
  2. prefix="/usr/local"
  3. maildir="${XDG_DATA_HOME:-$HOME/.local/share}/mail"
  4. muttshare="$prefix/share/mutt-wizard"
  5. cachedir="${XDG_CACHE_HOME:-$HOME/.cache}/mutt-wizard"
  6. muttrc="${XDG_CONFIG_HOME:-$HOME/.config}/mutt/muttrc"
  7. accdir="${XDG_CONFIG_HOME:-$HOME/.config}/mutt/accounts"
  8. msmtprc="${XDG_CONFIG_HOME:-$HOME/.config}/msmtp/config"
  9. msmtplog="${XDG_CACHE_HOME:-$HOME/.cache}/msmtp/msmtp.log"
  10. mbsyncrc="${MBSYNCRC:-$HOME/.mbsyncrc}"
  11. mpoprc="${XDG_CONFIG_HOME:-$HOME/.config}/mpop/config"
  12. alias mbsync='mbsync -c "$mbsyncrc"'
  13. # On Ubuntu/Debian, a link is needed since they use an older version.
  14. if command -V apt-get >/dev/null 2>&1; then
  15. master="Master"
  16. slave="Slave"
  17. fi
  18. for x in "/etc/ssl/certs/ca-certificates.crt" \
  19. "/etc/pki/tls/certs/ca-bundle.crt" "/etc/ssl/cert.pem" \
  20. "/etc/ssl/ca-bundle.pem" "/etc/pki/tls/cacert.pem" \
  21. "/etc/pki/ca-trust/extracted/pem/tls-ca-bundle.pem" \
  22. "/usr/local/share/ca-certificates/"; do
  23. [ -f "$x" ] && sslcert="$x" && break
  24. done || { echo "CA Certificate not found. Please install one or link it to /etc/ssl/certs/ca-certificates.crt" && exit 1 ;}
  25. checkbasics() { command -V gpg >/dev/null 2>&1 && GPG="gpg" || GPG="gpg2"
  26. PASSWORD_STORE_DIR="${PASSWORD_STORE_DIR:-$HOME/.password-store}"
  27. [ -r "$PASSWORD_STORE_DIR/.gpg-id" ] || {
  28. echo "First run \`pass init <yourgpgemail>\` to set up a password archive."
  29. echo "(If you don't already have a GPG key pair, first run \`$GPG --full-generate-key\`.)"
  30. exit 1 ;} ;}
  31. getaccounts() { accounts="$(find -L "$accdir" -type f 2>/dev/null | grep -o "\S*.muttrc" | sed "s|.*/\([0-9]-\)*||;s/\.muttrc$//" | nl)" ;}
  32. list() { getaccounts && [ -n "$accounts" ] && echo "$accounts" || exit 1 ;}
  33. prepmsmtp() { mkdir -p "${msmtprc%/*}" "${msmtplog%/*}"
  34. ln -s "$msmtprc" "$HOME/.msmtprc" 2>/dev/null
  35. echo "account $fulladdr
  36. host $smtp
  37. port ${sport:-465}
  38. from $fulladdr
  39. user $login
  40. passwordeval \"pass $passprefix$fulladdr\"
  41. auth ${auth:-on}
  42. tls on
  43. tls_trust_file $sslcert
  44. logfile $msmtplog
  45. ${tlsline:-tls_starttls off}
  46. " >> "$msmtprc"
  47. }
  48. prepmbsync() { mkdir -p "${mbsyncrc%/*}"
  49. echo "
  50. IMAPStore $fulladdr-remote
  51. Host $imap
  52. Port ${iport:-993}
  53. User $login
  54. PassCmd \"pass $passprefix$fulladdr\"
  55. AuthMechs LOGIN
  56. SSLType ${imapssl:-IMAPS}
  57. CertificateFile $sslcert
  58. MaildirStore $fulladdr-local
  59. Subfolders Verbatim
  60. Path ${XDG_DATA_HOME:-$HOME/.local/share}/mail/$fulladdr/
  61. Inbox ${XDG_DATA_HOME:-$HOME/.local/share}/mail/$fulladdr/${inbox:-INBOX}
  62. Channel $fulladdr
  63. Expunge Both
  64. ${master:-Far} :$fulladdr-remote:
  65. ${slave:-Near} :$fulladdr-local:
  66. Patterns * !\"[Gmail]/All Mail\"
  67. Create Both
  68. SyncState *
  69. MaxMessages ${maxmes:-0}
  70. ExpireUnread no
  71. # End profile
  72. " >> "$mbsyncrc" ;}
  73. prepmpop() { mkdir -p "${mpoprc%/*}"
  74. echo "
  75. account $fulladdr
  76. tls on
  77. user $login
  78. host $imap
  79. delivery maildir ${XDG_DATA_HOME:-$HOME/.local/share}/mail/$fulladdr/${inbox:-INBOX}
  80. passwordeval pass $passprefix$fulladdr
  81. " >> "$mpoprc" ;}
  82. prepmutt() { mkdir -p "${muttrc%/*}" "$accdir"
  83. echo "# vim: filetype=neomuttrc
  84. # muttrc file for account $fulladdr
  85. set realname = \"$realname\"
  86. set from = \"$fulladdr\"
  87. set sendmail = \"msmtp -a $fulladdr\"
  88. alias me $realname <$fulladdr>
  89. set folder = \"$folder\"
  90. set header_cache = $cachedir/$fulladdr/headers
  91. set message_cachedir = $cachedir/$fulladdr/bodies
  92. set mbox_type = Maildir
  93. set hostname = \"$hostname\"
  94. source $muttshare/switch.muttrc
  95. set spoolfile = "+INBOX"
  96. set postponed = "+Drafts"
  97. set trash = "+Trash"
  98. set record = "+Sent"
  99. $extra
  100. $synccmd
  101. macro index \eg \"<enter-command>unset wait_key<enter><shell-escape>gpg --list-secret-keys; printf 'Enter email ID of user to publish: '; read eID; printf 'Enter fingerprint of GPG key to publish: '; read eFGPT; $prefix/libexec/gpg-wks-client --create \\\$eFGPT \\\$eID | msmtp --read-envelope-from --read-recipients -a $fulladdr<enter>\" \"publish GPG key to WKS provider\"
  102. macro index \eh \"<pipe-message>$prefix/libexec/gpg-wks-client --receive | msmtp --read-envelope-from --read-recipients -a $fulladdr<enter>\" \"confirm GPG publication\"
  103. " > "$accdir/$fulladdr.muttrc"
  104. [ ! -f "$muttrc" ] && echo "# vim: filetype=neomuttrc" > "$muttrc"
  105. ! grep -q "^source.*mutt-wizard.muttrc" "$muttrc" && echo "source $muttshare/mutt-wizard.muttrc" >> "$muttrc"
  106. ! grep "^source.*.muttrc" "$muttrc" | grep -qv "$muttshare/mutt-wizard.muttrc" && echo "source $accdir/$fulladdr.muttrc" >> "$muttrc"
  107. echo "macro index,pager i$idnum '<sync-mailbox><enter-command>source $accdir/$fulladdr.muttrc<enter><change-folder>!<enter>;<check-stats>' \"switch to $fulladdr\"" >> "$muttrc"
  108. }
  109. getprofiles() { \
  110. case "$iport" in
  111. 1143) imapssl=None ;;
  112. 143) imapssl=STARTTLS ;;
  113. esac
  114. case "$type" in
  115. online) folder="imaps://$login@$imap:${iport:-993}"
  116. extra="set imap_user = \"$login\"
  117. set imap_pass = \"\`pass $passprefix$fulladdr\`\"
  118. set ssl_starttls = yes
  119. set ssl_force_tls = yes"
  120. ;;
  121. pop) synccmd="macro index o \"<shell-escape>mpop $fulladdr<enter>\" \"run mpop to get $fulladdr's mail\""
  122. folder="$maildir/$fulladdr"
  123. prepmpop ;;
  124. *) synccmd="macro index o \"<shell-escape>mw -y $fulladdr<enter>\" \"run mbsync to sync $fulladdr\""
  125. folder="$maildir/$fulladdr"
  126. prepmbsync ;;
  127. esac
  128. prepmsmtp
  129. prepmutt
  130. prepnotmuch # Create a notmuch config file if not present already.
  131. }
  132. parsedomains(){ serverinfo="$(grep "^${fulladdr#*@}" "$muttshare/domains.csv" 2>/dev/null)"
  133. [ -z "$serverinfo" ] && serverinfo="$(grep "$(echo "${fulladdr#*@}" | sed "s/\.[^\.]*$/\.\\\*/")" "$muttshare/domains.csv" 2>/dev/null)"
  134. IFS=, read -r service imapsugg iportsugg smtpsugg sportsugg <<EOF
  135. $serverinfo
  136. EOF
  137. imap="${imap:-$imapsugg}"
  138. smtp="${smtp:-$smtpsugg}"
  139. sport="${sport:-$sportsugg}"
  140. iport="${iport:-$iportsugg}"
  141. }
  142. delete() { if [ -z "${fulladdr+x}" ]; then
  143. echo "Select the account you would like to delete (by number):"
  144. list || exit 1
  145. read -r input
  146. match="^\s*$input\s\+"
  147. else
  148. match="\s\+$fulladdr$"
  149. getaccounts
  150. fi
  151. fulladdr="$(echo "$accounts" | grep "$match" | grep -o "\S*@\S*")"
  152. [ -z "$fulladdr" ] && echo "$fulladdr is not a valid account name." && return 1
  153. sed -ibu "/IMAPStore $fulladdr-remote$/,/# End profile/d" "$mbsyncrc" 2>/dev/null ; rm -f "$mbsyncrc"bu
  154. rm -rf "${cachedir:?}/${fulladdr:?}" "$accdir/$fulladdr.muttrc" "$accdir/"[0-9]-"$fulladdr.muttrc"
  155. sed -ibu "/\([0-9]-\)\?$fulladdr.muttrc/d" "$muttrc" 2>/dev/null; rm -f "$muttrc"bu
  156. sed -ibu "/account $fulladdr$/,/^\(\s*$\|account\)/d" "$msmtprc" 2>/dev/null; rm -f "$msmtprc"bu
  157. sed -ibu "/account $fulladdr$/,/^\(\s*$\|account\)/d" "$mpoprc" 2>/dev/null; rm -f "$mpoprc"bu
  158. pass rm -f "$passprefix$fulladdr" >/dev/null 2>&1
  159. [ -n "${purge+x}" ] && rm -rf "${maildir:?}/${fulladdr:?}"
  160. for file in "$msmtprc" "$mbsyncrc" "$mpoprc"; do
  161. sed -ibu 'N;/^\n$/D;P;D;' "$file" 2>/dev/null; rm -f "$file"bu
  162. done
  163. }
  164. askinfo() { \
  165. [ -z "$fulladdr" ] && echo "Give the full email address to add:" &&
  166. read -r fulladdr
  167. while ! echo "$fulladdr" | grep -qE "^.+@.+\.[A-Za-z]+$"; do
  168. echo "$fulladdr is not a valid email address. Please retype the address:"
  169. read -r fulladdr
  170. done
  171. getaccounts; echo "$accounts" | grep -q "\s$fulladdr$" 2>/dev/null &&
  172. { echo "$fulladdr has already been added" && exit 1 ;}
  173. { [ -z "$imap" ] || [ -z "$smtp" ] ;} && parsedomains
  174. [ -z "$imap" ] && echo "Give your email server's IMAP address (excluding the port number):" &&
  175. read -r imap
  176. [ -z "$smtp" ] && echo "Give your email server's SMTP address (excluding the port number):" &&
  177. read -r smtp
  178. [ "$sport" = 587 ] && tlsline="# tls_starttls"
  179. [ -z "$realname" ] && realname="${fulladdr%%@*}"
  180. [ -z "$passprefix" ] && passprefix=""
  181. hostname="${fulladdr#*@}"
  182. login="${login:-$fulladdr}"
  183. if [ -n "${password+x}" ]; then
  184. createpass
  185. else
  186. getpass
  187. fi
  188. }
  189. createpass() { echo "$password" > "$PASSWORD_STORE_DIR/$passprefix$fulladdr"
  190. "$GPG" -qe $(printf -- " -r %s" $(cat "$PASSWORD_STORE_DIR/.gpg-id")) "$PASSWORD_STORE_DIR/$passprefix$fulladdr"
  191. rm -f "$PASSWORD_STORE_DIR/$passprefix$fulladdr" ;}
  192. errorexit() {
  193. echo "Log-on not successful."
  194. case "$imap" in
  195. imap.gmail.com)
  196. echo "This account with $service is using Google's Gmail servers, which disable all third-party applications without an application-specific password.
  197. Please be sure you are using OAUTH with your Gmail account, or better yet, stop using Gmail."
  198. ;;
  199. imap.mail.me.com)
  200. echo "This account with $service is using Apple's iCloud servers, which disable all non-Apple applications by default.
  201. Please be sure you either enable third-party applications, or create an app-specific password, or best of all, stop using Apple."
  202. ;;
  203. esac
  204. exit 1
  205. }
  206. getpass() { while : ; do pass rm -f "$passprefix$fulladdr" >/dev/null 2>&1
  207. pass insert -f "$passprefix$fulladdr" && break; done ;}
  208. getboxes() { if [ -n "${force+x}" ] ; then
  209. mailboxes="$(printf "INBOX\\nDrafts\\nJunk\\nTrash\\nSent\\nArchive")"
  210. else
  211. info="$(curl --location-trusted -s -m 5 --user "$login:$(pass "$passprefix$fulladdr")" --url "${protocol:-imaps}://$imap:${iport:-993}")"
  212. [ -z "$info" ] && errorexit
  213. mailboxes="$(echo "$info" | grep -v HasChildren | sed "s/.*\" //;s/\"//g" | tr -d '\r')"
  214. fi
  215. [ "$type" = "pop" ] && mailboxes="INBOX"
  216. for x in $(sed -n "/^macro.* i[0-9] / s/\(^macro.* i\| .*\)//gp " "$muttrc" 2>/dev/null | sort -u; echo 0); do
  217. idnum=$((idnum + 1))
  218. [ "$idnum" -eq "$x" ] || break
  219. done
  220. toappend="mailboxes $(echo "$mailboxes" | sed "s/^/\"=/;s/$/\"/;s/'/\\\'/g" | paste -sd ' ' - )"
  221. }
  222. finalize() { echo "$toappend" >> "$accdir/$fulladdr.muttrc"
  223. [ "$type" != "online" ] && echo "$mailboxes" | xargs -I {} mkdir -p "$maildir/$fulladdr/{}/cur" "$maildir/$fulladdr/{}/tmp" "$maildir/$fulladdr/{}/new"
  224. echo "$fulladdr (account #$idnum) added successfully."
  225. command -V urlview >/dev/null 2>&1 && [ ! -f "$HOME/.urlview" ] && echo "COMMAND \$BROWSER" > "$HOME/.urlview"
  226. return 0 ;}
  227. prepnotmuch() { \
  228. [ -z "$NOTMUCH_CONFIG" ] && NOTMUCH_CONFIG="$HOME/.notmuch-config"
  229. [ -f "$NOTMUCH_CONFIG" ] && return 0
  230. echo "[database]
  231. path=$maildir
  232. [user]
  233. name=$realname
  234. primary_email=$fulladdr
  235. [new]
  236. tags=unread;inbox;
  237. ignore=.mbsyncstate;.uidvalidity
  238. [search]
  239. exclude_tags=deleted;spam;
  240. [maildir]
  241. synchronize_flags=true
  242. [crypto]
  243. gpg_path=$GPG" > "$NOTMUCH_CONFIG" ;}
  244. togglecron() { cron="$(mktemp)"
  245. crontab -l > "$cron"
  246. if grep -q mailsync "$cron"; then
  247. echo "Removing automatic mailsync..."
  248. sed -ibu /mailsync/d "$cron"; rm -f "$cron"bu
  249. else
  250. echo "Adding automatic mailsync every ${cronmin:-10} minutes..."
  251. echo "*/${cronmin:-10} * * * * $prefix/bin/mailsync -q" >> "$cron"
  252. fi &&
  253. crontab "$cron"; rm -f "$cron" ;}
  254. setact() { if [ -n "${action+x}" ] && [ "$action" != "$1" ]; then
  255. echo "Running $1 with $action..."
  256. echo "Incompatible options given. Only one action may be specified per run."
  257. return 1
  258. else
  259. action="$1"
  260. fi; }
  261. mwinfo() { cat << EOF
  262. mw: mutt-wizard, auto-configure email accounts for mutt
  263. including downloadable mail with \`isync\`.
  264. Main actions:
  265. -a your@email.com Add an email address
  266. -l List email addresses configured
  267. -d Remove an already added address
  268. -D your@email.com Force remove account without confirmation
  269. -y your@email.com Sync mail for account by name
  270. -Y Sync mail for all accounts
  271. -t number Toggle automatic mailsync every <number> minutes
  272. -T Toggle automatic mailsync
  273. -r Reorder account numbers
  274. Options allowed with -a:
  275. -u Account login name if not full address
  276. -n "Real name" to be on the email account
  277. -i IMAP/POP server address
  278. -I IMAP/POP server port
  279. -s SMTP server address
  280. -S SMTP server port
  281. -x Password for account (recommended to be in double quotes)
  282. -P Pass Prefix (prefix of the file where password is stored)
  283. -p Add for a POP server instead of IMAP.
  284. -X Delete an account's local email too when deleting.
  285. -o Configure address, but keep mail online.
  286. -f Assume typical English mailboxes without attempting log-on.
  287. NOTE: Once at least one account is added, you can run
  288. \`mbsync -a\` to begin downloading mail.
  289. To change an account's password, run \`pass edit '$passprefix'your@email.com\`.
  290. EOF
  291. }
  292. reorder() {
  293. tempfile="$(mktemp -u)"
  294. trap 'rm -f $tempfile' HUP INT QUIT TERM PWR EXIT
  295. echo "# Carefully reorder these accounts with the desired numbers in the first column.
  296. # DO NOT reorder rows or rename the accounts in the second column." > "$tempfile"
  297. sed -n "
  298. / i[0-9] / s?\(.* i\|'<sync.*/\|\.muttrc.*\)??g p
  299. " "$muttrc" >> "$tempfile"
  300. ${EDITOR:-vim} "$tempfile" || exit 1
  301. sed -i -e 's/#.*//' -e '/^$/d' "$tempfile"
  302. default="$(sort -n "$tempfile" | head -n 1)"
  303. default="${default#* }"
  304. sed -ibu "
  305. /.* i[0-9] .*.muttrc/d
  306. /^source.*accounts.*.muttrc/d
  307. " "$muttrc" 2>/dev/null; rm -f "$muttrc"bu
  308. awk -v a="$accdir" -v d="$default" ' BEGIN { print "source "a"/"d".muttrc" }
  309. {
  310. print "macro index,pager i"$1" '\''<sync-mailbox><enter-command>source "a"/"$2".muttrc<enter><change-folder>!<enter>;<check-stats>'\'' \"switch to "$2"\""
  311. }
  312. ' "$tempfile" >> "$muttrc"
  313. }
  314. while getopts "rfpXlhodTYD:y:i:I:s:S:u:a:n:P:x:m:t:" o; do case "${o}" in
  315. l) setact list || exit 1 ;;
  316. r) setact reorder || exit 1 ;;
  317. d) setact delete || exit 1 ;;
  318. D) setact delete || exit 1 ; fulladdr="$OPTARG" ;;
  319. y) setact sync || exit 1 ; fulladdr="$OPTARG" ;;
  320. Y) setact sync || exit 1 ;;
  321. a) setact add || exit 1 ; fulladdr="$OPTARG" ;;
  322. i) setact add || exit 1 ; imap="$OPTARG" ;;
  323. I) setact add || exit 1 ; iport="$OPTARG" ;;
  324. s) setact add || exit 1 ; smtp="$OPTARG" ;;
  325. S) setact add || exit 1 ; sport="$OPTARG" ;;
  326. u) setact add || exit 1 ; login="$OPTARG" ;;
  327. n) setact add || exit 1 ; realname="$OPTARG" ;;
  328. P) setact add || exit 1 ; passprefix="$OPTARG" ;;
  329. m) setact add || exit 1 ; maxmes="$OPTARG" ;;
  330. o) setact add || exit 1 ; type="online" ;;
  331. p) setact add || exit 1 ; type="pop"; protocol="pop3s" ; iport="${iport:-995}" ;;
  332. f) setact add || exit 1 ; force=True ;;
  333. x) setact add || exit 1 ; password="$OPTARG" ;;
  334. X) setact delete || exit 1 ; purge=True ;;
  335. t) setact toggle || exit 1 ; cronmin="$OPTARG" ;;
  336. T) setact toggle || exit 1 ;;
  337. *) mwinfo; exit 1 ;;
  338. esac done
  339. case "$action" in
  340. list) list ;;
  341. add) checkbasics && askinfo && getboxes && getprofiles && finalize ;;
  342. delete) delete ;;
  343. sync) mailsync $fulladdr ;;
  344. toggle) togglecron ;;
  345. reorder) reorder ;;
  346. *) mwinfo; exit 1 ;;
  347. esac