(message-do-fcc): Don't run message-header-hook and message-before-do-fcc-hook.

diff --git a/lisp/message.el b/lisp/message.el
index 34b5773..cd20ca7 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2775,7 +2775,6 @@ to find out how to use this."
        (while (setq file (message-fetch-field "fcc"))
          (push file list)
          (message-remove-header "fcc" nil t)))
-      (run-hooks 'message-header-hook 'message-before-do-fcc-hook)
       (goto-char (point-min))
       (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$"))
       (replace-match "" t t)