(rfc2047-quote-special-characters-in-quoted-strings): Fix the way to find

 boundaries of quoted strings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5c3b20..a81366f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-07  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * rfc2047.el (rfc2047-quote-special-characters-in-quoted-strings):
+       Fix the way to find boundaries of quoted strings.
+
 2006-09-07  Daiki Ueno  <ueno@unixuser.org>
 
        * mml1991.el (mml1991-epg-encrypt): Simply throw an error if

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 221d251..62a2b02 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -163,7 +163,7 @@ matching ENCODABLE-REGEXP."
                  (goto-char beg)
                  (unless (and encodable-regexp
                               (re-search-forward encodable-regexp nil t))
-                   (while (re-search-forward tspecials nil 'move)
+                   (while (re-search-forward tspecials nil t)
                      (unless (and (eq (char-before) ?\\) ;; Already quoted.
                                   (looking-at tspecials))
                        (goto-char (match-beginning 0))
@@ -171,8 +171,9 @@ matching ENCODABLE-REGEXP."
                                    (and rfc2047-encode-encoded-words
                                         (eq (char-after) ??)
                                         (eq (char-before) ?=)))
-                         (insert "\\")))
-                     (forward-char)))))
+                         (insert "\\")))))
+                 (goto-char (point-max)))
+               (forward-char))
            (error
             (goto-char beg))))))))