Function: message-sort-headers

message-sort-headers is an interactive and byte-compiled function defined in message.el.gz.

Signature

(message-sort-headers)

Documentation

Sort headers of the current message according to message-header-format-alist.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-sort-headers ()
  "Sort headers of the current message according to `message-header-format-alist'."
  (interactive nil message-mode)
  (save-excursion
    (save-restriction
      (let ((max (1+ (length message-header-format-alist))))
	(message-narrow-to-headers)
	(while (re-search-forward "^[^ \n]+:" nil t)
	  (put-text-property
	   (match-beginning 0) (1+ (match-beginning 0))
	   'message-rank
           (- max (length
                   (memq (assq (intern (buffer-substring
					(match-beginning 0) (1- (match-end 0))))
			       message-header-format-alist)
			 message-header-format-alist))))))
      (message-sort-headers-1))))