diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-15 17:08:25 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-15 17:08:25 +0200 |
commit | d5e74d9cd7fd657f13ef7ac72cf84c3bc3a03ba9 (patch) | |
tree | c7bf5a2254201d2babca2b5d13ebdee1a9440f4a | |
parent | 0d3aebec0141ab57362477c50065222a03d57c08 (diff) | |
download | emacs-d5e74d9cd7fd657f13ef7ac72cf84c3bc3a03ba9.tar.gz |
Clean up message-sort-headers code slightly
* lisp/gnus/message.el (message-sort-headers): Simplify code by
removing always-true `if' statement.
-rw-r--r-- | lisp/gnus/message.el | 15 |
1 files 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 () |