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

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.
parent 7308c2ed
Pipeline #1277 failed with stage
in 39 minutes and 13 seconds
...@@ -4137,20 +4137,19 @@ If DONT-SCAN is non-nil, scan non-activated groups as well." ...@@ -4137,20 +4137,19 @@ If DONT-SCAN is non-nil, scan non-activated groups as well."
(when (not (or gnus-description-hashtb (when (not (or gnus-description-hashtb
(gnus-read-all-descriptions-files))) (gnus-read-all-descriptions-files)))
(error "Couldn't request descriptions file")) (error "Couldn't request descriptions file"))
(let ((buffer-read-only nil) (let ((buffer-read-only nil))
(groups (sort (hash-table-keys gnus-description-hashtb)))
b)
(erase-buffer) (erase-buffer)
(dolist (group groups) (dolist (group (sort (hash-table-keys gnus-description-hashtb) #'string<))
(setq b (point)) (let ((b (point))
(let ((charset (gnus-group-name-charset nil group))) (desc (gethash group gnus-description-hashtb))
(charset (gnus-group-name-charset nil group)))
(insert (format " *: %-20s %s\n" (insert (format " *: %-20s %s\n"
(gnus-group-name-decode group charset) (gnus-group-name-decode group charset)
(gnus-group-name-decode group charset)))) (gnus-group-name-decode desc charset)))
(add-text-properties (add-text-properties
b (1+ b) (list 'gnus-group (intern group gnus-description-hashtb) b (1+ b) (list 'gnus-group group
'gnus-unread t 'gnus-marked nil 'gnus-unread t 'gnus-marked nil
'gnus-level (1+ gnus-level-subscribed)))) 'gnus-level (1+ gnus-level-subscribed)))))
(goto-char (point-min)) (goto-char (point-min))
(gnus-group-position-point))) (gnus-group-position-point)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment