# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744277439 0
# Node ID fdbbde0d4f24ddb50ffda3b6b864c1f89733511c
# Parent  02b7d9476fae4ed970f4694e0607f62d7a07e09b
(mail-yank-hooks): Initialize to nil.
(mail-yank-original): If mail-yank-hooks is nil,
call mail-indent-citation.

diff -r 02b7d9476fae -r fdbbde0d4f24 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Mon Aug 02 07:29:53 1993 +0000
+++ b/lisp/mail/sendmail.el	Mon Aug 02 07:43:59 1993 +0000
@@ -79,7 +79,7 @@
 (defvar mail-indentation-spaces 3
   "*Number of spaces to insert at the beginning of each cited line.
 Used by `mail-yank-original' via `mail-yank-cite'.")
-(defvar mail-yank-hooks '(mail-indent-citation)
+(defvar mail-yank-hooks nil
   "Obsolete hook for modifying a citation just inserted in the mail buffer.
 Each hook function can find the citation between (point) and (mark t).
 And each hook function should leave point and mark around the citation
@@ -678,7 +678,9 @@
 					   mail-indentation-spaces)))
 	    (if mail-citation-hook
 		(run-hooks 'mail-citation-hook)
-	      (run-hooks 'mail-yank-hooks))))
+	      (if mail-yank-hooks
+		  (run-hooks 'mail-yank-hooks)
+		(mail-indent-citation)))))
 	;; This is like exchange-point-and-mark, but doesn't activate the mark.
 	;; It is cleaner to avoid activation, even though the command
 	;; loop would deactivate the mark because we inserted text.