[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-agent.el [gnus-5_10-branch]

[Reiner Steib]

Index: emacs/lisp/gnus/gnus-agent.el
diff -c emacs/lisp/gnus/gnus-agent.el:1.8.2.1 
emacs/lisp/gnus/gnus-agent.el:1.8.2.2
*** emacs/lisp/gnus/gnus-agent.el:1.8.2.1       Thu Jul 22 16:45:46 2004
--- emacs/lisp/gnus/gnus-agent.el       Tue Aug 31 14:47:59 2004
***************
*** 682,688 ****
    "Restore GCC field from saved header."
    (save-excursion
      (goto-char (point-min))
!     (while (re-search-forward (concat gnus-agent-gcc-header ":") nil t)
        (replace-match "Gcc:" 'fixedcase))))
  
  (defun gnus-agent-any-covered-gcc ()
--- 682,689 ----
    "Restore GCC field from saved header."
    (save-excursion
      (goto-char (point-min))
!     (while (re-search-forward
!           (concat "^" (regexp-quote gnus-agent-gcc-header) ":") nil t)
        (replace-match "Gcc:" 'fixedcase))))
  
  (defun gnus-agent-any-covered-gcc ()
***************
*** 3630,3636 ****
                ;; recalculate the number of unread articles in the group
  
                (let ((group (gnus-group-real-name group))
!                     (group-active (gnus-active group)))
                  (gnus-agent-possibly-alter-active group group-active)))))
  
          (when (and reread gnus-agent-article-alist)
--- 3631,3638 ----
                ;; recalculate the number of unread articles in the group
  
                (let ((group (gnus-group-real-name group))
!                     (group-active (or (gnus-active group)
!                                       (gnus-activate-group group))))
                  (gnus-agent-possibly-alter-active group group-active)))))
  
          (when (and reread gnus-agent-article-alist)