[elpa] master 014466a 3/5: Update Gnus summary article line after trigger process

[Eric Abrahamsen]

branch: master
commit 014466a718eb701353feb823c2ae41d51bedca82
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

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

diff --git a/packages/gnorb/gnorb-gnus.el b/packages/gnorb/gnorb-gnus.el
index 752e288..e682391 100644
--- a/packages/gnorb/gnorb-gnus.el
+++ b/packages/gnorb/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.