Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
015c5c55
Commit
015c5c55
authored
Jun 17, 1993
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(mail-citation-hook): New hook var.
(mail-yank-original): Use that hook if not nil.
parent
13b68be5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
2 deletions
+14
-2
lisp/mail/sendmail.el
lisp/mail/sendmail.el
+14
-2
No files found.
lisp/mail/sendmail.el
View file @
015c5c55
...
...
@@ -80,12 +80,22 @@ nil means use indentation.")
"*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)
"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
text as modified.
This is a normal hook, misnamed for historical reasons.
It is semi-obsolete and mail agents should no longer use it.")
(defvar mail-citation-hook nil
"*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
text as modified.
This is a normal hook, currently misnamed for historical reasons.")
If this hook is entirely empty (nil), a default action is taken
instead of no action.")
(defvar mail-abbrevs-loaded nil)
(defvar mail-mode-map nil)
...
...
@@ -610,7 +620,9 @@ and don't delete any header fields."
(goto-char start)
(let ((mail-indentation-spaces (if arg (prefix-numeric-value arg)
mail-indentation-spaces)))
(run-hooks 'mail-yank-hooks)))
(if mail-citation-hook
(run-hooks 'mail-citation-hook)
(run-hooks 'mail-yank-hooks))))
;; 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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment