1534 |
;; Remove any control chars - they seem to cause trouble for some |
;; Remove any control chars - they seem to cause trouble for some |
1535 |
;; mailers. (Byte-compiled output from the stuff above.) |
;; mailers. (Byte-compiled output from the stuff above.) |
1536 |
(goto-char point) |
(goto-char point) |
1537 |
(while (re-search-forward "[\000-\010\013-\037\200-\237]" nil t) |
(while (re-search-forward (mm-string-as-multibyte |
1538 |
|
"[\000-\010\013-\037\200-\237]") nil t) |
1539 |
(replace-match (format "\\%03o" (string-to-char (match-string 0))) |
(replace-match (format "\\%03o" (string-to-char (match-string 0))) |
1540 |
t t)))) |
t t)))) |
1541 |
|
|