Fold a line more than once.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d9a616..84373e7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-12-17 13:08:54  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * rfc2047.el (rfc2047-fold-region): Fold a line more than once.
+
 1999-12-17 11:54:41  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * webmail.el: Enhance hotmail-snarf.

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 248f888..ff293ae 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -277,8 +277,8 @@ permitted unencoded charset is us-ascii."
         ((and (looking-at "\\?=")
               (> (- (point) (save-excursion (beginning-of-line) (point))) 76))
          (goto-char break)
-         (insert "\n ")
-         (forward-line 1)))
+         (setq break nil)
+         (insert "\n ")))
        (unless (eobp)
          (forward-char 1))))))