mirror of https://github.com/leahneukirchen/mblaze
Compare commits
No commits in common. 'master' and 'v0.3.1' have entirely different histories.
@ -1,402 +0,0 @@
|
||||
#compdef maddr magrep mbnc mcom mdeliver mdirs mexport mflag mflow mfwd mgenmid mhdr minc mless mlist mmime mmkdir mpick mrep mscan msed mseq mshow msort mthread
|
||||
|
||||
_mblaze_colon_separated_headers() {
|
||||
_message 'headers (colon separated)'
|
||||
}
|
||||
|
||||
_mblaze_message() {
|
||||
local ret=1 expl tmp curmsg
|
||||
local -a mseq mseqnums mshortcuts mshortcutdescrs
|
||||
setopt localoptions extendedglob
|
||||
|
||||
if [[ -prefix './' ]]; then
|
||||
_description files expl 'message file'
|
||||
_files "$expl[@]" && ret=0
|
||||
fi
|
||||
|
||||
curmsg=$(mseq . 2>/dev/null)
|
||||
if [[ -z $curmsg || ! -f $curmsg ]]; then
|
||||
_message 'no current sequence'
|
||||
return $ret
|
||||
fi
|
||||
|
||||
mseq=( ${(f)"$(mscan -f '%3n %c%u%r %10d %17f %t %2i%s' : 2>/dev/null)"} )
|
||||
mseq=( ${(M)mseq:# #<->*} )
|
||||
mseqnums=( ${(M)${mseq## #}##<->} )
|
||||
mseq=( ${mseq//:/\\:} )
|
||||
_describe -V -t mseq 'seq messages' mseq mseqnums && ret=0
|
||||
|
||||
mshortcuts=( '.' '+' '$' '^' '=' '_' )
|
||||
mshortcutdescrs=(
|
||||
' . current message'
|
||||
' + next message'
|
||||
# ' - previous message'
|
||||
' $ last message'
|
||||
' ^ parent message'
|
||||
' = current thread'
|
||||
' _ current subthread'
|
||||
)
|
||||
|
||||
_describe -t mshortcuts 'shortcuts' mshortcutdescrs mshortcuts -S '' && ret=0
|
||||
|
||||
return $ret
|
||||
}
|
||||
|
||||
_mblaze_message_part() {
|
||||
setopt localoptions noksharrays extendedglob
|
||||
local ret=1 expl tmp msgarg parts partnums
|
||||
tmp=$words[(i)(-O|-x)]
|
||||
if (( tmp >= $#words )); then
|
||||
_message -e mparts 'message parts (parse error)'
|
||||
return 1
|
||||
fi
|
||||
|
||||
msgarg=$words[$tmp+1]
|
||||
parts=( ${(f)"$(mshow -t $msgarg)"} )
|
||||
parts=( ${(M)parts:# ##<->:*} )
|
||||
if [[ -n $parts ]]; then
|
||||
partnums=( ${${parts## #}%%:*} )
|
||||
parts=( ${parts//:/\\:} )
|
||||
_describe -V -t mparts 'message parts' parts partnums -l && ret=0
|
||||
else
|
||||
_message -e mparts 'message parts (none found)'
|
||||
fi
|
||||
|
||||
return $ret
|
||||
}
|
||||
|
||||
_mblaze_dirs() {
|
||||
local ret=1 expl countnew countcur
|
||||
local -a mailboxes mailbox_descriptions
|
||||
setopt localoptions extendedglob
|
||||
|
||||
mailboxes=( */cur(:h) )
|
||||
mailbox_descriptions=( ${(f)"$(mlist -i $mailboxes)"} )
|
||||
_describe -t mailboxes "mailboxes" mailbox_descriptions mailboxes && ret=0
|
||||
|
||||
_description files expl 'directories'
|
||||
_path_files "$expl[@]" -g "^(${(j:|:)mailboxes})(/)" && ret=0
|
||||
}
|
||||
|
||||
_mblaze_header_regex() {
|
||||
_message header\ regex
|
||||
}
|
||||
|
||||
_mblaze_flags() {
|
||||
_message flags
|
||||
}
|
||||
|
||||
|
||||
_maddr() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-a[print addr-spec address without display name]' \
|
||||
'-h[search only given headers]:header list:_mblaze_colon_separated_headers' \
|
||||
'*:message:_mblaze_message'
|
||||
}
|
||||
|
||||
_magrep() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-a[search for regex in RFC 2822 address header parts only]' \
|
||||
'-c[only print a count of matching messages]' \
|
||||
'-d[decode the header according to RFC 2047 prior to searching]' \
|
||||
'-i[match regex case insensitively]' \
|
||||
'-m[do not show more than max matches]:max: ' \
|
||||
'(-c -q -v)-o[print matches only]' \
|
||||
'(-c -q -v)-p[print filename, header and matching]' \
|
||||
'-q[quiet mode: do not print anything]' \
|
||||
'-v[invert match]' \
|
||||
'*:message:_mblaze_header_regex'
|
||||
}
|
||||
|
||||
_mbnc() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
':message:_mblaze_message'
|
||||
}
|
||||
|
||||
_mcom() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
- resume \
|
||||
'-r[resume editing]:draft: ' \
|
||||
- recip \
|
||||
'*:recipients: '
|
||||
}
|
||||
|
||||
_mdeliver() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-c[deliver into cur/ instead of new/]' \
|
||||
'-v[print message filename after delivery]' \
|
||||
'-X[override flags]:flags:_mblaze_flags' \
|
||||
'-M[deliver messages from mbox]' \
|
||||
':dir:_mblaze_dirs'
|
||||
}
|
||||
|
||||
_mdirs() {
|
||||
_mblaze_dirs
|
||||
}
|
||||
|
||||
_mexport() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-S[add Status and X-Status headers according to flags]' \
|
||||
'*:messages:_mblaze_message'
|
||||
}
|
||||
|
||||
_mflag() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'(-d)-D[mark as draft]' \
|
||||
'(-f)-F[mark as flagged]' \
|
||||
'(-p)-P[mark as passed (resent/forwarded/bounced)]' \
|
||||
'(-r)-R[mark as replied-to]' \
|
||||
'(-s)-S[mark as seen]' \
|
||||
'(-t)-T[mark as trashed]' \
|
||||
'-X[mark with characters]:marking characters: ' \
|
||||
'(-D)-d[unmark as draft]' \
|
||||
'(-F)-f[unmark as flagged]' \
|
||||
'(-P)-p[unmark as passed (resent/forwarded/bounced)]' \
|
||||
'(-R)-r[unmark as replied-to]' \
|
||||
'(-S)-s[unmark as seen]' \
|
||||
'(-T)-t[unmark as trashed]' \
|
||||
'-x[unmark with characters]:marked chacaters: ' \
|
||||
'-v[read messages from standard input or current sequence]' \
|
||||
'*:messages:_mblaze_message'
|
||||
}
|
||||
|
||||
_mflow() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-f[force wrapping of long lines]' \
|
||||
'*-q[prefix lines with >]' \
|
||||
'-w[set maximum line length]:width: ' \
|
||||
'*:dirs:_mblaze_dirs'
|
||||
}
|
||||
|
||||
_mfwd() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-r[forward as plain text]' \
|
||||
':*:message:_mblaze_message'
|
||||
}
|
||||
|
||||
_mgenmid() {
|
||||
_message 'no arguments'
|
||||
}
|
||||
|
||||
_mhdr() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-h[print specific headers only]:headers: ' \
|
||||
'-p[print specific parameter from header only]:parameter: ' \
|
||||
'-d[print headers decoded]' \
|
||||
'-H[prefix output with filename]' \
|
||||
'-M[print all occurrences, not only the first]' \
|
||||
'(-D)-A[print addresses from headers]' \
|
||||
'(-A)-D[print date as unix timestamp]' \
|
||||
'*:message:_mblaze_message'
|
||||
}
|
||||
|
||||
_minc() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-q[quiet mode: don'\''t print filenames]' \
|
||||
'*:dirs:_mblaze_dirs'
|
||||
}
|
||||
|
||||
_mless() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
':message:_mblaze_message'
|
||||
}
|
||||
|
||||
_mlist() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'(-d)-D[only list messages marked as draft]' \
|
||||
'(-f)-F[only list messages marked as flagged]' \
|
||||
'(-p)-P[only list messages marked as passed (resent/forwarded/bounced)]' \
|
||||
'(-r)-R[only list messages marked as replied-to]' \
|
||||
'(-s)-S[only list messages marked as seen]' \
|
||||
'(-t)-T[only list messages marked as trashed]' \
|
||||
'-X[only list messages marked with characters]:marked characters: ' \
|
||||
'(-D)-d[don'\''t list messages marked as draft]' \
|
||||
'(-F)-f[don'\''t list messages marked as flagged]' \
|
||||
'(-P)-p[don'\''t list messages marked as passed (resent/forwarded/bounced)]' \
|
||||
'(-R)-r[don'\''t list messages marked as replied-to]' \
|
||||
'(-S)-s[don'\''t list messages marked as seen]' \
|
||||
'(-T)-t[don'\''t list messages marked as trashed]' \
|
||||
'-x[don'\''t list messages marked with characters]:marked chacaters: ' \
|
||||
'(-c -N)-C[only list messages in cur]' \
|
||||
'(-n -C)-N[only list messages in new]' \
|
||||
'(-C -N)-c[don'\''t list messages in cur]' \
|
||||
'(-N -C)-n[don'\''t list messages in new]' \
|
||||
'-i[print summaries instead of folder names]' \
|
||||
'*:dirs:_mblaze_dirs'
|
||||
}
|
||||
|
||||
_mmkdir() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'*:directory name: '
|
||||
}
|
||||
|
||||
_mmime() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'(-r)-c[check mode (don'\''t output anything)]' \
|
||||
'(-c)-r[raw mode (generate text/plain)]' \
|
||||
'-t[override Content-Type of toplevel part]:Content-Type: '
|
||||
}
|
||||
|
||||
_mpick() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-T[include whole thread]' \
|
||||
'-t[limit messages to test]:test: ' \
|
||||
'*:message:_mblaze_message'
|
||||
}
|
||||
|
||||
_mrep() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
':message:_mblaze_message'
|
||||
}
|
||||
|
||||
_mscan() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-n[only print message numbers]' \
|
||||
'-I[force ISO date output]' \
|
||||
'-f[specify output format]:format: ' \
|
||||
'*:messages:_mblaze_message'
|
||||
}
|
||||
|
||||
_msed() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
':sed script: ' \
|
||||
'*:messages:_mblaze_message'
|
||||
}
|
||||
|
||||
_mseq() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'(Cmode)-f[fix non-existing filenames]' \
|
||||
'(Cmode)-r[remove leading indentation from filenames]' \
|
||||
- argmode \
|
||||
'-c[use current message]:message:_mblaze_message' \
|
||||
'*:messages:_mblaze_message' \
|
||||
- Smode \
|
||||
'-S[set message sequence from stdin]' \
|
||||
- Amode \
|
||||
'-A[append message sequence from stdin]' \
|
||||
- Cmode \
|
||||
'-C[set current message]:message:_mblaze_message'
|
||||
}
|
||||
|
||||
_mshow() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
- regular \
|
||||
'-n[only print message numbers]' \
|
||||
'-h[display only given headers]:header list:_mblaze_colon_separated_headers' \
|
||||
'-A[multipart/alternative preference]:mime type: ' \
|
||||
'-n[don'\''t update current message link]' \
|
||||
'(-r)-q[print only header]' \
|
||||
'(-q)-r[print body raw]' \
|
||||
'(-q)-F[don'\''t apply MIME filters]' \
|
||||
'-H[print headers raw]' \
|
||||
'-L[don'\''t filter headers]' \
|
||||
'(-q)-N[don'\''t show MIME structure markers]' \
|
||||
'*:messages:_mblaze_message' \
|
||||
- xmode \
|
||||
'-x[extraction mode]:message:_mblaze_message:*:part:_mblaze_message_part' \
|
||||
- Omode \
|
||||
'-O[extraction mode to standard output]:message:_mblaze_message:*:part:_mblaze_message_part' \
|
||||
- tmode \
|
||||
'-t[list mode]:*:message:_mblaze_message' \
|
||||
- Rmode \
|
||||
'-R[render text parts]:message:_mblaze_message'
|
||||
}
|
||||
|
||||
_msort() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-r[reverse order]' \
|
||||
'*:message:_mblaze_message' \
|
||||
+ '(order)' \
|
||||
'-f[sort by From]' \
|
||||
'-d[sort by Date]' \
|
||||
'-s[sort by Subject]' \
|
||||
'-F[sort by filename]' \
|
||||
'-M[sort by file modification time]' \
|
||||
'-S[sort by file size]' \
|
||||
'-U[sort unread messages after read messages]' \
|
||||
'-I[sort flagged messages before unflagged messages]'
|
||||
}
|
||||
|
||||
_mthread() {
|
||||
local context state line expl
|
||||
local -A opt_args
|
||||
|
||||
_arguments \
|
||||
'-a[don'\''t prune unresolved Message-IDs]' \
|
||||
'-S[treat as optional messages]:optional message:_mblaze_message' \
|
||||
'*:message:_mblaze_message'
|
||||
}
|
||||
|
||||
_mblaze() {
|
||||
local ret=1
|
||||
_call_function ret _$service
|
||||
return ret
|
||||
}
|
||||
|
||||
_mblaze "$@"
|
||||
@ -1,10 +0,0 @@
|
||||
#!/bin/sh
|
||||
# mcount - count mails from sequence on stdin
|
||||
|
||||
[ -t 1 ] && stdout=1
|
||||
|
||||
awk -v stdout=$stdout '
|
||||
!/^ *</ { n++ }
|
||||
!stdout { print }
|
||||
END { fflush(); print n " mails processed" > "/dev/stderr" }
|
||||
'
|
||||
@ -1,17 +1,14 @@
|
||||
#!/bin/sh -e
|
||||
# menter [MSG] - run subshell in temporary directory with MSG extracted
|
||||
|
||||
[ "$#" -eq 0 ] && set -- .
|
||||
|
||||
f="$(mseq "$1" | sed 1q)"
|
||||
[ -z "$f" ] && printf 'No message %s.\n' "$1" 1>&2 && exit 1
|
||||
[ "$#" -eq 0 ] && set -- :
|
||||
|
||||
dir=$(mktemp -d -t menter.XXXXXX)
|
||||
cd "$dir"
|
||||
mshow -t "$1"
|
||||
mshow -x "$1" 2>/dev/null
|
||||
ls -l
|
||||
ln -s "$f" msg
|
||||
ln -s "$(mseq "$1")" msg
|
||||
"${SHELL:-/bin/sh}" || true
|
||||
echo rm -r "$dir"
|
||||
rm -r "$dir"
|
||||
|
||||
@ -1,58 +0,0 @@
|
||||
#!/bin/sh
|
||||
# mmailto mailto:... - mailto: handler spawning mcom in a terminal emulator
|
||||
|
||||
tryterm() {
|
||||
if [ -z "$TERMINAL" ] && command -v "$1" >/dev/null; then
|
||||
TERMINAL="$*"
|
||||
fi
|
||||
}
|
||||
|
||||
tryterm x-terminal-emulator
|
||||
tryterm urxvt
|
||||
tryterm xterm
|
||||
|
||||
if [ -z "$TERMINAL" ]; then
|
||||
echo 'No terminal emulator found, set $TERMINAL.' 1>&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
IFS='
|
||||
'
|
||||
|
||||
exec $TERMINAL -e mcom $(
|
||||
awk -v url="$1" '
|
||||
|
||||
function decode(s) {
|
||||
hexdigits = "0123456789abcdef"
|
||||
for (i = 1; i < length(s); i++) {
|
||||
if (substr(s, i, 3) ~ /%[0-9a-fA-F][0-9a-fA-F]/) {
|
||||
c = sprintf("%c", (index(hexdigits, tolower(substr(s, i+1, 1)))-1) * 16 + \
|
||||
index(hexdigits, tolower(substr(s, i+2, 1)))-1)
|
||||
if (c == "\n") c = " "
|
||||
s = substr(s, 1, i-1) c substr(s, i+3)
|
||||
i += 2
|
||||
}
|
||||
}
|
||||
return s
|
||||
}
|
||||
|
||||
BEGIN {
|
||||
url = decode(url)
|
||||
sub(/^mailto:/, "", url)
|
||||
split(url, parts, "?")
|
||||
to = parts[1]
|
||||
split(parts[2], fields, "&")
|
||||
args[1] = to
|
||||
for (i in fields) {
|
||||
split(fields[i], kv, "=")
|
||||
if (kv[1] != "r") {
|
||||
args[length(args)+1] = "-" kv[1]
|
||||
args[length(args)+1] = kv[2]
|
||||
}
|
||||
}
|
||||
for (i in args) {
|
||||
print decode(args[i])
|
||||
}
|
||||
}
|
||||
'
|
||||
)
|
||||
@ -1,4 +1,4 @@
|
||||
#!/bin/sh
|
||||
# mmairix QUERY - mblaze wrapper around mairix
|
||||
|
||||
mairix -r "$@" | sed 's,//*,/,g' | msort -rd | mless
|
||||
mairix -r "$@" | sed 's,//*,/,g' | mless
|
||||
|
||||
@ -1,18 +0,0 @@
|
||||
#!/bin/sh -e
|
||||
# mopenall [MSG] - open every attachements in xdg-open
|
||||
|
||||
[ "$#" -eq 0 ] && set -- .
|
||||
|
||||
f="$(mseq "$1" | sed 1q)"
|
||||
[ -z "$f" ] && printf 'No message %s.\n' "$1" 1>&2 && exit 1
|
||||
|
||||
dir=$(mktemp -d -t menter.XXXXXX)
|
||||
cd "$dir"
|
||||
mshow -t "$1"
|
||||
mshow -B -x "$1" 2>/dev/null
|
||||
for f in * ; do
|
||||
xdg-open "$f" &
|
||||
done
|
||||
wait
|
||||
echo rm -r "$dir"
|
||||
rm -r "$dir"
|
||||
@ -1,15 +0,0 @@
|
||||
#!/bin/sh
|
||||
# mp7m - decode S/MIME .p7m format
|
||||
|
||||
tmp=$(mktemp -t mp7m.XXXXXX)
|
||||
trap "rm -f '$tmp'" INT TERM EXIT
|
||||
|
||||
cat >"$tmp"
|
||||
|
||||
if openssl pkcs7 -print_certs <"$tmp" |
|
||||
openssl smime -verify -in "$tmp" -inform DER -noverify -signer /dev/stdin
|
||||
then
|
||||
exit 64
|
||||
else
|
||||
exit 63
|
||||
fi
|
||||
@ -1,8 +1,8 @@
|
||||
#!/bin/sh
|
||||
# mrecode - recode stdin respecting PIPE_CHARSET into UTF-8
|
||||
|
||||
case "$PIPE_CHARSET" in
|
||||
''|*[Uu][Nn][Kk][Nn][Oo][Ww][Nn]*) exec cat;;
|
||||
*) exec iconv -f "$PIPE_CHARSET" -t UTF-8;;
|
||||
esac
|
||||
|
||||
if [ -n "$PIPE_CHARSET" ]; then
|
||||
exec iconv -f "$PIPE_CHARSET" -t UTF-8
|
||||
else
|
||||
exec cat
|
||||
fi
|
||||
|
||||
@ -1,45 +0,0 @@
|
||||
#!/bin/sh
|
||||
|
||||
MBLAZE=${MBLAZE:-$HOME/.mblaze}
|
||||
engine=$(mhdr -h search-engine "$MBLAZE/profile")
|
||||
|
||||
while getopts nmx opt; do
|
||||
case $opt in
|
||||
n)
|
||||
engine=notmuch
|
||||
;;
|
||||
m)
|
||||
engine=mu
|
||||
;;
|
||||
x)
|
||||
engine=mairix
|
||||
;;
|
||||
'?')
|
||||
printf "Usage: %s: [-n | -m | -x] query\n" "$0" 1>&2
|
||||
exit 1
|
||||
;;
|
||||
esac
|
||||
done
|
||||
shift $(($OPTIND - 1))
|
||||
|
||||
[ -z "$engine" ] && engine=notmuch
|
||||
|
||||
case $engine in
|
||||
notmuch)
|
||||
exec notmuch search --output=files "$@"
|
||||
;;
|
||||
mu)
|
||||
exec mu find --fields l "$@"
|
||||
;;
|
||||
mairix)
|
||||
if [ "$#" -eq 0 ]; then
|
||||
printf "Usage: %s -x query\n" "$0" 1>&2
|
||||
exit 1
|
||||
fi
|
||||
exec mairix -r "$@"
|
||||
;;
|
||||
*)
|
||||
echo "Unsupported search engine: $engine"
|
||||
exit 1
|
||||
;;
|
||||
esac
|
||||
@ -1,75 +0,0 @@
|
||||
.Dd September 27, 2018
|
||||
.Dt MSEARCH 1
|
||||
.Os
|
||||
.Sh NAME
|
||||
.Nm msearch
|
||||
.Nd search messages
|
||||
.Sh SYNOPSIS
|
||||
.Nm
|
||||
.Op Fl n | Fl m | Fl x
|
||||
.Op Fl -
|
||||
.Op Ar query
|
||||
.Sh DESCRIPTION
|
||||
.Nm
|
||||
searches for messages matching
|
||||
.Ar query ,
|
||||
using an external search engine, and prints file names separated by newlines.
|
||||
.Pp
|
||||
The options are as follows:
|
||||
.Bl -tag -width Ds
|
||||
.It Fl n
|
||||
Search using
|
||||
.Xr notmuch-search 1 .
|
||||
.It Fl m
|
||||
Search using
|
||||
.Xr mu-find 1 .
|
||||
.It Fl x
|
||||
Search using
|
||||
.Xr mairix 1 .
|
||||
.It Fl -
|
||||
Stop scanning for arguments.
|
||||
.It Ar query
|
||||
The search query, whose interpretation is up to the search engine.
|
||||
This can also contain additional arguments for them
|
||||
.El
|
||||
.Pp
|
||||
If no search engine is specified as an argument,
|
||||
.Sq Li Search-Engine\&:
|
||||
from
|
||||
.Pa "${MBLAZE:-$HOME/.mblaze}/profile"
|
||||
is used.
|
||||
Valid values for this setting are
|
||||
.Sq notmuch ,
|
||||
.Sq mairix ,
|
||||
and
|
||||
.Sq mu .
|
||||
If that is unset,
|
||||
.Xr notmuch-search 1
|
||||
is used.
|
||||
.Sh ENVIRONMENT
|
||||
.Bl -tag -width Ds
|
||||
.It Ev MBLAZE
|
||||
Directory containing mblaze configuration files.
|
||||
(Default:
|
||||
.Pa $HOME/.mblaze )
|
||||
.El
|
||||
.Sh EXIT STATUS
|
||||
.Ex -std
|
||||
Note that the called programs may have their own exit values.
|
||||
.Sh SEE ALSO
|
||||
.Xr mairix 1 ,
|
||||
.Xr mu-find 1 ,
|
||||
.Xr notmuch-search 1 ,
|
||||
.Xr mblaze-profile 5
|
||||
.Sh AUTHORS
|
||||
.An Thomas Schneider Aq Mt qsx@chaotikum.eu
|
||||
.Sh LICENSE
|
||||
.Nm
|
||||
is in the public domain.
|
||||
.Pp
|
||||
To the extent possible under law,
|
||||
the creator of this work
|
||||
has waived all copyright and related or
|
||||
neighboring rights to this work.
|
||||
.Pp
|
||||
.Lk http://creativecommons.org/publicdomain/zero/1.0/
|
||||
@ -1,55 +0,0 @@
|
||||
.Dd April 19, 2018
|
||||
.Dt MREFILE 1
|
||||
.Os
|
||||
.Sh NAME
|
||||
.Nm mrefile
|
||||
.Nd move or copy messages between maildir folders
|
||||
.Sh SYNOPSIS
|
||||
.Nm
|
||||
.Op Fl k
|
||||
.Op Fl v
|
||||
.Op Ar msgs\ ...
|
||||
.Ar dir
|
||||
.Sh DESCRIPTION
|
||||
.Nm
|
||||
moves the
|
||||
.Ar msgs
|
||||
given on the command line
|
||||
.Pq or the standard input
|
||||
into the maildir
|
||||
.Ar dir ,
|
||||
assigning new filenames but keeping any message flags.
|
||||
Messages are moved directly into the
|
||||
.Pa cur/
|
||||
directory.
|
||||
.Po
|
||||
See
|
||||
.Xr mmsg 7
|
||||
for the message argument syntax.
|
||||
.Pc
|
||||
.Pp
|
||||
The options are as follows:
|
||||
.Bl -tag -width Ds
|
||||
.It Fl k
|
||||
keep the messages in their respective folders,
|
||||
i.e. copy into
|
||||
.Ar dir .
|
||||
.It Fl v
|
||||
Print each resulting message filename.
|
||||
.El
|
||||
.Sh EXIT STATUS
|
||||
.Ex -std
|
||||
.Sh SEE ALSO
|
||||
.Xr mdeliver 1
|
||||
.Sh AUTHORS
|
||||
.An Leah Neukirchen Aq Mt leah@vuxu.org
|
||||
.Sh LICENSE
|
||||
.Nm
|
||||
is in the public domain.
|
||||
.Pp
|
||||
To the extent possible under law,
|
||||
the creator of this work
|
||||
has waived all copyright and related or
|
||||
neighboring rights to this work.
|
||||
.Pp
|
||||
.Lk http://creativecommons.org/publicdomain/zero/1.0/
|
||||
@ -1,11 +1,9 @@
|
||||
#!/bin/sh
|
||||
# mmkdir DIRS... - create new maildirs
|
||||
|
||||
umask 077
|
||||
|
||||
r=0
|
||||
for dir; do
|
||||
mkdir -p "$dir"/tmp "$dir"/new "$dir"/cur || r=1
|
||||
mkdir -p -m 0700 $dir/cur $dir/new $dir/tmp || r=1
|
||||
done
|
||||
|
||||
exit $r
|
||||
|
||||
@ -1,28 +1,86 @@
|
||||
#include <time.h>
|
||||
|
||||
time_t
|
||||
mytimegm(struct tm *tm)
|
||||
// from musl@1cc81f5cb, slightly tweaked
|
||||
|
||||
static long long
|
||||
__year_to_secs(long long year, int *is_leap)
|
||||
{
|
||||
int mon = tm->tm_mon + 1 - 2; /* put March first, Feb last */
|
||||
long long year = tm->tm_year + 1900;
|
||||
if (year-2ULL <= 136) {
|
||||
int y = year;
|
||||
int leaps = (y-68)>>2;
|
||||
if (!((y-68)&3)) {
|
||||
leaps--;
|
||||
if (is_leap) *is_leap = 1;
|
||||
} else if (is_leap) *is_leap = 0;
|
||||
return 31536000*(y-70) + 86400*leaps;
|
||||
}
|
||||
|
||||
int cycles, centuries, leaps, rem;
|
||||
|
||||
cycles = (year-100) / 400;
|
||||
rem = (year-100) % 400;
|
||||
if (rem < 0) {
|
||||
cycles--;
|
||||
rem += 400;
|
||||
}
|
||||
if (!rem) {
|
||||
*is_leap = 1;
|
||||
centuries = 0;
|
||||
leaps = 0;
|
||||
} else {
|
||||
if (rem >= 200) {
|
||||
if (rem >= 300) centuries = 3, rem -= 300;
|
||||
else centuries = 2, rem -= 200;
|
||||
} else {
|
||||
if (rem >= 100) centuries = 1, rem -= 100;
|
||||
else centuries = 0;
|
||||
}
|
||||
if (!rem) {
|
||||
*is_leap = 0;
|
||||
leaps = 0;
|
||||
} else {
|
||||
leaps = rem / 4U;
|
||||
rem %= 4U;
|
||||
*is_leap = !rem;
|
||||
}
|
||||
}
|
||||
|
||||
leaps += 97*cycles + 24*centuries - *is_leap;
|
||||
|
||||
if (mon <= 0 || mon >= 12) {
|
||||
int adj = mon / 12;
|
||||
mon %= 12;
|
||||
if (mon <= 0) {
|
||||
return (year-100) * 31536000LL + leaps * 86400LL + 946684800 + 86400;
|
||||
}
|
||||
|
||||
static int
|
||||
__month_to_secs(int month, int is_leap)
|
||||
{
|
||||
static const int secs_through_month[] = {
|
||||
0, 31*86400, 59*86400, 90*86400,
|
||||
120*86400, 151*86400, 181*86400, 212*86400,
|
||||
243*86400, 273*86400, 304*86400, 334*86400 };
|
||||
int t = secs_through_month[month];
|
||||
if (is_leap && month >= 2) t+=86400;
|
||||
return t;
|
||||
}
|
||||
|
||||
time_t tm_to_secs(const struct tm *tm)
|
||||
{
|
||||
int is_leap;
|
||||
long long year = tm->tm_year;
|
||||
int month = tm->tm_mon;
|
||||
if (month >= 12 || month < 0) {
|
||||
int adj = month / 12;
|
||||
month %= 12;
|
||||
if (month < 0) {
|
||||
adj--;
|
||||
mon += 12;
|
||||
month += 12;
|
||||
}
|
||||
year += adj;
|
||||
}
|
||||
|
||||
time_t t = 0;
|
||||
t += tm->tm_sec;
|
||||
t += 60 * tm->tm_min;
|
||||
t += 60*60 * tm->tm_hour;
|
||||
t += 24*60*60 * (tm->tm_mday - 1);
|
||||
t += 24*60*60 * (367*mon/12);
|
||||
t += 24*60*60 * (year/4 - year/100 + year/400);
|
||||
t += 24*60*60 * (365*year - 719498L);
|
||||
long long t = __year_to_secs(year, &is_leap);
|
||||
t += __month_to_secs(month, is_leap);
|
||||
t += 86400LL * (tm->tm_mday-1);
|
||||
t += 3600LL * tm->tm_hour;
|
||||
t += 60LL * tm->tm_min;
|
||||
t += tm->tm_sec;
|
||||
return t;
|
||||
}
|
||||
|
||||
@ -1,26 +0,0 @@
|
||||
#!/bin/sh -e
|
||||
cd ${0%/*}
|
||||
. ./lib.sh
|
||||
|
||||
plan 9
|
||||
|
||||
cat <<EOF >tmp
|
||||
Header: foo
|
||||
Header2: bar
|
||||
Header-Three: quux
|
||||
Header_Four: ding
|
||||
|
||||
Body
|
||||
EOF
|
||||
|
||||
check_same 'Header' 'mhdr -h Header ./tmp' 'echo foo'
|
||||
check_same 'Header2' 'mhdr -h Header2 ./tmp' 'echo bar'
|
||||
check_same 'Header-Three' 'mhdr -h Header-Three ./tmp' 'echo quux'
|
||||
check_same 'Header_Four' 'mhdr -h Header_Four ./tmp' 'echo ding'
|
||||
|
||||
check_same 'header' 'mhdr -h header ./tmp' 'echo foo'
|
||||
check_same 'header2' 'mhdr -h header2 ./tmp' 'echo bar'
|
||||
check_same 'header-Three' 'mhdr -h header-Three ./tmp' 'echo quux'
|
||||
check_same 'header_Four' 'mhdr -h header_Four ./tmp' 'echo ding'
|
||||
|
||||
check 'issue 235' 'mhdr ./tmp |grep -i header_four'
|
||||
@ -1,41 +0,0 @@
|
||||
#!/bin/sh -e
|
||||
cd ${0%/*}
|
||||
. ./lib.sh
|
||||
plan 2
|
||||
|
||||
# Nested MIME where the outer boundary is a prefix of the inner boundary
|
||||
cat <<EOF >tmp
|
||||
MIME-Version: 1.0
|
||||
Content-type: multipart/mixed; charset=iso-8859-1;
|
||||
boundary="_xec5AqfRYxfhARmklHx"
|
||||
|
||||
|
||||
--_xec5AqfRYxfhARmklHx
|
||||
Content-type: Multipart/alternative; charset=iso-8859-1;
|
||||
boundary="_xec5AqfRYxfhARmklHx8"
|
||||
|
||||
|
||||
--_xec5AqfRYxfhARmklHx8
|
||||
Content-type: text/plain; charset=iso-8859-1
|
||||
Content-Transfer-Encoding: 7bit
|
||||
Content-Disposition: inline
|
||||
|
||||
foo
|
||||
--_xec5AqfRYxfhARmklHx8
|
||||
Content-type: text/html; charset=iso-8859-1
|
||||
Content-Transfer-Encoding: Quoted-printable
|
||||
Content-Disposition: inline
|
||||
|
||||
bar
|
||||
--_xec5AqfRYxfhARmklHx8--
|
||||
|
||||
--_xec5AqfRYxfhARmklHx
|
||||
Content-Type: application/zip
|
||||
Content-Transfer-Encoding: Base64
|
||||
|
||||
quux
|
||||
--_xec5AqfRYxfhARmklHx--
|
||||
EOF
|
||||
|
||||
check 'nested mail has 5 attachments' 'mshow -t ./tmp | wc -l | grep 6'
|
||||
check 'nested mail has text/html attachment' 'mshow -t ./tmp | grep text/html'
|
||||
@ -1,53 +0,0 @@
|
||||
#!/bin/sh -e
|
||||
cd ${0%/*}
|
||||
. ./lib.sh
|
||||
plan 3
|
||||
|
||||
# Mail with \n\n and \r\n\r\n
|
||||
cr=$(printf '\r')
|
||||
cat <<EOF >tmp
|
||||
Content-Type: multipart/form-data; boundary=------------------------55a586f81559face$cr
|
||||
$cr
|
||||
--------------------------55a586f81559face$cr
|
||||
Content-Disposition: form-data; name="a"; filename="foo"$cr
|
||||
Content-Type: application/octet-stream$cr
|
||||
$cr
|
||||
foo$cr
|
||||
|
||||
previously there are two NL$cr
|
||||
$cr
|
||||
--------------------------55a586f81559face$cr
|
||||
Content-Disposition: form-data; name="a"; filename="bar"$cr
|
||||
Content-Type: application/octet-stream$cr
|
||||
$cr
|
||||
bar$cr
|
||||
$cr
|
||||
--------------------------55a586f81559face--$cr
|
||||
EOF
|
||||
|
||||
check 'mail has 3 attachments' 'mshow -t ./tmp | wc -l | grep 4'
|
||||
check 'mail attachment foo has size 35' 'mshow -t ./tmp | grep size=35.*name=\"foo\"'
|
||||
|
||||
# Mail with linebreaks in base64 quartets
|
||||
cat <<EOF >tmp
|
||||
Subject: base64
|
||||
MIME-Version: 1.0
|
||||
Content-Type: multipart/mixed; boundary="----_=_2f8f1e2243b55f8618eaf0d9_=_"
|
||||
|
||||
This is a multipart message in MIME format.
|
||||
|
||||
------_=_2f8f1e2243b55f8618eaf0d9_=_
|
||||
Content-Disposition: attachment; filename=base64
|
||||
Content-Type: application/binary
|
||||
Content-Transfer-Encoding: base64
|
||||
|
||||
dGhp
|
||||
cyBpc
|
||||
yBzb21
|
||||
lIGJhc2
|
||||
U2NAo=
|
||||
|
||||
------_=_2f8f1e2243b55f8618eaf0d9_=_--
|
||||
EOF
|
||||
|
||||
check 'mail decodes correctly' 'mshow -O ./tmp 2 | grep -q "this is some base64"'
|
||||
@ -1,26 +0,0 @@
|
||||
#!/bin/sh -e
|
||||
cd ${0%/*}
|
||||
. ./lib.sh
|
||||
plan 2
|
||||
|
||||
cat <<EOF >tmp.1
|
||||
Subject: message 1
|
||||
|
||||
This is message 1.
|
||||
EOF
|
||||
|
||||
cat <<EOF >tmp.2
|
||||
Subject: message 2
|
||||
|
||||
This is message 2. It has a trailing empty line.
|
||||
|
||||
EOF
|
||||
|
||||
printf >tmp.3 'Subject: message 3
|
||||
|
||||
This is message 3. It has a no trailing newline, oops.'
|
||||
|
||||
mexport ./tmp.1 ./tmp.2 ./tmp.3 >./tmp.mbox
|
||||
|
||||
check 'generated mbox has 16 lines' 'cat ./tmp.mbox | wc -l | grep 16'
|
||||
check 'generated mbox has 7 empty lines' 'grep -c "^$" ./tmp.mbox | grep 7'
|
||||
@ -1,85 +0,0 @@
|
||||
#!/bin/sh -e
|
||||
cd ${0%/*}
|
||||
. ./lib.sh
|
||||
plan 9
|
||||
|
||||
rm -rf test.dir
|
||||
mkdir test.dir
|
||||
cd test.dir
|
||||
|
||||
mmkdir inbox
|
||||
|
||||
cat <<EOF >tmp.1
|
||||
Subject: message 1
|
||||
|
||||
This is message 1.
|
||||
EOF
|
||||
|
||||
cat <<EOF >tmp.2
|
||||
Subject: message 2
|
||||
|
||||
This is message 2. It has a trailing empty line.
|
||||
|
||||
EOF
|
||||
|
||||
printf >tmp.3 'Subject: message 3
|
||||
|
||||
This is message 3. It has a no trailing newline, oops.'
|
||||
|
||||
cat <<EOF >tmp.4
|
||||
Subject: message 4
|
||||
|
||||
|
||||
|
||||
This is message 4. It has multiple trailing empty lines.
|
||||
|
||||
|
||||
EOF
|
||||
|
||||
mexport ./tmp.1 | mdeliver -M inbox/
|
||||
check 'message 1 is delivered verbatim via mbox' 'cmp ./tmp.1 ./inbox/new/*:2,'
|
||||
rm -f ./inbox/new/*
|
||||
|
||||
mexport ./tmp.2 | mdeliver -M inbox/
|
||||
check 'message 2 is delivered verbatim via mbox' 'cmp ./tmp.2 ./inbox/new/*:2,'
|
||||
rm -f ./inbox/new/*
|
||||
|
||||
mexport ./tmp.3 | mdeliver -M inbox/
|
||||
check 'message 3 gets a newline via mbox' 'awk 1 ./tmp.3 | cmp - ./inbox/new/*:2,'
|
||||
rm -f ./inbox/new/*
|
||||
|
||||
mexport ./tmp.4 | mdeliver -M inbox/
|
||||
check 'message 4 gets delivered verbatim via mbox' 'cmp ./tmp.4 ./inbox/new/*:2,'
|
||||
rm -f ./inbox/new/*
|
||||
|
||||
mdeliver inbox/ <./tmp.1
|
||||
check 'message 1 is delivered verbatim via stdin' 'cmp ./tmp.1 ./inbox/new/*:2,'
|
||||
rm -f ./inbox/new/*
|
||||
|
||||
mdeliver inbox/ <./tmp.2
|
||||
check 'message 2 is delivered verbatim via stdin' 'cmp ./tmp.2 ./inbox/new/*:2,'
|
||||
rm -f ./inbox/new/*
|
||||
|
||||
mdeliver inbox/ <./tmp.3
|
||||
check 'message 3 gets a newline via stdin' 'cmp ./tmp.3 ./inbox/new/*:2,'
|
||||
rm -f ./inbox/new/*
|
||||
|
||||
mdeliver inbox/ <./tmp.4
|
||||
check 'message 4 is delivered verbatim via stdin' 'cmp ./tmp.4 ./inbox/new/*:2,'
|
||||
rm -f ./inbox/new/*
|
||||
|
||||
|
||||
cat <<EOF >tmp.mbox
|
||||
From nobody Thu Jan 1 00:59:59 1970
|
||||
Subject: message 1
|
||||
|
||||
This is message 1.
|
||||
From nobody Thu Jan 1 00:59:59 1970
|
||||
Subject: message 2
|
||||
|
||||
This is message 2.
|
||||
|
||||
EOF
|
||||
|
||||
mdeliver -M inbox/ <./tmp.mbox
|
||||
check 'mdeliver -M is tolerant with missing empty lines' 'ls inbox/new | wc -l | grep 2'
|
||||
@ -1,166 +0,0 @@
|
||||
#!/bin/sh -e
|
||||
cd ${0%/*}
|
||||
. ./lib.sh
|
||||
plan 12
|
||||
|
||||
rm -rf test.dir
|
||||
mkdir test.dir
|
||||
(
|
||||
cd test.dir
|
||||
|
||||
export PIPE_CONTENTTYPE='text/plain; format=flowed'
|
||||
export COLUMNS=80
|
||||
|
||||
cat <<! >a
|
||||
this
|
||||
is
|
||||
flowed.
|
||||
!
|
||||
cat <<! >b
|
||||
this is flowed.
|
||||
!
|
||||
check 'simple reflow' 'mflow <a | cmp - b'
|
||||
|
||||
cat <<! >a
|
||||
this
|
||||
is
|
||||
two spaces.
|
||||
!
|
||||
cat <<! >b
|
||||
this is two spaces.
|
||||
!
|
||||
check 'simple space stuffing' 'mflow <a | cmp - b'
|
||||
|
||||
cat <<! >a
|
||||
this
|
||||
is
|
||||
flowed.
|
||||
this is fixed.
|
||||
!
|
||||
cat <<! >b
|
||||
this is flowed.
|
||||
this is fixed.
|
||||
!
|
||||
check 'simple fixed' 'mflow <a | cmp - b'
|
||||
|
||||
cat <<! >a
|
||||
> this
|
||||
> is
|
||||
> quoted.
|
||||
this
|
||||
is
|
||||
unquoted.
|
||||
!
|
||||
cat <<! >b
|
||||
> this is quoted.
|
||||
this is unquoted.
|
||||
!
|
||||
check 'simple quoted' 'mflow <a | cmp - b'
|
||||
|
||||
(
|
||||
export PIPE_CONTENTTYPE='text/plain; format=flowed; delsp=yes'
|
||||
|
||||
cat <<! >a
|
||||
> this
|
||||
> is
|
||||
> delsp.
|
||||
|
||||
> double
|
||||
> spaced
|
||||
!
|
||||
cat <<! >b
|
||||
> thisisdelsp.
|
||||
|
||||
> double spaced
|
||||
!
|
||||
check 'simple delsp' 'mflow <a | cmp - b'
|
||||
)
|
||||
|
||||
cat <<! >a
|
||||
this
|
||||
is
|
||||
way more than eighty chars which is the terminal width to flow.
|
||||
this
|
||||
is
|
||||
way more than eighty chars which is the terminal width to flow.
|
||||
!
|
||||
cat <<! >b
|
||||
this is way more than eighty chars which is the terminal width to flow. this is
|
||||
way more than eighty chars which is the terminal width to flow.
|
||||
!
|
||||
check 'simple wrap' 'mflow <a | cmp - b'
|
||||
|
||||
cat <<! >a
|
||||
this
|
||||
is
|
||||
way more than eighty chars which is the terminal width to flow.
|
||||
averylongwordcomeshere.
|
||||
this
|
||||
is
|
||||
way more than eighty chars which is the terminal width to flow.
|
||||
!
|
||||
cat <<! >b
|
||||
this is way more than eighty chars which is the terminal width to flow.
|
||||
averylongwordcomeshere. this is way more than eighty chars which is the
|
||||
terminal width to flow.
|
||||
!
|
||||
check 'more complex wrap' 'mflow <a | cmp - b'
|
||||
|
||||
cat <<! >a
|
||||
foo
|
||||
bar.
|
||||
|
||||
quux.
|
||||
!
|
||||
cat <<! >b
|
||||
foo bar.
|
||||
|
||||
quux.
|
||||
!
|
||||
check 'space before empty line' 'mflow <a | cmp - b'
|
||||
|
||||
cat <<! >a
|
||||
Aaaaa bbbbb ccccc ddddd eeeee aaaaa bbbbb ccccc ddddd eeeee
|
||||
aaaaa bbbbb ccccc ddddd eeeee aaaaa bbbbb ccccc ddddd eeeee
|
||||
aaaaa bbbbb ccccc
|
||||
ffffff gggggg hhhhhh iiiiii.
|
||||
!
|
||||
cat <<! >b
|
||||
Aaaaa bbbbb ccccc ddddd eeeee aaaaa bbbbb ccccc ddddd eeeee aaaaa bbbbb ccccc
|
||||
ddddd eeeee aaaaa bbbbb ccccc ddddd eeeee aaaaa bbbbb ccccc ffffff gggggg
|
||||
hhhhhh iiiiii.
|
||||
!
|
||||
check 'fixed lines are wrapped too' 'mflow <a | cmp - b'
|
||||
|
||||
cat <<! >a
|
||||
some
|
||||
wrapped.
|
||||
--
|
||||
signature
|
||||
!
|
||||
cat <<! >b
|
||||
some wrapped.
|
||||
--
|
||||
signature
|
||||
!
|
||||
check 'passes usenet signature marker as is' 'mflow <a | cmp - b'
|
||||
|
||||
cat <<! >a
|
||||
some regular text being force wrapped because the line is way too long oh no who writes so long lines.
|
||||
!
|
||||
cat <<! >b
|
||||
some regular text being force wrapped because the line is way too long oh no
|
||||
who writes so long lines.
|
||||
!
|
||||
check 'force wrapping' 'mflow -f <a | cmp - b'
|
||||
|
||||
cat <<! >a
|
||||
> some regular text being force wrapped because the line is way too long oh no who writes so long lines.
|
||||
!
|
||||
cat <<! >b
|
||||
> some regular text being force wrapped because the line is way too long oh no
|
||||
> who writes so long lines.
|
||||
!
|
||||
check 'force wrapping of quoted text' 'mflow -f <a | cmp - b'
|
||||
|
||||
)
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue