Return to pgpmail.mh CVS log

Up to [PGP] / pgp / contrib / mh

Annotation of pgp/contrib/mh/pgpmail.mh, revision 1.1

1.1     ! root        1: Subject: Re: Suggestion...
        !             2: Date: Sun, 10 Jan 93 22:56:53 EST
        !             3: From: [email protected] (David Disser)
        !             4: Lines: 62
        !             5: 
        !             6: 
        !             7: Here's a start for mh + MIME users: an "editor" that runs out of the MH
        !             8: "What now?" prompt, and PGP encodes your message in a nice mhn-processable
        !             9: format.  Note that this works only on MH 6.7.2-MIME+mtr or later.
        !            10: 
        !            11: Call this script "pgpedit" and make links to it called: pgpe, pgpes, pgpk,
        !            12: pgka.
        !            13: 
        !            14: After you're done writing your message, type "edit pgpe" at the What now?
        !            15: prompt, it will try to figure out who you're sending to, encode with their
        !            16: key if you have it, and format it for MHN.  Then type "edit mhn" and voila
        !            17: your message is ready to go.  The type is "text/x-pgp" and needs an
        !            18: .mh_profile line like:
        !            19: 
        !            20: mhn-show-text/x-pgp: pgp -m %F
        !            21: 
        !            22: You can call it by different names for different options, notable "pgpk" to
        !            23: send someone your public key, or "pgpka" to send the whole keyring.
        !            24: Anyway, here's the script.
        !            25: 
        !            26: #!/bin/sh
        !            27: 
        !            28: case `basename $0` in
        !            29:        pgpes) opt="-feast" ;;
        !            30:        pgps) opt="-staf +clearsig=on" ;;
        !            31:        pgpe) opt="-feat" ;;
        !            32:        pgpka) pgp -kxa "" pubkey$$
        !            33:                 (echo '#<text/x-pgp';cat pubkey$$.asc;echo '#') >> $*
        !            34:                 rm -f pubkey$$.asc
        !            35:                 exit 0 ;;
        !            36:        pgpk)   pgp -kxa $USER pubkey$$
        !            37:                (echo '#<text/x-pgp';cat pubkey$$.asc;echo '#') >> $* 
        !            38:                rm -f pubkey$$.asc 
        !            39:                exit 0 ;;
        !            40: esac
        !            41: 
        !            42: if head -20 $* | grep -s '^--------$' ; then
        !            43:        sed -ne '1,/^--------$/p' $* > header$$
        !            44:        sed -e '1,/^--------$/d' $* > body$$
        !            45: else
        !            46:        sed -ne '1,/^$/p' $* > header$$
        !            47:        sed -e '1,/^$/d' $* > body$$
        !            48: fi
        !            49: 
        !            50: to=`sed -ne 's/^[tT]o: //p' header$$`
        !            51: 
        !            52: if [ -n "$to" ] ; then
        !            53:        if pgp -kv "$to" 2>&1 | grep -s '^pub' ; then
        !            54:                echo Using public key for $to.
        !            55:                opt="$opt $to"
        !            56:        fi
        !            57: fi
        !            58: 
        !            59: (cat header$$;echo '#<text/x-pgp';pgp $opt < body$$;echo '#')  > $*
        !            60: rm -f header$$ body$$
        !            61: 
        !            62: 
        !            63: --
        !            64: 
        !            65: ) Dave Disser                 UM-CAEN User Services    
        !            66: ) [email protected]      229 Chrysler Center    
        !            67: ) (313) 763-3067              Ann Arbor, MI 48109-2092
        !            68: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.