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
46 * Mail -- a mail program
48 * Perform message editing functions.
51 static int edit1(int *msgvec
, int type
);
54 * Edit a message list.
61 return edit1(msgvec
, 'e');
65 * Invoke the visual editor on a message list.
72 return edit1(msgvec
, 'v');
76 * Edit a message by writing the message into a funnily-named file
77 * (which should not exist) and forking an editor on it.
78 * We get the editor from the stuff above.
81 edit1(int *msgvec
, int type
)
91 * Deal with each message to be edited . . .
93 wb
= value("writebackedited") != NULL
;
94 for (i
= 0; msgvec
[i
] && i
< msgCount
; i
++) {
95 sighandler_type sigint
;
100 printf(tr(72, "Edit message %d [ynq]? "), msgvec
[i
]);
102 if (readline(stdin
, &line
, &linesize
) < 0)
104 for (p
= line
; blankchar(*p
& 0377); p
++);
110 setdot(mp
= &message
[msgvec
[i
] - 1]);
113 sigint
= safe_signal(SIGINT
, SIG_IGN
);
114 --mp
->m_size
; /* XXX[edithack] strip final NL */
115 fp
= run_editor(fp
, -1/*mp->m_size*/, type
,
116 (mb
.mb_perm
& MB_EDIT
) == 0 || !wb
,
117 NULL
, mp
, wb
? SEND_MBOX
: SEND_TODISP_ALL
,
119 ++mp
->m_size
; /* XXX[edithack] */
121 fseek(mb
.mb_otf
, 0L, SEEK_END
);
122 size
= ftell(mb
.mb_otf
);
123 mp
->m_block
= mailx_blockof(size
);
124 mp
->m_offset
= mailx_offsetof(size
);
126 mp
->m_flag
|= MODIFY
;
130 while ((c
= getc(fp
)) != EOF
) {
131 if ((lastnl
= c
== '\n'))
133 if (putc(c
, mb
.mb_otf
) == EOF
)
137 /* MBOX finalize XXX[edithack] is this always MBOX? */
138 if (! lastnl
&& putc('\n', mb
.mb_otf
) != EOF
)
140 if (putc('\n', mb
.mb_otf
) != EOF
)
142 mp
->m_size
= (size_t)size
;/*XXX[edithack] inc.MBOX?!? */
143 if (ferror(mb
.mb_otf
))
147 safe_signal(SIGINT
, sigint
);
155 * Run an editor on the file at "fpp" of "size" bytes,
156 * and return a new file pointer.
157 * Signals must be handled by the caller.
158 * "Type" is 'e' for ed, 'v' for vi.
161 run_editor(FILE *fp
, off_t size
, int type
, int readonly
,
162 struct header
*hp
, struct message
*mp
, enum sendaction action
,
163 sighandler_type oldint
)
173 if ((nf
= Ftemp(&tempEdit
, "Re", "w", readonly
? 0400 : 0600, 1))
175 perror(catgets(catd
, CATSET
, 73, "temporary mail edit file"));
179 t
= GTO
|GSUBJECT
|GCC
|GBCC
|GNL
|GCOMMA
;
180 if (hp
->h_from
|| hp
->h_replyto
|| hp
->h_sender
||
183 puthead(hp
, nf
, t
, SEND_TODISP
, CONV_NONE
, NULL
, NULL
);
186 send(mp
, nf
, 0, NULL
, action
, NULL
);
189 while (--size
>= 0 && (t
= getc(fp
)) != EOF
)
192 while ((t
= getc(fp
)) != EOF
)
196 if (fstat(fileno(nf
), &statb
) < 0)
199 modtime
= statb
.st_mtime
;
208 if (Fclose(nf
) < 0) {
216 if ((edit
= value(type
== 'e' ? "EDITOR" : "VISUAL")) == NULL
)
217 edit
= type
== 'e' ? "ed" : "vi";
219 if (run_command(edit
, oldint
!= SIG_IGN
? &set
: NULL
, -1, -1,
220 tempEdit
, NULL
, NULL
) < 0) {
226 * If in read only mode or file unchanged, just remove the editor
227 * temporary and return.
234 if (stat(tempEdit
, &statb
) < 0) {
239 if (modtime
== statb
.st_mtime
) {
245 * Now switch to new file.
247 if ((nf
= Fopen(tempEdit
, "a+")) == NULL
)