[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 3982245: Sort groups before inserting them into the
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 3982245: Sort groups before inserting them into the group buffer |
Date: |
Sat, 13 Feb 2016 07:45:35 +0000 |
branch: master
commit 3982245371c0b8e17b4d96d16ed4b1d87c0ffc25
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Sort groups before inserting them into the group buffer
* lisp/gnus/gnus-group.el (gnus-group-describe-all-groups):
Sort groups before inserting them.
---
lisp/gnus/gnus-group.el | 27 ++++++++++++++-------------
1 files changed, 14 insertions(+), 13 deletions(-)
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index aaf6398..0cbaaf0 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -4117,22 +4117,23 @@ If DONT-SCAN is non-nil, scan non-activated groups as
well."
(gnus-read-all-descriptions-files)))
(error "Couldn't request descriptions file"))
(let ((buffer-read-only nil)
- b)
- (erase-buffer)
+ b groups)
(mapatoms
(lambda (group)
- (setq b (point))
- (let ((charset (gnus-group-name-charset nil (symbol-name group))))
- (insert (format " *: %-20s %s\n"
- (gnus-group-name-decode
- (symbol-name group) charset)
- (gnus-group-name-decode
- (symbol-value group) charset))))
- (add-text-properties
- b (1+ b) (list 'gnus-group group
- 'gnus-unread t 'gnus-marked nil
- 'gnus-level (1+ gnus-level-subscribed))))
+ (push (symbol-name group) groups))
gnus-description-hashtb)
+ (setq groups (sort groups 'string<))
+ (erase-buffer)
+ (dolist (group groups)
+ (setq b (point))
+ (let ((charset (gnus-group-name-charset nil group)))
+ (insert (format " *: %-20s %s\n"
+ (gnus-group-name-decode group charset)
+ (gnus-group-name-decode group charset))))
+ (add-text-properties
+ b (1+ b) (list 'gnus-group (intern group gnus-description-hashtb)
+ 'gnus-unread t 'gnus-marked nil
+ 'gnus-level (1+ gnus-level-subscribed))))
(goto-char (point-min))
(gnus-group-position-point)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 3982245: Sort groups before inserting them into the group buffer,
Lars Ingebrigtsen <=