682 |
"Restore GCC field from saved header." |
"Restore GCC field from saved header." |
683 |
(save-excursion |
(save-excursion |
684 |
(goto-char (point-min)) |
(goto-char (point-min)) |
685 |
(while (re-search-forward (concat gnus-agent-gcc-header ":") nil t) |
(while (re-search-forward |
686 |
|
(concat "^" (regexp-quote gnus-agent-gcc-header) ":") nil t) |
687 |
(replace-match "Gcc:" 'fixedcase)))) |
(replace-match "Gcc:" 'fixedcase)))) |
688 |
|
|
689 |
(defun gnus-agent-any-covered-gcc () |
(defun gnus-agent-any-covered-gcc () |
3631 |
;; recalculate the number of unread articles in the group |
;; recalculate the number of unread articles in the group |
3632 |
|
|
3633 |
(let ((group (gnus-group-real-name group)) |
(let ((group (gnus-group-real-name group)) |
3634 |
(group-active (gnus-active group))) |
(group-active (or (gnus-active group) |
3635 |
|
(gnus-activate-group group)))) |
3636 |
(gnus-agent-possibly-alter-active group group-active))))) |
(gnus-agent-possibly-alter-active group group-active))))) |
3637 |
|
|
3638 |
(when (and reread gnus-agent-article-alist) |
(when (and reread gnus-agent-article-alist) |