diff options
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/mh-letter.el | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/lisp/mh-e/mh-letter.el b/lisp/mh-e/mh-letter.el index 28c18e4dd2f..871ba49522a 100644 --- a/lisp/mh-e/mh-letter.el +++ b/lisp/mh-e/mh-letter.el | |||
| @@ -60,17 +60,6 @@ | |||
| 60 | (to . mh-alias-letter-expand-alias)) | 60 | (to . mh-alias-letter-expand-alias)) |
| 61 | "Alist of header fields and completion functions to use.") | 61 | "Alist of header fields and completion functions to use.") |
| 62 | 62 | ||
| 63 | (defvar mh-yank-hooks nil | ||
| 64 | "Obsolete hook for modifying a citation just inserted in the mail buffer. | ||
| 65 | |||
| 66 | Each hook function can find the citation between point and mark. | ||
| 67 | And each hook function should leave point and mark around the | ||
| 68 | citation text as modified. | ||
| 69 | |||
| 70 | This is a normal hook, misnamed for historical reasons. | ||
| 71 | It is obsolete and is only used if `mail-citation-hook' is nil.") | ||
| 72 | (mh-make-obsolete-variable 'mh-yank-hooks 'mail-citation-hook "19.34") | ||
| 73 | |||
| 74 | 63 | ||
| 75 | 64 | ||
| 76 | ;;; Letter Menu | 65 | ;;; Letter Menu |
| @@ -972,8 +961,6 @@ Otherwise, simply insert MH-INS-STRING before each line." | |||
| 972 | (sc-cite-original)) | 961 | (sc-cite-original)) |
| 973 | (mail-citation-hook | 962 | (mail-citation-hook |
| 974 | (run-hooks 'mail-citation-hook)) | 963 | (run-hooks 'mail-citation-hook)) |
| 975 | (mh-yank-hooks ;old hook name | ||
| 976 | (run-hooks 'mh-yank-hooks)) | ||
| 977 | (t | 964 | (t |
| 978 | (or (bolp) (forward-line 1)) | 965 | (or (bolp) (forward-line 1)) |
| 979 | (while (< (point) (point-max)) | 966 | (while (< (point) (point-max)) |