1 /* GNU Mailutils -- a suite of utilities for electronic mail
2 Copyright (C) 1999-2021 Free Software Foundation, Inc.
3
4 GNU Mailutils is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 3, or (at your option)
7 any later version.
8
9 GNU Mailutils is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with GNU Mailutils. If not, see <http://www.gnu.org/licenses/>. */
16
17 #include "mail.h"
18
19 /*
20 * to[p] [msglist]
21 */
22
23 static int
top0(msgset_t * mspec,mu_message_t msg,void * data)24 top0 (msgset_t *mspec, mu_message_t msg, void *data)
25 {
26 mu_stream_t stream;
27 char *buf = NULL;
28 size_t size = 0, n;
29 int lines;
30
31 if (mailvar_get (&lines, mailvar_name_toplines, mailvar_type_number, 1)
32 || lines < 0)
33 return 1;
34
35 mu_message_get_streamref (msg, &stream);
36 for (; lines > 0; lines--)
37 {
38 int status = mu_stream_getline (stream, &buf, &size, &n);
39 if (status != 0 || n == 0)
40 break;
41 mu_printf ("%s", buf);
42 }
43 free (buf);
44 mu_stream_destroy (&stream);
45 set_cursor (msgset_msgno (mspec));
46
47 util_mark_read (msg);
48
49 return 0;
50 }
51
52 int
mail_top(int argc,char ** argv)53 mail_top (int argc, char **argv)
54 {
55 return util_foreach_msg (argc, argv, MSG_NODELETED, top0, NULL);
56 }
57
58