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)))