From 08f2e5fc0aed50513b72d4288bf9ccd1e77c2c3e Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 12 Jul 2004 11:19:33 +0000 Subject: [PATCH] (rfc2047-encode-region): Fix last change. --- lisp/ChangeLog | 4 ++++ lisp/rfc2047.el | 33 ++++++++++++++++----------------- 2 files changed, 20 insertions(+), 17 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 825485d45..4251f184a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-07-12 Katsumi Yamaoka + + * rfc2047.el (rfc2047-encode-region): Fix last change. + 2004-07-12 Katsumi Yamaoka From David Hedbor . diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el index e88e93e99..827f0320e 100644 --- a/lisp/rfc2047.el +++ b/lisp/rfc2047.el @@ -380,23 +380,22 @@ Dynamically bind `rfc2047-encoding-type' to change that." (when (looking-at "[\000-\177]+") (setq begin (point) end (match-end 0)) - (if (progn - (while (and (re-search-forward "[ \t\n]\\|\\Sw" - end 'move) - (eq ?\\ (char-syntax (char-before)))) - ;; Skip backslash-quoted characters. - (forward-char)) - (< (point) end)) - (progn - (setq end (match-beginning 0)) - (if rfc2047-encode-encoded-words - (progn - (goto-char begin) - (when (search-forward "=?" end 'move) - (goto-char (match-beginning 0)) - (setq end nil))) - (goto-char end))) - (setq end nil))) + (when (progn + (while (and (or (re-search-forward + "[ \t\n]\\|\\Sw" end 'move) + (setq end nil)) + (eq ?\\ (char-syntax (char-before)))) + ;; Skip backslash-quoted characters. + (forward-char)) + end) + (setq end (match-beginning 0)) + (if rfc2047-encode-encoded-words + (progn + (goto-char begin) + (when (search-forward "=?" end 'move) + (goto-char (match-beginning 0)) + (setq end nil))) + (goto-char end)))) (unless end (setq end t) (when (looking-at encodable-regexp) -- 2.34.1