Mercurial > emacs
comparison lisp/mh-e/mh-comp.el @ 67319:c9307100bfd0
* mh-customize.el (mh-insert-signature-hook): Rename
mh-letter-insert-signature-hook to mh-insert-signature-hook.
* mh-comp.el (mh-insert-signature): Ditto.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Mon, 05 Dec 2005 02:26:03 +0000 |
| parents | 2ae99b10dd40 |
| children | 76690fbcd56a |
comparison
equal
deleted
inserted
replaced
| 67318:2bd2f72e4a01 | 67319:c9307100bfd0 |
|---|---|
| 1141 `mh-signature-file-name' or passing in a signature FILE. | 1141 `mh-signature-file-name' or passing in a signature FILE. |
| 1142 | 1142 |
| 1143 A signature separator (\"-- \") will be added if the signature block does not | 1143 A signature separator (\"-- \") will be added if the signature block does not |
| 1144 contain one and `mh-signature-separator-flag' is on. | 1144 contain one and `mh-signature-separator-flag' is on. |
| 1145 | 1145 |
| 1146 The value of `mh-letter-insert-signature-hook' is a list of functions to be | 1146 The value of `mh-insert-signature-hook' is a list of functions to be |
| 1147 called, with no arguments, after the signature is inserted. These functions | 1147 called, with no arguments, after the signature is inserted. These functions |
| 1148 may access the actual name of the file or the function used to insert the | 1148 may access the actual name of the file or the function used to insert the |
| 1149 signature with `mh-signature-file-name'. | 1149 signature with `mh-signature-file-name'. |
| 1150 | 1150 |
| 1151 The signature can also be inserted using Identities (see `mh-identity-list')" | 1151 The signature can also be inserted using Identities (see `mh-identity-list')" |
| 1179 (insert-file-contents mh-signature-file-name)) | 1179 (insert-file-contents mh-signature-file-name)) |
| 1180 ((functionp mh-signature-file-name) | 1180 ((functionp mh-signature-file-name) |
| 1181 (funcall mh-signature-file-name))))) | 1181 (funcall mh-signature-file-name))))) |
| 1182 (save-restriction | 1182 (save-restriction |
| 1183 (widen) | 1183 (widen) |
| 1184 (run-hooks 'mh-letter-insert-signature-hook)) | 1184 (run-hooks 'mh-insert-signature-hook)) |
| 1185 (goto-char (point-min)) | 1185 (goto-char (point-min)) |
| 1186 (when (and (not (mh-file-is-vcard-p mh-signature-file-name)) | 1186 (when (and (not (mh-file-is-vcard-p mh-signature-file-name)) |
| 1187 mh-signature-separator-flag | 1187 mh-signature-separator-flag |
| 1188 (> (point-max) (point-min)) | 1188 (> (point-max) (point-min)) |
| 1189 (not (mh-signature-separator-p))) | 1189 (not (mh-signature-separator-p))) |