6013 |
;; Remove list identifiers from subject. |
;; Remove list identifiers from subject. |
6014 |
(when gnus-list-identifiers |
(when gnus-list-identifiers |
6015 |
(let ((gnus-newsgroup-headers (list header))) |
(let ((gnus-newsgroup-headers (list header))) |
6016 |
(gnus-summary-remove-list-identifiers) |
(gnus-summary-remove-list-identifiers))) |
|
(setq header (car gnus-newsgroup-headers)))) |
|
6017 |
(when old-header |
(when old-header |
6018 |
(mail-header-set-number header (mail-header-number old-header))) |
(mail-header-set-number header (mail-header-number old-header))) |
6019 |
(setq gnus-newsgroup-sparse |
(setq gnus-newsgroup-sparse |