From d5e74d9cd7fd657f13ef7ac72cf84c3bc3a03ba9 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 15 Aug 2022 17:08:25 +0200 Subject: [PATCH] Clean up message-sort-headers code slightly * lisp/gnus/message.el (message-sort-headers): Simplify code by removing always-true `if' statement. --- lisp/gnus/message.el | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 8a3967f3461..90d8a744dec 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -2732,20 +2732,17 @@ Point is left at the beginning of the narrowed-to region." (interactive nil message-mode) (save-excursion (save-restriction - (let ((max (1+ (length message-header-format-alist))) - rank) + (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 - (if (setq rank (length (memq (assq (intern (buffer-substring - (match-beginning 0) - (1- (match-end 0)))) - message-header-format-alist) - message-header-format-alist))) - (- max rank) - (1+ max))))) + (- 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)))) (defun message-kill-address () -- 2.39.5