diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-17 20:52:14 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-17 21:32:25 +0200 |
| commit | c99ba231602a40792317976149500120c4959d1c (patch) | |
| tree | d85ad2aa5f4200d679a554a83aef445fdb4f5ed3 /lisp/gnus/gnus-sum.el | |
| parent | 0c9e3df3c2088b61feb4b4e00d24419459962273 (diff) | |
| download | emacs-c99ba231602a40792317976149500120c4959d1c.tar.gz emacs-c99ba231602a40792317976149500120c4959d1c.tar.bz2 emacs-c99ba231602a40792317976149500120c4959d1c.zip | |
When undoing a mark-as-read, display the group if it isn't
* lisp/gnus/gnus-group.el (gnus-group-jump-to-group): Return
whether we found the group.
(gnus-info-clear-data): Make the group visible if it wasn't.
* lisp/gnus/gnus-sum.el (gnus-group-make-articles-read): Ditto.
(gnus-update-read-articles): Ditto.
Diffstat (limited to 'lisp/gnus/gnus-sum.el')
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 4c54ac59d67..e562b30170a 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -6310,6 +6310,7 @@ The resulting hash table is returned, or nil if no Xrefs were found." (when ,set-marks (gnus-request-set-mark ,group (list (list ',range 'del '(read))))) + (gnus-group-jump-to-group ,group) (gnus-group-update-group ,group t)))) ;; Add the read articles to the range. (gnus-info-set-read info range) @@ -12726,6 +12727,7 @@ UNREAD is a sorted list." `(progn (gnus-info-set-marks ',info ',(gnus-info-marks info) t) (gnus-info-set-read ',info ',(gnus-info-read info)) + (gnus-group-jump-to-group ,group) (gnus-get-unread-articles-in-group ',info (gnus-active ,group)) (gnus-group-update-group ,group t) |