Function: article-normalize-headers

article-normalize-headers is an interactive and byte-compiled function defined in gnus-art.el.gz.

Signature

(article-normalize-headers)

Documentation

Make all header lines 40 characters long.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun article-normalize-headers ()
  "Make all header lines 40 characters long."
  (interactive nil gnus-article-mode)
  (let ((inhibit-read-only t)
	column)
    (save-excursion
      (save-restriction
	(article-narrow-to-head)
	(while (not (eobp))
	  (cond
	   ((< (setq column (- (point-at-eol) (point)))
	       gnus-article-normalized-header-length)
	    (end-of-line)
	    (insert (make-string
		     (- gnus-article-normalized-header-length column)
		     ? )))
	   ((> column gnus-article-normalized-header-length)
	    (put-text-property
	     (progn
	       (forward-char gnus-article-normalized-header-length)
	       (point))
	     (point-at-eol)
	     'invisible t))
	   (t
	    ;; Do nothing.
	    ))
	  (forward-line 1))))))