procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix gnus-group-describe-all-groups (bug#35233)

Browse source 
This fixes oversights from
2018-04-26T16:26:27-07:00!eric@ericabrahamsen.net and
2016-02-13T18:45:11+11:00!larsi@gnus.org.
* lisp/gnus/gnus-group.el (gnus-group-describe-all-groups): Insert
group name and description instead of group name twice.  Do not pass
a hash-table to intern.  Call sort with correct number of arguments.
This commit is contained in:
Basil L. Contovounesios 2019-04-11 17:16:00 +01:00
parent 7308c2edfb
commit c49f5d573b
1 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/gnus/gnus-group.el
View file

@ -4137,20 +4137,19 @@ If DONT-SCAN is non-nil, scan non-activated groups as well."
(when (not (or gnus-description-hashtb
(gnus-read-all-descriptions-files)))
(error "Couldn't request descriptions file"))
(let ((buffer-read-only nil)
(groups (sort (hash-table-keys gnus-description-hashtb)))
b)
(let ((buffer-read-only nil))
(erase-buffer)
(dolist (group groups)
(setq b (point))
(let ((charset (gnus-group-name-charset nil group)))
(dolist (group (sort (hash-table-keys gnus-description-hashtb) #'string<))
(let ((b (point))
(desc (gethash group gnus-description-hashtb))
(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))))
(gnus-group-name-decode desc charset)))
(add-text-properties
b (1+ b) (list 'gnus-group group
'gnus-unread t 'gnus-marked nil
'gnus-level (1+ gnus-level-subscribed)))))
(goto-char (point-min))
(gnus-group-position-point)))