Synch to No Gnus 200408051144.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47408c0..5a3f33e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-05  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * rfc2047.el (rfc2047-fold-region): Use trailing whitespace as
+       LWSP.
+
 2004-08-04  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-split-fancy-with-parent): try

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index d430a35..f288d51 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -640,9 +640,10 @@ Point moves to the end of the region."
        (goto-char (or break qword-break))
        (setq break nil
              qword-break nil)
-         (if (looking-at "[ \t]")
-             (insert ?\n)
-           (insert "\n "))
+       (if (or (> 0 (skip-chars-backward " \t"))
+               (looking-at "[ \t]"))
+           (insert ?\n)
+         (insert "\n "))
        (setq bol (1- (point)))
        ;; Don't break before the first non-LWSP characters.
        (skip-chars-forward " \t")