projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[gnus]
/
lisp
/
gnus-agent.el
diff --git
a/lisp/gnus-agent.el
b/lisp/gnus-agent.el
index
4fc0d64
..
eef0400
100644
(file)
--- a/
lisp/gnus-agent.el
+++ b/
lisp/gnus-agent.el
@@
-558,7
+558,7
@@
the actual number of articles toggled is returned."
(gnus-delete-line))
(insert group " " (number-to-string (cdr active)) " "
(number-to-string (car active)) " y\n"))
(gnus-delete-line))
(insert group " " (number-to-string (cdr active)) " "
(number-to-string (car active)) " y\n"))
- (when (re-search-forward (concat (regexp-quote group) "
") nil t)
+ (when (re-search-forward (concat (regexp-quote group) "
\\($\\| \\)
") nil t)
(gnus-delete-line))
(insert-buffer-substring nntp-server-buffer))))))
(gnus-delete-line))
(insert-buffer-substring nntp-server-buffer))))))
@@
-982,7
+982,11
@@
the actual number of articles toggled is returned."
(gnus-agent-fetch-articles
group (gnus-uncompress-range (cdr arts)))
(setq marks (delq arts (gnus-info-marks info)))
(gnus-agent-fetch-articles
group (gnus-uncompress-range (cdr arts)))
(setq marks (delq arts (gnus-info-marks info)))
- (gnus-info-set-marks info marks))))
+ (gnus-info-set-marks info marks)
+ (gnus-dribble-enter
+ (concat "(gnus-group-set-info '"
+ (gnus-prin1-to-string info)
+ ")")))))
;;;
;;; Agent Category Mode
;;;
;;; Agent Category Mode