From: morioka <morioka>
Date: Mon, 23 Feb 1998 12:27:50 +0000 (+0000)
Subject: Sync up with qgnus-0.30.
X-Git-Tag: gnus-6_7-tomo-199811302358~164
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=93c6d160dc1aad6523cb9548d3813356b0f53480;p=elisp%2Fgnus.git-

Sync up with qgnus-0.30.
---

diff --git a/lisp/message.el b/lisp/message.el
index 6d40194..cf7e0bd 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1333,7 +1333,7 @@ C-c C-r  message-caesar-buffer-body (rot13 the message body)."
   (unless (string-match "XEmacs" emacs-version)
     (set (make-local-variable 'font-lock-defaults)
 	 '(message-font-lock-keywords t)))
-  (gnus-run-hooks 'text-mode-hook 'message-mode-hook))
+  (run-hooks 'text-mode-hook 'message-mode-hook))
 
 
 
@@ -1867,7 +1867,7 @@ the user from the mailer."
     (let ((inhibit-read-only t))
       (put-text-property (point-min) (point-max) 'read-only nil))
     (message-fix-before-sending)
-    (gnus-run-hooks 'message-send-hook)
+    (run-hooks 'message-send-hook)
     (message "Sending...")
     (let ((message-encoding-buffer
 	   (message-generate-new-buffer-clone-locals " message encoding"))
@@ -1896,7 +1896,7 @@ the user from the mailer."
 	(message-do-fcc)
 	;;(when (fboundp 'mail-hist-put-headers-into-history)
 	;; (mail-hist-put-headers-into-history))
-	(gnus-run-hooks 'message-sent-hook)
+	(run-hooks 'message-sent-hook)
 	(message "Sending...done")
 	;; Mark the buffer as unmodified and delete autosave.
 	(set-buffer-modified-p nil)
@@ -1956,7 +1956,7 @@ the user from the mailer."
 	     (if news nil message-deletable-headers)))
 	(message-generate-headers message-required-mail-headers))
       ;; Let the user do all of the above.
-      (gnus-run-hooks 'message-header-hook))
+      (run-hooks 'message-header-hook))
     (unwind-protect
 	(save-excursion
 	  (set-buffer tembuf)
@@ -2003,7 +2003,7 @@ the user from the mailer."
       (replace-match "\n")
       (backward-char 1)
       (setq delimline (point-marker))
-      (gnus-run-hooks 'message-send-mail-hook)
+      (run-hooks 'message-send-mail-hook)
       ;; Insert an extra newline if we need it to work around
       ;; Sun's bug that swallows newlines.
       (goto-char (1+ delimline))
@@ -2059,7 +2059,7 @@ to find out how to use this."
   (re-search-forward
    (concat "^" (regexp-quote mail-header-separator) "\n"))
   (replace-match "\n")
-  (gnus-run-hooks 'message-send-mail-hook)
+  (run-hooks 'message-send-mail-hook)
   ;; send the message
   (case
       (let ((coding-system-for-write 'binary))
@@ -2106,7 +2106,7 @@ to find out how to use this."
 		(concat "^" (symbol-name (car headers)) ": *") nil t)
 	       (message-delete-line))
 	  (pop headers))))
-    (gnus-run-hooks 'message-send-mail-hook)
+    (run-hooks 'message-send-mail-hook)
     ;; Pass it on to mh.
     (mh-send-letter)))
 
@@ -2266,7 +2266,7 @@ to find out how to use this."
       ;; Insert some headers.
       (message-generate-headers message-required-news-headers)
       ;; Let the user do all of the above.
-      (gnus-run-hooks 'message-header-hook))
+      (run-hooks 'message-header-hook))
     (message-cleanup-headers)
     (if (not (message-check-news-syntax))
 	(progn
@@ -2637,7 +2637,7 @@ to find out how to use this."
 	(while (setq file (message-fetch-field "fcc"))
 	  (push file list)
 	  (message-remove-header "fcc" nil t)))
-      (gnus-run-hooks 'message-header-hook 'message-before-do-fcc-hook)
+      (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)
@@ -3291,14 +3291,14 @@ Headers already prepared in the buffer are not modified."
        (delq 'Lines
 	     (delq 'Subject
 		   (copy-sequence message-required-mail-headers))))))
-  (gnus-run-hooks 'message-signature-setup-hook)
+  (run-hooks 'message-signature-setup-hook)
   (message-insert-signature)
   (save-restriction
     (message-narrow-to-headers)
-    (gnus-run-hooks 'message-header-setup-hook))
+    (run-hooks 'message-header-setup-hook))
   (set-buffer-modified-p nil)
   (setq buffer-undo-list nil)
-  (gnus-run-hooks 'message-setup-hook)
+  (run-hooks 'message-setup-hook)
   (message-position-point)
   (undo-boundary))