Function: gnus-uu-check-correct-stripped-uucode

gnus-uu-check-correct-stripped-uucode is a byte-compiled function defined in gnus-uu.el.gz.

Signature

(gnus-uu-check-correct-stripped-uucode START END)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-uu.el.gz
(defun gnus-uu-check-correct-stripped-uucode (start end)
  (save-excursion
    (let (found beg length)
      (unless gnus-uu-correct-stripped-uucode
	(goto-char start)

	(if (re-search-forward " \\|`" end t)
	    (progn
	      (goto-char start)
	      (while (not (eobp))
		(progn
		  (when (looking-at "\n")
		    (replace-match ""))
		  (forward-line 1))))

	  (while (not (eobp))
	    (unless (looking-at (concat gnus-uu-begin-string "\\|"
					gnus-uu-end-string))
	      (when (not found)
		(setq length (- (point-at-eol) (point-at-bol))))
	      (setq found t)
	      (beginning-of-line)
	      (setq beg (point))
	      (end-of-line)
	      (unless (= length (- (point) beg))
		(insert (make-string (- length (- (point) beg)) ? ))))
	    (forward-line 1)))))))