(rfc2047-encode-region): Move point to the end of the region after encoding.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae97e67..ba0d4e6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-06-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * rfc2047.el (rfc2047-encode-region): Move point to the end of the
+       region after encoding.
+       Suggested by IRIE Tetsuya <irie@t.email.ne.jp>.
+
 2004-06-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-cite.el (gnus-cite-parse): Don't ignore case when finding

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index f7446d7..dc78fab 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -431,7 +431,8 @@ Dynamically bind `rfc2047-encoding-type' to change that."
            (error
             (error "Invalid data for rfc2047 encoding: %s"
                    (mm-replace-in-string orig-text "[ \t\n]+" " ")))))))
-    (rfc2047-fold-region b (point))))
+    (rfc2047-fold-region b (point))
+    (goto-char (point-max))))
 
 (defun rfc2047-encode-string (string)
   "Encode words in STRING.