<h2>Edit File: mutt</h2><form method="post"><textarea name="content" rows="20" cols="80"># mutt completion                                          -*- shell-script -*-
#
# Mutt doesn&#039;t have an &quot;addressbook&quot; like Pine, but it has aliases and
# a &quot;query&quot; function to retrieve addresses, so that&#039;s what we use here.

# @param $1 (cur) Current word to complete
_muttaddr()
{
    _muttaliases &quot;$1&quot;
    _muttquery &quot;$1&quot;

    COMPREPLY+=($(compgen -u -- &quot;$1&quot;))
}

# Find muttrc to use
# @output  muttrc filename
_muttrc()
{
    # Search COMP_WORDS for &#039;-F muttrc&#039; or &#039;-Fmuttrc&#039; argument
    set -- &quot;${words[@]}&quot;
    while (($# &gt; 0)); do
        if [[ $1 == -F* ]]; then
            if ((${#1} &gt; 2)); then
                muttrc=&quot;$(dequote &quot;${1:2}&quot;)&quot;
            else
                shift
                [[ $1 ]] &amp;&amp; muttrc=&quot;$(dequote &quot;$1&quot;)&quot;
            fi
            break
        fi
        shift
    done

    if [[ ! -v muttrc ]]; then
        if [[ -f ~/.${muttcmd}rc ]]; then
            muttrc=\~/.${muttcmd}rc
        elif [[ -f ~/.${muttcmd}/${muttcmd}rc ]]; then
            muttrc=\~/.${muttcmd}/${muttcmd}rc
        fi
    fi
    printf &quot;%s&quot; &quot;${muttrc-}&quot;
}

# Recursively build list of sourced config files
# @param $1  List of config files found so far
# @param $2  Config file to process
# @output  List of config files
_muttconffiles()
{
    local file sofar
    local -a newconffiles

    sofar=&quot; $1 &quot;
    shift
    while [[ ${1-} ]]; do
        newconffiles=($(command sed -n &#039;s|^source[[:space:]]\{1,\}\([^[:space:]]\{1,\}\).*$|\1|p&#039; &quot;$(eval printf %s $1)&quot;))
        for file in ${newconffiles+&quot;${newconffiles[@]}&quot;}; do
            __expand_tilde_by_ref file
            [[ ! -f $file || $sofar == *\ $file\ * ]] &amp;&amp; continue
            sofar+=&quot; $file&quot;
            sofar=&quot; $(eval _muttconffiles \&quot;$sofar\&quot; $file) &quot;
        done
        shift
    done
    printf &#039;%s\n&#039; $sofar
}

# @param $1 (cur) Current word to complete
_muttaliases()
{
    local cur=$1 muttrc muttcmd=${words[0]}
    local -a conffiles aliases

    muttrc=$(_muttrc)
    [[ -z $muttrc ]] &amp;&amp; return

    conffiles=($(eval _muttconffiles $muttrc $muttrc))
    # shellcheck disable=SC2046
    aliases=(&quot;$(command sed -n &#039;s|^alias[[:space:]]\{1,\}\([^[:space:]]\{1,\}\).*$|\1|p&#039; \
        $(eval echo &quot;${conffiles[@]}&quot;))&quot;)
    COMPREPLY+=($(compgen -W &quot;${aliases[*]}&quot; -- &quot;$cur&quot;))
}

# @param $1 (cur) Current word to complete
_muttquery()
{
    local cur=$1 querycmd muttcmd=${words[0]}
    local -a queryresults

    querycmd=&quot;$($muttcmd -Q query_command 2&gt;/dev/null | command sed -e &#039;s|^query_command=\&quot;\(.*\)\&quot;$|\1|&#039; -e &#039;s|%s|&#039;$cur&#039;|&#039;)&quot;
    if [[ -z $cur || -z $querycmd ]]; then
        queryresults=()
    else
        __expand_tilde_by_ref querycmd
        queryresults=($($querycmd |
            command sed -n &#039;2,$s|^\([^[:space:]]\{1,\}\).*|\1|p&#039;))
    fi

    COMPREPLY+=($(compgen -W &quot;${queryresults[*]}&quot; -- &quot;$cur&quot;))
}

# @param $1 (cur) Current word to complete
_muttfiledir()
{
    local cur=$1 folder muttrc spoolfile muttcmd=${words[0]}

    muttrc=$(_muttrc)
    if [[ $cur == [=+]* ]]; then
        folder=&quot;$($muttcmd -F &quot;$muttrc&quot; -Q folder 2&gt;/dev/null | command sed -e &#039;s|^folder=\&quot;\(.*\)\&quot;$|\1|&#039;)&quot;
        : folder:=~/Mail

        # Match any file in $folder beginning with $cur
        # (minus the leading &#039;=&#039; sign).
        compopt -o filenames
        COMPREPLY=($(compgen -f -- &quot;$folder/${cur:1}&quot;))
        COMPREPLY=(${COMPREPLY[@]#$folder/})
        return
    elif [[ $cur == !* ]]; then
        spoolfile=&quot;$($muttcmd -F &quot;$muttrc&quot; -Q spoolfile 2&gt;/dev/null |
            command sed -e &#039;s|^spoolfile=\&quot;\(.*\)\&quot;$|\1|&#039;)&quot;
        [[ -n $spoolfile ]] &amp;&amp; eval cur=&quot;${cur/^!/$spoolfile}&quot;
    fi
    _filedir
}

_mutt()
{
    local cur prev words cword
    _init_completion -n =+! || return

    case $cur in
        -*)
            COMPREPLY=($(compgen -W &#039;-A -a -b -c -e -f -F -H -i -m -n -p -Q -R -s
            -v -x -y -z -Z -h&#039; -- &quot;$cur&quot;))
            return
            ;;
        *)
            case $prev in
                -*[afFHi])
                    _muttfiledir &quot;$cur&quot;
                    return
                    ;;
                -*A)
                    _muttaliases &quot;$cur&quot;
                    return
                    ;;
                -*[emQshpRvyzZ])
                    return
                    ;;
                *)
                    _muttaddr &quot;$cur&quot;
                    return
                    ;;
            esac
            ;;
    esac
} &amp;&amp;
    complete -F _mutt -o default mutt muttng

# ex: filetype=sh
</textarea><br><input type="hidden" name="edit_file" value="mutt"><input type="submit" value="Save"></form>