Function: erc-fill--wrap-massage-initial-message-post-clear

erc-fill--wrap-massage-initial-message-post-clear is a byte-compiled function defined in erc-fill.el.gz.

Signature

(erc-fill--wrap-massage-initial-message-post-clear BEG END)

Documentation

Maybe reveal hidden speaker or add stamp on initial message after END.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-fill.el.gz
(defun erc-fill--wrap-massage-initial-message-post-clear (beg end)
  "Maybe reveal hidden speaker or add stamp on initial message after END."
  (if erc-stamp--date-mode
      (erc-stamp--redo-right-stamp-post-clear beg end)
    ;; With other non-date stamp-insertion functions, remove hidden
    ;; speaker continuation on first spoken message in buffer.
    (when-let* (((< end (1- erc-insert-marker)))
                (next (text-property-not-all end (min erc-insert-marker
                                                      (+ 4096 end))
                                             'erc--msg nil))
                (bounds (erc--get-inserted-msg-bounds next))
                (found (text-property-not-all (car bounds) (cdr bounds)
                                              'erc-fill--wrap-merge nil))
                (erc-fill--wrap-continued-predicate #'ignore))
      (erc-fill--wrap-rejigger-region (max (1- (car bounds)) (point-min))
                                      (min (1+ (cdr bounds)) erc-insert-marker)
                                      nil 'repairp))))