From: yamaoka <yamaoka>
Date: Thu, 5 Aug 2004 11:48:16 +0000 (+0000)
Subject: Synch to No Gnus 200408051144.
X-Git-Tag: t-gnus-6_17_4-quimby-~808
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bd20b73a384deab5b389cb154be3554b2cf7c738;p=elisp%2Fgnus.git-

Synch to No Gnus 200408051144.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47408c0..5a3f33e 100644
--- 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
--- 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")