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."
(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)))
......
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