/[emacs]/emacs/lisp/gnus/gnus-agent.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-agent.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8.2.1 by schwab, Thu Jul 22 16:45:46 2004 UTC revision 1.8.2.2 by rsteib, Tue Aug 31 14:47:59 2004 UTC
# Line 682  be a select method." Line 682  be a select method."
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 ()
# Line 3630  entry of article %s deleted." l1)) Line 3631  entry of article %s deleted." l1))
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)

Legend:
Removed from v.1.8.2.1  
changed lines
  Added in v.1.8.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26