;;; Change Log:
-;; $Id: mh-comp.el,v 1.8 1996/01/14 07:34:30 erik Exp rms $
+;; $Id: mh-comp.el,v 1.11 1997/09/15 19:45:16 rms Exp rms $
;;; Code:
text as modified.
This is a normal hook, misnamed for historical reasons.
-It is semi-obsolete and is only used if mail-citation-hook is nil.")
+It is semi-obsolete and is only used if `mail-citation-hook' is nil.")
(defvar mail-citation-hook nil
"*Hook for modifying a citation just inserted in the mail buffer.
text as modified.
If this hook is entirely empty (nil), the text of the message is inserted
-with mh-ins-buf-prefix prefixed to each line.
+with `mh-ins-buf-prefix' prefixed to each line.
-See also the variable mh-yank-from-start-of-msg, which controls how
+See also the variable `mh-yank-from-start-of-msg', which controls how
much of the message passed to the hook.")
;;; Copied from sendmail.el for Hyperbole
(defvar mh-comp-formfile "components"
"Name of file to be used as a skeleton for composing messages.
-Default is \"components\". If not a complete path name, the file
+Default is \"components\". If not an absolute file name, the file
is searched for first in the user's MH directory, then in the
system MH lib directory.")
(defvar mh-repl-formfile "replcomps"
"Name of file to be used as a skeleton for replying to messages.
-Default is \"replcomps\". If not a complete path name, the file
+Default is \"replcomps\". If not an absolute file name, the file
is searched for first in the user's MH directory, then in the
system MH lib directory.")
;;;###autoload
-(defun mh-smail-batch ()
+(defun mh-smail-batch (&rest ignored)
"Set up a mail composition draft with the MH mail system.
This function is an entry point to mh-e, the Emacs front end
to the MH mail system. This function does not prompt the user
(defun mh-extract-rejected-mail (msg)
"Extract a letter returned by the mail system and make it resendable.
-Default is the current message. The variable mh-new-draft-cleaned-headers
+Default is the current message. The variable `mh-new-draft-cleaned-headers'
gives the headers to clean out of the original message.
See also documentation for `\\[mh-send]' function."
(interactive (list (mh-get-msg-num t)))
(defun mh-redistribute (to cc &optional msg)
"Redistribute a letter.
Depending on how your copy of MH was compiled, you may need to change the
-setting of the variable mh-redist-full-contents. See its documentation."
+setting of the variable `mh-redist-full-contents'. See its documentation."
(interactive (list (mh-read-address "Redist-To: ")
(mh-read-address "Redist-Cc: ")
(mh-get-msg-num t)))
(defun mh-reply (message &optional includep)
"Reply to MESSAGE (default: current message).
If optional prefix argument INCLUDEP provided, then include the message
-in the reply using filter mhl.reply in your MH directory.
+in the reply using filter `mhl.reply' in your MH directory.
Prompts for type of addresses to reply to:
from sender only,
to sender and primary recipients,
The letter is composed in mh-letter-mode; see its documentation for more
details. If `mh-compose-letter-function' is defined, it is called on the
-draft and passed three arguments: to, subject, and cc."
+draft and passed three arguments: TO, SUBJECT, and CC."
(interactive (list
(mh-read-address "To: ")
(mh-read-address "Cc: ")
mh-signature-file-name (\"~/.signature\")
File to be inserted into message by \\[mh-insert-signature].
-Upon invoking mh-letter-mode, text-mode-hook and mh-letter-mode-hook are
-invoked with no args, if those values are non-nil."
+This command runs the normal hooks `text-mode-hook' and `mh-letter-mode-hook'."
(interactive)
(or mh-user-path (mh-find-path))
(defun mh-to-field ()
"Move point to the end of a specified header field.
The field is indicated by the previous keystroke (the last keystroke
-of the command) according to the list in the variable mh-to-field-choices.
+of the command) according to the list in the variable `mh-to-field-choices'.
Create the field if it does not exist. Set the mark to point before moving."
(interactive)
(expand-abbrev)
(defun mh-insert-signature ()
- "Insert the file named by mh-signature-file-name at the current point."
+ "Insert the file named by `mh-signature-file-name' at point."
(interactive)
(insert-file-contents mh-signature-file-name)
(force-mode-line-update))
(defun mh-send-letter (&optional arg)
"Send the draft letter in the current buffer.
If optional prefix argument is provided, monitor delivery.
-Run mh-before-send-letter-hook before doing anything."
+Run `mh-before-send-letter-hook' before actually doing anything."
(interactive "P")
(run-hooks 'mh-before-send-letter-hook)
(save-buffer)
(message "Sending...")
(let ((draft-buffer (current-buffer))
(file-name buffer-file-name)
- (config mh-previous-window-config))
+ (config mh-previous-window-config)
+ (coding-system-for-write
+ (if (and (local-variable-p 'buffer-file-coding-system)
+ ;; We're not sure why, but buffer-file-coding-system
+ ;; tends to get set to undecided-unix.
+ (not (memq buffer-file-coding-system
+ '(undecided undecided-unix undecided-dos))))
+ buffer-file-coding-system
+ (or sendmail-coding-system
+ default-buffer-file-coding-system
+ 'iso-latin-1))))
(cond (arg
(pop-to-buffer "MH mail delivery")
(erase-buffer)
(defun mh-insert-letter (folder message verbatim)
"Insert a message into the current letter.
-Removes the message's headers using mh-invisible-headers. Prefixes
-each non-blank line with mh-ins-buf-prefix. Prompts for FOLDER and
+Removes the message's headers using `mh-invisible-headers'. Prefixes
+each non-blank line with `mh-ins-buf-prefix'. Prompts for FOLDER and
MESSAGE. If prefix argument VERBATIM provided, do not indent and do
not delete headers. Leaves the mark before the letter and point after it."
(interactive
all the MIME components and header fields.
This step should be done last just before sending the message.
The mhn program is part of MH version 6.8 or later.
-The `\\[mh-revert-mhn-edit]' command undoes this command.
+The \\[mh-revert-mhn-edit] command undoes this command.
For assistance with creating mhn directives to insert
various types of components in a message, see
\\[mh-mhn-compose-insertion] (generic insertion from a file),