From ef1b088ac607d88c519cbfb3b0a4bd76214605a3 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 3 Mar 2008 03:57:32 +0000 Subject: [PATCH] (gnus-debug): Use mm-string-to-multibyte. --- lisp/gnus/ChangeLog | 1 + lisp/gnus/gnus-msg.el | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index a6070ffc1c7..392833a2cba 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,6 @@ 2008-03-03 Stefan Monnier + * gnus-msg.el (gnus-debug): * gnus-group.el (gnus-update-group-mark-positions): Use mm-string-to-multibyte. diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 0a2ee2d09be..9031790eec8 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -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 -- 2.39.2