2001-01-18 08:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* rfc2047.el (rfc2047-fold-region): Don't insert LWSP if there is
	one.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d9b482f..7983513 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-18 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * rfc2047.el (rfc2047-fold-region): Don't insert LWSP if there is
+       one.
+
 2001-01-16  Simon Josefsson  <simon@josefsson.org>
 
        * message.el (message-make-in-reply-to): Add comment to message-id

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 79bdba5..1904d48 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -323,7 +323,9 @@ The buffer may be narrowed."
          (goto-char (or break qword-break))
          (setq break nil
                qword-break nil)
-         (insert "\n ")
+         (if (looking-at " \t")
+             (insert "\n")
+           (insert "\n "))
          (setq bol (1- (point)))
          ;; Don't break before the first non-LWSP characters.
          (skip-chars-forward " \t")
@@ -355,7 +357,9 @@ The buffer may be narrowed."
        (goto-char (or break qword-break))
        (setq break nil
              qword-break nil)
-       (insert "\n ")
+         (if (looking-at " \t")
+             (insert "\n")
+           (insert "\n "))
        (setq bol (1- (point)))
        ;; Don't break before the first non-LWSP characters.
        (skip-chars-forward " \t")