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 |
|
(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)) |