From fa24a82290e79b24e3121bf1250d27a2a5526d7a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 2 Aug 1993 07:43:59 +0000 Subject: [PATCH] (mail-yank-hooks): Initialize to nil. (mail-yank-original): If mail-yank-hooks is nil, call mail-indent-citation. --- lisp/mail/sendmail.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 48a4ce051bc..71ef8c9ba76 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -79,7 +79,7 @@ nil means use indentation.") (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 @@ and don't delete any header fields." 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. -- 2.39.5