1 /*@ 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 - 2015 Steffen (Daode) Nurpmeso <sdaoden@users.sf.net>.
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. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
38 #ifndef HAVE_AMALGAMATION
42 /* Save/copy the indicated messages at the end of the passed file name.
43 * If mark is true, mark the message "saved" */
44 static int save1(char *str
, int domark
, char const *cmd
,
45 struct ignoretab
*ignoret
, int convert
, int sender_record
,
48 /* Snarf the file from the end of the command line and return a pointer to it.
49 * If there is no file attached, return the mbox file. Put a null in front of
50 * the file name so that the message list processing won't see it, unless the
51 * file name is the only thing on the line, in which case, return 0 in the
52 * reference flag variable */
53 static char * snarf(char *linebuf
, bool_t
*flag
, bool_t usembox
);
55 /* Delete the indicated messages. Set dot to some nice place afterwards */
56 static int delm(int *msgvec
);
59 save1(char *str
, int domark
, char const *cmd
, struct ignoretab
*ignoret
,
60 int convert
, int sender_record
, int domove
)
62 ui64_t mstats
[1], tstats
[2];
64 int last
= 0, *msgvec
, *ip
;
66 char *file
= NULL
, *cp
, *cq
;
67 char const *disp
= "", *shell
= NULL
;
69 bool_t success
= FAL0
, isflag
;
72 msgvec
= salloc((msgCount
+ 2) * sizeof *msgvec
);
74 for (cp
= str
; *cp
!= '\0' && spacechar(*cp
); ++cp
)
76 isflag
= (*cp
!= '\0');
78 if ((file
= snarf(str
, &isflag
, convert
!= SEND_TOFILE
)) == NULL
)
80 while(spacechar(*file
))
84 shell
= ok_vlook(SHELL
);
89 *msgvec
= first(0, MMNORM
);
91 } else if (getmsglist(str
, msgvec
, 0) < 0)
94 if (pstate
& (PS_HOOK_MASK
| PS_ROBOT
)) {
98 printf(_("No messages to %s.\n"), cmd
);
103 if ((cp
= nameof(message
+ *msgvec
- 1, 0)) == NULL
) {
104 printf(_("Cannot determine message sender to %s.\n"), cmd
);
108 for (cq
= cp
; *cq
!= '\0' && *cq
!= '@'; cq
++)
111 if (ok_blook(outfolder
)) {
112 size_t sz
= strlen(cp
) +1;
113 file
= salloc(sz
+ 1);
115 memcpy(file
+ 1, cp
, sz
);
120 /* Pipe target is special TODO hacked in later, normalize flow! */
122 if ((obuf
= Popen(file
, "w", shell
, NULL
, 1)) == NULL
) {
134 if ((file
= expand(file
)) == NULL
)
137 obuf
= ((convert
== SEND_TOFILE
) ? Fopen(file
, "a+") : Zopen(file
, "a+"));
139 obuf
= ((convert
== SEND_TOFILE
) ? Fopen(file
, "wx") : Zopen(file
, "wx"));
145 disp
= _("[New file]");
148 disp
= _("[Appended]");
151 /* TODO RETURN check, but be aware of protocols: v15: Mailbox->lock()! */
152 n_file_lock(fileno(obuf
), FLT_WRITE
, 0,0, UIZ_MAX
);
154 if (!isflag
&& !fstat(fileno(obuf
), &st
) && S_ISREG(st
.st_mode
) &&
155 fseek(obuf
, -2L, SEEK_END
) == 0) {
159 switch (fread(buf
, sizeof *buf
, 2, obuf
)) {
161 if (buf
[1] != '\n') {
187 tstats
[0] = tstats
[1] = 0;
190 for (ip
= msgvec
; *ip
!= 0 && UICMP(z
, PTR2SIZE(ip
- msgvec
), <, msgCount
);
192 mp
= message
+ *ip
- 1;
193 if (sendmp(mp
, obuf
, ignoret
, NULL
, convert
, mstats
) < 0) {
201 mp
->m_flag
|= MSAVED
;
203 mp
->m_flag
|= MDELETED
| MSAVED
;
207 tstats
[0] += mstats
[0];
208 tstats
[1] += mp
->m_lines
;/* TODO won't work, need target! v15!! */
221 if (!Pclose(obuf
, TRU1
))
223 } else if (Fclose(obuf
) != 0)
227 printf("\"%s\" %s %" /*PRIu64 "/%"*/ PRIu64
" bytes\n",
228 file
, disp
, /*tstats[1], TODO v15: lines written */ tstats
[0]);
230 for (ip
= msgvec
; *ip
!= 0 &&
231 UICMP(z
, PTR2SIZE(ip
- msgvec
), <, msgCount
); ++ip
) {
232 mp
= message
+ *ip
- 1;
233 mp
->m_flag
&= ~MSAVED
;
236 for (ip
= msgvec
; *ip
!= 0 &&
237 UICMP(z
, PTR2SIZE(ip
- msgvec
), <, msgCount
); ++ip
) {
238 mp
= message
+ *ip
- 1;
239 mp
->m_flag
&= ~(MSAVED
| MDELETED
);
243 if (domove
&& last
&& success
) {
244 setdot(message
+ last
- 1);
245 last
= first(0, MDELETED
);
246 setdot(message
+ (last
!= 0 ? last
- 1 : 0));
250 return (success
== FAL0
);
254 snarf(char *linebuf
, bool_t
*flag
, bool_t usembox
)
259 if ((cp
= laststring(linebuf
, flag
, TRU1
)) == NULL
) {
264 n_err(_("No file specified\n"));
274 int rv
= -1, *ip
, last
;
278 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
279 mp
= message
+ *ip
- 1;
281 mp
->m_flag
|= MDELETED
| MTOUCH
;
282 mp
->m_flag
&= ~(MPRESERVE
| MSAVED
| MBOX
);
286 setdot(message
+ last
- 1);
287 last
= first(0, MDELETED
);
289 setdot(message
+ last
- 1);
302 int list
[2], *ip
, *ip2
, mdot
, *msgvec
= v
, rv
= 1;
307 /* If some messages were supplied, find the first applicable one
308 * following dot using wrap around */
309 mdot
= (int)PTR2SIZE(dot
- message
+ 1);
311 /* Find first message in supplied message list which follows dot */
312 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
313 if ((mb
.mb_threaded
? message
[*ip
- 1].m_threadpos
> dot
->m_threadpos
321 mp
= message
+ *ip2
- 1;
322 if (!(mp
->m_flag
& MMNDEL
)) {
331 printf(_("No messages applicable\n"));
335 /* If this is the first command, select message 1. Note that this must
336 * exist for us to get here at all */
337 if (!(pstate
& PS_SAW_COMMAND
)) {
343 /* Just find the next good message after dot, no wraparound */
344 if (mb
.mb_threaded
== 0) {
345 for (mp
= dot
+ !!(pstate
& PS_DID_PRINT_DOT
);
346 PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
347 if (!(mp
->m_flag
& MMNORM
))
350 /* TODO The threading code had some bugs that caused crashes.
351 * TODO The last thing (before the deep look) happens here,
352 * TODO so let's not trust PS_DID_PRINT_DOT but check & hope it fixes */
353 if ((mp
= dot
) != NULL
&& (pstate
& PS_DID_PRINT_DOT
))
354 mp
= next_in_thread(mp
);
355 while (mp
!= NULL
&& (mp
->m_flag
& MMNORM
))
356 mp
= next_in_thread(mp
);
358 if (mp
== NULL
|| PTRCMP(mp
, >=, message
+ msgCount
)) {
360 printf(_("At EOF\n"));
368 list
[0] = (int)PTR2SIZE(dot
- message
+ 1);
383 if (*(args
= v
) == '\0' || args
[1] != '\0') {
385 n_err(_("Synopsis: dotmove: up <-> or down <+> by one message\n"));
387 } else switch (args
[0]) {
391 printf(_("At EOF\n"));
393 } else if (getmsglist(UNCONST(/*TODO*/ args
), msgvec
, 0) > 0) {
394 setdot(message
+ msgvec
[0] - 1);
396 rv
= c_headers(msgvec
);
414 rv
= save1(str
, 1, "save", saveignore
, SEND_MBOX
, 0, 0);
426 rv
= save1(str
, 1, "save", saveignore
, SEND_MBOX
, 1, 0);
438 rv
= save1(str
, 0, "copy", saveignore
, SEND_MBOX
, 0, 0);
450 rv
= save1(str
, 0, "copy", saveignore
, SEND_MBOX
, 1, 0);
462 rv
= save1(str
, 0, "move", saveignore
, SEND_MBOX
, 0, 1);
474 rv
= save1(str
, 0, "move", saveignore
, SEND_MBOX
, 1, 1);
486 rv
= save1(str
, 0, "decrypt", saveignore
, SEND_DECRYPT
, 0, 0);
498 rv
= save1(str
, 0, "decrypt", saveignore
, SEND_DECRYPT
, 1, 0);
510 if (str
== NULL
|| *str
== '\0')
511 str
= savestr("/dev/null");
512 rv
= save1(str
, 0, "write", allignore
, SEND_TOFILE
, 0, 0);
531 int list
[2], rv
= 0, *msgvec
= v
, lastdot
;
534 lastdot
= (int)PTR2SIZE(dot
- message
+ 1);
535 if (delm(msgvec
) >= 0) {
536 list
[0] = (int)PTR2SIZE(dot
- message
+ 1);
537 if (list
[0] > lastdot
) {
543 printf(_("At EOF\n"));
545 printf(_("No more messages\n"));
554 int *msgvec
= v
, *ip
;
558 for (ip
= msgvec
; *ip
!= 0 && UICMP(z
, PTR2SIZE(ip
- msgvec
), <, msgCount
);
560 mp
= message
+ *ip
- 1;
563 if (mp
->m_flag
& (MDELETED
| MSAVED
))
564 mp
->m_flag
&= ~(MDELETED
| MSAVED
);
566 mp
->m_flag
&= ~MDELETED
;
575 int *msgvec
= v
, *ip
;
578 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
579 setdot(message
+ *ip
- 1);
580 dot
->m_flag
|= MTOUCH
;
581 dot
->m_flag
&= ~MPRESERVE
;
582 pstate
|= PS_DID_PRINT_DOT
;
591 int *msgvec
= v
, *ip
;
594 if (pstate
& PS_EDIT
) {
595 n_err(_("`mbox' can only be used in a system mailbox\n")); /* TODO */
599 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
600 setdot(message
+ *ip
- 1);
601 dot
->m_flag
|= MTOUCH
| MBOX
;
602 dot
->m_flag
&= ~MPRESERVE
;
603 pstate
|= PS_DID_PRINT_DOT
;
613 int *msgvec
= v
, *ip
, mesg
, rv
= 1;
617 if (pstate
& PS_EDIT
) {
618 printf(_("Cannot \"preserve\" in a system mailbox\n"));
622 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
624 mp
= message
+ mesg
- 1;
625 mp
->m_flag
|= MPRESERVE
;
628 pstate
|= PS_DID_PRINT_DOT
;
639 int *msgvec
= v
, *ip
;
642 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
643 setdot(message
+ *ip
- 1);
644 dot
->m_flag
&= ~(MREAD
| MTOUCH
);
645 dot
->m_flag
|= MSTATUS
;
646 pstate
|= PS_DID_PRINT_DOT
;
655 int *msgvec
= v
, *ip
;
658 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
659 struct message
*mp
= message
+ *ip
- 1;
671 int *msgvec
= v
, *ip
;
674 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
675 m
= message
+ *ip
- 1;
677 if (!(m
->m_flag
& (MFLAG
| MFLAGGED
)))
678 m
->m_flag
|= MFLAG
| MFLAGGED
;
688 int *msgvec
= v
, *ip
;
691 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
692 m
= message
+ *ip
- 1;
694 if (m
->m_flag
& (MFLAG
| MFLAGGED
)) {
695 m
->m_flag
&= ~(MFLAG
| MFLAGGED
);
696 m
->m_flag
|= MUNFLAG
;
707 int *msgvec
= v
, *ip
;
710 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
711 m
= message
+ *ip
- 1;
713 if (!(m
->m_flag
& (MANSWER
| MANSWERED
)))
714 m
->m_flag
|= MANSWER
| MANSWERED
;
721 c_unanswered(void *v
)
724 int *msgvec
= v
, *ip
;
727 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
728 m
= message
+ *ip
- 1;
730 if (m
->m_flag
& (MANSWER
| MANSWERED
)) {
731 m
->m_flag
&= ~(MANSWER
| MANSWERED
);
732 m
->m_flag
|= MUNANSWER
;
743 int *msgvec
= v
, *ip
;
746 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
747 m
= message
+ *ip
- 1;
749 if (!(m
->m_flag
& (MDRAFT
| MDRAFTED
)))
750 m
->m_flag
|= MDRAFT
| MDRAFTED
;
760 int *msgvec
= v
, *ip
;
763 for (ip
= msgvec
; *ip
!= 0; ++ip
) {
764 m
= message
+ *ip
- 1;
766 if (m
->m_flag
& (MDRAFT
| MDRAFTED
)) {
767 m
->m_flag
&= ~(MDRAFT
| MDRAFTED
);
768 m
->m_flag
|= MUNDRAFT
;