2 * S-nail - a mail user agent derived from Berkeley Mail.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 Steffen "Daode" Nurpmeso.
8 * Copyright (c) 1980, 1993
9 * The Regents of the University of California. All rights reserved.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. All advertising materials mentioning features or use of this software
20 * must display the following acknowledgement:
21 * This product includes software developed by the University of
22 * California, Berkeley and its contributors.
23 * 4. Neither the name of the University nor the names of its contributors
24 * may be used to endorse or promote products derived from this software
25 * without specific prior written permission.
27 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
28 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
31 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
47 * Mail -- a mail program
53 * Print the current active headings.
54 * Don't change dot if invoker didn't give an argument.
58 static void onpipe(int signo
);
59 static int dispc(struct message
*mp
, const char *a
);
60 static int scroll1(char *arg
, int onlynew
);
61 static void hprf(const char *fmt
, int mesg
, FILE *f
, int threaded
,
62 const char *attrlist
);
63 static int putindent(FILE *fp
, struct message
*mp
, int maxwidth
);
64 static int type1(int *msgvec
, int doign
, int page
, int pipe
, int decode
,
65 char *cmd
, off_t
*tstats
);
66 static int pipe1(char *str
, int doign
);
67 void brokpipe(int signo
);
75 if (cp
== NULL
|| *cp
== '\0')
76 cp
= value("bsdcompat") ? "more" : "pg";
84 int g
, k
, n
, mesg
, flag
= 0, lastg
= 1;
85 struct message
*mp
, *mq
, *lastmq
= NULL
;
87 enum mflag fl
= MNEW
|MFLAGGED
;
90 n
= msgvec
[0]; /* n == {-2, -1, 0}: called from scroll() */
98 if (mb
.mb_threaded
== 0) {
101 for (mp
= &message
[0]; mp
< &message
[msgCount
]; mp
++)
109 if ((n
> 0 && mp
== &message
[n
-1]) ||
110 (n
== 0 && g
== k
) ||
111 (n
== -2 && g
== k
+ size
&&
114 (mp
->m_flag
& fl
) != 0))
118 if (lastmq
&& (n
==-2 || (n
==-1 && mp
== &message
[msgCount
]))) {
124 mesg
= mp
- &message
[0];
125 if (dot
!= &message
[n
-1]) {
126 for (mq
= mp
; mq
< &message
[msgCount
]; mq
++)
132 if (mb
.mb_type
== MB_IMAP
)
133 imap_getheaders(mesg
+1, mesg
+ size
);
134 for (; mp
< &message
[msgCount
]; mp
++) {
140 printhead(mesg
, stdout
, 0);
142 } else { /* threaded */
145 for (mp
= threadroot
; mp
; mp
= next_in_thread(mp
))
146 if (visible(mp
) && (mp
->m_collapsed
<= 0 ||
147 mp
== &message
[n
-1])) {
154 if ((n
> 0 && mp
== &message
[n
-1]) ||
155 (n
== 0 && g
== k
) ||
156 (n
== -2 && g
== k
+ size
&&
159 (mp
->m_flag
& fl
) != 0))
163 if (lastmq
&& (n
==-2 || (n
==-1 && mp
==&message
[msgCount
]))) {
169 if (dot
!= &message
[n
-1]) {
170 for (mq
= mp
; mq
; mq
= next_in_thread(mq
))
171 if (visible(mq
) && mq
->m_collapsed
<= 0) {
177 if (visible(mp
) && (mp
->m_collapsed
<= 0 ||
178 mp
== &message
[n
-1])) {
181 printhead(mp
- &message
[0] + 1, stdout
,
184 mp
= next_in_thread(mp
);
188 printf(catgets(catd
, CATSET
, 6, "No more mail.\n"));
195 * Scroll to the next/previous screen
200 return scroll1(v
, 0);
206 return scroll1(v
, 1);
210 scroll1(char *arg
, int onlynew
)
215 cur
[0] = onlynew
? -1 : 0;
218 case '1': case '2': case '3': case '4': case '5':
219 case '6': case '7': case '8': case '9': case '0':
226 screen
= msgCount
/ size
;
232 screen
+= atoi(arg
+ 1);
234 if (screen
* size
> msgCount
) {
235 screen
= msgCount
/ size
;
236 printf(catgets(catd
, CATSET
, 7,
237 "On last screenful of messages\n"));
245 screen
-= atoi(arg
+ 1);
248 printf(catgets(catd
, CATSET
, 8,
249 "On first screenful of messages\n"));
256 printf(catgets(catd
, CATSET
, 9,
257 "Unrecognized scrolling command \"%s\"\n"), arg
);
260 return(headers(cur
));
264 * Compute screen size.
272 if ((cp
= value("screen")) != NULL
&& (s
= atoi(cp
)) > 0)
274 return scrnheight
- 4;
277 static sigjmp_buf pipejmp
;
284 siglongjmp(pipejmp
, 1);
288 * Print out the headlines for each message
289 * in the passed message list.
296 FILE *volatile obuf
= stdout
;
299 if (is_a_tty
[0] && is_a_tty
[1] && (cp
= value("crt")) != NULL
) {
300 for (n
= 0, ip
= msgvec
; *ip
; ip
++)
302 if (n
> (*cp
== '\0' ? screensize() : atoi(cp
)) + 3) {
304 /* TODO should be below the Popen?
305 * TODO Problem: Popen doesn't encapsulate it,
306 * TODO may leave child running if fdopen() fails!
307 * TODO even more such stuff in this file! */
308 if (sigsetjmp(pipejmp
, 1))
310 if ((obuf
= Popen(cp
, "w", NULL
, 1)) == NULL
) {
314 safe_signal(SIGPIPE
, onpipe
);
317 for (ip
= msgvec
; *ip
!= 0; ip
++)
318 printhead(*ip
, obuf
, mb
.mb_threaded
);
320 setdot(&message
[*ip
- 1]);
322 if (obuf
!= stdout
) {
323 safe_signal(SIGPIPE
, SIG_IGN
);
325 safe_signal(SIGPIPE
, dflpipe
);
331 dispc(struct message
*mp
, const char *a
)
338 if ((mp
->m_flag
& (MREAD
|MNEW
)) == MREAD
)
340 if ((mp
->m_flag
& (MREAD
|MNEW
)) == (MREAD
|MNEW
))
342 if (mp
->m_flag
& MANSWERED
)
344 if (mp
->m_flag
& MDRAFTED
)
346 if ((mp
->m_flag
& (MREAD
|MNEW
)) == MNEW
)
348 if ((mp
->m_flag
& (MREAD
|MNEW
)) == 0)
350 if (mp
->m_flag
& MJUNK
)
352 if (mp
->m_flag
& MSAVED
)
354 if (mp
->m_flag
& MPRESERVE
)
356 if (mp
->m_flag
& (MBOX
|MBOXED
))
358 if (mp
->m_flag
& MFLAGGED
)
360 if (mp
->m_flag
& MKILL
)
362 if (mb
.mb_threaded
== 1 && mp
->m_collapsed
> 0)
364 if (mb
.mb_threaded
== 1 && mp
->m_collapsed
< 0)
370 hprf(const char *fmt
, int mesg
, FILE *f
, int threaded
, const char *attrlist
)
372 struct message
*mp
= &message
[mesg
-1];
373 char *headline
= NULL
, *subjline
, *name
, *cp
, *pbuf
= NULL
;
380 int subjlen
= scrnwidth
, fromlen
, isto
= 0, isaddr
= 0;
383 if ((mp
->m_flag
& MNOFROM
) == 0) {
384 if ((ibuf
= setinput(&mb
, mp
, NEED_HEADER
)) == NULL
)
386 if ((headlen
= readline(ibuf
, &headline
, &headsize
)) < 0)
389 if ((subjline
= hfield1("subject", mp
)) == NULL
) {
394 in
.l
= strlen(subjline
);
395 mime_fromhdr(&in
, &out
, TD_ICONV
| TD_ISPR
);
398 if ((mp
->m_flag
& MNOFROM
) == 0) {
399 pbuf
= ac_alloc(headlen
+ 1);
400 parse(headline
, headlen
, &hl
, pbuf
);
402 hl
.l_from
= /*fakefrom(mp);*/NULL
;
404 hl
.l_date
= fakedate(mp
->m_time
);
406 if (value("datefield") && (cp
= hfield1("date", mp
)) != NULL
)
407 hl
.l_date
= fakedate(rfctime(cp
));
409 if ((name
= hfieldX("newsgroups", mp
)) == NULL
)
410 if ((name
= hfieldX("article-id", mp
)) == NULL
)
413 } else if (value("show-rcpt") == NULL
) {
416 if (value("showto") && name
&& is_myname(skin(name
))) {
417 if ((cp
= hfield1("to", mp
)) != NULL
) {
424 if ((name
= hfield1("to", mp
)) != NULL
)
432 if (value("showname"))
433 name
= realname(name
);
435 name
= prstr(skin(name
));
438 for (fp
= fmt
; *fp
; fp
++) {
442 } else if (*fp
== '+')
444 while (digitchar(*fp
&0377))
449 #if defined (HAVE_MBTOWC) && defined (HAVE_WCWIDTH)
450 if (mb_cur_max
> 1) {
452 if ((s
= mbtowc(&wc
, fp
, mb_cur_max
)) < 0)
455 if ((n
= wcwidth(wc
)) < 0)
459 #endif /* HAVE_MBTOWC && HAVE_WCWIDTH */
468 for (fp
= fmt
; *fp
; fp
++) {
476 } else if (*fp
== '+')
478 if (digitchar(*fp
&0377)) {
480 n
= 10*n
+ *fp
- '0';
481 while (fp
++, digitchar(*fp
&0377));
493 c
= dot
== mp
? *fp
&0377 : ' ';
498 c
= dispc(mp
, attrlist
);
506 for (i
=msgCount
; i
>999; i
/=10)
509 subjlen
-= fprintf(f
, "%*d", n
, mesg
);
517 fprintf(f
, "%s%s", isto
? "To " : "",
518 colalign(name
, fromlen
, 1));
524 subjlen
-= fprintf(f
, "%*.*s", n
, n
, hl
.l_date
);
530 subjlen
-= fprintf(f
, "%*ld", n
,
541 subjlen
-= fprintf(f
, "%*lu", n
,
546 subjlen
-= putindent(f
, mp
,
553 n
= n
>0 ? n
: subjlen
- 2;
556 if (subjline
!= NULL
&& n
>= 0) {
557 /* pretty pathetic */
558 fprintf(f
, B
? "\"%s\"" : "%s",
559 colalign(subjline
, n
, 0));
565 subjlen
-= fprintf(f
, "%*lu", n
, mp
->m_uid
);
570 subjlen
-= fprintf(f
, "%*u", n
, threaded
== 1 ?
577 for (i
=msgCount
; i
>999; i
/=10)
580 fprintf(f
, "%*ld", n
, threaded
?
581 mp
->m_threadpos
: mesg
);
587 subjlen
-= fprintf(f
, "%*g", n
, mp
->m_score
);
603 * Print out the indenting in threaded display.
606 putindent(FILE *fp
, struct message
*mp
, int maxwidth
)
612 int important
= MNEW
|MFLAGGED
;
614 if (mp
->m_level
== 0)
616 cs
= ac_alloc(mp
->m_level
);
617 us
= ac_alloc(mp
->m_level
* sizeof *us
);
619 if (mp
->m_younger
&& (unsigned)i
+ 1 == mp
->m_younger
->m_level
) {
620 if (mp
->m_parent
&& mp
->m_parent
->m_flag
& important
)
621 us
[i
] = mp
->m_flag
& important
? 0x2523 : 0x2520;
623 us
[i
] = mp
->m_flag
& important
? 0x251D : 0x251C;
626 if (mp
->m_parent
&& mp
->m_parent
->m_flag
& important
)
627 us
[i
] = mp
->m_flag
& important
? 0x2517 : 0x2516;
629 us
[i
] = mp
->m_flag
& important
? 0x2515 : 0x2514;
633 for (i
= mp
->m_level
- 2; i
>= 0; i
--) {
635 if ((unsigned)i
> mq
->m_level
- 1) {
641 mq
->m_parent
->m_flag
&important
)
652 for (indent
= 0; (unsigned)indent
< mp
->m_level
&& indent
< maxwidth
;
654 if (indent
< maxwidth
- 1)
655 putuc(us
[indent
], cs
[indent
] & 0377, fp
);
657 putuc(0x21B8, '^', fp
);
665 * Print out the header of a specific message.
666 * This is a slight improvement to the standard one.
669 printhead(int mesg
, FILE *f
, int threaded
)
671 int bsdflags
, bsdheadline
, sz
;
672 char *fmt
, attrlist
[30], *cp
;
674 bsdflags
= value("bsdcompat") != NULL
|| value("bsdflags") != NULL
||
675 getenv("SYSV3") != NULL
;
676 strcpy(attrlist
, bsdflags
? "NU *HMFATK+-J" : "NUROSPMFATK+-J");
677 if ((cp
= value("attrlist")) != NULL
) {
679 if (sz
> (int)sizeof attrlist
- 1)
680 sz
= (int)sizeof attrlist
- 1;
681 memcpy(attrlist
, cp
, sz
);
683 bsdheadline
= value("bsdcompat") != NULL
||
684 value("bsdheadline") != NULL
;
685 if ((fmt
= value("headline")) == NULL
)
687 "%>%a%m %20f %16d %3l/%-5o %i%S" :
688 "%>%a%m %18f %16d %4l/%-5o %i%s";
689 hprf(fmt
, mesg
, f
, threaded
, attrlist
);
693 * Print out the value of dot.
700 printf(catgets(catd
, CATSET
, 13, "%d\n"),
701 (int)(dot
- &message
[0] + 1));
706 * Print out all the possible commands.
712 extern const struct cmd cmdtab
[];
713 const struct cmd
*cp
;
717 printf(catgets(catd
, CATSET
, 14, "Commands are:\n"));
718 for (cc
= 0, cp
= cmdtab
; cp
->c_name
!= NULL
; cp
++) {
719 cc
+= strlen(cp
->c_name
) + 2;
722 cc
= strlen(cp
->c_name
) + 2;
724 if ((cp
+1)->c_name
!= NULL
)
725 printf(catgets(catd
, CATSET
, 15, "%s, "), cp
->c_name
);
727 printf("%s\n", cp
->c_name
);
733 * Type out the messages requested.
735 static sigjmp_buf pipestop
;
738 type1(int *msgvec
, int doign
, int page
, int pipe
, int decode
,
739 char *cmd
, off_t
*tstats
)
747 * Must be static to become excluded from sigsetjmp().
751 /* Avoid longjmp clobbering */
758 if (sigsetjmp(pipestop
, 1))
764 obuf
= Popen(cmd
, "w", cp
, 1);
769 safe_signal(SIGPIPE
, brokpipe
);
771 } else if (value("interactive") != NULL
&&
772 (page
|| (cp
= value("crt")) != NULL
)) {
775 for (ip
= msgvec
; *ip
&& ip
-msgvec
< msgCount
; ip
++) {
776 if ((message
[*ip
-1].m_have
& HAVE_BODY
) == 0) {
777 if ((get_body(&message
[*ip
- 1])) !=
781 nlines
+= message
[*ip
- 1].m_lines
;
784 if (page
|| nlines
> (*cp
? atoi(cp
) : realscreenheight
)) {
786 obuf
= Popen(cp
, "w", NULL
, 1);
791 safe_signal(SIGPIPE
, brokpipe
);
794 for (ip
= msgvec
; *ip
&& ip
- msgvec
< msgCount
; ip
++) {
795 mp
= &message
[*ip
- 1];
799 if (value("quiet") == NULL
)
800 fprintf(obuf
, catgets(catd
, CATSET
, 17,
801 "Message %2d:\n"), *ip
);
802 send(mp
, obuf
, doign
? ignore
: 0, NULL
,
803 pipe
&& value("piperaw") ? SEND_MBOX
:
805 doign
? SEND_TODISP
: SEND_TODISP_ALL
,
807 if (pipe
&& value("page")) {
811 tstats
[0] += mstats
[0];
812 tstats
[1] += mstats
[1];
816 if (obuf
!= stdout
) {
818 * Ignore SIGPIPE so it can't cause a duplicate close.
820 safe_signal(SIGPIPE
, SIG_IGN
);
822 safe_signal(SIGPIPE
, dflpipe
);
828 * Get the last, possibly quoted part of linebuf.
831 laststring(char *linebuf
, int *flag
, int strip
)
837 cp
= strlen(linebuf
) + linebuf
- 1;
840 * Strip away trailing blanks.
842 while (cp
> linebuf
&& whitechar(*cp
& 0377))
851 * Now search for the beginning of the command name.
854 if (quoted
== '\'' || quoted
== '\"') {
859 while (cp
> linebuf
) {
862 } else if (*(cp
- 1) != '\\') {
880 while (cp
> linebuf
&& !whitechar(*cp
& 0377))
882 if (whitechar(*cp
& 0377))
894 * Pipe the messages requested.
897 pipe1(char *str
, int doign
)
904 msgvec
= (int *)salloc((msgCount
+ 2) * sizeof *msgvec
);
905 if ((cmd
= laststring(str
, &f
, 1)) == NULL
) {
907 if (cmd
== NULL
|| *cmd
== '\0') {
908 fputs(catgets(catd
, CATSET
, 16,
909 "variable cmd not set\n"), stderr
);
914 *msgvec
= first(0, MMNORM
);
918 puts(catgets(catd
, CATSET
, 18, "No messages to pipe."));
922 } else if (getmsglist(str
, msgvec
, 0) < 0)
927 printf("No applicable messages.\n");
930 printf(catgets(catd
, CATSET
, 268, "Pipe to: \"%s\"\n"), cmd
);
931 stats
[0] = stats
[1] = 0;
932 if ((ret
= type1(msgvec
, doign
, 0, 1, 0, cmd
, stats
)) == 0) {
933 printf("\"%s\" ", cmd
);
935 printf("%lu", (long)stats
[0]);
937 printf(catgets(catd
, CATSET
, 27, "binary"));
938 printf("/%lu\n", (long)stats
[1]);
944 * Paginate messages, honor ignored fields.
950 return (type1(msgvec
, 1, 1, 0, 0, NULL
, NULL
));
954 * Paginate messages, even printing ignored fields.
961 return (type1(msgvec
, 0, 1, 0, 0, NULL
, NULL
));
965 * Type out messages, honor ignored fields.
972 return(type1(msgvec
, 1, 0, 0, 0, NULL
, NULL
));
976 * Type out messages, even printing ignored fields.
983 return(type1(msgvec
, 0, 0, 0, 0, NULL
, NULL
));
987 * Show MIME-encoded message text, including all fields.
994 return(type1(msgvec
, 0, 0, 0, 1, NULL
, NULL
));
998 * Pipe messages, honor ignored fields.
1004 return(pipe1(str
, 1));
1007 * Pipe messages, not respecting ignored fields.
1013 return(pipe1(str
, 0));
1017 * Respond to a broken pipe signal --
1018 * probably caused by quitting more.
1025 siglongjmp(pipestop
, 1);
1029 * Print the top so many lines of each desired message.
1030 * The number of lines is taken from the variable "toplines"
1031 * and defaults to 5.
1039 int c
, topl
, lines
, lineb
;
1040 char *valtop
, *linebuf
= NULL
;
1045 valtop
= value("toplines");
1046 if (valtop
!= NULL
) {
1047 topl
= atoi(valtop
);
1048 if (topl
< 0 || topl
> 10000)
1052 for (ip
= msgvec
; *ip
&& ip
-msgvec
< msgCount
; ip
++) {
1053 mp
= &message
[*ip
- 1];
1057 if (value("quiet") == NULL
)
1058 printf(catgets(catd
, CATSET
, 19,
1059 "Message %2d:\n"), *ip
);
1060 if (mp
->m_flag
& MNOFROM
)
1061 printf("From %s %s\n", fakefrom(mp
),
1062 fakedate(mp
->m_time
));
1063 if ((ibuf
= setinput(&mb
, mp
, NEED_BODY
)) == NULL
) /* XXX could use TOP */
1068 for (lines
= 0; lines
< c
&& lines
<= topl
; lines
++) {
1069 if (readline(ibuf
, &linebuf
, &linesize
) < 0)
1072 lineb
= blankline(linebuf
);
1081 * Touch all the given messages so that they will
1090 for (ip
= msgvec
; *ip
!= 0; ip
++) {
1091 setdot(&message
[*ip
-1]);
1092 dot
->m_flag
|= MTOUCH
;
1093 dot
->m_flag
&= ~MPRESERVE
;
1095 * POSIX interpretation necessary.
1103 * Make sure all passed messages get mboxed.
1111 for (ip
= msgvec
; *ip
!= 0; ip
++) {
1112 setdot(&message
[*ip
-1]);
1113 dot
->m_flag
|= MTOUCH
|MBOX
;
1114 dot
->m_flag
&= ~MPRESERVE
;
1116 * POSIX interpretation necessary.
1124 * List the folders the user currently has.
1130 char dirname
[PATHSIZE
];
1134 name
= expand(*argv
);
1135 else if (getfold(dirname
, sizeof dirname
) < 0) {
1136 printf(catgets(catd
, CATSET
, 20,
1137 "No value set for \"folder\"\n"));
1141 if (which_protocol(name
) == PROTO_IMAP
)
1142 imap_folders(name
, *argv
== NULL
);
1144 if ((cmd
= value("LISTER")) == NULL
)
1146 run_command(cmd
, 0, -1, -1, name
, NULL
, NULL
);