/[emacs]/emacs/lisp/gnus/gnus-msg.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-msg.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18.6.4 by miles, Wed Sep 29 07:22:15 2004 UTC revision 1.18.6.5 by miles, Thu Oct 14 08:50:05 2004 UTC
# Line 1534  The source file has to be in the Emacs l Line 1534  The source file has to be in the Emacs l
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    

Legend:
Removed from v.1.18.6.4  
changed lines
  Added in v.1.18.6.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26