[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el

[Juri Linkov]

Index: emacs/lisp/gnus/gnus-msg.el
diff -c emacs/lisp/gnus/gnus-msg.el:1.23 emacs/lisp/gnus/gnus-msg.el:1.24
*** emacs/lisp/gnus/gnus-msg.el:1.23    Mon Sep 27 07:44:43 2004
--- emacs/lisp/gnus/gnus-msg.el Mon Oct  4 23:18:11 2004
***************
*** 1534,1540 ****
      ;; Remove any control chars - they seem to cause trouble for some
      ;; mailers.  (Byte-compiled output from the stuff above.)
      (goto-char point)
!     (while (re-search-forward "[\000-\010\013-\037\200-\237]" nil t)
        (replace-match (format "\\%03o" (string-to-char (match-string 0)))
                     t t))))
  
--- 1534,1541 ----
      ;; Remove any control chars - they seem to cause trouble for some
      ;; mailers.  (Byte-compiled output from the stuff above.)
      (goto-char point)
!     (while (re-search-forward (string-as-multibyte
!                              "[\000-\010\013-\037\200-\237]") nil t)
        (replace-match (format "\\%03o" (string-to-char (match-string 0)))
                     t t))))