X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/1691e80890e5d8ba258c51c214a3e91880e1db2b..cafee7a804b8aa53166065e988ec0fc387862fc8:/sbr/folder_pack.c?ds=inline

diff --git a/sbr/folder_pack.c b/sbr/folder_pack.c
index 05365a86..bebc145b 100644
--- a/sbr/folder_pack.c
+++ b/sbr/folder_pack.c
@@ -4,6 +4,10 @@
  *               -- into a contiguous range from 1 to n.
  *
  * $Id$
+ *
+ * This code is Copyright (c) 2002, by the authors of nmh.  See the
+ * COPYRIGHT file in the root directory of the nmh distribution for
+ * complete copyright information.
  */
 
 #include <h/mh.h>
@@ -55,6 +59,14 @@ folder_pack (struct msgs **mpp, int verbose)
 		    return -1;
 		}
 
+		/*
+		 * Invoke the external refile hook for each message being renamed.
+		 */
+
+		(void)snprintf(oldmsg, sizeof (oldmsg), "%s/%d", mp->foldpath, msgnum);
+		(void)snprintf(newmsg, sizeof (newmsg), "%s/%d", mp->foldpath, hole);
+		ext_hook("ref-hook", oldmsg, newmsg);
+
 		/* check if this is the current message */
 		if (msgnum == mp->curmsg)
 		    newcurrent = hole;