From 090002546b59776606b93cf89c5fafe943b2771f Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 4 Sep 2006 01:40:59 +0000 Subject: [PATCH] (rfc2047-strip-backslashes-in-quoted-strings): Decode `\\' in quoted string into `\'. --- lisp/ChangeLog | 5 +++++ lisp/rfc2047.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 090071a22..99ce4d9e2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-09-04 Katsumi Yamaoka + + * rfc2047.el (rfc2047-strip-backslashes-in-quoted-strings): Decode `\\' + in quoted string into `\'. + 2006-09-01 Katsumi Yamaoka * rfc2047.el (rfc2047-quote-special-characters-in-quoted-strings): diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el index 647e99786..221d251de 100644 --- a/lisp/rfc2047.el +++ b/lisp/rfc2047.el @@ -830,7 +830,7 @@ the decoder will fully decode each encoded-word before concatenating them.") (defun rfc2047-strip-backslashes-in-quoted-strings () - "Strip backslashes in quoted strings. `\\\"' and `\\\\' remain." + "Strip backslashes in quoted strings. `\\\"' remains." (goto-char (point-min)) (let (beg) (with-syntax-table (standard-syntax-table) @@ -845,7 +845,7 @@ them.") (narrow-to-region beg (1- (point))) (goto-char beg) (while (search-forward "\\" nil 'move) - (unless (memq (char-after) '(?\" ?\\)) + (unless (memq (char-after) '(?\")) (delete-backward-char 1)) (forward-char))) (forward-char)) -- 2.34.1