diff options
| -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." | |||
| 2732 | (interactive nil message-mode) | 2732 | (interactive nil message-mode) |
| 2733 | (save-excursion | 2733 | (save-excursion |
| 2734 | (save-restriction | 2734 | (save-restriction |
| 2735 | (let ((max (1+ (length message-header-format-alist))) | 2735 | (let ((max (1+ (length message-header-format-alist)))) |
| 2736 | rank) | ||
| 2737 | (message-narrow-to-headers) | 2736 | (message-narrow-to-headers) |
| 2738 | (while (re-search-forward "^[^ \n]+:" nil t) | 2737 | (while (re-search-forward "^[^ \n]+:" nil t) |
| 2739 | (put-text-property | 2738 | (put-text-property |
| 2740 | (match-beginning 0) (1+ (match-beginning 0)) | 2739 | (match-beginning 0) (1+ (match-beginning 0)) |
| 2741 | 'message-rank | 2740 | 'message-rank |
| 2742 | (if (setq rank (length (memq (assq (intern (buffer-substring | 2741 | (- max (length |
| 2743 | (match-beginning 0) | 2742 | (memq (assq (intern (buffer-substring |
| 2744 | (1- (match-end 0)))) | 2743 | (match-beginning 0) (1- (match-end 0)))) |
| 2745 | message-header-format-alist) | 2744 | message-header-format-alist) |
| 2746 | message-header-format-alist))) | 2745 | message-header-format-alist)))))) |
| 2747 | (- max rank) | ||
| 2748 | (1+ max))))) | ||
| 2749 | (message-sort-headers-1)))) | 2746 | (message-sort-headers-1)))) |
| 2750 | 2747 | ||
| 2751 | (defun message-kill-address () | 2748 | (defun message-kill-address () |