master d5e74d9cd7: Clean up message-sort-headers code slightly

[Lars Ingebrigtsen]

branch: master
commit d5e74d9cd7fd657f13ef7ac72cf84c3bc3a03ba9
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 8a3967f346..90d8a744de 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 ()