Function: rfc2047-unfold-region

rfc2047-unfold-region is a byte-compiled function defined in rfc2047.el.gz.

Signature

(rfc2047-unfold-region B E)

Documentation

Unfold lines in region B to E.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rfc2047.el.gz
(defun rfc2047-unfold-region (b e)
  "Unfold lines in region B to E."
  (save-restriction
    (narrow-to-region b e)
    (goto-char (point-min))
    (let ((bol (save-restriction
		 (widen)
                 (line-beginning-position)))
          (eol (line-end-position)))
      (forward-line 1)
      (while (not (eobp))
	(if (and (looking-at "[ \t]")
                 (< (- (line-end-position) bol) 76))
	    (delete-region eol (progn
				 (goto-char eol)
				 (skip-chars-forward "\r\n")
				 (point)))
          (setq bol (line-beginning-position)))
        (setq eol (line-end-position))
	(forward-line 1)))))