1 files changed, 2256 insertions, 0 deletions
diff --git a/mbbsd/edit.c b/mbbsd/edit.c
new file mode 100644
index 00000000..19f437af
--- /dev/null
+++ b/mbbsd/edit.c
@@ -0,0 +1,2256 @@
+/* $Id: edit.c,v 1.1 2002/03/07 15:13:48 in2 Exp $ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+#include <unistd.h>
+#include <time.h>
+#include <sys/types.h>
+#include "config.h"
+#include "pttstruct.h"
+#include "config.h"
+#include "common.h"
+#include "modes.h"
+#include "perm.h"
+#include "proto.h"
+
+#define WRAPMARGIN (511)
+
+typedef struct textline_t {
+    struct textline_t *prev;
+    struct textline_t *next;
+    int len;
+    char data[WRAPMARGIN + 1];
+} textline_t;
+
+extern int current_font_type;
+extern char *str_author1;
+extern char *str_author2;
+extern int t_lines, t_columns;  /* Screen size / width */
+extern int b_lines;             /* Screen bottom line number: t_lines-1 */
+extern char quote_file[80];
+extern char quote_user[80];
+extern int curredit;
+extern unsigned int currbrdattr;
+extern char currboard[];        /* name of currently selected board */
+extern char *str_reply;
+extern char *str_post1;
+extern char *str_post2;
+extern char *BBSName;
+extern char fromhost[];
+extern unsigned int currstat;
+extern crosspost_t postrecord;
+extern userinfo_t *currutmp;
+extern int KEY_ESC_arg;
+extern char reset_color[];
+extern char trans_buffer[256];
+
+#define KEEP_EDITING    -2
+#define BACKUP_LIMIT    100
+#define SCR_WIDTH       80 
+
+enum {
+    NOBODY, MANAGER, SYSOP
+};
+
+static textline_t *firstline = NULL;
+static textline_t *lastline = NULL;
+static textline_t *currline = NULL;
+static textline_t *blockline = NULL;
+static textline_t *top_of_win = NULL;
+static textline_t *deleted_lines = NULL;
+
+extern int local_article;
+extern char real_name[20];
+static char line[WRAPMARGIN  + 2];
+static int ifuseanony=0;
+static int currpnt, currln, totaln;
+static int curr_window_line;
+static int redraw_everything;
+static int insert_character;
+static int my_ansimode;
+static int raw_mode;
+static int edit_margin;
+static int blockln  = -1;
+static int blockpnt;
+static int prevln = -1;
+static int prevpnt;
+static int line_dirty;
+static int indent_mode;
+static int insert_c = ' ';
+
+static char fp_bak[] = "bak";
+
+char save_title[STRLEN];
+
+/* 記憶體管理與編輯處理 */
+static void indigestion(i) {
+    fprintf(stderr, "嚴重內傷 %d\n", i);
+}
+
+/* Thor: ansi 座標轉換  for color 編輯模式 */
+static int ansi2n(int ansix, textline_t * line) {
+    register char *data, *tmp;
+    register char ch;
+    
+    data = tmp = line->data;
+    
+    while(*tmp) {
+	if(*tmp == KEY_ESC) {
+	    while((ch = *tmp) && !isalpha(ch))
+		tmp++;
+	    if(ch)
+		tmp++;
+	    continue;
+	}
+	if(ansix <= 0)
+	    break;
+	tmp++;
+	ansix--;
+    }
+    return tmp - data;
+}
+
+static int n2ansi(int nx, textline_t * line) {
+    register int ansix = 0;
+    register char *tmp,*nxp;
+    register char ch;
+    
+    tmp = nxp = line->data;
+    nxp += nx;
+    
+    while(*tmp) {
+	if(*tmp == KEY_ESC) {
+	    while((ch = *tmp) && !isalpha(ch))
+		tmp++;
+	    if(ch)
+		tmp++;
+	    continue;
+	}
+	if(tmp >= nxp)
+	    break;
+	tmp++;
+	ansix++;
+    }
+    return ansix;
+}
+
+/* 螢幕處理：輔助訊息、顯示編輯內容 */
+static void edit_msg() {
+    static char *edit_mode[2] = {"取代", "插入"};
+    register int n = currpnt;
+    
+    if(my_ansimode)                      /* Thor: 作 ansi 編輯 */
+	n = n2ansi(n, currline);
+    n++;
+    move(b_lines, 0);
+    clrtoeol();
+    prints("\033[%sm 編輯文章 \033[31;47m (Ctrl-Z)\033[30m輔助說明 "
+	   "\033[31;47m(^G)\033[30m插入圖文庫 \033[31m(^X,^Q)"
+	   "\033[30m離開║%s│%c%c%c%c║ %3d:%3d  \033[m",
+	   "37;44",
+	   edit_mode[insert_character],
+	   my_ansimode ? 'A' : 'a', indent_mode ? 'I' : 'i',
+	   'P' , raw_mode ? 'R' : 'r',
+	   currln + 1, n);
+}
+
+static textline_t *back_line(textline_t *pos, int num) {
+    while(num-- > 0) {
+	register textline_t *item;
+	
+	if(pos && (item = pos->prev)) {
+	    pos = item;
+	    currln--;
+	}
+    }
+    return pos;
+}
+
+static textline_t *forward_line(textline_t *pos, int num) {
+    while(num-- > 0) {
+	register textline_t *item;
+
+	if(pos && (item = pos->next)) {
+	    pos = item;
+	    currln++;
+	}
+    }
+    return pos;
+}
+
+static int getlineno() {
+    int cnt = 0;
+    textline_t *p = currline;
+
+    while(p && (p != top_of_win)) {
+	cnt++;
+	p = p->prev;
+    }
+    return cnt;
+}
+
+static char *killsp(char *s) {
+    while(*s == ' ')
+	s++;
+    return s;
+}
+
+static textline_t *alloc_line() {
+    register textline_t *p;
+    
+    if((p = (textline_t *)malloc(sizeof(textline_t)))) {
+	memset(p, 0, sizeof(textline_t));
+	return p;
+    }
+    
+    indigestion(13);
+    abort_bbs(0);
+    return NULL;
+}
+
+/* append p after line in list. keeps up with last line */
+static void append(textline_t *p, textline_t *line) {
+    register textline_t *n;
+    
+    if((p->next = n = line->next))
+	n->prev = p;
+    else
+	lastline = p;
+    line->next = p;
+    p->prev = line;
+}
+
+/*
+   delete_line deletes 'line' from the list,
+   and maintains the lastline, and firstline pointers.
+*/
+
+static void delete_line(textline_t *line) {
+    register textline_t *p = line->prev;
+    register textline_t *n = line->next;
+    
+    if(!p && !n) {
+	line->data[0] = line->len = 0;
+	return;
+    }
+    if(n)
+	n->prev = p;
+    else
+	lastline = p;
+    if(p)
+	p->next = n;
+    else
+	firstline = n;
+    strcat(line->data, "\n");
+    line->prev = deleted_lines;
+    deleted_lines = line;
+    totaln--;
+}
+
+static int ask(char *prompt) {
+    int ch;
+
+    move (0, 0);
+    clrtoeol ();
+    standout ();
+    prints ("%s", prompt);
+    standend ();
+    ch = igetkey ();
+    move (0, 0);
+    clrtoeol ();
+    return (ch);
+}
+
+static int indent_spcs() {
+    textline_t* p;
+    int spcs;
+    
+    if(!indent_mode)
+	return 0;
+    
+    for(p = currline; p; p = p->prev) {
+	for(spcs = 0; p->data[spcs] == ' '; ++spcs);
+	if (p->data[spcs])
+	    return spcs;
+    }
+    return 0;
+}
+
+/* split 'line' right before the character pos */
+static void split(textline_t *line, int pos) {
+    if(pos <= line->len) {
+	register textline_t *p = alloc_line();
+	register char *ptr;
+	int spcs = indent_spcs();
+	
+	totaln++;
+	
+	p->len = line->len - pos + spcs;
+	line->len = pos;
+	
+	memset(p->data, ' ', spcs);
+	p->data[spcs] = 0;
+	strcat(p->data, (ptr = line->data + pos));
+	ptr[0] = '\0';
+	append(p, line);
+	if(line == currline && pos <= currpnt) {
+	    currline = p;
+	    if(pos == currpnt)
+		currpnt = spcs;
+	    else
+		currpnt -= pos;
+	    curr_window_line++;
+	    currln++;
+	}
+	redraw_everything = YEA;
+    }
+}
+
+static void insert_char(int ch) {
+    register textline_t *p = currline;
+    register int i = p->len;
+    register char *s;
+    int wordwrap = YEA;
+    
+    if(currpnt > i) {
+	indigestion(1);
+	return;
+    }
+    if(currpnt < i && !insert_character) {
+	p->data[currpnt++] = ch;
+	/* Thor: ansi 編輯, 可以overwrite, 不蓋到 ansi code */
+	if(my_ansimode)
+	    currpnt = ansi2n(n2ansi(currpnt, p),p);
+    } else {
+	while(i >= currpnt) {
+	    p->data[i + 1] = p->data[i];
+	    i--;
+	}
+	p->data[currpnt++] = ch;
+	i = ++(p->len);
+    }
+    if(i < WRAPMARGIN)
+	return;
+    s = p->data + (i - 1);
+    while(s != p->data && *s == ' ')
+	s--;
+    while(s != p->data && *s != ' ')
+	s--;
+    if(s == p->data) {
+	wordwrap = NA;
+	s = p->data + (i - 2);
+    }
+    split(p, (s - p->data) + 1);
+    p = p->next;
+    i = p->len;
+    if(wordwrap && i >= 1) {
+	if(p->data[i - 1] != ' ') {
+	    p->data[i] = ' ';
+	    p->data[i + 1] = '\0';
+	    p->len++;
+	}
+    }
+}
+
+static void insert_string(char *str) {
+    int ch;
+    
+    while((ch = *str++)) {
+	if(isprint2(ch) || ch == '\033')
+	    insert_char(ch);
+	else if(ch == '\t') {
+	    do {
+		insert_char(' ');
+	    } while(currpnt & 0x7);
+	} else if(ch == '\n')
+	    split(currline, currpnt);
+    }
+}
+
+static int undelete_line() {
+    textline_t* p = deleted_lines;
+    textline_t* currline0 = currline;
+    textline_t* top_of_win0 = top_of_win;
+    int currpnt0 = currpnt;
+    int currln0 = currln;
+    int curr_window_line0 = curr_window_line;
+    int indent_mode0 = indent_mode;
+
+    if(!deleted_lines)
+	return 0;
+    
+    indent_mode = 0;
+    insert_string(deleted_lines->data);
+    indent_mode = indent_mode0;
+    deleted_lines = deleted_lines->prev;
+    free(p);
+    
+    currline = currline0;
+    top_of_win = top_of_win0;
+    currpnt = currpnt0;
+    currln = currln0;
+    curr_window_line = curr_window_line0;
+    return 0;
+}
+
+/*
+  1) lines were joined and one was deleted
+  2) lines could not be joined
+  3) next line is empty
+  returns false if:
+  1) Some of the joined line wrapped
+*/
+static int join(textline_t *line) {
+    register textline_t *n;
+    register int ovfl;
+    
+    if(!(n = line->next))
+	return YEA;
+    if(!*killsp(n->data))
+	return YEA;
+    
+    ovfl = line->len + n->len - WRAPMARGIN;
+    if(ovfl < 0) {
+	strcat(line->data, n->data);
+	line->len += n->len;
+	delete_line(n);
+	return YEA;
+    } else {
+	register char *s;
+	
+	s = n->data + n->len - ovfl - 1;
+	while(s != n->data && *s == ' ')
+	    s--;
+	while(s != n->data && *s != ' ')
+	    s--;
+	if(s == n->data)
+	    return YEA;
+	split(n, (s - n->data) + 1);
+	if(line->len + n->len >= WRAPMARGIN) {
+	    indigestion(0);
+	    return YEA;
+	}
+	join(line);
+	n = line->next;
+	ovfl = n->len - 1;
+	if(ovfl >= 0 && ovfl < WRAPMARGIN - 2) {
+	    s = &(n->data[ovfl]);
+	    if(*s != ' ') {
+		strcpy(s, " ");
+		n->len++;
+	    }
+	}
+	return NA;
+    }
+}
+
+static void delete_char() {
+    register int len;
+    
+    if((len = currline->len)) {
+	register int i;
+	register char *s;
+	
+	if(currpnt >= len) {
+	    indigestion(1);
+	    return;
+	}
+	for(i = currpnt, s = currline->data + i; i != len; i++, s++)
+	    s[0] = s[1];
+	currline->len--;
+    }
+}
+
+static void load_file(FILE *fp) {
+    int indent_mode0 = indent_mode;
+
+    indent_mode = 0;
+    while(fgets(line, WRAPMARGIN + 2, fp))
+	insert_string(line);
+    fclose(fp);
+    indent_mode = indent_mode0;
+}
+
+/* 暫存檔 */
+char *ask_tmpbuf(int y) {
+    static char fp_buf[10] = "buf.0";
+    static char msg[] = "請選擇暫存檔 (0-9)[0]: ";
+    
+    msg[19] = fp_buf[4];
+    do {
+	if(!getdata(y, 0, msg, fp_buf + 4, 4, DOECHO))
+	    fp_buf[4] = msg[19];
+    } while(fp_buf[4] < '0' || fp_buf[4] > '9');
+    return fp_buf;
+}
+
+static void read_tmpbuf(int n) {
+    FILE *fp;
+    char fp_tmpbuf[80];
+    char tmpfname[] = "buf.0";
+    char *tmpf;
+    char ans[4] = "y";
+    
+    if(0 <= n && n <= 9) {
+	tmpfname[4] = '0' + n;
+	tmpf = tmpfname;
+    } else {
+	tmpf = ask_tmpbuf(3);
+	n = tmpf[4] - '0';
+    }
+    
+    setuserfile(fp_tmpbuf, tmpf);
+    if(n != 0 && n != 5 && more(fp_tmpbuf, NA) != -1)
+	getdata(b_lines - 1, 0, "確定讀入嗎(Y/N)?[Y]", ans, 4, LCECHO);
+    if(*ans != 'n' && (fp = fopen(fp_tmpbuf, "r"))) {
+	prevln = currln;
+	prevpnt = currpnt;
+	load_file(fp);
+	while(curr_window_line >= b_lines) {
+	    curr_window_line--;
+	    top_of_win = top_of_win->next;
+	}
+    }
+}
+
+static void write_tmpbuf() {
+    FILE *fp;
+    char fp_tmpbuf[80], ans[4];
+    textline_t *p;
+
+    setuserfile(fp_tmpbuf, ask_tmpbuf(3));
+    if(dashf(fp_tmpbuf)) {
+	more(fp_tmpbuf, NA);
+	getdata(b_lines - 1, 0, "暫存檔已有資料 (A)附加 (W)覆寫 (Q)取消？[A] ",
+		ans, 4, LCECHO);
+	
+	if(ans[0] == 'q')
+	    return;
+    }
+    
+    if((fp = fopen(fp_tmpbuf, (ans[0] == 'w' ? "w" : "a+")))) {
+	for(p = firstline; p; p = p->next) {
+            if(p->next || p->data[0])
+		fprintf(fp, "%s\n", p->data);
+	}
+	fclose(fp);
+    }
+}
+
+static void erase_tmpbuf() {
+    char fp_tmpbuf[80];
+    char ans[4] = "n";
+    
+    setuserfile(fp_tmpbuf, ask_tmpbuf(3));
+    if(more(fp_tmpbuf, NA) != -1)
+	getdata(b_lines - 1, 0, "確定刪除嗎(Y/N)?[N]",  ans, 4, LCECHO);
+    if(*ans == 'y')
+	unlink(fp_tmpbuf);
+}
+
+/* 編輯器自動備份 */
+void auto_backup() {
+    if(currline) {
+	FILE *fp;
+	textline_t *p, *v;
+	char bakfile[64];
+	int count = 0;
+	
+	setuserfile(bakfile, fp_bak);
+	if((fp = fopen(bakfile, "w"))) {
+	    for(p = firstline; p != NULL  && count < 512; p = v,count++) {
+		v = p->next;
+		fprintf(fp, "%s\n", p->data);
+		free(p);
+	    }
+	    fclose(fp);
+	}
+	currline = NULL;
+    }
+}
+
+void restore_backup() {
+    char bakfile[80], buf[80];
+    
+    setuserfile(bakfile, fp_bak);
+    if(dashf(bakfile)) {
+	stand_title("編輯器自動復原");
+	getdata(1, 0, "您有一篇文章尚未完成，(S)寫入暫存檔 (Q)算了？[S] ",
+		buf, 4, LCECHO);
+	if(buf[0] != 'q') {
+	    setuserfile(buf, ask_tmpbuf(3));
+	    Rename(bakfile, buf);
+	} else
+	    unlink(bakfile);
+    }
+}
+
+/* 引用文章 */
+static int garbage_line(char *str) {
+    int qlevel = 0;
+    
+    while(*str == ':' || *str == '>') {
+	if(*(++str) == ' ')
+	    str++;
+	if(qlevel++ >= 1)
+	    return 1;
+    }
+    while(*str == ' ' || *str == '\t')
+	str++;
+    if(qlevel >= 1) {
+	if(!strncmp(str, "※ ", 3) || !strncmp(str, "==>", 3) ||
+	   strstr(str, ") 提到:\n"))
+	    return 1;
+    }
+    return (*str == '\n');
+}
+
+static void do_quote() {
+    int op;
+    char buf[256];
+
+    getdata(b_lines - 1, 0, "請問要引用原文嗎(Y/N/All/Repost)？[Y] ",
+	    buf, 3, LCECHO);
+    op = buf[0];
+    
+    if(op != 'n') {
+	FILE *inf;
+	
+	if((inf = fopen(quote_file, "r"))) {
+	    char *ptr;
+	    int indent_mode0 = indent_mode;
+	    
+	    fgets(buf, 256, inf);
+	    if((ptr = strrchr(buf, ')')))
+		ptr[1] = '\0';
+	    else if((ptr = strrchr(buf, '\n')))
+		ptr[0] = '\0';
+	    
+	    if((ptr = strchr(buf, ':'))) {
+		char *str;
+		
+		while(*(++ptr) == ' ');
+
+		/* 順手牽羊，取得 author's address */
+		if((curredit & EDIT_BOTH) && (str = strchr(quote_user, '.'))) {
+		    strcpy(++str, ptr);
+		    str = strchr(str, ' ');
+		    str[0] = '\0';
+		}
+	    } else
+		ptr = quote_user;
+	    
+	    indent_mode = 0;
+	    insert_string("※ 引述《");
+	    insert_string(ptr);
+	    insert_string("》之銘言：\n");
+	    
+	    if(op != 'a')           /* 去掉 header */
+		while(fgets(buf, 256, inf) && buf[0] != '\n');
+
+	    if(op == 'a')
+		while(fgets(buf, 256, inf)) {
+		    insert_char(':');
+		    insert_char(' ');
+		    insert_string(Ptt_prints(buf,STRIP_ALL));
+		}
+	    else if(op == 'r')
+		while(fgets(buf, 256, inf))
+		    insert_string(Ptt_prints(buf,NO_RELOAD));
+	    else {
+		if(curredit & EDIT_LIST)       /* 去掉 mail list 之 header */
+		    while (fgets(buf, 256, inf) && (!strncmp(buf, "※ ", 3)));
+		while(fgets(buf, 256, inf)) {
+		    if(!strcmp(buf, "--\n"))
+			break;
+		    if(!garbage_line(buf)) {
+			insert_char(':');
+			insert_char(' ');
+			insert_string(Ptt_prints(buf,STRIP_ALL));
+		    }
+		}
+	    }
+	    indent_mode = indent_mode0;
+	    fclose(inf);
+	}
+    }
+}
+
+/* 審查 user 引言的使用 */
+static int check_quote() {
+    register textline_t *p = firstline;
+    register char *str;
+    int post_line;
+    int included_line;
+    
+    post_line = included_line = 0;
+    while(p) {
+	if(!strcmp(str = p->data, "--"))
+	    break;
+	if(str[1] == ' ' && ((str[0] == ':') || (str[0] == '>')))
+	    included_line++;
+	else {
+	    while(*str == ' ' || *str == '\t')
+		str++;
+	    if(*str)
+		post_line++;
+	}
+	p = p->next;
+    }
+    
+    if((included_line >> 2) > post_line) {
+	move(4, 0);
+	outs("本篇文章的引言比例超過 80%，請您做些微的修正：\n\n"
+	     "\033[1;33m1) 增加一些文章 或  2) 刪除不必要之引言\033[m");
+	{
+	    char ans[4];
+	    
+	    getdata(12, 12, "(E)繼續編輯 (W)強制寫入？[E] ", ans, 4, LCECHO);
+	    if(ans[0] == 'w')
+		return 0;
+	}
+	return 1;
+    }
+    return 0;
+}
+
+/* 檔案處理：讀檔、存檔、標題、簽名檔 */
+static void read_file(char *fpath) {
+    FILE *fp;
+    
+    if((fp = fopen(fpath, "r")) == NULL) {
+	if((fp = fopen(fpath, "w+"))) {
+	    fclose(fp);
+	    return;
+	}
+	indigestion(4);
+	abort_bbs(0);
+    }
+    load_file(fp);
+}
+
+extern userec_t cuser;
+
+void write_header(FILE *fp) {
+    time_t now = time(0);
+
+    if(curredit & EDIT_MAIL || curredit & EDIT_LIST) {
+	fprintf(fp, "%s %s (%s)\n", str_author1, cuser.userid,
+#if defined(REALINFO) && defined(MAIL_REALNAMES)
+		cuser.realname
+#else
+		cuser.username
+#endif
+	    );
+    } else {
+	char *ptr;
+	struct {
+	    char author[IDLEN + 1];
+	    char board[IDLEN + 1];
+	    char title[66];
+	    time_t date;              /* last post's date */
+	    int number;               /* post number */
+	} postlog;
+	
+	strcpy(postlog.author, cuser.userid);
+	ifuseanony=0;
+#ifdef HAVE_ANONYMOUS
+	if(currbrdattr& BRD_ANONYMOUS) {   
+	    int defanony = (currbrdattr & BRD_DEFAULTANONYMOUS);
+	    if(defanony) 
+		getdata(3, 0, "請輸入你想用的ID，也可直接按[Enter]，"
+			"或是按[r]用真名：", real_name, 12, DOECHO);
+	    else
+		getdata(3, 0, "請輸入你想用的ID，也可直接按[Enter]使用原ID：",
+			real_name, 12, DOECHO);
+	    if(!real_name[0] && defanony) {
+		strcpy(real_name, "Anonymous");
+		strcpy(postlog.author, real_name);
+		ifuseanony = 1;
+	    } else {
+		if(!strcmp("r",real_name) || (!defanony && !real_name[0]))
+		    sprintf(postlog.author,"%s",cuser.userid);
+		else {
+		    sprintf(postlog.author,"%s.",real_name);
+		    ifuseanony=1;
+		}
+	    }
+	}
+#endif
+	strcpy(postlog.board, currboard);
+	ptr = save_title;
+	if(!strncmp(ptr, str_reply, 4))
+	    ptr += 4;
+	strncpy(postlog.title, ptr, 65);
+	postlog.date = now;
+	postlog.number = 1;
+	append_record(".post", (fileheader_t *)&postlog, sizeof(postlog));
+#ifdef HAVE_ANONYMOUS
+	if(currbrdattr & BRD_ANONYMOUS) {
+	    int defanony = (currbrdattr & BRD_DEFAULTANONYMOUS);
+	    
+	    fprintf(fp, "%s %s (%s) %s %s\n", str_author1, postlog.author ,
+		    (((!strcmp(real_name,"r") && defanony) ||
+		      (!real_name[0] && (!defanony))) ? cuser.username :
+		     "猜猜我是誰 ? ^o^"), 
+		    local_article ? str_post2 : str_post1, currboard);
+	} else {
+	    fprintf(fp, "%s %s (%s) %s %s\n", str_author1, cuser.userid,
+#if defined(REALINFO) && defined(POSTS_REALNAMES)
+		    cuser.realname,
+#else
+		    cuser.username,
+#endif
+		    local_article ? str_post2 : str_post1, currboard);
+	}
+#else   /* HAVE_ANONYMOUS */
+	fprintf(fp, "%s %s (%s) %s %s\n", str_author1, cuser.userid,
+#if defined(REALINFO) && defined(POSTS_REALNAMES)
+		cuser.realname,
+#else
+		cuser.username,
+#endif
+		local_article ? str_post2 : str_post1, currboard);
+#endif  /* HAVE_ANONYMOUS */
+
+    }
+    save_title[72] = '\0';
+    fprintf(fp, "標題: %s\n時間: %s\n", save_title, ctime(&now));
+}
+
+void addsignature(FILE *fp, int ifuseanony) {
+    FILE *fs;
+    int i;
+    char buf[WRAPMARGIN + 1];
+    char fpath[STRLEN];
+
+    static char msg[] = "請選擇簽名檔 (1-9, 0=不加)[0]: ";
+    char ch;
+
+    if(!strcmp(cuser.userid,STR_GUEST)) {
+	fprintf(fp, "\n--\n※ 發信站 :" BBSNAME "(" MYHOSTNAME
+		") \n◆ From: %s\n", fromhost);
+	return;
+    }
+    if(!ifuseanony) {
+	i = showsignature(fpath);
+	msg[27] = ch = '0' | (cuser.uflag & SIG_FLAG);
+	getdata(0, 0, msg, buf, 4, DOECHO);
+	
+	if(ch != buf[0] && buf[0] >= '0' && buf[0] <= '9') {
+	    ch = buf[0];
+	    cuser.uflag = (cuser.uflag & ~SIG_FLAG) | (ch & SIG_FLAG);
+	}
+	
+	if(ch != '0') {
+	    fpath[i] = ch;
+	    if((fs = fopen(fpath, "r"))) {
+		fputs("\n--\n", fp);
+		for(i = 0; i < MAX_SIGLINES &&
+			fgets(buf, sizeof(buf), fs); i++)
+		    fputs(buf, fp);
+		fclose(fs);
+	    }
+	}
+    }
+#ifdef HAVE_ORIGIN
+#ifdef HAVE_ANONYMOUS
+    if(ifuseanony)
+	fprintf(fp, "\n--\n※ 發信站: " BBSNAME "(" MYHOSTNAME
+		") \n◆ From: %s\n", "暱名天使的家");
+    else {
+	char temp[32];
+	
+	strncpy(temp, fromhost, 31);
+	temp[32] = '\0';
+	fprintf(fp, "\n--\n※ 發信站: " BBSNAME "(" MYHOSTNAME
+		") \n◆ From: %s\n", temp);
+    }
+#else
+    strncpy (temp,fromhost,15);
+    fprintf(fp, "\n--\n※ 發信站: " BBSNAME "(" MYHOSTNAME
+	    ") \n◆ From: %s\n", temp);
+#endif
+#endif
+}
+
+static int
+write_file(char *fpath, int saveheader, int *islocal) {
+    time_t now;
+    struct tm *ptime;
+    FILE *fp = NULL;
+    textline_t *p, *v;
+    char ans[TTLEN], *msg;
+    int aborted = 0, line = 0, checksum[3], sum = 0, po = 1;
+
+    stand_title("檔案處理");
+    if(currstat == SMAIL)
+	msg = "[S]儲存 (A)放棄 (T)改標題 (E)繼續 (R/W/D)讀寫刪暫存檔？";
+    else if(local_article)
+	msg = "[L]站內信件 (S)儲存 (A)放棄 (T)改標題 (E)繼續 "
+	    "(R/W/D)讀寫刪暫存檔？";
+    else
+	msg = "[S]儲存 (L)站內信件 (A)放棄 (T)改標題 (E)繼續 "
+	    "(R/W/D)讀寫刪暫存檔？";
+    getdata(1, 0, msg, ans, 3, LCECHO);
+    
+    switch(ans[0]) {
+    case 'a':
+	outs("文章\033[1m 沒有 \033[m存入");
+	safe_sleep(1);
+	aborted = -1;
+	break;	
+    case 'r':
+	read_tmpbuf(-1);
+    case 'e':
+	return KEEP_EDITING;
+    case 'w':
+	write_tmpbuf();
+	return KEEP_EDITING;
+    case 'd':
+	erase_tmpbuf();
+	return KEEP_EDITING;
+    case 't':
+	move(3, 0);
+	prints("舊標題：%s", save_title);
+	strcpy(ans,save_title);
+	if(getdata_buf(4, 0, "新標題：", ans, TTLEN, DOECHO))
+	    strcpy(save_title, ans);
+	return KEEP_EDITING;
+    case 's':
+	if(!HAS_PERM(PERM_LOGINOK)) {
+	    local_article = 1;
+	    move(2, 0);
+	    prints("您尚未通過身份確認，只能 Local Save。\n");
+	    pressanykey();
+	} else
+	    local_article = 0;
+	break;
+    case 'l':
+	local_article = 1;
+    }
+
+    if(!aborted) {
+	if(saveheader && !(curredit & EDIT_MAIL) && check_quote())
+	    return KEEP_EDITING;
+	
+	if(!*fpath) {
+	    sethomepath(fpath, cuser.userid);
+	    strcpy(fpath, tempnam(fpath, "ve_"));
+	}
+	
+	if((fp = fopen(fpath, "w")) == NULL) {
+	    indigestion(5);
+	    abort_bbs(0);
+	}
+	if(saveheader)
+	    write_header(fp);
+    }
+
+    for(p = firstline; p; p = v) {
+	v = p->next;
+	if(!aborted) {
+	    msg = p->data;
+	    if(v || msg[0]) {
+		trim(msg);
+		
+		line++;
+		if(currstat == POSTING && po) {
+		    saveheader = str_checksum(msg);
+		    if(saveheader) {
+			if(postrecord.checksum[po] == saveheader) {
+			    po++;
+			    if(po > 3) {
+				postrecord.times++;
+				po =0;
+			    }
+			} else
+			    po = 1;
+			if(currstat == POSTING && line >= totaln/2 &&
+			   sum < 3) {
+			    checksum[sum++] = saveheader;
+			}
+		    }
+		}
+#ifdef SUPPORT_GB
+		if(current_font_type == TYPE_GB)
+                 {
+		  fprintf(fp, "%s\n", hc_convert_str(msg, HC_GBtoBIG, HC_DO_SINGLE));
+                 }     
+		else
+#endif
+ 		  fprintf(fp, "%s\n", msg);
+	    }
+	}
+	free(p);
+    }
+    currline = NULL;
+    
+    if(postrecord.times > MAX_CROSSNUM - 1)
+	anticrosspost();
+    
+    if(po && sum == 3) {
+	memcpy(&postrecord.checksum[1], checksum, sizeof(int) * 3);
+	postrecord.times  =0;
+    }
+    if(!aborted) {
+	if(islocal)
+	    *islocal = (local_article == 1);
+	if(currstat == POSTING || currstat == SMAIL)
+	    addsignature(fp,ifuseanony);
+        else if(currstat == REEDIT
+#ifndef ALL_REEDIT_LOG
+		&& strcmp(currboard, "SYSOP") == 0
+#endif
+		)
+	  {
+	    time(&now);
+	    ptime = localtime(&now);
+            fprintf(fp,
+                "※ 編輯: %-15s 來自: %-20s (%02d/%02d %02d:%02d)\n",
+		  cuser.userid, fromhost,
+		  ptime->tm_mon+1,ptime->tm_mday,ptime->tm_hour,ptime->tm_min);
+	  }
+	    
+	fclose(fp);
+	if(local_article && (currstat == POSTING))
+	    return 0;
+	return 0;
+    }
+    return aborted;
+}
+
+
+static void display_buffer() {
+    register textline_t *p;
+    register int i;
+    int inblock;
+    char buf[WRAPMARGIN + 2];
+    int min, max;
+    
+    if(currpnt > blockpnt) {
+	min = blockpnt;
+	max = currpnt;
+    } else {
+	min = currpnt;
+	max = blockpnt;
+    }
+
+    for(p = top_of_win, i = 0; i < b_lines; i++) {
+	move(i, 0);
+	clrtoeol();
+	if(blockln >= 0 &&
+	   ((blockln <= currln && blockln <= (currln - curr_window_line + i) &&
+            (currln - curr_window_line + i) <= currln) ||
+	    (currln <= (currln - curr_window_line + i) &&
+            (currln - curr_window_line + i) <= blockln))) {
+	    outs("\033[7m");
+	    inblock = 1;
+	} else
+	    inblock = 0;
+	if(p) {
+	    if(my_ansimode)
+		if(currln == blockln && p == currline && max > min) {
+		    outs("\033[m");
+		    strncpy(buf, p->data, min);
+		    buf[min] = 0;
+		    outs(buf);
+		    outs("\033[7m");
+		    strncpy(buf, p->data + min, max - min);
+		    buf[max - min] = 0;
+		    outs(buf);
+		    outs("\033[m");
+		    outs(p->data + max);
+		} else
+		    outs(p->data);
+	    else if(currln == blockln && p == currline && max > min) {
+		outs("\033[m");
+		    strncpy(buf, p->data, min);
+		    buf[min] = 0;
+		    edit_outs(buf);
+		    outs("\033[7m");
+		    strncpy(buf, p->data + min, max - min);
+		    buf[max - min] = 0;
+		    edit_outs(buf);
+		    outs("\033[m");
+		    edit_outs(p->data + max);
+		} else
+		    edit_outs(&p->data[edit_margin]);
+	    p = p->next;
+	    if(inblock)
+		outs("\033[m");
+	} else
+	    outch('~');
+    }
+    edit_msg();
+}
+
+static void goto_line(int lino) {
+    char buf[10];
+    
+    if(lino > 0 ||
+       (getdata(b_lines - 1, 0, "跳至第幾行:", buf, 10, DOECHO) &&
+	sscanf(buf, "%d", &lino) && lino > 0)) {
+	textline_t* p;
+	
+	prevln = currln;
+	prevpnt = currpnt;
+	p = firstline;
+	currln = lino - 1;
+	
+	while(--lino && p->next)
+	    p = p->next;
+	
+	if(p)
+	    currline = p;
+	else {
+	    currln = totaln;
+	    currline = lastline;
+	}
+	currpnt = 0;
+	if(currln < 11) {
+	    top_of_win = firstline;
+	    curr_window_line = currln;
+	} else {
+	    int i;
+
+	    curr_window_line = 11;
+	    for(i = curr_window_line; i; i--)
+		p = p->prev;
+            top_of_win = p;
+	}
+    }
+    redraw_everything = YEA;
+}
+
+char *strcasestr(const char* big, const char* little) {
+    char* ans = (char*)big;
+    int len = strlen(little);
+    char* endptr = (char*)big + strlen(big) - len;
+    
+    while(ans <= endptr)
+	if(!strncasecmp(ans, little, len))
+	    return ans;
+	else
+	    ans++;
+    return 0;
+}
+
+/*
+  mode:
+  0: prompt
+  1: forward
+  -1: backward
+*/
+static void search_str(int mode) {
+    static char str[80];
+    typedef char* (*FPTR)();
+    static FPTR fptr;
+    char ans[4] = "n";
+    
+    if(!mode) {
+	if(getdata_buf(b_lines - 1, 0,"[搜尋]關鍵字:",str, 65, DOECHO))
+	    if(*str) {
+		if(getdata(b_lines - 1, 0, "區分大小寫(Y/N/Q)? [N] ",
+			   ans, 4, LCECHO) && *ans == 'y')
+		    fptr = strstr;
+		else
+		    fptr = strcasestr;
+	    }
+    }
+    
+    if(*str && *ans != 'q') {
+	textline_t* p;
+	char *pos = NULL;
+	int lino;
+	
+	if(mode >= 0) {
+	    for(lino = currln, p = currline; p; p = p->next, lino++)
+		if((pos = fptr(p->data + (lino == currln ? currpnt + 1 : 0),
+			       str)) && (lino != currln ||
+					 pos - p->data != currpnt))
+		    break;
+	} else {
+	    for(lino = currln, p = currline; p; p = p->prev, lino--)
+		if((pos = fptr(p->data, str)) &&
+		   (lino != currln || pos - p->data != currpnt))
+		    break;
+	}
+	if(pos) {
+	    prevln = currln;
+	    prevpnt = currpnt;
+	    currline = p;
+	    currln = lino;
+	    currpnt = pos - p->data;
+	    if(lino < 11) {
+		top_of_win = firstline;
+		curr_window_line = currln;
+	    } else {
+		int i;
+
+		curr_window_line = 11;
+		for(i = curr_window_line; i; i--)
+		    p = p->prev;
+		top_of_win = p;
+	    }
+	    redraw_everything = YEA;
+	}
+    }
+    if(!mode)
+	redraw_everything = YEA;
+}
+
+static void match_paren() {
+    static char parens[] = "()[]{}";
+    int type;
+    int parenum = 0;
+    char *ptype;
+    textline_t* p;
+    int lino;
+    int c, i = 0;
+
+    if(!(ptype = strchr(parens, currline->data[currpnt])))
+	return;
+    
+    type = (ptype - parens) / 2;
+    parenum += ((ptype - parens) % 2) ? -1 : 1;
+    
+    if(parenum > 0) {
+	for(lino = currln, p = currline; p; p = p->next, lino++) {
+	    lino = lino;
+	    for(i = (lino == currln) ? currpnt + 1 : 0;
+		i < strlen(p->data); i++)
+		if(p->data[i] == '/' && p->data[++i] == '*') {
+		    ++i;
+		    while(1) {
+			while(i < strlen(p->data) - 1 &&
+			      !(p->data[i] == '*' && p->data[i + 1] == '/'))
+			    i++;
+			if(i >= strlen(p->data) - 1 && p->next) {
+			    p = p->next;
+			    ++lino;
+			    i = 0;
+			} else
+			    break;
+		    }
+		} else if((c = p->data[i]) == '\'' || c == '"') {
+		    while(1) {
+			while(i < (int)(strlen(p->data) - 1))
+			    if(p->data[++i] == '\\' && i < strlen(p->data) - 2)
+				++i;
+			    else if(p->data[i] == c)
+				goto end_quote;
+			if(i >= strlen(p->data) - 1 && p->next) {
+			    p = p->next;
+			    ++lino;
+			    i = -1;
+			} else
+			    break;
+		    }
+end_quote:
+		    ;
+		} else if((ptype = strchr(parens, p->data[i])) &&
+			  (ptype - parens) / 2 == type)
+		    if(!(parenum += ((ptype - parens) % 2) ? -1 : 1))
+			goto p_outscan;
+	}
+    } else {
+	for(lino = currln, p = currline; p; p = p->prev, lino--)
+	    for(i = (lino == currln) ? currpnt - 1 : strlen(p->data) - 1;
+		 i >= 0; i--)
+		if(p->data[i] == '/' && p->data[--i] == '*' && i > 0) {
+		    --i;
+		    while(1) {
+			while(i > 0 &&
+			      !(p->data[i] == '*' && p->data[i - 1] == '/'))
+			    i--;
+			if(i <= 0 && p->prev) {
+			    p = p->prev;
+			    --lino;
+			    i = strlen(p->data) - 1;
+			} else
+			    break;
+		    }
+		} else if((c = p->data[i]) == '\'' || c == '"') {
+		    while(1) {
+			while(i > 0)
+			    if(i > 1 && p->data[i - 2] == '\\')
+				i -= 2;
+			    else if((p->data[--i]) == c)
+				goto begin_quote;
+			if(i <= 0 && p->prev) {
+			    p = p->prev;
+			    --lino;
+			    i = strlen(p->data);
+			} else
+			    break;
+		    }
+begin_quote:
+		    ;
+		} else if((ptype = strchr(parens, p->data[i])) &&
+			  (ptype - parens) / 2 == type)
+		    if(!(parenum += ((ptype - parens) % 2) ? -1 : 1))
+			goto p_outscan;
+    }
+p_outscan:
+    if(!parenum) {
+	int top = currln - curr_window_line;
+	int bottom = currln - curr_window_line + b_lines - 1;
+	
+	currpnt = i;
+	currline = p;
+	curr_window_line += lino - currln;
+	currln = lino;
+	
+	if(lino < top || lino > bottom) {
+	    if(lino < 11) {
+		top_of_win = firstline;
+		curr_window_line = currln;
+	    } else {
+		int i;
+
+		curr_window_line = 11;
+		for(i = curr_window_line; i; i--)
+		    p = p->prev;
+		top_of_win = p;
+	    }
+	    redraw_everything = YEA;
+	}
+    }
+}
+
+static void block_del(int hide) {
+    if(blockln < 0) {
+	blockln = currln;
+	blockpnt = currpnt;
+	blockline = currline;
+    } else {
+	char fp_tmpbuf[80];
+	FILE* fp;
+	textline_t *begin, *end, *p;
+	char tmpfname[10] = "buf.0";
+	char ans[6] = "w+n";
+
+	move(b_lines - 1, 0);
+	clrtoeol();
+	if(hide == 1)
+	    tmpfname[4] = 'q';
+	else if(!hide && !getdata(b_lines - 1, 0, "把區塊移至暫存檔 "
+				  "(0:Cut, 5:Copy, 6-9, q: Cancel)[0] ",
+				  tmpfname + 4, 4, LCECHO))
+	    tmpfname[4] = '0';
+	if(tmpfname[4] < '0' || tmpfname[4] > '9')
+	    tmpfname[4] = 'q';
+	if('1' <= tmpfname[4] && tmpfname[4] <= '9') {
+	    setuserfile(fp_tmpbuf, tmpfname);
+	    if(tmpfname[4] != '5' && dashf(fp_tmpbuf)) {
+		more(fp_tmpbuf, NA);
+		getdata(b_lines - 1, 0, "暫存檔已有資料 (A)附加 (W)覆寫 "
+			"(Q)取消？[W] ", ans, 4, LCECHO);
+		if(*ans == 'q')
+		    tmpfname[4] = 'q';
+		else if(*ans != 'a')
+		    *ans = 'w';
+	    }
+	    if(tmpfname[4] != '5') {
+		getdata(b_lines - 1, 0, "刪除區塊(Y/N)?[N] ",
+			ans + 2, 4, LCECHO);
+		if(ans[2] != 'y')
+		    ans[2] = 'n';
+	    }
+	} else if(hide != 3)
+	    ans[2] = 'y';
+	
+	tmpfname[5] = ans[1] = ans[3] = 0;
+	if(tmpfname[4] != 'q') {
+	    if(currln >= blockln) {
+		begin = blockline;
+		end = currline;
+		if(ans[2] == 'y' && !(begin == end && currpnt != blockpnt)) {
+		    curr_window_line -= (currln - blockln);
+		    if(curr_window_line < 0) {
+			curr_window_line = 0;
+			if(end->next)
+			    (top_of_win = end->next)->prev = begin->prev;
+			else
+			    top_of_win = (lastline = begin->prev);
+		    }
+		    currln -= (currln - blockln);
+		}
+	    } else {
+		begin = currline;
+		end = blockline;
+	    }
+	    if(ans[2] == 'y' && !(begin == end && currpnt != blockpnt)) {
+		if(begin->prev)
+		    begin->prev->next = end->next;
+		else if(end->next)
+		    top_of_win = firstline = end->next;
+		else {
+		    currline = top_of_win = firstline =
+			lastline = alloc_line();
+		    currln = curr_window_line = edit_margin = 0;
+		}
+		
+		if(end->next)
+		    (currline = end->next)->prev = begin->prev;
+		else if(begin->prev) {
+		    currline = (lastline = begin->prev);
+		    currln--;
+		    if(curr_window_line > 0)
+			curr_window_line--;
+		}
+	    }
+	    
+	    setuserfile(fp_tmpbuf, tmpfname);
+	    if((fp = fopen(fp_tmpbuf, ans))) {
+		if(begin == end && currpnt != blockpnt) {
+		    char buf[WRAPMARGIN + 2];
+		    
+		    if(currpnt > blockpnt) {
+			strcpy(buf, begin->data + blockpnt);
+			buf[currpnt - blockpnt] = 0;
+		    } else {
+			strcpy(buf, begin->data + currpnt);
+			buf[blockpnt - currpnt] = 0;
+		    }
+		    fputs(buf, fp);
+		} else {
+		    for(p = begin; p != end; p = p->next)
+			fprintf(fp, "%s\n", p->data);
+		    fprintf(fp, "%s\n", end->data);
+		}
+		fclose(fp);
+	    }
+	    
+	    if(ans[2] == 'y') {
+		if(begin == end && currpnt != blockpnt) {
+		    int min, max;
+		    
+		    if(currpnt > blockpnt) {
+			min = blockpnt;
+			max = currpnt;
+		    } else {
+			min = currpnt;
+			max = blockpnt;
+		    }
+		    strcpy(begin->data + min, begin->data + max);
+		    begin->len -= max - min;
+		    currpnt = min;
+		} else {
+		    for(p = begin; p != end; totaln--)
+			free((p = p->next)->prev);
+		    free(end);
+		    totaln--;
+		    currpnt = 0;
+		}
+	    }
+	}
+	blockln = -1;
+	redraw_everything = YEA;
+    }
+}
+
+static void block_shift_left() {
+    textline_t *begin, *end, *p;
+    
+    if(currln >= blockln) {
+	begin = blockline;
+	end = currline;
+    } else {
+	begin = currline;
+	end = blockline;
+    }
+    p = begin;
+    while(1) {
+	if(p->len) {
+	    strcpy(p->data, p->data + 1);
+	    --p->len;
+	}
+	if(p == end)
+	    break;
+	else
+	    p = p->next;
+    }
+    if(currpnt > currline->len)
+	currpnt = currline->len;
+    redraw_everything = YEA;
+}
+
+static void block_shift_right() {
+    textline_t *begin, *end, *p;
+
+    if(currln >= blockln) {
+	begin = blockline;
+	end = currline;
+    } else {
+	begin = currline;
+	end = blockline;
+    }
+    p = begin;
+    while(1) {
+	if(p->len < WRAPMARGIN) {
+	    int i = p->len + 1;
+	    
+	    while(i--)
+		p->data[i + 1] = p->data[i];
+	    p->data[0] = insert_character ? ' ' : insert_c;
+	    ++p->len;
+	}
+	if(p == end)
+	    break;
+	else
+	    p = p->next;
+    }
+    if(currpnt > currline->len)
+	currpnt = currline->len;
+    redraw_everything = YEA;
+}
+
+static void transform_to_color(char* line) {
+    while(line[0] && line[1])
+	if(line[0] == '*' && line[1] == '[') {
+	    line[0] = KEY_ESC;
+	    line += 2;
+	} else
+	    ++line;
+}
+
+static void block_color() {
+    textline_t *begin, *end, *p;
+    
+    if(currln >= blockln) {
+	begin = blockline;
+	end = currline;
+    } else {
+	begin = currline;
+	end = blockline;
+    }
+    p = begin;
+    while(1) {
+	transform_to_color(p->data);
+	if(p == end)
+	    break;
+	else
+	    p = p->next;
+    }
+    block_del(1);
+}
+
+/* 編輯處理：主程式、鍵盤處理 */
+int vedit(char *fpath, int saveheader, int *islocal) {
+    FILE *fp1;
+    char last = 0, buf[200];   /* the last key you press */
+    int ch, foo;
+    int lastindent = -1;
+    int last_margin;
+    int mode0 = currutmp->mode;
+    int destuid0 = currutmp->destuid;
+    unsigned int money=0;
+    unsigned short int interval=0;
+    time_t now=0,th;
+    
+    textline_t* firstline0 = firstline;
+    textline_t* lastline0 = lastline;
+    textline_t* currline0 = currline;
+    textline_t* blockline0 = blockline;
+    textline_t* top_of_win0 = top_of_win;
+    int local_article0 = local_article;
+    int currpnt0 = currpnt;
+    int currln0 = currln;
+    int totaln0 = totaln;
+    int curr_window_line0 = curr_window_line;
+    int insert_character0 = insert_character;
+    int my_ansimode0 = my_ansimode;
+    int edit_margin0 = edit_margin;
+    int blockln0 = blockln, count=0, tin=0;
+    
+    currutmp->mode = EDITING;
+    currutmp->destuid = currstat;
+    insert_character = redraw_everything = 1;
+    prevln = blockln = -1;
+    
+    line_dirty = currpnt = totaln = my_ansimode = 0;
+    currline = top_of_win = firstline = lastline = alloc_line();
+    
+    if(*fpath)
+	read_file(fpath);
+
+    if(*quote_file) {
+	do_quote();
+	*quote_file = '\0';
+	if(quote_file[79] == 'L')
+	    local_article = 1;
+    }
+    
+    currline = firstline;
+    currpnt = currln = curr_window_line = edit_margin = last_margin = 0;
+    
+    while(1) {
+	if(redraw_everything || blockln >= 0) {
+	    display_buffer();
+	    redraw_everything = NA;
+	}
+	if(my_ansimode)
+	    ch = n2ansi(currpnt, currline);
+	else
+	    ch = currpnt - edit_margin;
+	move(curr_window_line, ch);
+	if(!line_dirty && strcmp(line, currline->data))
+	    strcpy(line, currline->data);
+	ch = igetkey();
+												/* jochang debug */
+	if((interval = (unsigned short int)((th = currutmp->lastact) - now))) {
+	    now = th;
+	    if((char)ch != last) {
+		money++;
+		last = (char)ch;
+	    }
+        }
+	if(interval && interval == tin)
+	  count++;
+        else
+	 {
+	  count=0;
+	  tin = interval;
+	 }
+        /* 連續240個interval一樣 , 分明是在斂財 */
+	if(count >= 240) {
+	    sprintf(buf, "\033[1;33;46m%s\033[37m在\033[37;45m%s"
+		    "\033[37m板違法賺錢 , %s\033[m", cuser.userid,
+		    currboard,ctime(&now));
+	    log_file ("etc/illegal_money",buf);
+	    money = 0 ;
+	    post_violatelaw(cuser.userid, "Ptt 系統警察", "違法賺錢", "扣除不法所得");
+	    mail_violatelaw(cuser.userid, "Ptt 系統警察", "違法賺錢", "扣除不法所得");
+//	    demoney(10000);
+//	    abort_bbs(0);
+	}
+
+	if(raw_mode)
+	    switch (ch) {
+	    case Ctrl('S'):
+	    case Ctrl('Q'):
+	    case Ctrl('T'):
+		continue;
+		break;
+	    }
+	if(ch < 0x100 && isprint2(ch)) {
+	    insert_char(ch);
+	    lastindent = -1;
+	    line_dirty = 1;
+	} else {
+	    if(ch == Ctrl('P') || ch == KEY_UP || ch == KEY_DOWN ||
+	       ch == Ctrl('N')) {
+		if(lastindent == -1)
+		    lastindent = currpnt;
+	    } else
+		lastindent = -1;
+	    if(ch == KEY_ESC)
+		switch(KEY_ESC_arg) {
+		case ',':
+		    ch = Ctrl(']');
+		    break;
+		case '.':
+		    ch = Ctrl('T');
+		    break;
+		case 'v':
+		    ch = KEY_PGUP;
+		    break;
+		case 'a':
+		case 'A':
+		    ch = Ctrl('V');
+		    break;
+		case 'X':
+		    ch = Ctrl('X');
+		    break;
+		case 'q':
+		    ch = Ctrl('Q');
+		    break;
+		case 'o':
+		    ch = Ctrl('O');
+		    break;
+		case '-':
+		    ch = Ctrl('_');
+		    break;
+		case 's':
+		    ch = Ctrl('S');
+		    break;
+		}
+
+	    switch(ch) {
+	    case Ctrl('X'):           /* Save and exit */
+		foo = write_file(fpath, saveheader, islocal);
+		if(foo != KEEP_EDITING) {
+		    currutmp->mode = mode0;
+		    currutmp->destuid = destuid0;
+		    firstline = firstline0;
+		    lastline = lastline0;
+		    currline = currline0;
+		    blockline = blockline0;
+		    top_of_win = top_of_win0;
+		    local_article = local_article0;
+		    currpnt = currpnt0;
+		    currln = currln0;
+		    totaln = totaln0;
+		    curr_window_line = curr_window_line0;
+		    insert_character = insert_character0;
+		    my_ansimode = my_ansimode0;
+		    edit_margin = edit_margin0;
+		    blockln = blockln0;
+		    if(!foo)
+			return money;
+		    else
+			return foo;
+		}
+		line_dirty = 1;
+		redraw_everything = YEA;
+		break;
+	    case Ctrl('W'):
+		if(blockln >= 0)
+		    block_del(2);
+		line_dirty = 1;
+		break;
+	    case Ctrl('Q'):           /* Quit without saving */
+		ch = ask("結束但不儲存 (Y/N)? [N]: ");
+		if(ch == 'y' || ch == 'Y') {
+		    currutmp->mode = mode0;
+		    currutmp->destuid = destuid0;
+		    firstline = firstline0;
+		    lastline = lastline0;
+		    currline = currline0;
+		    blockline = blockline0;
+		    top_of_win = top_of_win0;
+		    local_article = local_article0;
+		    currpnt = currpnt0;
+		    currln = currln0;
+		    totaln = totaln0;
+		    curr_window_line = curr_window_line0;
+		    insert_character = insert_character0;
+		    my_ansimode = my_ansimode0;
+		    edit_margin = edit_margin0;
+		    blockln = blockln0;
+		    return -1;
+		}
+		line_dirty = 1;
+		redraw_everything = YEA;
+		break;
+	    case Ctrl('C'):
+		ch = insert_character;
+		insert_character = redraw_everything = YEA;
+		if(!my_ansimode)
+		    insert_string(reset_color);
+		else {
+		    char ans[4];
+		    move(b_lines - 2, 55);
+		    outs("\033[1;33;40mB\033[41mR\033[42mG\033[43mY\033[44mL"
+			 "\033[45mP\033[46mC\033[47mW\033[m");
+		    if(getdata(b_lines - 1, 0,
+			       "請輸入  亮度/前景/背景[正常白字黑底][0wb]：",
+			       ans, 4, LCECHO)) {
+			char t[] = "BRGYLPCW";
+			char color[15];
+			char *tmp, *apos = ans;
+			int fg, bg;
+			
+			strcpy(color, "\033[");
+			if(isdigit(*apos)) {
+			    sprintf(color, "%s%c", color, *(apos++));
+			    if(*apos)
+				sprintf(color, "%s;", color);
+			}
+			if(*apos) {
+			    if((tmp = strchr(t, toupper(*(apos++)))))
+				fg = tmp - t + 30;
+			    else
+				fg = 37;
+			    sprintf(color, "%s%d", color, fg);
+			}
+			if(*apos) {
+			    if((tmp = strchr(t, toupper(*(apos++)))))
+				bg = tmp - t + 40;
+			    else
+				bg = 40;
+			    sprintf(color, "%s;%d", color, bg);
+			}
+			sprintf(color, "%sm", color);
+			insert_string(color);
+		    } else
+			insert_string(reset_color);
+		}
+		insert_character = ch;
+		line_dirty = 1;
+		break;
+	    case KEY_ESC:
+		line_dirty = 0;
+		switch(KEY_ESC_arg) {
+		case 'U':
+		    t_users();
+		    redraw_everything = YEA;
+		    line_dirty = 1;
+		    break;
+		case 'i':
+		    t_idle();
+		    redraw_everything = YEA;
+		    line_dirty = 1;
+		    break;
+		case 'n':
+		    search_str(1);
+		    break;
+		case 'p':
+		    search_str(-1);
+		    break;
+		case 'L':
+		case 'J':
+		    goto_line(0);
+		    break;
+		case ']':
+		    match_paren();
+		    break;
+		case '0':
+		case '1':
+		case '2':
+		case '3':
+		case '4':
+		case '5':
+		case '6':
+		case '7':
+		case '8':
+		case '9':
+		    read_tmpbuf(KEY_ESC_arg - '0');
+		    redraw_everything = YEA;
+		    break;
+		case 'l':                       /* block delete */
+		case ' ':
+		    block_del(0);
+		    line_dirty = 1;
+		    break;
+		case 'u':
+		    if(blockln >= 0)
+			block_del(1);
+		    line_dirty = 1;
+		    break;
+		case 'c':
+		    if(blockln >= 0)
+			block_del(3);
+		    line_dirty = 1;
+		    break;
+		case 'y':
+		    undelete_line();
+		    break;
+		case 'R':
+		    raw_mode ^= 1;
+		    line_dirty = 1;
+		    break;
+		case 'I':
+		    indent_mode ^= 1;
+		    line_dirty = 1;
+		    break;
+		case 'j':
+		    if(blockln >= 0)
+			block_shift_left();
+		    else if(currline->len) {
+			int currpnt0 = currpnt;
+			currpnt = 0;
+			delete_char();
+			currpnt = (currpnt0 <= currline->len) ? currpnt0 : 
+			    currpnt0 - 1;
+			if(my_ansimode)
+			    currpnt = ansi2n(n2ansi(currpnt, currline),
+					     currline);
+		    }
+		    line_dirty = 1;
+		    break;
+		case 'k':
+		    if(blockln >= 0)
+			block_shift_right();
+		    else {
+			int currpnt0 = currpnt;
+			
+			currpnt = 0;
+			insert_char(' ');
+			currpnt = currpnt0;
+		    }
+		    line_dirty = 1;
+		    break;
+		case 'f':
+		    while(currpnt < currline->len &&
+			  isalnum(currline->data[++currpnt]));
+		    while(currpnt < currline->len &&
+			  isspace(currline->data[++currpnt]));
+		    line_dirty = 1;
+		    break;
+		case 'b':
+		    while(currpnt && isalnum(currline->data[--currpnt]));
+		    while(currpnt && isspace(currline->data[--currpnt]));
+		    line_dirty = 1;
+		    break;
+		case 'd':
+		    while(currpnt < currline->len) {
+			delete_char();
+			if(!isalnum(currline->data[currpnt]))
+			    break;
+		    }
+		    while(currpnt < currline->len) {
+			delete_char();
+			if(!isspace(currline->data[currpnt]))
+			    break;
+		    }
+		    line_dirty = 1;
+		    break;
+		default:
+		    line_dirty = 1;
+		}
+		break;
+	    case Ctrl('_'):
+		if(strcmp(line, currline->data)) {
+		    char buf[WRAPMARGIN];
+		    
+		    strcpy(buf, currline->data);
+		    strcpy(currline->data, line);
+		    strcpy(line, buf);
+		    currline->len = strlen(currline->data);
+		    currpnt = 0;
+		    line_dirty = 1;
+		}
+		break;
+	    case Ctrl('S'):
+		search_str(0);
+		break;
+	    case Ctrl('U'):
+		insert_char('\033');
+		line_dirty = 1;
+		break;
+	    case Ctrl('V'):                   /* Toggle ANSI color */
+		my_ansimode ^= 1;
+		if(my_ansimode && blockln >= 0)
+		    block_color();
+		clear();
+		redraw_everything = YEA;
+		line_dirty = 1;
+		break;
+	    case Ctrl('I'):
+		do {
+		    insert_char(' ');
+		} while(currpnt & 0x7);
+		line_dirty = 1;
+		break;
+	    case '\r':
+	    case '\n':
+		split(currline, currpnt);
+		line_dirty = 0;
+		break;
+	    case Ctrl('G'):
+	    {
+		unsigned int currstat0 = currstat;
+		setutmpmode(EDITEXP);
+		a_menu("編輯輔助器", "etc/editexp",
+		       (HAS_PERM(PERM_SYSOP) ? SYSOP : NOBODY));
+		currstat = currstat0;
+	    }
+	    if(trans_buffer[0]) {
+		if((fp1 = fopen(trans_buffer, "r"))) {
+		    int indent_mode0 = indent_mode;
+
+		    indent_mode = 0;
+		    prevln = currln;
+		    prevpnt = currpnt;
+		    while(fgets(line, WRAPMARGIN + 2, fp1)) {
+			if(!strncmp(line,"作者:",5) ||
+			   !strncmp(line,"標題:",5) ||
+			   !strncmp(line,"時間:",5))
+			    continue;
+			insert_string(line);
+		    }
+		    fclose(fp1);
+		    indent_mode = indent_mode0;
+		    while(curr_window_line >= b_lines) {
+			curr_window_line--;
+			top_of_win = top_of_win->next;
+		    }
+		}
+	    }
+	    redraw_everything = YEA;
+	    line_dirty = 1;
+	    break;
+	    case Ctrl('Z'):  /* Help */
+		more("etc/ve.hlp",YEA);
+		redraw_everything = YEA;
+		line_dirty = 1;
+		break;
+	    case Ctrl('L'):
+		clear();
+		redraw_everything = YEA;
+		line_dirty = 1;
+		break;
+	    case KEY_LEFT:
+		if(currpnt) {
+		    if(my_ansimode)
+			currpnt = n2ansi(currpnt, currline);
+		    currpnt--;
+		    if(my_ansimode)
+			currpnt = ansi2n(currpnt, currline);
+		    line_dirty = 1;
+		} else if(currline->prev) {
+		    curr_window_line--;
+		    currln--;
+		    currline = currline->prev;
+		    currpnt = currline->len;
+		    line_dirty = 0;
+		}
+		break;
+	    case KEY_RIGHT:
+		if(currline->len != currpnt) {
+		    if(my_ansimode)
+			currpnt = n2ansi(currpnt, currline);
+		    currpnt++;
+		    if(my_ansimode)
+			currpnt = ansi2n(currpnt, currline);
+		    line_dirty = 1;
+		} else if(currline->next) {
+		    currpnt = 0;
+		    curr_window_line++;
+		    currln++;
+		    currline = currline->next;
+		    line_dirty = 0;
+		}
+		break;
+	    case KEY_UP:
+	    case Ctrl('P'):
+		if(currline->prev) {
+		    if(my_ansimode)
+			ch = n2ansi(currpnt,currline);
+		    curr_window_line--;
+		    currln--;
+		    currline = currline->prev;
+		    if(my_ansimode)
+			currpnt = ansi2n(ch , currline);
+		    else
+			currpnt = (currline->len > lastindent) ? lastindent :
+			currline->len;
+		    line_dirty = 0;
+		}
+		break;
+	    case KEY_DOWN:
+	    case Ctrl('N'):
+		if(currline->next) {
+		    if(my_ansimode)
+			ch = n2ansi(currpnt,currline);
+		    currline = currline->next;
+		    curr_window_line++;
+		    currln++;
+		    if(my_ansimode)
+			currpnt = ansi2n(ch , currline);
+		    else
+			currpnt = (currline->len > lastindent) ? lastindent :
+			currline->len;
+		    line_dirty = 0;
+		}
+		break;
+	    case Ctrl('B'):
+	    case KEY_PGUP:
+		redraw_everything = currln;
+		top_of_win = back_line(top_of_win, 22);
+		currln = redraw_everything;
+		currline = back_line(currline, 22);
+		curr_window_line = getlineno();
+		if(currpnt > currline->len)
+		    currpnt = currline->len;
+		redraw_everything = YEA;
+		line_dirty = 0;
+		break;
+	    case KEY_PGDN:
+	    case Ctrl('F'):
+		redraw_everything = currln;
+		top_of_win = forward_line(top_of_win, 22);
+		currln = redraw_everything;
+		currline = forward_line(currline, 22);
+		curr_window_line = getlineno();
+		if(currpnt > currline->len)
+		    currpnt = currline->len;
+		redraw_everything = YEA;
+		line_dirty = 0;
+		break;
+	    case KEY_END:
+	    case Ctrl('E'):
+		currpnt = currline->len;
+		line_dirty = 1;
+		break;
+	    case Ctrl(']'):   /* start of file */
+		prevln = currln;
+		prevpnt = currpnt;
+		currline = top_of_win = firstline;
+		currpnt = currln = curr_window_line = 0;
+		redraw_everything = YEA;
+		line_dirty = 0;
+		break;
+	    case Ctrl('T'):           /* tail of file */
+		prevln = currln;
+		prevpnt = currpnt;
+		top_of_win = back_line(lastline, 23);
+		currline = lastline;
+		curr_window_line = getlineno();
+		currln = totaln;
+		redraw_everything = YEA;
+		currpnt = 0;
+		line_dirty = 0;
+		break;
+	    case KEY_HOME:
+	    case Ctrl('A'):
+		currpnt = 0;
+		line_dirty = 1;
+		break;
+	    case KEY_INS:             /* Toggle insert/overwrite */
+	    case Ctrl('O'):
+		if(blockln >= 0 && insert_character) {
+		    char ans[4];
+
+		    getdata(b_lines - 1, 0,
+			    "區塊微調右移插入字元(預設為空白字元)",
+			    ans, 4, LCECHO);
+		    insert_c = (*ans) ? *ans : ' ';
+		}
+		insert_character ^= 1;
+		line_dirty = 1;
+		break;
+	    case Ctrl('H'):
+	    case '\177':              /* backspace */
+		line_dirty = 1;
+		if(my_ansimode) {
+		    my_ansimode = 0;
+		    clear();
+		    redraw_everything = YEA;
+		} else {
+		    if(currpnt == 0) {
+			textline_t *p;
+
+			if(!currline->prev)
+			    break;
+			line_dirty = 0;
+			curr_window_line--;
+			currln--;
+			currline = currline->prev;
+			currpnt = currline->len;
+			redraw_everything = YEA;
+			if(*killsp(currline->next->data) == '\0') {
+			    delete_line(currline->next);
+			    break;
+			}
+			p = currline;
+			while(!join(p))	{
+			    p = p->next;
+			    if(p == NULL) {
+				indigestion(2);
+				abort_bbs(0);
+			    }
+			}
+			break;
+		    }
+		    currpnt--;
+		    delete_char();
+		}
+		break;
+	    case Ctrl('D'):
+	    case KEY_DEL:             /* delete current character */
+		line_dirty = 1;
+		if(currline->len == currpnt) {
+		    textline_t *p = currline;
+		    
+		    while(!join(p)) {
+			p = p->next;
+			if(p == NULL) {
+			    indigestion(2);
+			    abort_bbs(0);
+			}
+		    }
+		    line_dirty = 0;
+		    redraw_everything = YEA;
+		} else {
+		    delete_char();
+		    if(my_ansimode)
+			currpnt = ansi2n(n2ansi(currpnt, currline), currline);
+		}
+		break;
+	    case Ctrl('Y'):           /* delete current line */
+		currline->len = currpnt = 0;
+	    case Ctrl('K'):           /* delete to end of line */
+		if(currline->len == 0) {
+		    textline_t *p = currline->next;
+		    if(!p) {
+			p = currline->prev;
+			if(!p)
+			    break;
+			if(curr_window_line > 0) {
+			    curr_window_line--;
+			    currln--;
+			}
+		    }
+		    if(currline == top_of_win)
+			top_of_win = p;
+		    delete_line(currline);
+		    currline = p;
+		    redraw_everything = YEA;
+		    line_dirty = 0;
+		    break;
+		}
+		if(currline->len == currpnt) {
+		    textline_t *p = currline;
+
+		    while(!join(p)) {
+			p = p->next;
+			if(p == NULL) {
+			    indigestion(2);
+			    abort_bbs(0);
+			}
+		    }
+		    redraw_everything = YEA;
+		    line_dirty = 0;
+		    break;
+		}
+		currline->len = currpnt;
+		currline->data[currpnt] = '\0';
+		line_dirty = 1;
+		break;
+	    }
+	    if(currln < 0)
+		currln = 0;
+	    if(curr_window_line < 0) {
+		curr_window_line = 0;
+		if(!top_of_win->prev)
+		    indigestion(6);
+		else {
+		    top_of_win = top_of_win->prev;
+		    rscroll();
+		}
+	    }
+	    if(curr_window_line == b_lines) {
+		curr_window_line = t_lines - 2;
+		if(!top_of_win->next)
+		    indigestion(7);
+		else {
+		    top_of_win = top_of_win->next;
+		    move(b_lines, 0);
+		    clrtoeol();
+		    scroll();
+		}
+	    }
+	}
+	edit_margin = currpnt < SCR_WIDTH - 1 ? 0 : currpnt / 72 * 72;
+	
+	if(!redraw_everything) {
+	    if(edit_margin != last_margin) {
+		last_margin = edit_margin;
+		redraw_everything = YEA;
+	    } else {
+		move(curr_window_line, 0);
+		clrtoeol();
+		if(my_ansimode)
+		    outs(currline->data);
+		else
+		    edit_outs(&currline->data[edit_margin]);
+		edit_msg();
+	    }
+	}
+    }
+}