mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(gnus-debug): Use mm-string-to-multibyte.

Browse source
This commit is contained in:
Stefan Monnier 2008-03-03 03:57:32 +00:00
parent dacb905a07
commit ef1b088ac6
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/gnus/ChangeLog
View file

@ -1,5 +1,6 @@
2008-03-03 Stefan Monnier <monnier@iro.umontreal.ca>
* gnus-msg.el (gnus-debug):
* gnus-group.el (gnus-update-group-mark-positions):
Use mm-string-to-multibyte.

4
lisp/gnus/gnus-msg.el
View file

@ -1562,7 +1562,7 @@ The source file has to be in the Emacs load path."
;; 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 (mm-string-as-multibyte
(while (re-search-forward (mm-string-to-multibyte
"[\000-\010\013-\037\200-\237]") nil t)
(replace-match (format "\\%03o" (string-to-char (match-string 0)))
t t))))
@ -2000,5 +2000,5 @@ this is a reply."
(provide 'gnus-msg)
;;; arch-tag: 9f22b2f5-1c0a-49de-916e-4c88e984852b
;; arch-tag: 9f22b2f5-1c0a-49de-916e-4c88e984852b
;;; gnus-msg.el ends here