(rfc2047-fold-field): Replace. (Unintentionally deleted.)

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 04809ec..ba25cfc 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -407,6 +407,13 @@ By default, the region is treated as containing addresses (see
            (insert "?=")
            (forward-line 1))))))
 
+(defun rfc2047-fold-field ()
+  "Fold the current header field."
+  (save-excursion
+    (save-restriction
+      (rfc2047-narrow-to-field)
+      (rfc2047-fold-region (point-min) (point-max)))))
+
 (defun rfc2047-fold-region (b e)
   "Fold long lines in region B to E."
   (save-restriction