(rfc2047-strip-backslashes-in-quoted-strings): Decode `\\' in quoted string

 into `\'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 090071a..99ce4d9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-04  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * rfc2047.el (rfc2047-strip-backslashes-in-quoted-strings): Decode `\\'
+       in quoted string into `\'.
+
 2006-09-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * rfc2047.el (rfc2047-quote-special-characters-in-quoted-strings):

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 647e997..221d251 100644 (file)
--- 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))