3 # mhmail -- simple mail program
5 # This code is Copyright (c) 2012, by the authors of nmh. See the
6 # COPYRIGHT file in the root directory of the nmh distribution for
7 # complete copyright information.
9 # Emulation of compiled mhmail(1), with these differences:
10 # * Adds -send/-nosend, -headerfield, and -attach options.
11 # * Adds optional -to switch for recipient addresses.
12 # * Supports all post(8) (by default, without -profile) or send(1)
13 # (with -profile) options.
14 # * Optionally (with -profile) obeys the users profile, including
15 # AliasFile and send entries.
16 # * Instead of silently not sending an empty message, notifies user
17 # "mhmail: empty message not sent, use -body '' to force."
18 # * The compiled mhmail dropped a trailing newline from the -body argument.
19 # * Drops support for undocumented -queue option.
21 usage='Usage: mhmail [-t(o)] addrs ... [switches]
23 -at(tach) file [-at(tach) file] ...
27 -hea(derfield) name:value [-hea(derfield) name:value] ...
35 and all post(8)/send(1) switches
36 mhmail with no arguments is equivalent to inc'
39 #### Find location of a program. Bourne shell just puts the name in
40 #### $0 if it's found from the PATH, so search that if necessary.
46 [ -f "${d:=.}/$1" -a -x "$d/$1" ] && printf %s "$d" && break
52 nmhbindir=`cd "$bindir" && pwd`
55 #### Checks for missing mandatory arguments.
57 if [ $attacharg -eq 1 ]; then
58 printf 'mhmail: missing argument to -attach\n' >&2; exit 1
59 elif [ $bodyarg -eq 1 ]; then
60 printf 'mhmail: missing argument to -body\n' >&2; exit 1
61 elif [ $ccarg -eq 1 -a "$cclist"x = x ]; then
62 printf 'mhmail: missing argument to -cc\n' >&2; exit 1
63 elif [ $fromarg -eq 1 ]; then
64 printf 'mhmail: missing argument to -from\n' >&2; exit 1
65 elif [ $headerfieldarg -eq 1 ]; then
66 printf 'mhmail: missing argument to -headerfield\n' >&2; exit 1
67 elif [ $subjectarg -eq 1 ]; then
68 printf 'mhmail: missing argument to -subject\n' >&2; exit 1
69 elif [ $toarg -eq 1 ]; then
70 printf 'mhmail: missing argument to -to\n' >&2; exit 1
75 #### Emulate mhmail for reading mail.
79 #### Go through all the switches so we can build the draft.
80 tolist= ## To: addresses
81 toarg=0 ## whether currently handling -to
82 attacharg=0 ## whether currently handling -attach
83 attach_send_switch_added=0 ## whether added "-attach Nmh-Attachment" switch
84 attachind=Nmh-Attachment ## attachment indicator
85 body= ## contents of the message body
86 bodyarg=0 ## whether currently handling -body
87 cclist= ## Cc: addresses
88 ccarg=0 ## whether currently handling -cc
89 from= ## From: contents
90 fromarg=0 ## whether currently handling -from
91 headerfieldlist= ## header fields to be added to draft
92 headerfieldarg=0 ## whether currently handling -headerfield
93 mhmailswitch=0 ## whether currently handling any mhmail switch
94 subject= ## Subject: contents
95 subjectarg=0 ## whether currently handling -subject
96 resent=0 ## whether resending
97 postsendargs= ## switches to pass on to post or send
98 post_send_switch_arg=0 ## whether currently handling a post/send switch
99 use_send=0 ## use post (default) or send (-profile)
100 sendsw=1 ## to send (default) or not to send
103 #### Post and send won't accept -f -or -s because they'd be
104 #### ambiguous, so no conflicts with them. And they don't have
105 #### -b, -c, -r, -t. For the new switches that compiled mhmail
106 #### didn't have: let -p indicate mhmail -profile, not send
107 #### -port. -send masks the send(1) -send switch. -attach
108 #### masks the send(1) -attach switch.
109 -at|-att|-atta|-attac|-attach)
113 if [ $attach_send_switch_added -eq 0 ]; then
114 #### Override any send -attach switch in user's profile.
115 postsendargs="${postsendargs:+$postsendargs }-attach $attachind"
116 attach_send_switch_added=1
118 -b|-bo|-bod|-body) mhmailswitch=1; bodyarg=1 ;;
119 -c|-cc) mhmailswitch=1; ccarg=1 ;;
120 -f|-fr|-fro|-from) mhmailswitch=1; fromarg=1 ;;
121 -hea|-head|-heade|-header|-headerf|-headerfi|-headerfie|-headerfiel|\
122 -headerfield) mhmailswitch=1; headerfieldarg=1 ;;
123 -hel|-help) printf '%s\n' "$usage"; exit ;;
124 -nose|-nosen|-nosend) mhmailswitch=1; sendsw=0 ;;
125 -p|-pr|-pro|-prof|-profi|-profil|-profile) mhmailswitch=1; use_send=1 ;;
126 -resend) printf 'mhmail: did you mean -resent instead of -resend?\n' >&2
128 -r|-re|-res|-rese|-resen|-resent) mhmailswitch=1; resent=1 ;;
129 -se|-sen|-send) mhmailswitch=1; sendsw=1 ;;
130 -su|-sub|-subj|-subje|-subjec|-subject) mhmailswitch=1; subjectarg=1 ;;
131 -t|-to) toarg=1; ccarg=0 ;;
132 -v|-ve|-ver|-vers|-versi|-versio|-version)
133 #### Cheat instead of using autoconf and make to fill in the version.
134 "$nmhbindir"/mhpath -v | sed 's/mhpath/mhmail/'; exit ;;
135 -*) if [ $mhmailswitch -eq 1 ]; then
139 post_send_switch_arg=1
140 postsendargs="${postsendargs:+$postsendargs }$arg" ;;
142 if [ $bodyarg -eq 1 ]; then
146 #### Allow -body "" by using just a newline for the body.
147 [ "$body"x = x ] && body='
149 elif [ $fromarg -eq 1 ]; then
152 elif [ $subjectarg -eq 1 ]; then
155 elif [ $attacharg -eq 1 ]; then
156 headerfieldlist="${headerfieldlist:+$headerfieldlist}$attachind: $arg
159 elif [ $headerfieldarg -eq 1 ]; then
160 #### It's not strictly necessary to have one space after
161 #### the : that separates the header field name from the
162 #### body, but do it to avoid surprising someone.
163 add=`printf %s "$arg" | sed -e 's/:/: /' -e 's/: /: /'`
164 headerfieldlist="${headerfieldlist:+$headerfieldlist}$add
167 elif [ $post_send_switch_arg -eq 1 ]; then
168 postsendargs="${postsendargs:+$postsendargs }$arg"
169 elif [ $ccarg -eq 1 ]; then
170 #### ccarg can only be reset to 0 by -to.
171 cclist="${cclist:+$cclist, }$arg"
174 tolist="${tolist:+$tolist, }$arg"
180 #### Check for at least one address and -from.
181 if [ "$tolist"x = x ]; then
182 printf 'Usage: mhmail [-t(o)] addrs ... [switches]\n' >&2; exit 1
184 if [ "$from"x = x ]; then
185 nmhlibdir=`$nmhbindir/mhparam libdir`/
186 from=`${nmhlibdir}ap -format '%(localmbox)' 0`
189 #### Check for missing mandatory arguments.
193 [ $resent -eq 0 ] && prefix= || prefix='Resent-'
194 header="${prefix}To: $tolist
196 [ "$cclist"x = x ] || header="$header${prefix}Cc: $cclist
198 [ "$subject"x = x ] || header="$header${prefix}Subject: $subject
200 [ "$from"x = x ] || header="$header${prefix}From: $from
203 if [ "$headerfieldlist" ]; then
204 header="$header$headerfieldlist"
207 #### Set up a file to supply as a draft to post/send. And set a
208 #### trap to remove it. send moves the file to a backup, so it will
209 #### remove that, too.
211 tmpdir="${MHTMPDIR:-${TMPDIR:-${TMP:-`$nmhbindir/mhpath +`}}}"
212 tmpfile="$tmpdir/mhmail$$"
213 tmpfilebackup="$tmpdir/[,#]mhmail$$"
217 if [ $resent -eq 0 ]; then
218 #### Add blank line after header if not resending.
221 message_file="$tmpfile"
223 if [ $use_send -eq 0 ]; then
224 postsendargs="${postsendargs:+$postsendargs }-dist"
225 message_file="$tmpfile"
227 #### When resending with send, tmpfile will just contain the
228 #### Resent- header fields. "$tmpfileresent" will contain
229 #### the message that is being resent.
230 tmpfileresent="$tmpdir/mhmail-resent$$"
231 mhdist=1; export mhdist
232 mhaltmsg=$tmpfileresent; export mhaltmsg
233 message_file="$tmpfileresent"
234 printf '' >"$message_file" || exit 2
238 trap 'rm -f '"$tmpfile"' '"$tmpfilebackup"' '"$tmpfileresent" EXIT
240 if [ "$body"x = x ]; then
241 #### First put message header in the file.
242 printf %s "$header" >"$tmpfile" || exit 2
244 tmpfile_size_before=`wc -c "$message_file"`
245 #### Now grab the body from stdin. cat >> handles blank lines
246 #### better than body=`cat`.
247 cat >>"$message_file" || exit 2
248 tmpfile_size_after=`wc -c "$message_file"`
250 #### Don't allow an empty body (from stdin). Use string
251 #### comparison so we don't have to strip the filename, etc.
252 if [ "$tmpfile_size_before" = "$tmpfile_size_after" ]; then
253 printf 'mhmail: empty message not sent, use -body '"''"' to force.\n' >&2
257 #### Add trailing newline to body if it doesn't have one.
258 if [ `tail -n 1 "$message_file" | wc -l` -ne 1 ]; then
259 printf '\n' >>"$message_file" || exit 2
262 #### Add trailing newline to body if it doesn't have one.
263 [ `printf %s "$body" | tail -n 1 | wc -l` -ne 1 ] && body="$body
266 if [ "$tmpfileresent" ]; then
267 #### Put just the new message header in the file.
268 printf %s "$header" >"$tmpfile" || exit 2
269 #### and the body in the file to resend.
270 printf %s "$body" >"$tmpfileresent" || exit 2
272 #### Put message header and body in the file.
273 printf %s "$header$body" >"$tmpfile" || exit 2
277 if [ $sendsw -eq 0 ]; then
280 if [ $use_send -eq 0 ]; then
281 post_or_send=`$nmhbindir/mhparam postproc`
283 post_or_send="$nmhbindir/send"
286 if "$post_or_send" "$tmpfile" $postsendargs; then
290 mv -f "$tmpfile" dead.letter
291 printf 'Letter saved in dead.letter\n' >&2