*** empty log message ***

[gnus] / lisp / nnmh.el

diff --git a/lisp/nnmh.el b/lisp/nnmh.el
index 8a8f78d..dbb4d9f 100644 (file)
--- a/lisp/nnmh.el
+++ b/lisp/nnmh.el
@@ -394,6 +394,7 @@
     (unless noinsert
       (nnmail-insert-lines)
       (nnmail-insert-xref group-art))
+    (run-hooks 'nnmail-prepare-save-mail-hook)
     (run-hooks 'nnmh-prepare-save-mail-hook)
     (goto-char (point-min))
     (while (looking-at "From ")