summaryrefslogtreecommitdiff
path: root/mail/print.c
blob: d193bfc8bfa7e7ddea5fe9e148ad10ca73b45937 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
/* GNU mailutils - a suite of utilities for electronic mail
   Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2, or (at your option)
   any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */

#include "mail.h"

/*
 * p[rint] [msglist]
 * t[ype] [msglist]
 * P[rint] [msglist]
 * T[ype] [msglist]
 */

int
mail_print (int argc, char **argv)
{
  if (argc > 1)
    return util_msglist_command (mail_print, argc, argv, 1);
  else
    {
      message_t mesg;
      header_t hdr;
      body_t body;
      stream_t stream;
      char buffer[512];
      off_t off = 0;
      size_t n = 0, lines = 0;
      FILE *out = ofile;
      attribute_t attr;
      int pagelines = util_get_crt ();
      
      if (util_get_message (mbox, cursor, &mesg, MSG_NODELETED))
        return 1;

      message_lines (mesg, &lines);

      /* If it is POP or IMAP the lines number is not known, so try
	 to be smart about it.  */
      if (lines == 0)
	{
	  if (pagelines)
	    {
	      size_t col = (size_t)util_getcols ();
	      if (col)
		{
		  size_t size = 0;
		  message_size (mesg, &size);
		  lines =  size / col;
		}
	    }
	}

      if (pagelines && lines > pagelines)
	out = popen (getenv ("PAGER"), "w");

      if (islower (argv[0][0]))
	{
	  size_t i, num = 0;
	  char buf[512];

	  message_get_header (mesg, &hdr);
	  header_get_field_count (hdr, &num);

	  for (i = 1; i <= num; i++)
	    {
	      header_get_field_name (hdr, i, buf, sizeof buf, NULL);
	      if (mail_header_is_visible (buf))
		{
		  fprintf (out, "%s: ", buf);
		  header_get_field_value (hdr, i, buf, sizeof buf, NULL);
		  fprintf (out, "%s\n", buf);
		}
	    }
	  fprintf (out, "\n");
	  message_get_body (mesg, &body);
	  body_get_stream (body, &stream);
	}
      else
	message_get_stream (mesg, &stream);

      while (stream_read (stream, buffer, sizeof buffer - 1, off, &n) == 0
             && n != 0)
        {
	  if (ml_got_interrupt())
	    {
	      util_error("\nInterrupt");
	      break;
	    }
          buffer[n] = '\0';
	  fprintf (out, "%s", buffer);
          off += n;
        }
      if (out != ofile)
	pclose (out);

      message_get_attribute (mesg, &attr);
      attribute_set_read (attr);

      return 0;
    }
  return 1;
}

Return to:

Send suggestions and report system problems to the System administrator.