1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ Folder (mailbox) initialization, newmail announcement and related.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2017 Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
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
44 /* Update mailname (if name != NULL) and displayname, return whether displayname
45 * was large enough to swallow mailname */
46 static bool_t
_update_mailname(char const *name
);
47 #ifdef HAVE_C90AMEND1 /* TODO unite __narrow_suffix() into one fun! */
48 SINLINE
size_t __narrow_suffix(char const *cp
, size_t cpl
, size_t maxl
);
53 __narrow_suffix(char const *cp
, size_t cpl
, size_t maxl
)
59 for (err
= ok
= i
= 0; cpl
> maxl
|| err
;) {
60 int ml
= mblen(cp
, cpl
);
61 if (ml
< 0) { /* XXX _narrow_suffix(): mblen() error; action? */
79 #endif /* HAVE_C90AMEND1 */
82 _update_mailname(char const *name
)
89 /* Don't realpath(3) if it's only an update request */
92 enum protocol p
= which_protocol(name
);
94 if (p
== PROTO_FILE
|| p
== PROTO_MAILDIR
) {
95 if (realpath(name
, mailname
) == NULL
&& errno
!= ENOENT
) {
96 n_err(_("Can't canonicalize %s\n"), n_shexp_quote_cp(name
, FAL0
));
103 n_strscpy(mailname
, name
, sizeof(mailname
));
109 /* Don't display an absolute path but "+FOLDER" if under *folder* */
113 if(*(folderp
= folder_query()) != '\0'){
115 if(!strncmp(folderp
, mailp
, i
)){
122 /* We want to see the name of the folder .. on the screen */
124 if (i
< sizeof(displayname
) -1)
125 memcpy(dispp
, mailp
, i
+1);
128 /* Avoid disrupting multibyte sequences (if possible) */
129 #ifndef HAVE_C90AMEND1
130 j
= sizeof(displayname
) / 3 - 1;
131 i
-= sizeof(displayname
) - (1/* + */ + 3) - j
;
133 j
= field_detect_clip(sizeof(displayname
) / 3, mailp
, i
);
134 i
= j
+ __narrow_suffix(mailp
+ j
, i
- j
,
135 sizeof(displayname
) - (1/* + */ + 3 + 1) - j
);
137 snprintf(dispp
, sizeof(displayname
), "%.*s...%s",
138 (int)j
, mailp
, mailp
+ i
);
141 n_PS_ROOT_BLOCK((ok_vset(_mailbox_resolved
, mailname
),
142 ok_vset(_mailbox_display
, displayname
)));
148 setfile(char const *name
, enum fedit_mode fm
) /* TODO oh my god */
155 int rv
, omsgCount
= 0;
156 FILE *ibuf
= NULL
, *lckfp
= NULL
;
157 bool_t isdevnull
= FAL0
;
160 n_pstate
&= ~n_PS_SETFILE_OPENED
;
163 enum fexp_mode fexpm
;
165 if((who
= shortcut_expand(name
)) != NULL
){
166 fexpm
= FEXP_NSHORTCUT
/* XXX | FEXP_NSHELL*/;
169 fexpm
= FEXP_FULL
/* XXX FEXP_NSHELL*/;
172 fm
|= FEDIT_SYSBOX
; /* TODO fexpand() needs to tell is-valid-user! */
173 if(*(who
= &name
[1]) == ':')
179 who
= ok_vlook(LOGNAME
);
181 if ((name
= fexpand(name
, fexpm
)) == NULL
)
185 /* For at least substdate() users */
186 time_current_update(&time_current
, FAL0
);
188 switch (which_protocol(name
)) {
190 if (temporary_protocol_ext
!= NULL
)
191 name
= savecat(name
, temporary_protocol_ext
);
192 isdevnull
= ((n_poption
& n_PO_BATCH_FLAG
) && !strcmp(name
, "/dev/null"));
194 do { /* TODO we need objects, goes away then */
195 # ifdef HAVE_REALPATH_NULL
198 if ((cp
= realpath(name
, NULL
)) != NULL
) {
205 if (realpath(name
, cbuf
) != NULL
)
206 name
= savestr(cbuf
);
214 rv
= maildir_setfile(name
, fm
);
219 rv
= pop3_setfile(name
, fm
);
223 n_err(_("Cannot handle protocol: %s\n"), name
);
227 if ((ibuf
= Zopen(name
, "r")) == NULL
) {
230 if ((fm
& FEDIT_SYSBOX
) && e
== ENOENT
) {
231 if (strcmp(who
, ok_vlook(LOGNAME
)) && getpwnam(who
) == NULL
) {
232 n_err(_("%s is not a user of this system\n"),
233 n_shexp_quote_cp(who
, FAL0
));
236 if (!(n_poption
& n_PO_QUICKRUN_MASK
) && ok_blook(bsdcompat
))
237 n_err(_("No mail for %s\n"), who
);
239 if (fm
& FEDIT_NEWMAIL
)
242 mb
.mb_type
= MB_VOID
;
243 if (ok_blook(emptystart
)) {
244 if (!(n_poption
& n_PO_QUICKRUN_MASK
) && !ok_blook(bsdcompat
))
246 /* We must avoid returning -1 and causing program exit */
254 if (fstat(fileno(ibuf
), &stb
) == -1) {
255 if (fm
& FEDIT_NEWMAIL
)
257 n_perr(_("fstat"), 0);
261 if (S_ISREG(stb
.st_mode
) || isdevnull
) {
264 if (fm
& FEDIT_NEWMAIL
)
266 errno
= S_ISDIR(stb
.st_mode
) ? EISDIR
: EINVAL
;
271 if (shudclob
&& !(fm
& FEDIT_NEWMAIL
) && !quit(FAL0
))
277 if (!(fm
& FEDIT_NEWMAIL
) && mb
.mb_sock
.s_fd
>= 0)
278 sclose(&mb
.mb_sock
); /* TODO sorry? VMAILFS->close(), thank you */
281 /* TODO There is no intermediate VOID box we've switched to: name may
282 * TODO point to the same box that we just have written, so any updates
283 * TODO we won't see! Reopen again in this case. RACY! Goes with VOID! */
284 /* TODO In addition: in case of compressed/hook boxes we lock a temporary! */
285 /* TODO We may uselessly open twice but quit() doesn't say whether we were
286 * TODO modified so we can't tell: Mailbox::is_modified() :-(( */
287 if (/*shudclob && !(fm & FEDIT_NEWMAIL) &&*/ !strcmp(name
, mailname
)) {
291 if ((ibuf
= Zopen(name
, "r")) == NULL
||
292 fstat(fileno(ibuf
), &stb
) == -1 ||
293 (!S_ISREG(stb
.st_mode
) && !isdevnull
)) {
300 /* Copy the messages into /tmp and set pointers */
301 if (!(fm
& FEDIT_NEWMAIL
)) {
303 mb
.mb_type
= MB_VOID
;
306 mb
.mb_type
= MB_FILE
;
307 mb
.mb_perm
= (((n_poption
& n_PO_R_FLAG
) || (fm
& FEDIT_RDONLY
) ||
308 access(name
, W_OK
) < 0) ? 0 : MB_DELE
| MB_EDIT
);
321 if (fm
& FEDIT_SYSBOX
)
322 n_pstate
&= ~n_PS_EDIT
;
324 n_pstate
|= n_PS_EDIT
;
328 fseek(mb
.mb_otf
, 0L, SEEK_END
);
329 /* TODO Doing this without holding a lock is.. And not err checking.. */
330 fseek(ibuf
, mailsize
, SEEK_SET
);
332 omsgCount
= msgCount
;
337 else if (!(n_pstate
& n_PS_EDIT
))
338 lckfp
= n_dotlock(name
, fileno(ibuf
), FLT_READ
, offset
,0,
339 (fm
& FEDIT_NEWMAIL
? 0 : UIZ_MAX
));
340 else if (n_file_lock(fileno(ibuf
), FLT_READ
, offset
,0,
341 (fm
& FEDIT_NEWMAIL
? 0 : UIZ_MAX
)))
345 if (!(fm
& FEDIT_NEWMAIL
)) {
346 char const *emsg
= (n_pstate
& n_PS_EDIT
)
347 ? N_("Unable to lock mailbox, aborting operation")
348 : N_("Unable to (dot) lock mailbox, aborting operation");
352 if (!(fm
& FEDIT_NEWMAIL
))
357 mailsize
= fsize(ibuf
);
359 /* TODO This is too simple minded? We should regenerate an index file
360 * TODO to be able to truly tell whether *anything* has changed! */
361 if ((fm
& FEDIT_NEWMAIL
) && UICMP(z
, mailsize
, <=, offset
)) {
365 setptr(ibuf
, offset
);
367 if ((fm
& FEDIT_NEWMAIL
) && mb
.mb_sorted
) {
374 if (lckfp
!= NULL
&& lckfp
!= (FILE*)-1) {
379 if (!(fm
& FEDIT_NEWMAIL
)) {
380 n_pstate
&= ~n_PS_SAW_COMMAND
;
381 n_pstate
|= n_PS_SETFILE_OPENED
;
386 if ((n_poption
& n_PO_EXISTONLY
) && !(n_poption
& n_PO_HEADERLIST
)) {
387 rv
= (msgCount
== 0);
391 if ((!(n_pstate
& n_PS_EDIT
) || (fm
& FEDIT_NEWMAIL
)) && msgCount
== 0) {
392 if (!(fm
& FEDIT_NEWMAIL
)) {
393 if (!ok_blook(emptystart
))
394 n_err(_("No mail for %s\n"), who
);
399 if (fm
& FEDIT_NEWMAIL
)
400 newmailinfo(omsgCount
);
406 if (lckfp
!= NULL
&& lckfp
!= (FILE*)-1)
412 mb
.mb_type
= MB_VOID
;
419 newmailinfo(int omsgCount
)
424 for (i
= 0; i
< omsgCount
; ++i
)
425 message
[i
].m_flag
&= ~MNEWEST
;
427 if (msgCount
> omsgCount
) {
428 for (i
= omsgCount
; i
< msgCount
; ++i
)
429 message
[i
].m_flag
|= MNEWEST
;
430 fprintf(n_stdout
, _("New mail has arrived.\n"));
431 if ((i
= msgCount
- omsgCount
) == 1)
432 fprintf(n_stdout
, _("Loaded 1 new message.\n"));
434 fprintf(n_stdout
, _("Loaded %d new messages.\n"), i
);
436 fprintf(n_stdout
, _("Loaded %d messages.\n"), msgCount
);
438 temporary_folder_hook_check(TRU1
);
442 if (ok_blook(header
))
443 print_headers(omsgCount
+ 1, msgCount
, FAL0
);
452 if (n_msgvec
!= NULL
)
454 n_msgvec
= scalloc(sz
+ 1, sizeof *n_msgvec
);
459 print_header_summary(char const *Larg
)
461 size_t bot
, top
, i
, j
;
465 /* Avoid any messages XXX add a make_mua_silent() and use it? */
466 if ((n_poption
& (n_PO_VERB
| n_PO_EXISTONLY
)) == n_PO_EXISTONLY
) {
467 n_stdout
= freopen("/dev/null", "w", stdout
);
468 n_stderr
= freopen("/dev/null", "w", stderr
);
470 assert(n_msgvec
!= NULL
);
471 i
= (getmsglist(/*TODO make const */n_UNCONST(Larg
), n_msgvec
, 0) <= 0);
472 if (n_poption
& n_PO_EXISTONLY
) {
473 n_exit_status
= (int)i
;
478 for (bot
= msgCount
, top
= 0, i
= 0; (j
= n_msgvec
[i
]) != 0; ++i
) {
485 bot
= 1, top
= msgCount
;
486 print_headers(bot
, top
, (Larg
!= NULL
)); /* TODO should take iterator!! */
492 announce(int printheaders
)
497 mdot
= newfileinfo();
500 dot
= message
+ mdot
- 1;
501 if (printheaders
&& msgCount
> 0 && ok_blook(header
)) {
502 print_header_group(vec
); /* XXX errors? */
511 int u
, n
, mdot
, d
, s
, hidden
, moved
;
514 if (mb
.mb_type
== MB_VOID
) {
520 s
= d
= hidden
= moved
=0;
521 for (mp
= message
, n
= 0, u
= 0; PTRCMP(mp
, <, message
+ msgCount
); ++mp
) {
522 if (mp
->m_flag
& MNEW
)
524 if ((mp
->m_flag
& MREAD
) == 0)
526 if ((mp
->m_flag
& (MDELETED
| MSAVED
)) == (MDELETED
| MSAVED
))
528 if ((mp
->m_flag
& (MDELETED
| MSAVED
)) == MDELETED
)
530 if ((mp
->m_flag
& (MDELETED
| MSAVED
)) == MSAVED
)
532 if (mp
->m_flag
& MHIDDEN
)
536 /* If displayname gets truncated the user effectively has no option to see
537 * the full pathname of the mailbox, so print it at least for '? fi' */
538 fprintf(n_stdout
, _("%s: "), n_shexp_quote_cp(
539 (_update_mailname(NULL
) ? displayname
: mailname
), FAL0
));
541 fprintf(n_stdout
, _("1 message"));
543 fprintf(n_stdout
, _("%d messages"), msgCount
);
545 fprintf(n_stdout
, _(" %d new"), n
);
547 fprintf(n_stdout
, _(" %d unread"), u
);
549 fprintf(n_stdout
, _(" %d deleted"), d
);
551 fprintf(n_stdout
, _(" %d saved"), s
);
553 fprintf(n_stdout
, _(" %d moved"), moved
);
555 fprintf(n_stdout
, _(" %d hidden"), hidden
);
556 else if (mb
.mb_perm
== 0)
557 fprintf(n_stdout
, _(" [Read only]"));
558 putc('\n', n_stdout
);
570 enum mflag avoid
= MHIDDEN
| MDELETED
;
574 if (ok_blook(autothread
)) {
575 n_OBSOLETE(_("please use *autosort=thread* instead of *autothread*"));
577 } else if ((cp
= ok_vlook(autosort
)) != NULL
) {
578 if (mb
.mb_sorted
!= NULL
)
580 mb
.mb_sorted
= sstrdup(cp
);
584 if (mb
.mb_type
== MB_VOID
) {
590 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
591 if ((mp
->m_flag
& (MNEWEST
| avoid
)) == MNEWEST
)
594 if (!nmail
|| PTRCMP(mp
, >=, message
+ msgCount
)) {
595 if (mb
.mb_threaded
) {
596 for (mp
= threadroot
; mp
!= NULL
; mp
= next_in_thread(mp
))
597 if ((mp
->m_flag
& (MNEW
| avoid
)) == MNEW
)
600 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
601 if ((mp
->m_flag
& (MNEW
| avoid
)) == MNEW
)
606 if ((mb
.mb_threaded
? (mp
== NULL
) : PTRCMP(mp
, >=, message
+ msgCount
))) {
607 if (mb
.mb_threaded
) {
608 for (mp
= threadroot
; mp
!= NULL
; mp
= next_in_thread(mp
))
609 if (mp
->m_flag
& MFLAGGED
)
612 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
613 if (mp
->m_flag
& MFLAGGED
)
618 if ((mb
.mb_threaded
? (mp
== NULL
) : PTRCMP(mp
, >=, message
+ msgCount
))) {
619 if (mb
.mb_threaded
) {
620 for (mp
= threadroot
; mp
!= NULL
; mp
= next_in_thread(mp
))
621 if (!(mp
->m_flag
& (MREAD
| avoid
)))
624 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
625 if (!(mp
->m_flag
& (MREAD
| avoid
)))
631 (mb
.mb_threaded
? (mp
!= NULL
) : PTRCMP(mp
, <, message
+ msgCount
)))
632 mdot
= (int)PTR2SIZE(mp
- message
+ 1);
633 else if (ok_blook(showlast
)) {
634 if (mb
.mb_threaded
) {
635 for (mp
= this_in_thread(threadroot
, -1); mp
;
636 mp
= prev_in_thread(mp
))
637 if (!(mp
->m_flag
& avoid
))
639 mdot
= (mp
!= NULL
) ? (int)PTR2SIZE(mp
- message
+ 1) : msgCount
;
641 for (mp
= message
+ msgCount
- 1; mp
>= message
; --mp
)
642 if (!(mp
->m_flag
& avoid
))
644 mdot
= (mp
>= message
) ? (int)PTR2SIZE(mp
- message
+ 1) : msgCount
;
647 (mb
.mb_threaded
? (mp
!= NULL
) : PTRCMP(mp
, <, message
+ msgCount
)))
648 mdot
= (int)PTR2SIZE(mp
- message
+ 1);
649 else if (mb
.mb_threaded
) {
650 for (mp
= threadroot
; mp
; mp
= next_in_thread(mp
))
651 if (!(mp
->m_flag
& avoid
))
653 mdot
= (mp
!= NULL
) ? (int)PTR2SIZE(mp
- message
+ 1) : 1;
655 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
656 if (!(mp
->m_flag
& avoid
))
658 mdot
= PTRCMP(mp
, <, message
+ msgCount
)
659 ? (int)PTR2SIZE(mp
- message
+ 1) : 1;
667 initbox(char const *name
)
672 if (mb
.mb_type
!= MB_VOID
)
673 n_strscpy(prevfile
, mailname
, PATH_MAX
);
675 /* TODO name always NE mailname (but goes away for objects anyway)
676 * TODO Well, not true no more except that in parens */
677 _update_mailname((name
!= mailname
) ? name
: NULL
);
679 if ((mb
.mb_otf
= Ftmp(&tempMesg
, "tmpmbox", OF_WRONLY
| OF_HOLDSIGS
)) ==
681 n_perr(_("temporary mail message file"), 0);
684 if ((mb
.mb_itf
= safe_fopen(tempMesg
, "r", NULL
)) == NULL
) {
685 n_perr(_("temporary mail message file"), 0);
688 Ftmp_release(&tempMesg
);
692 if (mb
.mb_sorted
!= NULL
) {
696 dot
= prevdot
= threadroot
= NULL
;
697 n_pstate
&= ~n_PS_DID_PRINT_DOT
;
703 struct n_string s
, *sp
= &s
;
709 sp
= n_string_creat_auto(sp
);
711 /* *folder* is linked with *_folder_resolved*: we only use the latter */
713 if((rv
= ok_vlook(_folder_resolved
)) != NULL
)
717 * If directory does not start with a <slash> ('/'), the contents
718 * of HOME shall be prefixed to it.
720 * If folder is unset or set to null, [.] filenames beginning with
721 * '+' shall refer to files in the current directory.
722 * We may have the result already */
726 if((cp
= ok_vlook(folder
)) == NULL
)
729 /* Expand the *folder*; skip %: prefix for simplicity of use */
730 if(cp
[0] == '%' && cp
[1] == ':')
732 if((err
= (cp
= fexpand(cp
, FEXP_NSPECIAL
| FEXP_NFOLDER
| FEXP_NSHELL
)
733 ) == NULL
) || *cp
== '\0')
736 switch(which_protocol(cp
)){
738 n_err(_("*folder* can't be set to a flat, readonly POP3 account\n"));
742 /* Further expansion desired */
746 /* Prefix HOME as necessary */
747 if(*cp
!= '/'){ /* XXX path_is_absolute() */
751 home
= ok_vlook(HOME
);
755 sp
= n_string_reserve(sp
, l1
+ 1 + l2
+1);
756 sp
= n_string_push_buf(sp
, home
, l1
);
757 sp
= n_string_push_c(sp
, '/');
758 sp
= n_string_push_buf(sp
, cp
, l2
);
759 cp
= n_string_cp(sp
);
760 sp
= n_string_drop_ownership(sp
);
765 /* TODO Since our visual mailname is resolved via realpath(3) if available
766 * TODO to avoid that we loose track of our currently open folder in case
767 * TODO we chdir away, but still checks the leading path portion against
768 * TODO folder_query() to be able to abbreviate to the +FOLDER syntax if
769 * TODO possible, we need to realpath(3) the folder, too */
771 assert(sp
->s_len
== 0 && sp
->s_dat
== NULL
);
772 # ifndef HAVE_REALPATH_NULL
773 sp
= n_string_reserve(sp
, PATH_MAX
+1);
776 if((sp
->s_dat
= realpath(cp
, sp
->s_dat
)) != NULL
){
777 # ifdef HAVE_REALPATH_NULL
778 n_string_cp(sp
= n_string_assign_cp(sp
, cp
= sp
->s_dat
));
782 }else if(errno
== ENOENT
)
785 n_err(_("Can't canonicalize *folder*: %s\n"),
786 n_shexp_quote_cp(cp
, FAL0
));
790 sp
= n_string_drop_ownership(sp
);
791 #endif /* HAVE_REALPATH */
793 /* Always append a solidus to our result path upon success */
797 if(rv
[(i
= strlen(rv
)) - 1] != '/'){
798 sp
= n_string_reserve(sp
, i
+ 1 +1);
799 sp
= n_string_push_buf(sp
, rv
, i
);
800 sp
= n_string_push_c(sp
, '/');
801 rv
= n_string_cp(sp
);
802 sp
= n_string_drop_ownership(sp
);
807 n_PS_ROOT_BLOCK(ok_vset(_folder_resolved
, rv
));
811 n_err(_("*folder* is not resolvable, using CWD\n"));
812 assert(rv
!= NULL
&& *rv
== '\0');