Mercurial > emacs
comparison lisp/mh-e/mh-comp.el @ 97190:2d8df19f85d3
(mh-send-letter, mh-redistribute): Mention mh-annotate-msg-hook in
docstring.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Fri, 01 Aug 2008 04:41:38 +0000 |
parents | c12a32810ea6 |
children | 663a752ef575 |
comparison
equal
deleted
inserted
replaced
97189:f6aece43801e | 97190:2d8df19f85d3 |
---|---|
244 are given a chance to see and to confirm these fields before the | 244 are given a chance to see and to confirm these fields before the |
245 message is actually sent. You can do away with this confirmation | 245 message is actually sent. You can do away with this confirmation |
246 by turning off the option `mh-auto-fields-prompt-flag'. | 246 by turning off the option `mh-auto-fields-prompt-flag'. |
247 | 247 |
248 In case the MH \"send\" program is installed under a different name, | 248 In case the MH \"send\" program is installed under a different name, |
249 use `mh-send-prog' to tell MH-E the name." | 249 use `mh-send-prog' to tell MH-E the name. |
250 | |
251 The hook `mh-annotate-msg-hook' is run after annotating the | |
252 message and scan line." | |
250 (interactive "P") | 253 (interactive "P") |
251 (run-hooks 'mh-before-send-letter-hook) | 254 (run-hooks 'mh-before-send-letter-hook) |
252 (if (and (mh-insert-auto-fields t) | 255 (if (and (mh-insert-auto-fields t) |
253 mh-auto-fields-prompt-flag | 256 mh-auto-fields-prompt-flag |
254 (goto-char (point-min))) | 257 (goto-char (point-min))) |
541 default MESSAGE is the current message. | 544 default MESSAGE is the current message. |
542 | 545 |
543 Also investigate the command \\[mh-edit-again] for another way to | 546 Also investigate the command \\[mh-edit-again] for another way to |
544 redistribute messages. | 547 redistribute messages. |
545 | 548 |
546 See also `mh-redist-full-contents-flag'." | 549 See also `mh-redist-full-contents-flag'. |
550 | |
551 The hook `mh-annotate-msg-hook' is run after annotating the | |
552 message and scan line." | |
547 (interactive (list (mh-read-address "Redist-To: ") | 553 (interactive (list (mh-read-address "Redist-To: ") |
548 (mh-read-address "Redist-Cc: ") | 554 (mh-read-address "Redist-Cc: ") |
549 (mh-get-msg-num t))) | 555 (mh-get-msg-num t))) |
550 (or message | 556 (or message |
551 (setq message (mh-get-msg-num t))) | 557 (setq message (mh-get-msg-num t))) |