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 - 2013 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. 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
44 static int save1(char *str
, int domark
, char const *cmd
,
45 struct ignoretab
*ignore
, int convert
,
46 int sender_record
, int domove
);
47 static char * snarf(char *linebuf
, int *flag
, int usembox
);
48 static int delm(int *msgvec
);
50 static void clob1(int n
);
52 static int ignore1(char **list
, struct ignoretab
*tab
, char const *which
);
53 static int igshow(struct ignoretab
*tab
, char const *which
);
54 static int igcomp(const void *l
, const void *r
);
55 static void unignore_one(const char *name
, struct ignoretab
*tab
);
56 static int unignore1(char **list
, struct ignoretab
*tab
,
60 * If any arguments were given, go to the next applicable argument
61 * following dot, otherwise, go to the next applicable message.
62 * If given as first command with no arguments, print first message.
75 * If some messages were supplied, find the
76 * first applicable one following dot using
80 mdot
= dot
- &message
[0] + 1;
83 * Find the first message in the supplied
84 * message list which follows dot.
87 for (ip
= msgvec
; *ip
!= 0; ip
++) {
90 * Work around an optimizer bug in Cray Standard C Version 4.0.3 (057126).
91 * Otherwise, SIGFPE is received when mb.mb_threaded != 0.
93 #pragma _CRI suppress ip
95 if (mb
.mb_threaded
? message
[*ip
-1].m_threadpos
>
104 mp
= &message
[*ip2
- 1];
105 if ((mp
->m_flag
& (MDELETED
|MHIDDEN
)) == 0) {
114 printf(tr(21, "No messages applicable\n"));
119 * If this is the first command, select message 1.
120 * Note that this must exist for us to get here at all.
130 * Just find the next good message after dot, no
134 if (mb
.mb_threaded
== 0) {
135 for (mp
= dot
+ did_print_dot
; mp
< &message
[msgCount
]; mp
++)
136 if ((mp
->m_flag
& (MDELETED
|MSAVED
|MHIDDEN
)) == 0)
141 mp
= next_in_thread(mp
);
142 while (mp
&& mp
->m_flag
& (MDELETED
|MSAVED
|MHIDDEN
))
143 mp
= next_in_thread(mp
);
145 if (mp
== NULL
|| mp
>= &message
[msgCount
]) {
147 printf(tr(22, "At EOF\n"));
156 list
[0] = dot
- &message
[0] + 1;
162 * Save a message in a file. Mark the message as saved
163 * so we can discard when the user quits.
170 return save1(str
, 1, "save", saveignore
, SEND_MBOX
, 0, 0);
178 return save1(str
, 1, "save", saveignore
, SEND_MBOX
, 1, 0);
182 * Copy a message to a file without affected its saved-ness
189 return save1(str
, 0, "copy", saveignore
, SEND_MBOX
, 0, 0);
197 return save1(str
, 0, "copy", saveignore
, SEND_MBOX
, 1, 0);
201 * Move a message to a file.
208 return save1(str
, 0, "move", saveignore
, SEND_MBOX
, 0, 1);
216 return save1(str
, 0, "move", saveignore
, SEND_MBOX
, 1, 1);
220 * Decrypt and copy a message to a file.
227 return save1(str
, 0, "decrypt", saveignore
, SEND_DECRYPT
, 0, 0);
235 return save1(str
, 0, "decrypt", saveignore
, SEND_DECRYPT
, 1, 0);
239 * Save/copy the indicated messages at the end of the passed file name.
240 * If mark is true, mark the message "saved."
243 save1(char *str
, int domark
, char const *cmd
, struct ignoretab
*ignoret
,
244 int convert
, int sender_record
, int domove
)
246 off_t mstats
[2], tstats
[2];
248 int newfile
= 0, compressed
= 0, success
= 1, last
= 0, f
, *msgvec
, *ip
;
250 char *file
= NULL
, *cp
, *cq
;
251 char const *disp
= "";
256 msgvec
= (int *)salloc((msgCount
+ 2) * sizeof *msgvec
);
258 for (cp
= str
; *cp
&& blankchar(*cp
& 0377); cp
++);
261 if ((file
= snarf(str
, &f
, convert
!= SEND_TOFILE
)) == NULL
)
265 *msgvec
= first(0, MMNORM
);
269 printf(tr(23, "No messages to %s.\n"), cmd
);
274 if (f
&& getmsglist(str
, msgvec
, 0) < 0)
279 printf("No applicable messages.\n");
283 if ((cp
= nameof(&message
[*msgvec
- 1], 0)) == NULL
) {
285 "Cannot determine message sender to %s.\n"),
289 for (cq
= cp
; *cq
&& *cq
!= '@'; cq
++);
291 if (value("outfolder")) {
292 size_t sz
= strlen(cp
) + 1;
293 file
= salloc(sz
+ 1);
295 memcpy(file
+ 1, cp
, sz
);
299 if ((file
= expand(file
)) == NULL
)
301 prot
= which_protocol(file
);
302 if (prot
!= PROTO_IMAP
) {
303 if (access(file
, 0) >= 0) {
305 disp
= tr(25, "[Appended]");
308 disp
= tr(26, "[New file]");
311 if ((obuf
= convert
== SEND_TOFILE
? Fopen(file
, "a+") :
312 Zopen(file
, "a+", &compressed
)) == NULL
) {
313 if ((obuf
= convert
== SEND_TOFILE
? Fopen(file
, "wx") :
314 Zopen(file
, "wx", &compressed
)) == NULL
) {
321 disp
= tr(25, "[Appended]");
323 if (!newfile
&& fstat(fileno(obuf
), &st
) &&
324 S_ISREG(st
.st_mode
) &&
325 fseek(obuf
, -2L, SEEK_END
) == 0) {
329 switch (fread(buf
, sizeof *buf
, 2, obuf
)) {
331 if (buf
[1] != '\n') {
354 tstats
[0] = tstats
[1] = 0;
355 imap_created_mailbox
= 0;
356 for (ip
= msgvec
; *ip
&& ip
-msgvec
< msgCount
; ip
++) {
357 mp
= &message
[*ip
- 1];
358 if (prot
== PROTO_IMAP
&&
359 ignoret
[0].i_count
== 0 &&
360 ignoret
[1].i_count
== 0
361 #ifdef HAVE_IMAP /* TODO revisit */
362 && imap_thisaccount(file
)
366 if (imap_copy(mp
, *ip
, file
) == STOP
)
371 mstats
[1] = mp
->m_xsize
;
373 } else if (sendmp(mp
, obuf
, ignoret
, NULL
,
374 convert
, mstats
) < 0) {
380 mp
->m_flag
|= MSAVED
;
382 mp
->m_flag
|= MDELETED
|MSAVED
;
385 tstats
[0] += mstats
[0];
386 tstats
[1] += mstats
[1];
393 if (Fclose(obuf
) != 0)
396 if (prot
== PROTO_IMAP
|| prot
== PROTO_MAILDIR
) {
399 ((prot
== PROTO_IMAP
) && disconnected(file
))
402 (imap_created_mailbox
? "[New file]"
405 printf("\"%s\" %s ", file
, disp
);
407 printf("%lu", (long)tstats
[0]);
409 printf(tr(27, "binary"));
410 printf("/%lu\n", (long)tstats
[1]);
412 for (ip
= msgvec
; *ip
&& ip
-msgvec
< msgCount
; ip
++) {
413 mp
= &message
[*ip
- 1];
414 mp
->m_flag
&= ~MSAVED
;
417 for (ip
= msgvec
; *ip
&& ip
-msgvec
< msgCount
; ip
++) {
418 mp
= &message
[*ip
- 1];
419 mp
->m_flag
&= ~(MSAVED
|MDELETED
);
422 if (domove
&& last
&& success
) {
423 setdot(&message
[last
-1]);
424 last
= first(0, MDELETED
);
425 setdot(&message
[last
? last
-1 : 0]);
427 return(success
== 0);
431 * Write the indicated messages at the end of the passed
432 * file name, minus header and trailing blank line.
433 * This is the MIME save function.
440 if (str
== NULL
|| *str
== '\0')
441 str
= savestr("/dev/null");
442 return (save1(str
, 0, "write", allignore
, SEND_TOFILE
, 0, 0));
446 * Snarf the file from the end of the command line and
447 * return a pointer to it. If there is no file attached,
448 * return the mbox file. Put a null in front of the file
449 * name so that the message list processing won't see it,
450 * unless the file name is the only thing on the line, in
451 * which case, return 0 in the reference flag variable.
454 snarf(char *linebuf
, int *flag
, int usembox
)
459 if ((cp
= laststring(linebuf
, flag
, 0)) == NULL
) {
464 fprintf(stderr
, tr(28, "No file specified.\n"));
481 * Delete messages, then type the new dot.
490 lastdot
= dot
- &message
[0] + 1;
491 if (delm(msgvec
) >= 0) {
492 list
[0] = dot
- &message
[0] + 1;
493 if (list
[0] > lastdot
) {
498 printf(tr(29, "At EOF\n"));
500 printf(tr(30, "No more messages\n"));
505 * Delete the indicated messages.
506 * Set dot to some nice place afterwards.
507 * Internal interface.
517 for (ip
= msgvec
; *ip
!= 0; ip
++) {
518 mp
= &message
[*ip
- 1];
520 mp
->m_flag
|= MDELETED
|MTOUCH
;
521 mp
->m_flag
&= ~(MPRESERVE
|MSAVED
|MBOX
);
525 setdot(&message
[last
-1]);
526 last
= first(0, MDELETED
);
528 setdot(&message
[last
-1]);
538 * Following can't happen -- it keeps lint happy
545 * Undelete the indicated messages.
554 for (ip
= msgvec
; *ip
&& ip
-msgvec
< msgCount
; ip
++) {
555 mp
= &message
[*ip
- 1];
558 if (mp
->m_flag
& (MDELETED
|MSAVED
))
559 mp
->m_flag
&= ~(MDELETED
|MSAVED
);
561 mp
->m_flag
&= ~MDELETED
;
563 if (mb
.mb_type
== MB_IMAP
|| mb
.mb_type
== MB_CACHE
)
564 imap_undelete(mp
, *ip
);
572 * Interactively dump core on "core"
580 extern int wait_status
;
584 switch (pid
= fork()) {
592 (void)printf(tr(31, "Okie dokie"));
593 (void)fflush(stdout
);
594 (void)wait_child(pid
);
596 if (WCOREDUMP(wait_status
))
597 (void)printf(tr(32, " -- Core dumped.\n"));
599 (void)printf(tr(33, " -- Can't dump core.\n"));
611 for (cp
= buf
; cp
< &buf
[512]; *cp
++ = (char)0xFF)
617 * Clobber as many bytes of stack as the user requests.
628 times
= (atoi(argv
[0]) + 511) / 512;
632 #endif /* HAVE_ASSERTS */
635 * Add the given header fields to the retained list.
636 * If no arguments, print the current list of retained fields.
643 return ignore1(list
, ignore
+ 1, "retained");
647 * Add the given header fields to the ignored list.
648 * If no arguments, print the current list of ignored fields.
655 return ignore1(list
, ignore
, "ignored");
659 saveretfield(void *v
)
663 return ignore1(list
, saveignore
+ 1, "retained");
671 return ignore1(list
, saveignore
, "ignored");
679 return ignore1(list
, fwdignore
+ 1, "retained");
687 return ignore1(list
, fwdignore
, "ignored");
691 ignore1(char **list
, struct ignoretab
*tab
, char const *which
)
698 return igshow(tab
, which
);
699 for (ap
= list
; *ap
!= 0; ap
++) {
704 field
= ac_alloc(sz
+ 1);
705 i_strcpy(field
, *ap
, sz
+ 1);
707 if (member(field
, tab
)) {
712 igp
= (struct ignore
*)scalloc(1, sizeof (struct ignore
));
713 sz
= strlen(field
) + 1;
714 igp
->i_field
= smalloc(sz
);
715 memcpy(igp
->i_field
, field
, sz
);
716 igp
->i_link
= tab
->i_head
[h
];
717 tab
->i_head
[h
] = igp
;
725 * Print out all currently retained fields.
728 igshow(struct ignoretab
*tab
, char const *which
)
734 if (tab
->i_count
== 0) {
735 printf(tr(34, "No fields currently being %s.\n"), which
);
739 ring
= (char **)salloc((tab
->i_count
+ 1) * sizeof (char *));
741 for (h
= 0; h
< HSHSIZE
; h
++)
742 for (igp
= tab
->i_head
[h
]; igp
!= 0; igp
= igp
->i_link
)
743 *ap
++ = igp
->i_field
;
745 qsort(ring
, tab
->i_count
, sizeof (char *), igcomp
);
746 for (ap
= ring
; *ap
!= 0; ap
++)
752 * Compare two names for sorting ignored field list.
755 igcomp(const void *l
, const void *r
)
757 return (strcmp(*(char**)UNCONST(l
), *(char**)UNCONST(r
)));
763 return unignore1((char **)v
, ignore
, "ignored");
769 return unignore1((char **)v
, ignore
+ 1, "retained");
773 unsaveignore(void *v
)
775 return unignore1((char **)v
, saveignore
, "ignored");
779 unsaveretain(void *v
)
781 return unignore1((char **)v
, saveignore
+ 1, "retained");
787 return unignore1((char **)v
, fwdignore
, "ignored");
793 return unignore1((char **)v
, fwdignore
+ 1, "retained");
797 unignore_one(const char *name
, struct ignoretab
*tab
)
799 struct ignore
*ip
, *iq
= NULL
;
802 for (ip
= tab
->i_head
[h
]; ip
; ip
= ip
->i_link
) {
803 if (asccasecmp(ip
->i_field
, name
) == 0) {
806 iq
->i_link
= ip
->i_link
;
808 tab
->i_head
[h
] = ip
->i_link
;
818 unignore1(char **list
, struct ignoretab
*tab
, char const *which
)
820 if (tab
->i_count
== 0) {
821 printf(tr(34, "No fields currently being %s.\n"), which
);
825 unignore_one(*list
++, tab
);