path: root/mbbsd/mail.c

/* $Id$ */
#include "bbs.h"
static int      mailkeep = 0,       mailsum = 0;
static int      mailsumlimit = 0,   mailmaxkeep = 0;
static char     currmaildir[32];
static char     msg_cc[] = ANSI_COLOR(32) "[群組名單]" ANSI_RESET "\n";
static char     listfile[] = "list.0";

enum {
    SHOWMAIL_NORM = 0,
    SHOWMAIL_SUM,
    SHOWMAIL_RANGE,
} SHOWMAIL_MODES;
static int  showmail_mode = SHOWMAIL_NORM;

int
setforward(void)
{
    char            buf[80], ip[50] = "", yn[4];
    FILE           *fp;
    int flIdiotSent2Self = 0;
    int oidlen = strlen(cuser.userid);

    sethomepath(buf, cuser.userid);
    strcat(buf, "/.forward");
    if ((fp = fopen(buf, "r"))) {
    fscanf(fp, "%s", ip); // XXX check buffer size
    fclose(fp);
    }
    getdata_buf(b_lines - 1, 0, "請輸入自動轉寄的Email: ",
        ip, sizeof(ip), DOECHO);

    /* anti idiots */
    if (strncasecmp(ip, cuser.userid, oidlen) == 0)
    {
    int addrlen = strlen(ip);
    if( addrlen == oidlen ||
        (addrlen > oidlen && 
         strcasecmp(ip + oidlen, str_mail_address) == 0))
        flIdiotSent2Self = 1;
    }

    if (ip[0] && ip[0] != ' ' && !flIdiotSent2Self) {
    getdata(b_lines, 0, "確定開啟自動轉信功\能?(Y/n)", yn, sizeof(yn),
        LCECHO);
    if (yn[0] != 'n' && (fp = fopen(buf, "w"))) {
        fputs(ip, fp);
        fclose(fp);
        vmsg("設定完成!");
        return 0;
    }
    }
    unlink(buf);
    if(flIdiotSent2Self)
    vmsg("自動轉寄是不會設定給自己的，想取消用空白就可以了。");
    else
    vmsg("取消自動轉信!");
    return 0;
}

int
toggle_showmail_mode(void)
{
    showmail_mode ++;
    showmail_mode %= SHOWMAIL_RANGE;
    return FULLUPDATE;
}

int
built_mail_index(void)
{
    char            genbuf[128];

    move(b_lines - 4, 0);
    outs("本功\能只在信箱檔毀損時使用，" ANSI_COLOR(1;33) "無法" ANSI_RESET "救回被刪除的信件。\n"
     "除非您清楚這個功\能的作用，否則" ANSI_COLOR(1;33) "請不要使用" ANSI_RESET "。\n"
     "警告：任意的使用將導致" ANSI_COLOR(1;33) "不可預期的結果" ANSI_RESET "！\n");
    getdata(b_lines - 1, 0,
        "確定重建信箱?(y/N)", genbuf, 3,
        LCECHO);
    if (genbuf[0] != 'y')
    return 0;

    snprintf(genbuf, sizeof(genbuf),
         BBSHOME "/bin/buildir " BBSHOME "/home/%c/%s",
         cuser.userid[0], cuser.userid);
    move(22, 0);
    outs(ANSI_COLOR(1;31) "已經處理完畢!! 諸多不便 敬請原諒~" ANSI_RESET);
    pressanykey();
    system(genbuf);
    return 0;
}

int
mailalert(const char *userid)
{
    userinfo_t     *uentp = NULL;
    int             n, tuid, i;

    if ((tuid = searchuser(userid, NULL)) == 0)
    return -1;

    n = count_logins(tuid, 0);
    for (i = 1; i <= n; i++)
    if ((uentp = (userinfo_t *) search_ulistn(tuid, i)))
        uentp->mailalert = 1;
    return 0;
}

int
mail_muser(userec_t muser, const char *title, const char *filename)
{
    return mail_id(muser.userid, title, filename, cuser.userid);
}

int
mail_id(const char *id, const char *title, const char *src, const char *owner)
{
    fileheader_t    mhdr;
    char            dst[128], dirf[128];
    sethomepath(dst, id);
    if (stampfile(dst, &mhdr))
    return 0;
    strlcpy(mhdr.owner, owner, sizeof(mhdr.owner));
    strncpy(mhdr.title, title, TTLEN);
    mhdr.filemode = 0;
    Copy(src, dst);

    sethomedir(dirf, id);
    append_record_forward(dirf, &mhdr, sizeof(mhdr), id);
    mailalert(id);
    return 0;
}

int
invalidaddr(const char *addr)
{
#ifdef DEBUG_FWDADDRERR
    const char *origaddr = addr;
    char errmsg[PATHLEN];
#endif

    if (*addr == '\0')
    return 1;       /* blank */

    while (*addr) {
#ifdef DEBUG_FWDADDRERR
    if (not_alnum(*addr) && !strchr("[].@-_+", *addr))
    {
        int c = (*addr) & 0xff;
        clear();
        move(2,0);
        outs(
        "您輸入的位址錯誤 (address error)。 \n\n"
        "由於最近許\多人反應打入正確的位址(id或email)後系統會判斷錯誤\n"
        "但檢查不出原因，所以我們需要正確的錯誤回報。\n\n"
        "如果你確實打錯了，請直接略過下面的說明。\n"
        "如果你認為你輸入的位址確實是對的，請把下面的訊息複製起來\n"
        "並貼到 SYSOP 或 PttBug 板。本站為造成不便深感抱歉。\n\n"
        ANSI_COLOR(1;33));
        sprintf(errmsg, "原始輸入位址: [%s]\n"
            "錯誤位置: 第 %d 字元: 0x%02X [ %c ]\n", 
            origaddr, (int)(addr - origaddr+1), c, c);
        outs(errmsg);
        outs(ANSI_RESET);
        vmsg("請按任意鍵繼續");
        clear();
        return 1;
    }
#else
    if (not_alnum(*addr) && !strchr("[].@-_", *addr))
        return 1;
#endif
    addr++;
    }
    return 0;
}

int
m_internet(void)
{
    char            receiver[60];

    getdata(20, 0, "收信人：", receiver, sizeof(receiver), DOECHO);
    trim(receiver);
    if (strchr(receiver, '@') && !invalidaddr(receiver) &&
    getdata(21, 0, "主  題：", save_title, STRLEN, DOECHO))
    do_send(receiver, save_title);
    else {
    vmsg("收信人或主題不正確,請重新選取指令");
    }
    return 0;
}

void
m_init(void)
{
    sethomedir(currmaildir, cuser.userid);
}

void
setupmailusage(void)
{  // Ptt: get_sum_records is a bad function
    int             max_keepmail = MAX_KEEPMAIL;
    if (HasUserPerm(PERM_SYSSUPERSUBOP)) {
        mailsumlimit = 900;
        max_keepmail = 700;
    }
    else if (HasUserPerm(PERM_SYSSUBOP | PERM_ACCTREG | PERM_PRG |
             PERM_ACTION | PERM_PAINT)) {
        mailsumlimit = 700;
        max_keepmail = 500;
    } else if (HasUserPerm(PERM_BM)) {
        mailsumlimit = 500;
        max_keepmail = 300;
    } else if (HasUserPerm(PERM_LOGINOK))
        mailsumlimit = 200;
    else
        mailsumlimit = 50;
    mailsumlimit += (cuser.exmailbox + ADD_EXMAILBOX) * 10;
    mailmaxkeep = max_keepmail + cuser.exmailbox;
        mailkeep=get_num_records(currmaildir,sizeof(fileheader_t));
        mailsum =get_sum_records(currmaildir, sizeof(fileheader_t));
}

#define MAILBOX_LIM_OK   0
#define MAILBOX_LIM_KEEP 1
#define MAILBOX_LIM_SUM  2
static int
chk_mailbox_limit(void)
{
    if (HasUserPerm(PERM_SYSOP) || HasUserPerm(PERM_MAILLIMIT))
    return MAILBOX_LIM_OK;

    if (!mailkeep)
    setupmailusage();

    if (mailkeep > mailmaxkeep)
    return MAILBOX_LIM_KEEP;
    if (mailsum > mailsumlimit)
    return MAILBOX_LIM_SUM;
    return MAILBOX_LIM_OK;
}

int
chkmailbox(void)
{
    m_init();

    switch (chk_mailbox_limit()) {
    case MAILBOX_LIM_KEEP:
        bell();
        bell();
        vmsgf("您保存信件數目 %d 超出上限 %d, 請整理", mailkeep, mailmaxkeep);
        return mailkeep;

    case MAILBOX_LIM_SUM:
        bell();
        bell();
        vmsgf("信箱容量(大小,非件數) %d 超出上限 %d, "
        "請砍過長的水球記錄或信件", mailsum, mailsumlimit);
        if(showmail_mode != SHOWMAIL_SUM)
        {
        showmail_mode = SHOWMAIL_SUM;
        vmsg("信箱顯示模式已自動改為顯示大小，請盡速整理");
        }
        return mailsum;

    default:
        return 0;
    }
}

static void
do_hold_mail(const char *fpath, const char *receiver, const char *holder)
{
    char            buf[80], title[128];

    fileheader_t    mymail;

    sethomepath(buf, holder);
    stampfile(buf, &mymail);

    mymail.filemode = FILE_READ ;
    strlcpy(mymail.owner, "[備.忘.錄]", sizeof(mymail.owner));
    if (receiver) {
    snprintf(title, sizeof(title), "(%s) %s", receiver, save_title);
    strncpy(mymail.title, title, TTLEN);
    } else
    strlcpy(mymail.title, save_title, sizeof(mymail.title));

    sethomedir(title, holder);

    unlink(buf);
    Copy(fpath, buf);
    append_record_forward(title, &mymail, sizeof(mymail), holder);
}

void
hold_mail(const char *fpath, const char *receiver)
{
    char            buf[4];

    getdata(b_lines - 1, 0, "已順利寄出，是否自存底稿(Y/N)？[N] ",
        buf, sizeof(buf), LCECHO);

    if (buf[0] == 'y')
    do_hold_mail(fpath, receiver, cuser.userid);
}

int
do_send(const char *userid, const char *title)
{
    fileheader_t    mhdr;
    char            fpath[STRLEN];
    char            receiver[IDLEN + 1];
    char            genbuf[200];
    int             internet_mail, i;
    userec_t        xuser;

    STATINC(STAT_DOSEND);
    if (strchr(userid, '@'))
    internet_mail = 1;
    else {
    internet_mail = 0;
    if (!getuser(userid, &xuser))
        return -1;
    if (!(xuser.userlevel & PERM_READMAIL))
        return -3;

    curredit |= EDIT_MAIL;
    curredit &= ~EDIT_ITEM;
    }
    /* process title */
    if (title)
    strncpy(save_title, title, STRLEN-1);
    else
    getdata(2, 0, "主題：", save_title, STRLEN - 20, DOECHO);

    setutmpmode(SMAIL);

    fpath[0] = '\0';

    if (internet_mail) {
    int             res, ch;

    if (vedit(fpath, NA, NULL) == -1) {
        unlink(fpath);
        clear();
        return -2;
    }
    clear();
    prints("信件即將寄給 %s\n標題為：%s\n確定要寄出嗎? (Y/N) [Y]",
           userid, save_title);
    ch = igetch();
    switch (ch) {
    case 'N':
    case 'n':
        outs("N\n信件已取消");
        res = -2;
        break;
    default:
        outs("Y\n請稍候, 信件傳遞中...\n");
        res =
#ifndef USE_BSMTP
        bbs_sendmail(fpath, save_title, userid);
#else
        bsmtp(fpath, save_title, userid, 0);
#endif
        hold_mail(fpath, userid);
    }
    unlink(fpath);
    return res;
    } else {
    strlcpy(receiver, userid, sizeof(receiver));
    sethomepath(genbuf, userid);
    stampfile(genbuf, &mhdr);
    strlcpy(mhdr.owner, cuser.userid, sizeof(mhdr.owner));
    if (vedit(genbuf, YEA, NULL) == -1) {
        unlink(genbuf);
        clear();
        return -2;
    }
    /* why not make title here? */
    strncpy(mhdr.title, save_title, TTLEN);
    clear();
    sethomefile(fpath, userid, FN_OVERRIDES);
    i = belong(fpath, cuser.userid);
    sethomefile(fpath, userid, FN_REJECT);

    if (i || !belong(fpath, cuser.userid)) {/* Ptt: 用belong有點討厭 */
        sethomedir(fpath, userid);
        if (append_record_forward(fpath, &mhdr, sizeof(mhdr), userid) == -1)
        return -1;
        mailalert(userid);
    }
    hold_mail(genbuf, userid);
    return 0;
    }
}

void
my_send(const char *uident)
{
    switch (do_send(uident, NULL)) {
    case -1:
    outs(err_uid);
    break;
    case -2:
    outs(msg_cancel);
    break;
    case -3:
    prints("使用者 [%s] 無法收信", uident);
    break;
    }
    pressanykey();
}

int
m_send(void)
{
    char            uident[40];

    stand_title("且聽風的話");
    usercomplete(msg_uid, uident);
    showplans(uident);
    if (uident[0])
    my_send(uident);
    return 0;
}

/* 群組寄信、回信 : multi_send, multi_reply */
static void
multi_list(int *reciper)
{
    char            uid[16];
    char            genbuf[200];

    while (1) {
    stand_title("群組寄信名單");
    ShowNameList(3, 0, msg_cc);
    move(1, 0);
    outs("(I)引入好友 (O)引入上線通知 (N)引入新文章通知 (0-9)引入其他特別名單");
    getdata(2, 0,
           "(A)增加     (D)刪除         (M)確認寄信名單   (Q)取消 ？[M]",
        genbuf, 4, LCECHO);
    switch (genbuf[0]) {
    case 'a':
        while (1) {
        move(1, 0);
        usercomplete("請輸入要增加的代號(只按 ENTER 結束新增): ", uid);
        if (uid[0] == '\0')
            break;

        move(2, 0);
        clrtoeol();

        if (!searchuser(uid, uid))
            outs(err_uid);
        else if (!InNameList(uid)) {
            AddNameList(uid);
            (*reciper)++;
        }
        ShowNameList(3, 0, msg_cc);
        }
        break;
    case 'd':
        while (*reciper) {
        move(1, 0);
        namecomplete("請輸入要刪除的代號(只按 ENTER 結束刪除): ", uid);
        if (uid[0] == '\0')
            break;
        if (RemoveNameList(uid))
            (*reciper)--;
        ShowNameList(3, 0, msg_cc);
        }
        break;
    case '0':
    case '1':
    case '2':
    case '3':
    case '4':
    case '5':
    case '6':
    case '7':
    case '8':
    case '9':
        listfile[5] = genbuf[0];
        genbuf[0] = '1';
    case 'i':
        setuserfile(genbuf, genbuf[0] == '1' ? listfile : fn_overrides);
        ToggleNameList(reciper, genbuf, msg_cc);
        break;
    case 'o':
        setuserfile(genbuf, "alohaed");
        ToggleNameList(reciper, genbuf, msg_cc);
        break;
    case 'n':
        setuserfile(genbuf, "postlist");
        ToggleNameList(reciper, genbuf, msg_cc);
        break;
    case 'q':
        *reciper = 0;
        return;
    default:
        return;
    }
    }
}

static void
multi_send(char *title)
{
    FILE           *fp;
    struct word_t  *p = NULL;
    fileheader_t    mymail;
    char            fpath[TTLEN], *ptr;
    int             reciper, listing;
    char            genbuf[256];

    CreateNameList();
    listing = reciper = 0;
    if (*quote_file) {
    AddNameList(quote_user);
    reciper = 1;
    fp = fopen(quote_file, "r");
    assert(fp);
    while (fgets(genbuf, sizeof(genbuf), fp)) {
        if (strncmp(genbuf, "※ ", 3)) {
        if (listing)
            break;
        } else {
        if (listing) {
            strtok(ptr = genbuf + 3, " \n\r");
            do {
            if (searchuser(ptr, ptr) && !InNameList(ptr) &&
                strcmp(cuser.userid, ptr)) {
                AddNameList(ptr);
                reciper++;
            }
            } while ((ptr = (char *)strtok(NULL, " \n\r")));
        } else if (!strncmp(genbuf + 3, "[通告]", 6))
            listing = 1;
        }
    }
    fclose(fp);
    ShowNameList(3, 0, msg_cc);
    }
    multi_list(&reciper);
    move(1, 0);
    clrtobot();

    if (reciper) {
    setutmpmode(SMAIL);
    if (title)
        do_reply_title(2, title);
    else {
        getdata(2, 0, "主題：", fpath, sizeof(fpath), DOECHO);
        snprintf(save_title, sizeof(save_title), "[通告] %s", fpath);
    }

    setuserfile(fpath, fn_notes);

    if ((fp = fopen(fpath, "w"))) {
        fprintf(fp, "※ [通告] 共 %d 人收件", reciper);
        listing = 80;

        for (p = toplev; p; p = p->next) {
        reciper = strlen(p->word) + 1;
        if (listing + reciper > 75) {
            listing = reciper;
            fprintf(fp, "\n※");
        } else
            listing += reciper;

        fprintf(fp, " %s", p->word);
        }
        memset(genbuf, '-', 75);
        genbuf[75] = '\0';
        fprintf(fp, "\n%s\n\n", genbuf);
        fclose(fp);
    }
    curredit |= EDIT_LIST;

    if (vedit(fpath, YEA, NULL) == -1) {
        unlink(fpath);
        curredit = 0;
        vmsg(msg_cancel);
        return;
    }
    listing = 80;

    for (p = toplev; p; p = p->next) {
        reciper = strlen(p->word) + 1;
        if (listing + reciper > 75) {
        listing = reciper;
        outc('\n');
        } else {
        listing += reciper;
        outc(' ');
        }
        outs(p->word);
        if (searchuser(p->word, p->word) && strcmp(STR_GUEST, p->word))
        sethomepath(genbuf, p->word);
        else
        continue;
        stampfile(genbuf, &mymail);
        unlink(genbuf);
        Copy(fpath, genbuf);

        strlcpy(mymail.owner, cuser.userid, sizeof(mymail.owner));
        strlcpy(mymail.title, save_title, sizeof(mymail.title));
        /* TODO is this really going to work!?!?!? */
        mymail.filemode |= FILE_MULTI;  /* multi-send flag */
        sethomedir(genbuf, p->word);
        if (append_record_forward(genbuf, &mymail, sizeof(mymail), p->word) == -1)
        vmsg(err_uid);
        mailalert(p->word);
    }
    hold_mail(fpath, NULL);
    unlink(fpath);
    curredit = 0;
    } else
    vmsg(msg_cancel);
}

static int
multi_reply(int ent, fileheader_t * fhdr, const char *direct)
{
    if (!(fhdr->filemode & FILE_MULTI))
    return mail_reply(ent, fhdr, direct);

    stand_title("群組回信");
    strlcpy(quote_user, fhdr->owner, sizeof(quote_user));
    setuserfile(quote_file, fhdr->filename);
    multi_send(fhdr->title);
    quote_user[0]='\0';
    quote_file[0]='\0';
    return 0;
}

int
mail_list(void)
{
    stand_title("群組作業");
    multi_send(NULL);
    return 0;
}

int
mail_all(void)
{
    FILE           *fp;
    fileheader_t    mymail;
    char            fpath[TTLEN];
    char            genbuf[200];
    int             i, unum;
    char           *userid;

    stand_title("給所有使用者的系統通告");
    setutmpmode(SMAIL);
    getdata(2, 0, "主題：", fpath, sizeof(fpath), DOECHO);
    snprintf(save_title, sizeof(save_title),
         "[系統通告]" ANSI_COLOR(1;32) " %s" ANSI_RESET, fpath);

    setuserfile(fpath, fn_notes);

    if ((fp = fopen(fpath, "w"))) {
    fprintf(fp, "※ [" ANSI_COLOR(1) "系統通告" ANSI_RESET "] 這是封給所有使用者的信\n");
    fprintf(fp, "-----------------------------------------------------"
        "----------------------\n");
    fclose(fp);
    }
    *quote_file = 0;

    curredit |= EDIT_MAIL;
    curredit &= ~EDIT_ITEM;
    if (vedit(fpath, YEA, NULL) == -1) {
    curredit = 0;
    unlink(fpath);
    outs(msg_cancel);
    pressanykey();
    return 0;
    }
    curredit = 0;

    setutmpmode(MAILALL);
    stand_title("寄信中...");

    sethomepath(genbuf, cuser.userid);
    stampfile(genbuf, &mymail);
    unlink(genbuf);
    Copy(fpath, genbuf);
    unlink(fpath);
    strcpy(fpath, genbuf);

    strlcpy(mymail.owner, cuser.userid, sizeof(mymail.owner));  /* 站長 ID */
    strlcpy(mymail.title, save_title, sizeof(mymail.title));

    sethomedir(genbuf, cuser.userid);
    if (append_record_forward(genbuf, &mymail, sizeof(mymail), cuser.userid) == -1)
    outs(err_uid);

    for (unum = SHM->number, i = 0; i < unum; i++) {
    if (bad_user_id(SHM->userid[i]))
        continue;       /* Ptt */

    userid = SHM->userid[i];
    if (strcmp(userid, STR_GUEST) && strcmp(userid, "new") &&
        strcmp(userid, cuser.userid)) {
        sethomepath(genbuf, userid);
        stampfile(genbuf, &mymail);
        unlink(genbuf);
        Copy(fpath, genbuf);

        strlcpy(mymail.owner, cuser.userid, sizeof(mymail.owner));
        strlcpy(mymail.title, save_title, sizeof(mymail.title));
        /* mymail.filemode |= FILE_MARKED; Ptt 公告改成不會mark */
        sethomedir(genbuf, userid);
        if (append_record_forward(genbuf, &mymail, sizeof(mymail), userid) == -1)
        outs(err_uid);
        vmsgf("%*s %5d / %5d", IDLEN + 1, userid, i + 1, unum);
    }
    }
    return 0;
}

int
mail_mbox(void)
{
    char            cmd[100];
    fileheader_t    fhdr;

    snprintf(cmd, sizeof(cmd), "/tmp/%s.uu", cuser.userid);
    snprintf(fhdr.title, sizeof(fhdr.title), "%s 私人資料", cuser.userid);
    doforward(cmd, &fhdr, 'Z');
    return 0;
}

static int
m_forward(int ent, fileheader_t * fhdr, const char *direct)
{
    char            uid[STRLEN];

    stand_title("轉達信件");
    usercomplete(msg_uid, uid);
    if (uid[0] == '\0')
    return FULLUPDATE;

    strlcpy(quote_user, fhdr->owner, sizeof(quote_user));
    setuserfile(quote_file, fhdr->filename);
    snprintf(save_title, sizeof(save_title), "%.64s (fwd)", fhdr->title);
    move(1, 0);
    clrtobot();
    prints("轉信給: %s\n標  題: %s\n", uid, save_title);

    switch (do_send(uid, save_title)) {
    case -1:
    outs(err_uid);
    break;
    case -2:
    outs(msg_cancel);
    break;
    case -3:
    prints("使用者 [%s] 無法收信", uid);
    break;
    }
    pressanykey();
    return FULLUPDATE;
}

struct ReadNewMailArg {
    int idc;
    int *delmsgs;
    int delcnt;
    int mrd;
};

static int
read_new_mail(void * voidfptr, void *optarg)
{
    fileheader_t *fptr=(fileheader_t*)voidfptr;
    struct ReadNewMailArg *arg=(struct ReadNewMailArg*)optarg;
    char            done = NA, delete_it;
    char            fname[PATHLEN];
    char            genbuf[4];

    arg->idc++;
    if (fptr->filemode)
    return 0;
    clear();
    move(10, 0);
    prints("您要讀來自[%s]的訊息(%s)嗎？", fptr->owner, fptr->title);
    getdata(11, 0, "請您確定(Y/N/Q)?[Y] ", genbuf, 3, DOECHO);
    if (genbuf[0] == 'q')
    return QUIT;
    if (genbuf[0] == 'n')
    return 0;

    setuserfile(fname, fptr->filename);
    fptr->filemode |= FILE_READ;
    if (substitute_record(currmaildir, fptr, sizeof(*fptr), arg->idc))
    return -1;

    arg->mrd = 1;
    delete_it = NA;
    while (!done) {
    int more_result = more(fname, YEA);

        switch (more_result) {
        case 999:
        mail_reply(arg->idc, fptr, currmaildir);
            return FULLUPDATE;
        case -1:
            return READ_SKIP;
        case 0:
            break;
        default:
            return more_result;
        }

    outmsglr(MSG_MAILER, MSG_MAILER_LEN, "", 0);

    switch (igetch()) {
    case 'r':
    case 'R':
        mail_reply(arg->idc, fptr, currmaildir);
        break;
    case 'x':
        m_forward(arg->idc, fptr, currmaildir);
        break;
    case 'y':
        multi_reply(arg->idc, fptr, currmaildir);
        break;
    case 'd':
    case 'D':
        delete_it = YEA;
    default:
        done = YEA;
    }
    }
    if (delete_it) {
    if(arg->delcnt==1000) {
        vmsg("一次最多刪 1000 封信");
        return 0;
    }
    clear();
    prints("刪除信件《%s》", fptr->title);
    getdata(1, 0, msg_sure_ny, genbuf, 2, LCECHO);
    if (genbuf[0] == 'y') {
        if(arg->delmsgs==NULL) {
        arg->delmsgs=(int*)malloc(sizeof(int)*1000);
        if(arg->delmsgs==NULL) {
            vmsg("失敗, 請洽站長");
            return 0;
        }
        }
        unlink(fname);
        arg->delmsgs[arg->delcnt++] = arg->idc;
        mailsum = mailkeep = 0;
    }
    }
    clear();
    return 0;
}

int
m_new(void)
{
    struct ReadNewMailArg arg;
    clear();
    setutmpmode(RMAIL);
    memset(&arg, 0, sizeof(arg));
    clear();
    curredit |= EDIT_MAIL;
    curredit &= ~EDIT_ITEM;
    if (apply_record(currmaildir, read_new_mail, sizeof(fileheader_t), &arg) == -1) {
    if(arg.delmsgs)
        free(arg.delmsgs);
    vmsg("沒有新信件了");
    return -1;
    }
    curredit = 0;
    currutmp->mailalert = load_mailalert(cuser.userid); 
    while (arg.delcnt--)
    delete_record(currmaildir, sizeof(fileheader_t), arg.delmsgs[arg.delcnt]);
    if(arg.delmsgs)
    free(arg.delmsgs);
    vmsg(arg.mrd ? "信已閱\畢" : "沒有新信件了");
    return -1;
}

static void
mailtitle(void)
{
    char            buf[256];

    showtitle("\0郵件選單", BBSName);
    prints("[←]離開[↑↓]選擇[→]閱\讀信件 [R]回信 [x]轉達 "
         "[y]群組回信 [O]站外信:%s [h]求助\n" ANSI_COLOR(7) ""
         "  編號   %s 作 者          信  件  標  題     " 
         ANSI_COLOR(32) "",
         REJECT_OUTTAMAIL ? ANSI_COLOR(31) "關" ANSI_RESET : "開",
         (showmail_mode == SHOWMAIL_SUM) ? "大 小":"日 期");
    buf[0] = 0;
    if (mailsumlimit) {
    snprintf(buf, sizeof(buf),
         "(容量:%d/%dk %d/%d篇)", mailsum, mailsumlimit,
         mailkeep, mailmaxkeep);
    }
    prints("%-29s" ANSI_RESET, buf);
}

static void
maildoent(int num, fileheader_t * ent)
{
    char           *title, *mark, color, type = "+ Mm"[(ent->filemode & 3)];
    char datepart[6];

    if (TagNum && !Tagger(atoi(ent->filename + 2), 0, TAG_NIN))
    type = 'D';

    title = subject(mark = ent->title);
    if (title == mark) {
    color = '1';
    mark = "◇";
    } else {
    color = '3';
    mark = "R:";
    }
    
    strncpy(datepart, ent->date, sizeof(datepart)-1);
    datepart[sizeof(datepart)-1] = 0;

    switch(showmail_mode)
    {
    case SHOWMAIL_SUM:
        {
        /* evaluate size */
        size_t filesz = 0;
        char ut = 'k';
        char buf[MAXPATHLEN];
        struct stat st;

        setuserfile(buf, ent->filename);
        if (stat(buf, &st) >= 0)
        {
            filesz = st.st_size;
            /* find printing unit */
            filesz = (filesz + 1023) / 1024;
            if(filesz > 9999)
            {
            filesz = (filesz+512) / 1024; 
            ut = 'M';
            }
            if(filesz > 9999)
            {
            filesz = (filesz+512) / 1024;
            ut = 'G';
            }
        }
        sprintf(datepart, "%4lu%c", (unsigned long)filesz, ut);
        }
        break;
    default:
        break;
    }

    if (strncmp(currtitle, title, TTLEN))
    prints("%6d %c %-6s%-15.14s%s %.46s\n", num, type,
           datepart, ent->owner, mark, title);
    else
    prints("%6d %c %-6s%-15.14s" ANSI_COLOR(1;3%c) 
        "%s %.46s" ANSI_COLOR(0) "\n", num, type,
           datepart, ent->owner, color, mark, title);
}


static int
mail_del(int ent, const fileheader_t * fhdr, const char *direct)
{
    char            genbuf[200];

    if (fhdr->filemode & FILE_MARKED)
    return DONOTHING;

    if (currmode & MODE_SELECT) {
        vmsg("請先回到正常模式後再進行刪除...");
        return READ_REDRAW;
    }

    if (getans(msg_del_ny) == 'y') {
    if (!delete_record(direct, sizeof(*fhdr), ent)) {
            setupmailusage();
        setdirpath(genbuf, direct, fhdr->filename);
        unlink(genbuf);
        mailsum = mailkeep = 0;
        return DIRCHANGED;
    }
    }
    return READ_REDRAW;
}

static int
mail_read(int ent, fileheader_t * fhdr, const char *direct)
{
    char            buf[PATHLEN];
    char            done, delete_it, replied;

    clear();
    setdirpath(buf, direct, fhdr->filename);
    strncpy(currtitle, subject(fhdr->title), TTLEN);
    done = delete_it = replied = NA;
    while (!done) {
    int             more_result = more(buf, YEA);

    /* whether success or not, update flag.
     * or users may bug about "black-hole" mails
     * and blinking notification */
    if( !(fhdr->filemode & FILE_READ))
    {
        fhdr->filemode |= FILE_READ;
        substitute_ref_record(direct, fhdr, ent);
    }
    switch (more_result) {
    case -1:
        /* no such file */
        clear();
        vmsg("此封信無內容。");
        return FULLUPDATE;
    case 999:
        mail_reply(ent, fhdr, direct);
        return FULLUPDATE;
        case 0:
            break;
    default:
            return more_result;
    }
    outmsglr(MSG_MAILER, MSG_MAILER_LEN, "", 0);

    switch (igetch()) {
    case 'r':
    case 'R':
        replied = YEA;
        mail_reply(ent, fhdr, direct);
        break;
    case 'x':
        m_forward(ent, fhdr, direct);
        break;
    case 'y':
        multi_reply(ent, fhdr, direct);
        break;
    case 'd':
        delete_it = YEA;
    default:
        done = YEA;
    }
    }
    if (delete_it)
    mail_del(ent, fhdr, direct);
    else {
    fhdr->filemode |= FILE_READ;
        substitute_ref_record(direct, fhdr, ent);
    }
    return FULLUPDATE;
}

/* in boards/mail 回信給原作者，轉信站亦可 */
int
mail_reply(int ent, const fileheader_t * fhdr, const char *direct)
{
    char            uid[STRLEN];
    char           *t;
    FILE           *fp;
    char            genbuf[512];

    stand_title("回  信");

    /* 判斷是 boards 或 mail */
    if (curredit & EDIT_MAIL)
    setuserfile(quote_file, fhdr->filename);
    else
    setbfile(quote_file, currboard, fhdr->filename);

    /* find the author */
    strlcpy(quote_user, fhdr->owner, sizeof(quote_user));
    if (strchr(quote_user, '.')) {
    genbuf[0] = '\0';
    if ((fp = fopen(quote_file, "r"))) {
        fgets(genbuf, sizeof(genbuf), fp);
        fclose(fp);
    }
    t = strtok(genbuf, str_space);
    if (t && (!strcmp(t, str_author1) || !strcmp(t, str_author2)))
        strlcpy(uid, strtok(NULL, str_space), sizeof(uid)); // XXX if strtok return NULL
    else {
        vmsg("錯誤: 找不到作者。");
        return FULLUPDATE;
    }
    } else
    strlcpy(uid, quote_user, sizeof(uid));

    /* make the title */
    do_reply_title(3, fhdr->title);
    prints("\n收信人: %s\n標  題: %s\n", uid, save_title);

    /* edit, then send the mail */
    ent = curredit;
    switch (do_send(uid, save_title)) {
    case -1:
    outs(err_uid);
    break;
    case -2:
    outs(msg_cancel);
    break;
    case -3:
    prints("使用者 [%s] 無法收信", uid);
    break;
    }
    curredit = ent;
    pressanykey();
    return FULLUPDATE;
}

static int
mail_edit(int ent, fileheader_t * fhdr, const char *direct)
{
    char            genbuf[200];

    if (!HasUserPerm(PERM_SYSOP) &&
    strcmp(cuser.userid, fhdr->owner) &&
    strcmp("[備.忘.錄]", fhdr->owner))
    return DONOTHING;

    setdirpath(genbuf, direct, fhdr->filename);
    vedit(genbuf, NA, NULL);
    return FULLUPDATE;
}

static int
mail_nooutmail(int ent, fileheader_t * fhdr, const char *direct)
{
    cuser.uflag2 ^= REJ_OUTTAMAIL;
    passwd_update(usernum, &cuser);
    return FULLUPDATE;

}

static int
mail_mark(int ent, fileheader_t * fhdr, const char *direct)
{
    fhdr->filemode ^= FILE_MARKED;

    substitute_ref_record(direct, fhdr, ent);
    return PART_REDRAW;
}

/* help for mail reading */
static const char    * const mail_help[] = {
    "\0電子信箱操作說明",
    "\01基本命令",
    "(p/↑)(n/↓) 前一篇/下一篇文章",
    "(P)(PgUp)    前一頁",
    "(N)(PgDn)    下一頁",
    "(數字鍵)     跳到第 ## 筆",
    "($)          跳到最後一筆",
    "(r)(→)      讀信",
    "(R)/(y)      回信 / 群組回信",
    "\01進階命令",
    "(TAB)        切換顯示模式(目前有一般及顯示大小)",
    "(O)          關閉/開啟 站外信件轉入",
    "(c)/(z)      此信件收入私人信件夾/進入私人信件夾",
    "(x)/(X)      轉信給其它使用者/轉錄文章到其他看板",
    "(F)/(u)      將信傳送回您的電子信箱/水球整理寄回信箱",
    "(d)          殺掉此信",
    "(D)          殺掉指定範圍的信",
    "(m)          將信標記，以防被清除",
    "(^G)         立即重建信箱 (信箱毀損時用)",
    "(t)          標記欲刪除信件",
    "(^D)         刪除已標記信件",
    NULL
};

static int
m_help(void)
{
    show_help(mail_help);
    return FULLUPDATE;
}

static int
mail_cross_post(int ent, fileheader_t * fhdr, const char *direct)
{
    char            xboard[20], fname[80], xfpath[80], xtitle[80], inputbuf[10];
    fileheader_t    xfile;
    FILE           *xptr;
    int             author = 0;
    char            genbuf[200];
    char            genbuf2[4];

    move(2, 0);
    clrtoeol();
    move(1, 0);
    CompleteBoard("轉錄本文章於看板：", xboard);
    if (*xboard == '\0' || !haspostperm(xboard))
    return FULLUPDATE;

    ent = getbnum(xboard);
    if ( !((currmode & MODE_BOARD) || HasUserPerm(PERM_SYSOP)) &&
        (cuser.firstlogin > (now - (time4_t)bcache[ent - 1].post_limit_regtime * 2592000) ||
        cuser.numlogins < ((unsigned int)(bcache[ent - 1].post_limit_logins) * 10) ||
        cuser.numposts < ((unsigned int)(bcache[ent - 1].post_limit_posts) * 10)) ) {
    move(5, 10);
    vmsg("你不夠資深喔！");
    return FULLUPDATE;
    }

#ifdef USE_COOLDOWN
   if(check_cooldown(&bcache[ent - 1]))
       return READ_REDRAW;
#endif

    ent = 1;
    if (HasUserPerm(PERM_SYSOP) || !strcmp(fhdr->owner, cuser.userid)) {
    getdata(2, 0, "(1)原文轉載 (2)舊轉錄格式？[1] ",
        genbuf, 3, DOECHO);
    if (genbuf[0] != '2') {
        ent = 0;
        getdata(2, 0, "保留原作者名稱嗎?[Y] ", inputbuf, 3, DOECHO);
        if (inputbuf[0] != 'n' && inputbuf[0] != 'N')
        author = 1;
    }
    }
    if (ent)
    snprintf(xtitle, sizeof(xtitle), "[轉錄]%.66s", fhdr->title);
    else
    strlcpy(xtitle, fhdr->title, sizeof(xtitle));

    snprintf(genbuf, sizeof(genbuf), "採用原標題《%.60s》嗎?[Y] ", xtitle);
    getdata(2, 0, genbuf, genbuf2, sizeof(genbuf2), LCECHO);
    if (*genbuf2 == 'n')
    if (getdata(2, 0, "標題：", genbuf, TTLEN, DOECHO))
        strlcpy(xtitle, genbuf, sizeof(xtitle));

    getdata(2, 0, "(S)存檔 (L)站內 (Q)取消？[Q] ", genbuf, 3, LCECHO);
    if (genbuf[0] == 'l' || genbuf[0] == 's') {
    int             currmode0 = currmode;

    currmode = 0;
    setbpath(xfpath, xboard);
    stampfile(xfpath, &xfile);
    if (author)
        strlcpy(xfile.owner, fhdr->owner, sizeof(xfile.owner));
    else
        strlcpy(xfile.owner, cuser.userid, sizeof(xfile.owner));
    strlcpy(xfile.title, xtitle, sizeof(xfile.title));
    if (genbuf[0] == 'l') {
        xfile.filemode = FILE_LOCAL;
    }
    setuserfile(fname, fhdr->filename);
    if (ent) {
        const char *save_currboard;
        xptr = fopen(xfpath, "w");
        assert(xptr);

        strlcpy(save_title, xfile.title, sizeof(save_title));
        save_currboard = currboard;
        currboard = xboard;
        write_header(xptr, save_title);
        currboard = save_currboard;

        fprintf(xptr, "※ [本文轉錄自 %s 信箱]\n\n", cuser.userid);

        b_suckinfile(xptr, fname);
        addsignature(xptr, 0);
        fclose(xptr);
    } else {
        unlink(xfpath);
        Copy(fname, xfpath);
    }

    setbdir(fname, xboard);
    append_record(fname, &xfile, sizeof(xfile));
    setbtotal(getbnum(xboard));
    if (!xfile.filemode)
        outgo_post(&xfile, xboard, cuser.userid, cuser.nickname);
#ifdef USE_COOLDOWN
    if (bcache[getbnum(xboard) - 1].brdattr & BRD_COOLDOWN)
        add_cooldowntime(usernum, 5);
#endif
    cuser.numposts++;
    vmsg("文章轉錄完成");
    currmode = currmode0;
    }
    return FULLUPDATE;
}

int
mail_man(void)
{
    char            buf[PATHLEN], buf1[64];
    int             mode0 = currutmp->mode;
    int             stat0 = currstat;

    sethomeman(buf, cuser.userid);
    snprintf(buf1, sizeof(buf1), "%s 的信件夾", cuser.userid);
    a_menu(buf1, buf, HasUserPerm(PERM_MAILLIMIT), NULL);
    currutmp->mode = mode0;
    currstat = stat0;
    return FULLUPDATE;
}

static int
mail_cite(int ent, fileheader_t * fhdr, const char *direct)
{
    char            fpath[PATHLEN];
    char            title[TTLEN + 1];
    static char     xboard[20];
    char            buf[20];
    int             bid;

    setuserfile(fpath, fhdr->filename);
    strlcpy(title, "◇ ", sizeof(title));
    strncpy(title + 3, fhdr->title, TTLEN - 3);
    title[TTLEN] = '\0';
    a_copyitem(fpath, title, 0, 1);

    if (cuser.userlevel >= PERM_BM) {
    move(2, 0);
    clrtoeol();
    move(3, 0);
    clrtoeol();
    move(1, 0);

    CompleteBoard("輸入看板名稱 (直接Enter進入私人信件夾)：", buf);
    if (*buf)
        strlcpy(xboard, buf, sizeof(xboard));
    if (*xboard && ((bid = getbnum(xboard)) >= 0)){ /* XXXbid */
        setapath(fpath, xboard);
        setutmpmode(ANNOUNCE);
        a_menu(xboard, fpath, 
            HasUserPerm(PERM_ALLBOARD) ? 2 : is_BM_cache(bid) ? 1 : 0,
           NULL);
    } else {
        mail_man();
    }
    return FULLUPDATE;
    } else {
    mail_man();
    return FULLUPDATE;
    }
}

static int
mail_save(int ent, fileheader_t * fhdr, const char *direct)
{
    char            fpath[PATHLEN];
    char            title[TTLEN + 1];

    if (HasUserPerm(PERM_MAILLIMIT)) {
    setuserfile(fpath, fhdr->filename);
    strlcpy(title, "◇ ", sizeof(title));
    strncpy(title + 3, fhdr->title, TTLEN - 3);
    title[TTLEN] = '\0';
    a_copyitem(fpath, title, fhdr->owner, 1);
    sethomeman(fpath, cuser.userid);
    a_menu(cuser.userid, fpath, 1, NULL);
    return FULLUPDATE;
    }
    return DONOTHING;
}

#ifdef OUTJOBSPOOL
static int
mail_waterball(int ent, fileheader_t * fhdr, const char *direct)
{
    static char     address[60], cmode = 1;
    char            fname[500], genbuf[200];
    FILE           *fp;

    if (!(strstr(fhdr->title, "熱線") && strstr(fhdr->title, "記錄"))) {
    vmsg("必須是 熱線記錄 才能使用水球整理的唷!");
    return 1;
    }
    if (!address[0])
    strlcpy(address, cuser.email, sizeof(address));
    move(b_lines - 8, 0);
    outs("水球整理程式:\n"
     "系統將會按照和不同人丟的水球各自獨立\n"
     "於整點的時候 (尖峰時段除外) 將資料整理好寄送給您\n\n\n");
    if (address[0]) {
    snprintf(genbuf, sizeof(genbuf), "寄給 [%s] 嗎(Y/N/Q)？[Y] ", address);
    getdata(b_lines - 5, 0, genbuf, fname, 3, LCECHO);
    if (fname[0] == 'q') {
        outmsg("取消處理");
        return 1;
    }
    if (fname[0] == 'n')
        address[0] = '\0';
    }
    if (!address[0]) {
    getdata(b_lines - 5, 0, "請輸入郵件地址：", fname, 60, DOECHO);
    if (fname[0] && strchr(fname, '.')) {
        strlcpy(address, fname, sizeof(address));
    } else {
        vmsg("取消處理");
        return 1;
    }
    }
    trim(address);
    if (invalidaddr(address))
    return -2;
    if( strstr(address, ".bbs") && REJECT_OUTTAMAIL ){
    move(b_lines - 4, 0);
    outs("\n您必須要打開接受站外信, 水球整理系統才能寄入結果\n"
         "請麻煩到【郵件選單】按大寫 O改成接受站外信 (在右上角)\n"
         "再重新執行本功\能 :)\n");
    vmsg("請打開站外信, 再重新執行本功\能");
    return FULLUPDATE;
    }

    //snprintf(fname, sizeof(fname), "%d\n", cmode);
    move(b_lines - 4, 0);
    outs("系統提供兩種模式: \n"
     "模式 0: 精簡模式, 將不含顏色控制碼, 方便以純文字編輯器整理收藏\n"
     "模式 1: 華麗模式, 包含顏色控制碼等, 方便在 bbs上直接編輯收藏\n");
    getdata(b_lines - 1, 0, "使用模式(0/1/Q)? [1]", fname, 3, LCECHO);
    if (fname[0] == 'Q' || fname[0] == 'q') {
    outmsg("取消處理");
    return 1;
    }
    cmode = (fname[0] != '0' && fname[0] != '1') ? 1 : fname[0] - '0';

    snprintf(fname, sizeof(fname), BBSHOME "/jobspool/water.src.%s-%d",
         cuser.userid, (int)now);
    snprintf(genbuf, sizeof(genbuf), "cp " BBSHOME "/home/%c/%s/%s %s",
         cuser.userid[0], cuser.userid, fhdr->filename, fname);
    system(genbuf);
    /* dirty code ;x */
    snprintf(fname, sizeof(fname), BBSHOME "/jobspool/water.des.%s-%d",
         cuser.userid, (int)now);
    fp = fopen(fname, "wt");
    assert(fp);
    fprintf(fp, "%s\n%s\n%d\n", cuser.userid, address, cmode);
    fclose(fp);
    vmsg("設定完成, 系統將在下一個整點(尖峰時段除外)將資料寄給您");
    return FULLUPDATE;
}
#endif
static const onekey_t mail_comms[] = {
    NULL, // Ctrl('A')
    NULL, // Ctrl('B')
    NULL, // Ctrl('C')
    NULL, // Ctrl('D')
    NULL, // Ctrl('E')
    NULL, // Ctrl('F')
    built_mail_index, // Ctrl('G')
    NULL, // Ctrl('H')
    toggle_showmail_mode, // Ctrl('I') 
    NULL, // Ctrl('J')
    NULL, // Ctrl('K')
    NULL, // Ctrl('L')
    NULL, // Ctrl('M')
    NULL, // Ctrl('N')
    NULL, // Ctrl('O')
    NULL, // Ctrl('P')
    NULL, // Ctrl('Q')
    NULL, // Ctrl('R')
    NULL, // Ctrl('S')
    NULL, // Ctrl('T')
    NULL, // Ctrl('U')
    NULL, // Ctrl('V')
    NULL, // Ctrl('W')
    NULL, // Ctrl('X')
    NULL, // Ctrl('Y')
    NULL, // Ctrl('Z') 26
    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
    NULL, // 'A' 65
    NULL, // 'B'
    NULL, // 'C'
    del_range, // 'D'
    mail_edit, // 'E'
    NULL, // 'F'
    NULL, // 'G'
    NULL, // 'H'
    NULL, // 'I'
    NULL, // 'J'
    NULL, // 'K'
    NULL, // 'L'
    NULL, // 'M'
    NULL, // 'N'
    mail_nooutmail, // 'O'
    NULL, // 'P'
    NULL, // 'Q'
    mail_reply, // 'R'
    NULL, // 'S'
    edit_title, // 'T'
    NULL, // 'U'
    NULL, // 'V'
    NULL, // 'W'
    mail_cross_post, // 'X'
    NULL, // 'Y'
    NULL, // 'Z' 90
    NULL, NULL, NULL, NULL, NULL, NULL,
    NULL, // 'a' 97
    NULL, // 'b'
    mail_cite, // 'c'
    mail_del, // 'd'
    NULL, // 'e'
    NULL, // 'f'
    NULL, // 'g'
    m_help, // 'h'
    NULL, // 'i'
    NULL, // 'j'
    NULL, // 'k'
    NULL, // 'l'
    mail_mark, // 'm'
    NULL, // 'n'
    NULL, // 'o'
    NULL, // 'p'
    NULL, // 'q'
    mail_read, // 'r'
    mail_save, // 's'
    NULL, // 't'
#ifdef OUTJOBSPOOL
    mail_waterball, // 'u'
#else
    NULL, // 'u'
#endif
    NULL, // 'v'
    NULL, // 'w'
    m_forward, // 'x'
    multi_reply, // 'y'
    mail_man, // 'z' 122
};

int
m_read(void)
{
    int back_bid;
    if (get_num_records(currmaildir, sizeof(fileheader_t))) {
    curredit = EDIT_MAIL;
    curredit &= ~EDIT_ITEM;
    back_bid = currbid;
    currbid = 0;
    i_read(RMAIL, currmaildir, mailtitle, maildoent, mail_comms, -1);
    currbid = back_bid;
    curredit = 0;
    currutmp->mailalert = load_mailalert(cuser.userid);
    return 0;
    } else {
    outs("您沒有來信");
    return XEASY;
    }
}

/* 寄站內信 */
static int
send_inner_mail(const char *fpath, const char *title, const char *receiver)
{
    char            fname[PATHLEN];
    fileheader_t    mymail;
    char            rightid[IDLEN+1];

    if (!searchuser(receiver, rightid))
    return -2;

    /* to avoid DDOS of disk */
    sethomedir(fname, rightid);
    if (strcmp(rightid, cuser.userid) == 0) {
    if (chk_mailbox_limit())
        return -2;
    }
    // XXX should we use MAX_EXKEEPMAIL instead?
    else if (dashs(fname) >= 2048 * sizeof(fileheader_t)) {
    return -2;
    }

    sethomepath(fname, rightid);
    stampfile(fname, &mymail);
    if (!strcmp(rightid, cuser.userid)) {
    /* Using BBSNAME may be too loooooong. */
    strlcpy(mymail.owner, "[站內]", sizeof(mymail.owner));
    mymail.filemode = FILE_READ;
    } else
    strlcpy(mymail.owner, cuser.userid, sizeof(mymail.owner));
    strncpy(mymail.title, title, TTLEN);
    unlink(fname);
    Copy(fpath, fname);
    sethomedir(fname, rightid);
    return append_record_forward(fname, &mymail, sizeof(mymail), rightid);
}

#include <netdb.h>
#include <pwd.h>
#include <time.h>

#ifndef USE_BSMTP
static int
bbs_sendmail(const char *fpath, const char *title, char *receiver)
{
    char           *ptr;
    char            genbuf[256];
    FILE           *fin, *fout;

    /* 中途攔截 */
    if ((ptr = strchr(receiver, ';'))) {
    *ptr = '\0';
    }
    if ((ptr = strstr(receiver, str_mail_address)) || !strchr(receiver, '@')) {
    char            hacker[20];
    int             len;

    if (strchr(receiver, '@')) {
        len = ptr - receiver;
        memcpy(hacker, receiver, len);
        hacker[len] = '\0';
    } else
        strlcpy(hacker, receiver, sizeof(hacker));
    return send_inner_mail(fpath, title, hacker);
    }
    /* Running the sendmail */
    if (fpath == NULL) {
    snprintf(genbuf, sizeof(genbuf),
         "/usr/sbin/sendmail %s > /dev/null", receiver);
    fin = fopen("etc/confirm", "r");
    } else {
    snprintf(genbuf, sizeof(genbuf),
         "/usr/sbin/sendmail -f %s%s %s > /dev/null",
         cuser.userid, str_mail_address, receiver);
    fin = fopen(fpath, "r");
    }
    fout = popen(genbuf, "w");
    if (fin == NULL || fout == NULL) // XXX no fclose() if only one fopen succeed
    return -1;

    if (fpath)
    fprintf(fout, "Reply-To: %s%s\nFrom: %s <%s%s>\n",
        cuser.userid, str_mail_address,
        cuser.nickname,
        cuser.userid, str_mail_address);
    fprintf(fout,"To: %s\nSubject: %s\n"
         "Mime-Version: 1.0\r\n"
         "Content-Type: text/plain; charset=\"big5\"\r\n"
         "Content-Transfer-Encoding: 8bit\r\n"
         "X-Disclaimer: " BBSNAME "對本信內容恕不負責。\n\n",
        receiver, title);

    while (fgets(genbuf, sizeof(genbuf), fin)) {
    if (genbuf[0] == '.' && genbuf[1] == '\n')
        fputs(". \n", fout);
    else
        fputs(genbuf, fout);
    }
    fclose(fin);
    fprintf(fout, ".\n");
    pclose(fout);
    return 0;
}
#else               /* USE_BSMTP */

int
bsmtp(const char *fpath, const char *title, const char *rcpt, int method)
{
    char            buf[80], *ptr;
    time4_t         chrono;
    MailQueue       mqueue;

    /* check if the mail is a inner mail */
    if ((ptr = strstr(rcpt, str_mail_address)) || !strchr(rcpt, '@')) {
    char            hacker[20];
    int             len;

    if (strchr(rcpt, '@')) {
        len = ptr - rcpt;
        memcpy(hacker, rcpt, len);
        hacker[len] = '\0';
    } else
        strlcpy(hacker, rcpt, sizeof(hacker));
    return send_inner_mail(fpath, title, hacker);
    }
    chrono = now;
    if (method != MQ_JUSTIFY) { /* 認證信 */
    /* stamp the queue file */
    strlcpy(buf, "out/", sizeof(buf));
    for (;;) {
        snprintf(buf + 4, sizeof(buf) - 4, "M.%d.A", (int)++chrono);
        if (!dashf(buf)) {
        Copy(fpath, buf);
        break;
        }
    }

    fpath = buf;

    strlcpy(mqueue.filepath, fpath, sizeof(mqueue.filepath));
    strlcpy(mqueue.subject, title, sizeof(mqueue.subject));
    }
    /* setup mail queue */
    mqueue.mailtime = chrono;
    mqueue.method = method;
    strlcpy(mqueue.sender, cuser.userid, sizeof(mqueue.sender));
    strlcpy(mqueue.username, cuser.nickname, sizeof(mqueue.username));
    strlcpy(mqueue.rcpt, rcpt, sizeof(mqueue.rcpt));
    if (append_record("out/.DIR", (fileheader_t *) & mqueue, sizeof(mqueue)) < 0)
    return 0;
    return chrono;
}
#endif              /* USE_BSMTP */

int
doforward(const char *direct, const fileheader_t * fh, int mode)
{
    static char     address[STRLEN] = "";
    char            fname[PATHLEN];
    char            genbuf[PATHLEN];
    int             return_no;

    if (!address[0])
        strlcpy(address, cuser.email, sizeof(address));

    if( mode == 'U' ){
    vmsg("將進行 uuencode 。若您不清楚什麼是 uuencode 請改用 F轉寄。");
    }
    trim(address);

    if (address[0]) {
    snprintf(genbuf, sizeof(genbuf),
         "確定轉寄給 [%s] 嗎(Y/N/Q)？[Y] ", address);
    getdata(b_lines, 0, genbuf, fname, 3, LCECHO);

    if (fname[0] == 'q') {
        outmsg("取消轉寄");
        return 1;
    }
    if (fname[0] == 'n')
        address[0] = '\0';
    }
    if (!address[0]) {
    do {
        getdata(b_lines - 1, 0, "請輸入轉寄地址：", fname, 60, DOECHO);
        if (fname[0]) {
        if (strchr(fname, '.'))
            strlcpy(address, fname, sizeof(address));
        else
            snprintf(address, sizeof(address),
                        "%s.bbs@%s", fname, MYHOSTNAME);
        } else {
        vmsg("取消轉寄");
        return 1;
        }
    } while (mode == 'Z' && strstr(address, MYHOSTNAME));
    }
    /* according to our experiment, many users leave blanks */
    trim(address);
    if (invalidaddr(address))
    return -2;

    outmsg("正轉寄請稍候...");
    refresh();

    /* 追蹤使用者 */
    if (HasUserPerm(PERM_LOGUSER)) 
    log_user("mailforward to %s ",address);
    if (mode == 'Z') {
    snprintf(fname, sizeof(fname),
         TAR_PATH " cfz /tmp/home.%s.tgz home/%c/%s; "
         MUTT_PATH " -a /tmp/home.%s.tgz -s 'home.%s.tgz' '%s' </dev/null;"
         "rm /tmp/home.%s.tgz",
         cuser.userid, cuser.userid[0], cuser.userid,
         cuser.userid, cuser.userid, address, cuser.userid);
    system(fname);
    return 0;
    snprintf(fname, sizeof(fname), TAR_PATH " cfz - home/%c/%s | "
        "/usr/bin/uuencode %s.tgz > %s",
        cuser.userid[0], cuser.userid, cuser.userid, direct);
    system(fname);
    strlcpy(fname, direct, sizeof(fname));
    } else if (mode == 'U') {
    char            tmp_buf[128];

    snprintf(fname, sizeof(fname), "/tmp/bbs.uu%05d", (int)currpid);
    snprintf(tmp_buf, sizeof(tmp_buf),
         "/usr/bin/uuencode %s/%s uu.%05d > %s",
         direct, fh->filename, (int)currpid, fname);
    system(tmp_buf);
    } else if (mode == 'F') {
    char            tmp_buf[128];

    snprintf(fname, sizeof(fname), "/tmp/bbs.f%05d", (int)currpid);
    snprintf(tmp_buf, sizeof(tmp_buf), "%s/%s", direct, fh->filename);
    copy_file(tmp_buf, fname);
    } else
    return -1;

    return_no =
#ifndef USE_BSMTP
    bbs_sendmail(fname, fh->title, address);
#else
    bsmtp(fname, fh->title, address, mode);
#endif
    unlink(fname);
    return (return_no);
}

int
load_mailalert(const char *userid)
{
    struct stat     st;
    char            maildir[MAXPATHLEN];
    int             fd;
    register int    numfiles;
    fileheader_t    my_mail;

    sethomedir(maildir, userid);
    if (!HasUserPerm(PERM_BASIC))
    return 0;
    if (stat(maildir, &st) < 0)
    return 0;
    numfiles = st.st_size / sizeof(fileheader_t);
    if (numfiles <= 0)
    return 0;

    /* 看看有沒有信件還沒讀過？從檔尾回頭檢查，效率較高 */
    if ((fd = open(maildir, O_RDONLY)) > 0) {
    lseek(fd, st.st_size - sizeof(fileheader_t), SEEK_SET);
    while (numfiles--) {
        read(fd, &my_mail, sizeof(fileheader_t));
        if (!(my_mail.filemode & FILE_READ)) {
        close(fd);
        return 1;
        }
        lseek(fd, -(off_t) 2 * sizeof(fileheader_t), SEEK_CUR);
    }
    close(fd);
    }
    return 0;
}