Mercurial > emacs
changeset 18629:fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
this has the code that was in sendmail-user-agent.
(sendmail-user-agent): Use sendmail-user-agent-compose.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Jul 1997 03:44:54 +0000 |
| parents | 61f38e629f6b |
| children | 3e414b9da546 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 26 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sat Jul 05 03:41:35 1997 +0000 +++ b/lisp/simple.el Sat Jul 05 03:44:54 1997 +0000 @@ -3121,31 +3121,34 @@ element)) (define-mail-user-agent 'sendmail-user-agent - '(lambda (&optional to subject other-headers continue - switch-function yank-action send-actions) - (if switch-function - (let ((special-display-buffer-names nil) - (special-display-regexps nil) - (same-window-buffer-names nil) - (same-window-regexps nil)) - (funcall switch-function "*mail*"))) - (let ((cc (cdr (assoc-ignore-case "cc" other-headers))) - (in-reply-to (cdr (assoc-ignore-case "in-reply-to" other-headers)))) - (or (mail continue to subject in-reply-to cc yank-action send-actions) - continue - (error "Message aborted")) - (save-excursion - (goto-char (point-min)) - (search-forward mail-header-separator) - (beginning-of-line) - (while other-headers - (if (not (member (car (car other-headers)) '("in-reply-to" "cc"))) - (insert (car (car other-headers)) ": " - (cdr (car other-headers)) "\n")) - (setq other-headers (cdr other-headers))) - t))) + 'sendmail-user-agent-compose 'mail-send-and-exit) +(defun sendmail-user-agent-compose (&optional to subject other-headers continue + switch-function yank-action + send-actions) + (if switch-function + (let ((special-display-buffer-names nil) + (special-display-regexps nil) + (same-window-buffer-names nil) + (same-window-regexps nil)) + (funcall switch-function "*mail*"))) + (let ((cc (cdr (assoc-ignore-case "cc" other-headers))) + (in-reply-to (cdr (assoc-ignore-case "in-reply-to" other-headers)))) + (or (mail continue to subject in-reply-to cc yank-action send-actions) + continue + (error "Message aborted")) + (save-excursion + (goto-char (point-min)) + (search-forward mail-header-separator) + (beginning-of-line) + (while other-headers + (if (not (member (car (car other-headers)) '("in-reply-to" "cc"))) + (insert (car (car other-headers)) ": " + (cdr (car other-headers)) "\n")) + (setq other-headers (cdr other-headers))) + t))) + (define-mail-user-agent 'mh-e-user-agent 'mh-smail-batch 'mh-send-letter 'mh-fully-kill-draft 'mh-before-send-letter-hook)