From: yamaoka <yamaoka>
Date: Wed, 4 Nov 1998 09:58:50 +0000 (+0000)
Subject: (message-do-fcc): Don't run message-header-hook and message-before-do-fcc-hook.
X-Git-Tag: pgnus-ichikawa-199811302358~97
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e7b5559c8d145ca9325a10633284f4821f438200;p=elisp%2Fgnus.git-

(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 20d6410..22bfc3e 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2838,7 +2838,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)