diff options
| -rw-r--r-- | lisp/gnus/gnus-group.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 915125b655c..742f8f4be56 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el | |||
| @@ -4465,12 +4465,14 @@ and the second element is the address." | |||
| 4465 | (setcar entry (length | 4465 | (setcar entry (length |
| 4466 | (gnus-list-of-unread-articles (car info))))) | 4466 | (gnus-list-of-unread-articles (car info))))) |
| 4467 | ;; The above `setcar' will only affect the hashtable, not | 4467 | ;; The above `setcar' will only affect the hashtable, not |
| 4468 | ;; the alist: update the alist separately. | 4468 | ;; the alist: update the alist separately, but only if |
| 4469 | (push info (cdr (setq gnus-newsrc-alist | 4469 | ;; it's been initialized. |
| 4470 | (remove (assoc-string | 4470 | (when gnus-newsrc-alist |
| 4471 | (gnus-info-group info) | 4471 | (push info (cdr (setq gnus-newsrc-alist |
| 4472 | gnus-newsrc-alist) | 4472 | (remove (assoc-string |
| 4473 | gnus-newsrc-alist))))) | 4473 | (gnus-info-group info) |
| 4474 | gnus-newsrc-alist) | ||
| 4475 | gnus-newsrc-alist)))))) | ||
| 4474 | (error "No such group: %s" (gnus-info-group info)))))) | 4476 | (error "No such group: %s" (gnus-info-group info)))))) |
| 4475 | 4477 | ||
| 4476 | ;; Ad-hoc function for inserting data from a different newsrc.eld | 4478 | ;; Ad-hoc function for inserting data from a different newsrc.eld |