;;; mh-comp.el --- mh-e functions for composing messages

;; Maintainer: Bill Wohler <wohler@newt.com>

;; Keywords: mail

;; This file is part of GNU Emacs.

;;; Change Log:

;;; Code:

(provide 'mh-comp)

(require 'mh-utils)

;;; Site customization (see also mh-utils.el):

(defgroup mh-compose nil

:prefix "mh-"

:group 'mh)

This is the case only when `send' is compiled with the BERK option.

If MH will not allow you to redist a previously redist'd msg, set to nil.")

(defvar mh-note-repl "-"

"String whose first character is used to notate replied to messages.")

See also the variable `mh-yank-from-start-of-msg', which controls how

much of the message passed to the hook.")

;;; Personal preferences:

(defcustom mh-delete-yanked-msg-window nil

"*Controls window display when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].

If non-nil, yanking the current message into a draft letter deletes any

system MH lib directory.")

(defvar mh-repl-group-formfile "replgroupcomps"

;;; Hooks:

:type 'hook

:group 'mh-compose)

(defvar mh-rejected-letter-start

(defvar mh-new-draft-cleaned-headers

"^Date:\\|^Received:\\|^Message-Id:\\|^From:\\|^Sender:\\|^Errors-To:\\|^Delivery-Date:\\|^Return-Path:"

(defvar mh-to-field-choices '(("t" . "To:") ("s" . "Subject:") ("c" . "Cc:")

("b" . "Bcc:") ("f" . "Fcc:") ("r" . "From:")

("d" . "Dcc:"))

(defvar mh-letter-mode-map (copy-keymap text-mode-map)

"Keymap for composing mail.")

to the MH mail system. This function does not prompt the user

for any header fields, and thus is suitable for use by programs

that want to create a mail buffer.

(mh-find-path)

(let ((mh-error-if-no-draft t))

(mh-send (or to "") "" (or subject ""))))

(defun mh-edit-again (msg)

Default is the current message.

See also documentation for `\\[mh-send]' function."

(interactive (list (mh-get-msg-num t)))

(let* ((from-folder mh-current-folder)

(t

(mh-read-draft "clean-up" (mh-msg-filename msg) nil)))))

(mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil)

(goto-char (point-min))

(save-buffer)

(mh-compose-and-send-mail draft "" from-folder nil nil nil nil nil nil

(defun mh-extract-rejected-mail (msg)

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."

(mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil))

(t

(message "Does not appear to be a rejected letter.")))

(goto-char (point-min))

(save-buffer)

(mh-compose-and-send-mail draft "" from-folder msg

(defun mh-forward (to cc &optional msg-or-seq)

(interactive (list (mh-read-address "To: ")

(mh-read-address "Cc: ")

(if current-prefix-arg

(setq msg-or-seq (mh-get-msg-num t)))

(let* ((folder mh-current-folder)

(config (current-window-configuration))

;; forw always leaves file in "draft" since it doesn't have -draft

(draft-name (expand-file-name "draft" mh-user-path))

(draft (cond ((or (not (file-exists-p draft-name))

(mh-insert-fields "To:" to "Cc:" cc)

(save-buffer)))

(t

(let (orig-from

orig-subject)

(save-excursion

(setq orig-from (mh-get-header-field "From:"))

(setq orig-subject (mh-get-header-field "Subject:")))

(let ((forw-subject

(mh-insert-fields "Subject:" forw-subject)

(goto-char (point-min))

(if (re-search-forward "^------- Forwarded Message" nil t)

(forward-line -1)

(forward-line 1))

(delete-other-windows)

(if (numberp msg-or-seq)

(defun mh-redistribute (to cc &optional msg)

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."

(interactive (list (mh-read-address "Redist-To: ")

nil)

(save-buffer)

(message "Redistributing...")

(mh-annotate-msg msg folder mh-note-dist

"-component" "Resent:"

"-text" (format "\"%s %s\"" to cc))

(kill-buffer draft)

(message "Redistributing...done"))))

(goto-char (point-min))

(mh-goto-header-end 1)

(or includep

(mh-in-show-buffer (show-buffer)

(mh-display-msg message folder)))

(mh-add-msgs-to-seq message 'answered t)

(defun mh-send (to cc subject)

"Compose and send a letter.

Do not call this function from outside mh-e; use \\[mh-smail] instead.

(interactive (list

(mh-read-address "To: ")

(mh-read-address "Cc: ")

(defun mh-send-other-window (to cc subject)

"Compose and send a letter in another window.

(interactive (list

(mh-read-address "To: ")

(mh-read-address "Cc: ")

(defun mh-read-draft (use initial-contents delete-contents-file)

;; Read draft file into a draft buffer and make that buffer the current one.

;; USE is a message used for prompting about the intended use of the message.

;; if buffer should not be modified. Delete the initial-contents file if

;; DELETE-CONTENTS-FILE flag is set.

;; Returns the draft folder's name.

(cond ((equal value "")

nil)

((mh-position-on-field field-name)

(t

(insert field-name " " value "\n")))

(setq name-values (cdr (cdr name-values)))))))

;; Move to end of entire header if FIELD not found.

;; Returns non-nil iff FIELD was found.

;; The optional second arg is for pre-version 4 compatibility.

(defun mh-get-header-field (field)

(defun mh-goto-header-field (field)

;; Move to FIELD in the message header.

;; Move to the end of the FIELD name, which should end in a colon.

(goto-char (point-min))

(let ((case-fold-search t)

(headers-end (save-excursion

(point))))

(re-search-forward (format "^%s" field) headers-end t)))

(defun mh-goto-header-end (arg)

;; Find the end of the message header in the current buffer and position

;; the cursor at the ARG'th newline after the header.

;;;###autoload

(define-derived-mode mh-letter-mode text-mode "MH-Letter"

"Mode for composing letters in mh-e.\\<mh-letter-mode-map>

When you have finished composing, type \\[mh-send-letter] to send the message

using the MH mail handling system.

(or mh-user-path (mh-find-path))

(make-local-variable 'mh-send-args)

(make-local-variable 'mh-annotate-char)

(make-local-variable 'mh-annotate-field)

(make-local-variable 'mh-sent-from-folder)

(make-local-variable 'mh-sent-from-msg)

(make-local-variable 'mail-header-separator)

;; if text-mode-hook turned on auto-fill, tune it for messages

(when auto-fill-function

(make-local-variable 'auto-fill-function)

(do-auto-fill)))

(save-excursion

(defun mh-to-field ()

"Move point to the end of a specified header field.

;;; Routines to compose and send a letter.

(defun mh-compose-and-send-mail (draft send-args

sent-from-folder sent-from-msg

to subject cc

(defun mh-send-letter (&optional arg)

"Send the draft letter in the current buffer.

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

(coding-system-for-write

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

'iso-latin-1))))

(cond (arg

(pop-to-buffer "MH mail delivery")

(run-hooks 'mh-yank-hooks))

(t

(or (bolp) (forward-line 1))

(defun mh-fully-kill-draft ()

(error "Message not killed")))

;;; mh-comp.el ends here