[elpa] externals/gnorb 04d2951 211/449: Shadow message forwarding in nngnorb summary buffers

[Stefan Monnier]

branch: externals/gnorb
commit 04d2951e1b5893e82a35850f289d453975571d84
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Shadow message forwarding in nngnorb summary buffers
    
    * lisp/nngnorb.el (gnorb-summary-mail-forward): New function shadowing
      gnus-summary-mail-forward, remap keys to point to our function.
---
 lisp/nngnorb.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lisp/nngnorb.el b/lisp/nngnorb.el
index e3eb6ce..165397c 100644
--- a/lisp/nngnorb.el
+++ b/lisp/nngnorb.el
@@ -196,6 +196,9 @@ continue to provide tracking of sent messages."
   [remap gnus-summary-wide-reply]
   'gnorb-summary-wide-reply)
 
+(define-key gnorb-summary-minor-mode-map
+  [remap gnus-summary-mail-forward]
+  'gnorb-summary-mail-forward)
 
 (defun gnorb-summary-wide-reply (&optional yank)
   (interactive
@@ -232,6 +235,11 @@ continue to provide tracking of sent messages."
    (gnus-summary-work-articles n) t (gnus-summary-work-articles n))
   (gnorb-summary-reply-hook))
 
+(defun gnorb-summary-mail-forward (n)
+  (interactive "P")
+  (gnus-summary-mail-forward n t)
+  (gnorb-summary-reply-hook))
+
 (defun gnorb-summary-reply-hook (&rest args)
   "Function that runs after any command that creates a reply."
   ;; Not actually a "hook"