Function: mh-letter-truncate-header-field

mh-letter-truncate-header-field is a byte-compiled function defined in mh-utils.el.gz.

Signature

(mh-letter-truncate-header-field END)

Documentation

Replace text from current line till END with an ellipsis.

If the current line is too long truncate a part of it as well.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-utils.el.gz
(defun mh-letter-truncate-header-field (end)
  "Replace text from current line till END with an ellipsis.
If the current line is too long truncate a part of it as well."
  (let ((max-len (min (window-width) 62)))
    (when (> (+ (current-column) 4) max-len)
      (backward-char (- (+ (current-column) 5) max-len)))
    (when (> end (point))
      (add-text-properties (point) end '(invisible vanish)))))