1615 |
(if (not header) |
(if (not header) |
1616 |
nil |
nil |
1617 |
(let ((regexp (format "[%s]+" (or separator ","))) |
(let ((regexp (format "[%s]+" (or separator ","))) |
|
(beg (point-min)) |
|
1618 |
(first t) |
(first t) |
1619 |
quoted elems paren) |
beg quoted elems paren) |
1620 |
(with-temp-buffer |
(with-temp-buffer |
1621 |
(mm-enable-multibyte) |
(mm-enable-multibyte) |
1622 |
|
(setq beg (point-min)) |
1623 |
(insert header) |
(insert header) |
1624 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1625 |
(while (not (eobp)) |
(while (not (eobp)) |
4399 |
nil)))) |
nil)))) |
4400 |
;; Check for control characters. |
;; Check for control characters. |
4401 |
(message-check 'control-chars |
(message-check 'control-chars |
4402 |
(if (re-search-forward "[\000-\007\013\015-\032\034-\037\200-\237]" nil t) |
(if (re-search-forward |
4403 |
|
(mm-string-as-multibyte "[\000-\007\013\015-\032\034-\037\200-\237]") |
4404 |
|
nil t) |
4405 |
(y-or-n-p |
(y-or-n-p |
4406 |
"The article contains control characters. Really post? ") |
"The article contains control characters. Really post? ") |
4407 |
t)) |
t)) |