[elpa] externals/gnorb 7908f75 371/449: Update Gnus summary article line after trigger process

[Stefan Monnier]

branch: externals/gnorb
commit 7908f7591142e012ee2791bb313ff817f0bc1bcb
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Update Gnus summary article line after trigger process
    
    * packages/gnorb/gnorb-gnus.el (gnorb-gnus-incoming-do-todo): Do the
      updating immediately.
---
 gnorb-gnus.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/gnorb-gnus.el b/gnorb-gnus.el
index 752e288..e682391 100644
--- a/gnorb-gnus.el
+++ b/gnorb-gnus.el
@@ -523,7 +523,8 @@ you'll stay in the Gnus summary buffer."
   (setq gnorb-window-conf (current-window-configuration))
   (move-marker gnorb-return-marker (point))
   (setq gnorb-gnus-message-info nil)
-  (let* ((articles (gnus-summary-work-articles arg))
+  (let* ((buf (current-buffer))
+        (articles (gnus-summary-work-articles arg))
         (art-no (gnus-summary-article-number))
         (headers (gnus-data-header
                   (gnus-data-find art-no)))
@@ -596,7 +597,10 @@ you'll stay in the Gnus summary buffer."
                      (length articles) (gnorb-pretty-outline targ)))
         ;; ...or just trigger the one.
         (delete-other-windows)
-        (gnorb-trigger-todo-action nil targ)))
+        (gnorb-trigger-todo-action nil targ))
+       (with-current-buffer buf
+        (dolist (a articles)
+          (gnus-summary-update-article a))))
      (error
       ;; If these are left populated after an error, it plays hell
       ;; with future trigger processes.