(rfc2047-fold-region): Don't fold at the beginning

of the field.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cb283e9..db96494 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-02  Jesper Harder  <harder@ifa.au.dk>
+
+       * rfc2047.el (rfc2047-fold-region): Don't fold at the beginning
+       of the field.
+
 2003-09-01  Simon Josefsson  <jas@extundo.com>
 
        * mml.el (mml-insert-mime-headers-always): New variable.

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 5955524..3380b90 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -492,7 +492,9 @@ By default, the region is treated as containing addresses (see
              (if (eq (char-after) ?=)
                  (forward-char 1)
                (skip-chars-forward "^ \t\n\r="))
-           (setq qword-break (point))
+           ;; Don't break at the start of the field.
+           (unless (= (point) b)
+             (setq qword-break (point)))
            (skip-chars-forward "^ \t\n\r")))
         (t
          (skip-chars-forward "^ \t\n\r"))))