Function: canlock-delete-headers

canlock-delete-headers is a byte-compiled function defined in canlock.el.gz.

Signature

(canlock-delete-headers)

Documentation

Delete Cancel-Key or Cancel-Lock headers in the narrowed buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/canlock.el.gz
(defun canlock-delete-headers ()
  "Delete Cancel-Key or Cancel-Lock headers in the narrowed buffer."
  (let ((case-fold-search t))
    (goto-char (point-min))
    (while (re-search-forward "^Cancel-\\(Key\\|Lock\\):" nil t)
      (delete-region (match-beginning 0)
		     (if (re-search-forward "^[^\t ]" nil t)
			 (goto-char (match-beginning 0))
		       (point-max))))))