Function: message-checksum

message-checksum is a byte-compiled function defined in message.el.gz.

Signature

(message-checksum)

Documentation

Return a "checksum" for the current buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-checksum ()
  "Return a \"checksum\" for the current buffer."
  (let ((sum 0))
    (save-excursion
      (goto-char (point-min))
      (re-search-forward
       (concat "^" (regexp-quote mail-header-separator) "$"))
      (while (not (eobp))
	(when (not (looking-at "[ \t\n]"))
	  (setq sum (logxor (message--rotate-fixnum-left sum)
			    (char-after))))
	(forward-char 1)))
    sum))