annotate lisp/mail/sendmail.el @ 846:20674ae6bf52

*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Wed, 22 Jul 1992 04:22:42 +0000
parents f3eb45ffe06d
children d3e136526f22
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 604
diff changeset
1 ;;; sendmail.el --- mail sending commands for Emacs.
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 604
diff changeset
2
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 825
diff changeset
3 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 825
diff changeset
4
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 779
diff changeset
5 ;; Maintainer: FSF
814
38b2499cb3e9 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
6 ;; Keywords: mail
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 779
diff changeset
7
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 779
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; any later version.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 779
diff changeset
24 ;;; Code:
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 (defconst mail-self-blind nil "\
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 Non-nil means insert BCC to self in messages to be sent.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 This is done when the message is initialized,
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 so you can remove or alter the BCC field to override the default.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 (defconst mail-interactive nil "\
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 Non-nil means when sending a message wait for and display errors.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 nil means let mailer mail back a message to report errors.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 (defconst mail-yank-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^remailed\\|^received:\\|^message-id:\\|^summary-line:\\|^to:\\|^subject:\\|^in-reply-to:\\|^return-path:" "\
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 Delete these headers from old message when it's inserted in a reply.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 ;; Useful to set in site-init.el
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 (defconst send-mail-function 'sendmail-send-it "\
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 Function to call to send the current buffer as mail.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 The headers are be delimited by a line which is mail-header-separator.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 (defvar mail-header-separator "--text follows this line--" "\
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 *Line used to separate headers from text in messages being composed.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 (defvar mail-archive-file-name nil "\
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 *Name of file to write all outgoing messages in, or nil for none.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 Do not use an rmail file here! Instead, use its inbox file.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 (defvar mail-default-reply-to nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 "*Address to insert as default Reply-to field of outgoing messages.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 (defvar mail-alias-file nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 "*If non-nil, the name of a file to use instead of `/usr/lib/aliases'.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 This file defines aliases to be expanded by the mailer; this is a different
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 feature from that of defining aliases in `.mailrc' to be expanded in Emacs.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 This variable has no effect unless your system uses sendmail as its mailer.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 (defvar mail-yank-prefix nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 "*Prefix insert on lines of yanked message being replied to.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 nil means use indentation.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 (defvar mail-abbrevs-loaded nil)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 (defvar mail-mode-map nil)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 (defvar mail-signature nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 "*Text inserted at end of mail buffer when a message is initialized.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 If t, it means to insert the contents of the file `~/.signature'.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 (defvar mail-reply-buffer nil)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 (defvar mail-send-actions nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 "A list of actions to be performed upon successful sending of a message.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 (defvar mail-default-headers nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 "*A string containing header lines, to be inserted in outgoing messages.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 It is inserted before you edit the message,
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 so you can edit or delete these lines.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 (defvar mail-mode-syntax-table nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 "Syntax table used while in mail mode.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 (if (null mail-mode-syntax-table)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 (setq mail-mode-syntax-table (copy-syntax-table text-mode-syntax-table))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 (modify-syntax-entry ?% ". " mail-mode-syntax-table)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 (defun mail-setup (to subject in-reply-to cc replybuffer actions)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 (setq mail-send-actions actions)
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 455
diff changeset
95 (mail-aliases-setup)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 (setq mail-reply-buffer replybuffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 (insert "To: ")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 (if to
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 (insert to "\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 ;;; Here removed code to extract names from within <...>
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 ;;; on the assumption that mail-strip-quoted-names
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 ;;; has been called and has done so.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 (let ((fill-prefix "\t"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 (fill-region (point-min) (point-max))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 (newline))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 (if cc
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 (let ((opos (point))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 (fill-prefix "\t"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 (insert "CC: " cc "\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 (fill-region-as-paragraph opos (point-max))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 (if in-reply-to
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 (insert "In-reply-to: " in-reply-to "\n"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 (insert "Subject: " (or subject "") "\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 (if mail-default-headers
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 (insert mail-default-headers))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 (if mail-default-reply-to
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 (insert "Reply-to: " mail-default-reply-to "\n"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 (if mail-self-blind
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 (insert "BCC: " (user-login-name) "\n"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 (if mail-archive-file-name
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 (insert "FCC: " mail-archive-file-name "\n"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 (insert mail-header-separator "\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 ;; Read the .signature file if we haven't already done so
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 ;; (and if the user has not overridden it).
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 (cond ((eq mail-signature t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 (insert "--\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 (insert-file-contents "~/.signature"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 (mail-signature
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 (insert mail-signature)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 (goto-char (point-max))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 (or (bolp) (newline)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 (if to (goto-char (point-max)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 (or to subject in-reply-to
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 (set-buffer-modified-p nil))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 (run-hooks 'mail-setup-hook))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 (defun mail-mode ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 "Major mode for editing mail to be sent.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 Like Text Mode but with these additional commands:
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 C-c C-s mail-send (send the message) C-c C-c mail-send-and-exit
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 C-c C-f move to a header field (and create it if there isn't):
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 C-c C-f C-t move to To: C-c C-f C-s move to Subj:
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 C-c C-f C-b move to BCC: C-c C-f C-c move to CC:
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 C-c C-t move to message text.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 C-c C-y mail-yank-original (insert current message, in Rmail).
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 C-c C-q mail-fill-yanked-message (fill what was yanked).
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 C-c C-v mail-sent-via (add a sent-via field for each To or CC)."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 (kill-all-local-variables)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 (make-local-variable 'mail-reply-buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 (setq mail-reply-buffer nil)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 (make-local-variable 'mail-send-actions)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 (set-syntax-table mail-mode-syntax-table)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 (use-local-map mail-mode-map)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 (setq local-abbrev-table text-mode-abbrev-table)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 (setq major-mode 'mail-mode)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 (setq mode-name "Mail")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 (setq buffer-offer-save t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 (make-local-variable 'paragraph-separate)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 (make-local-variable 'paragraph-start)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 (setq paragraph-start (concat "^" mail-header-separator
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 "$\\|^[ \t]*[-_][-_][-_]+$\\|"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 paragraph-start))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 (setq paragraph-separate (concat "^" mail-header-separator
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 "$\\|^[ \t]*[-_][-_][-_]+$\\|"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 paragraph-separate))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 (run-hooks 'text-mode-hook 'mail-mode-hook))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 (if mail-mode-map
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 (setq mail-mode-map (nconc (make-sparse-keymap) text-mode-map))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 (define-key mail-mode-map "\C-c?" 'describe-mode)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 (define-key mail-mode-map "\C-c\C-f\C-t" 'mail-to)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 (define-key mail-mode-map "\C-c\C-f\C-b" 'mail-bcc)
573
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
179 (define-key mail-mode-map "\C-c\C-f\C-f" 'mail-fcc)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 (define-key mail-mode-map "\C-c\C-f\C-c" 'mail-cc)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 (define-key mail-mode-map "\C-c\C-f\C-s" 'mail-subject)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 (define-key mail-mode-map "\C-c\C-t" 'mail-text)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 (define-key mail-mode-map "\C-c\C-y" 'mail-yank-original)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 (define-key mail-mode-map "\C-c\C-q" 'mail-fill-yanked-message)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 (define-key mail-mode-map "\C-c\C-w" 'mail-signature)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 (define-key mail-mode-map "\C-c\C-v" 'mail-sent-via)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 (define-key mail-mode-map "\C-c\C-c" 'mail-send-and-exit)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 (define-key mail-mode-map "\C-c\C-s" 'mail-send))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 (defun mail-send-and-exit (arg)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191 "Send message like mail-send, then, if no errors, exit from mail buffer.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 Prefix arg means don't delete this window."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 (interactive "P")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 (mail-send)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 (bury-buffer (current-buffer))
825
f3eb45ffe06d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
196 (if (and (not arg)
f3eb45ffe06d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
197 (not (one-window-p))
f3eb45ffe06d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
198 (save-excursion
f3eb45ffe06d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
199 (set-buffer (window-buffer (next-window (selected-window) 'not)))
f3eb45ffe06d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
200 (eq major-mode 'rmail-mode)))
f3eb45ffe06d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
201 (delete-window)
f3eb45ffe06d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
202 (switch-to-buffer (other-buffer (current-buffer)))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 (defun mail-send ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 "Send the message in the current buffer.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 If `mail-interactive' is non-nil, wait for success indication
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 or error messages, and inform user.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208 Otherwise any failure is reported in a message back to
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 the user from the mailer."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 (if (or (buffer-modified-p)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 (y-or-n-p "Message already sent; resend? "))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 (message "Sending...")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 (run-hooks 'mail-send-hook)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 (funcall send-mail-function)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 ;; Now perform actions on successful sending.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 (while mail-send-actions
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 (condition-case nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 (apply (car (car mail-send-actions)) (cdr (car mail-send-actions)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 (error))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 (setq mail-send-actions (cdr mail-send-actions)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 (set-buffer-modified-p nil)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 (delete-auto-save-file-if-necessary t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 (message "Sending...done"))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 (defun sendmail-send-it ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 (let ((errbuf (if mail-interactive
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 (generate-new-buffer " sendmail errors")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 0))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 (tembuf (generate-new-buffer " sendmail temp"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 (case-fold-search nil)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233 delimline
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 (mailbuf (current-buffer)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 (unwind-protect
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 (set-buffer tembuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 (erase-buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 (insert-buffer-substring mailbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 (goto-char (point-max))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 ;; require one newline at the end.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 (or (= (preceding-char) ?\n)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 (insert ?\n))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 ;; Change header-delimiter to be what sendmail expects.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246 (re-search-forward
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 (concat "^" (regexp-quote mail-header-separator) "\n"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248 (replace-match "\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 (backward-char 1)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 (setq delimline (point-marker))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 ;; ignore any blank lines in the header
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 (while (and (re-search-forward "\n\n\n*" delimline t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 (< (point) delimline))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 (replace-match "\n"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 (let ((case-fold-search t))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 (if (re-search-forward "^Sender:" delimline t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 (error "Sender may not be specified."))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 ;; Find and handle any FCC fields.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 (if (re-search-forward "^FCC:" delimline t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 (mail-do-fcc delimline))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 ;; If the From is different than current user, insert Sender.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 (and (re-search-forward "^From:" delimline t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 (require 'mail-utils)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 (not (string-equal
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 (mail-strip-quoted-names
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 (save-restriction
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 (narrow-to-region (point-min) delimline)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 (mail-fetch-field "From")))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 (user-login-name))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 (forward-line 1)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 (insert "Sender: " (user-login-name) "\n")))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 ;; "S:" is an abbreviation for "Subject:".
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 (if (re-search-forward "^S:" delimline t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 (replace-match "Subject:"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 ;; Don't send out a blank subject line
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 (if (re-search-forward "^Subject:[ \t]*\n" delimline t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 (replace-match ""))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 (if mail-interactive
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 (set-buffer errbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 (erase-buffer))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 (apply 'call-process-region
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 (append (list (point-min) (point-max)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 (if (boundp 'sendmail-program)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 sendmail-program
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 "/usr/lib/sendmail")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295 nil errbuf nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 "-oi" "-t")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 ;; Always specify who from,
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 ;; since some systems have broken sendmails.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 (list "-f" (user-login-name))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 ;;; ;; Don't say "from root" if running under su.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 ;;; (and (equal (user-real-login-name) "root")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 ;;; (list "-f" (user-login-name)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 (and mail-alias-file
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 (list (concat "-oA" mail-alias-file)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 ;; These mean "report errors by mail"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 ;; and "deliver in background".
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 (if (null mail-interactive) '("-oem" "-odb"))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 (if mail-interactive
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 (set-buffer errbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 (while (re-search-forward "\n\n* *" nil t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 (replace-match "; "))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314 (if (not (zerop (buffer-size)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 (error "Sending...failed to %s"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 (buffer-substring (point-min) (point-max)))))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 (kill-buffer tembuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 (if (bufferp errbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 (kill-buffer errbuf)))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 (defun mail-do-fcc (header-end)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 (let (fcc-list
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 (rmailbuf (current-buffer))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 (tembuf (generate-new-buffer " rmail output"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 (case-fold-search t))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 (while (re-search-forward "^FCC:[ \t]*" header-end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 (setq fcc-list (cons (buffer-substring (point)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 (end-of-line)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 (skip-chars-backward " \t")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 (point)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 fcc-list))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 (delete-region (match-beginning 0)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 (progn (forward-line 1) (point))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337 (set-buffer tembuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 (erase-buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
339 (insert "\nFrom " (user-login-name) " "
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 (current-time-string) "\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 (insert-buffer-substring rmailbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 ;; Make sure messages are separated.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343 (goto-char (point-max))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344 (insert ?\n)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 (goto-char 2)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 ;; ``Quote'' "^From " as ">From "
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 ;; (note that this isn't really quoting, as there is no requirement
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348 ;; that "^[>]+From " be quoted in the same transparent way.)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349 (let ((case-fold-search nil))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 (while (search-forward "\nFrom " nil t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 (forward-char -5)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 (insert ?>)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353 (while fcc-list
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 (let ((buffer (get-file-buffer (car fcc-list))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 (if buffer
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356 ;; File is present in a buffer => append to that buffer.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 (let ((curbuf (current-buffer))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358 (beg (point-min)) (end (point-max)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
359 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 (set-buffer buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361 ;; Keep the end of the accessible portion at the same place
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 ;; unless it is the end of the buffer.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363 (let ((max (if (/= (1+ (buffer-size)) (point-max))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364 (point-max))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 (unwind-protect
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 (narrow-to-region (point-min) (1+ (buffer-size)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368 (goto-char (point-max))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369 (if (eq major-mode 'rmail-mode)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
370 ;; Append as a message to an RMAIL file
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
371 (let ((buffer-read-only nil))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372 ;; This forces RMAIL's message counters to be
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
373 ;; recomputed when the next RMAIL operation is
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374 ;; done on the buffer.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375 ;; See rmail-maybe-set-message-counters.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376 (setq rmail-total-messages nil)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
377 (insert "\C-l\n0, unseen,,\n*** EOOH ***\n"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 "From: " (user-login-name) "\n"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 "Date: " (current-time-string) "\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
380 (insert-buffer-substring curbuf beg end)
746
1b0748ff6f65 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 705
diff changeset
381 (insert "\n\C-_")
1b0748ff6f65 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 705
diff changeset
382 (rmail-set-message-counters))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 (insert-buffer-substring curbuf beg end)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
384 (if max (narrow-to-region (point-min) max))))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 ;; Else append to the file directly.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 (write-region
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
387 ;; Include a blank line before if file already exists.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 (if (file-exists-p (car fcc-list)) (point-min) (1+ (point-min)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389 (point-max) (car fcc-list) t)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 (setq fcc-list (cdr fcc-list))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 (kill-buffer tembuf)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 (defun mail-sent-via ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 "Make a Sent-via header line from each To or CC header line."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 ;; find the header-separator
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 (search-forward (concat "\n" mail-header-separator "\n"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 (forward-line -1)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 ;; put a marker at the end of the header
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 (let ((end (point-marker))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 (case-fold-search t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 to-line)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406 ;; search for the To: lines and make Sent-via: lines from them
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 ;; search for the next To: line
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 (while (re-search-forward "^\\(to\\|cc\\):" end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 ;; Grab this line plus all its continuations, sans the `to:'.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
410 (let ((to-line
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411 (buffer-substring (point)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 (if (re-search-forward "^[^ \t\n]" end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 (backward-char 1)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 (goto-char end))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 (point)))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417 ;; Insert a copy, with altered header field name.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 (insert-before-markers "Sent-via:" to-line))))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 (defun mail-to ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 "Move point to end of To-field."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424 (mail-position-on-field "To"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
426 (defun mail-subject ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 "Move point to end of Subject-field."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 (mail-position-on-field "Subject"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 (defun mail-cc ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 "Move point to end of CC-field. Create a CC field if none."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
434 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 (or (mail-position-on-field "cc" t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 (progn (mail-position-on-field "to")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438 (insert "\nCC: "))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440 (defun mail-bcc ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 "Move point to end of BCC-field. Create a BCC field if none."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
443 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 (or (mail-position-on-field "bcc" t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 (progn (mail-position-on-field "to")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 (insert "\nBCC: "))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447
573
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
448 (defun mail-fcc ()
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
449 "Add a new FCC field, with file name completion."
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
450 (interactive)
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
451 (expand-abbrev)
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
452 (or (mail-position-on-field "fcc" t) ;Put new field after exiting FCC.
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
453 (mail-position-on-field "to"))
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
454 (insert "\nFCC: " (read-file-name "Folder carbon copy: ")))
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
455
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
456 (defun mail-position-on-field (field &optional soft)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457 (let (end
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 (case-fold-search t))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459 (goto-char (point-min))
604
63a8e7b3c547 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 584
diff changeset
460 (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n"))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
461 (setq end (match-beginning 0))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
462 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463 (if (re-search-forward (concat "^" (regexp-quote field) ":") end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 (re-search-forward "^[^ \t]" nil 'move)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 (beginning-of-line)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 (skip-chars-backward "\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 (or soft
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 (progn (goto-char end)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 (skip-chars-backward "\n")
604
63a8e7b3c547 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 584
diff changeset
472 (insert field ": \n")
63a8e7b3c547 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 584
diff changeset
473 (skip-chars-backward "\n")))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 nil)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 (defun mail-text ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 "Move point to beginning of text field."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 (search-forward (concat "\n" mail-header-separator "\n")))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481
679
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
482 (defun mail-signature (atpoint)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 "Sign letter with contents of ~/.signature file."
679
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
484 (interactive "P")
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485 (save-excursion
679
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
486 (or atpoint
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
487 (goto-char (point-max)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 (skip-chars-backward " \t\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 (end-of-line)
679
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
490 (or atpoint
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
491 (delete-region (point) (point-max)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 (insert "\n\n--\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 (insert-file-contents (expand-file-name "~/.signature"))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495 (defun mail-fill-yanked-message (&optional justifyp)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 "Fill the paragraphs of a message yanked into this one.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 Numeric argument means justify as well."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 (interactive "P")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 (search-forward (concat "\n" mail-header-separator "\n") nil t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 (fill-individual-paragraphs (point)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 (point-max)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 justifyp
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 t)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 (defun mail-yank-original (arg)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 "Insert the message being replied to, if any (in rmail).
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 Puts point before the text and mark after.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 Normally, indents each nonblank line ARG spaces (default 3).
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 However, if `mail-yank-prefix' is non-nil, insert that prefix on each line.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 Just \\[universal-argument] as argument means don't indent, insert no prefix,
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 and don't delete any header fields."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 (interactive "P")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 (if mail-reply-buffer
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 (let ((start (point)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 (delete-windows-on mail-reply-buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 (insert-buffer mail-reply-buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 (if (consp arg)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 (mail-yank-clear-headers start (mark))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 (if (null mail-yank-prefix)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 (indent-rigidly start (mark)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 (if arg (prefix-numeric-value arg) 3))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 (goto-char start)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 (while (< (point) (mark))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 (insert mail-yank-prefix)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 (forward-line 1)))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 (exchange-point-and-mark)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 (if (not (eolp)) (insert ?\n)))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 (defun mail-yank-clear-headers (start end)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 (goto-char start)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 (if (search-forward "\n\n" end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 (save-restriction
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 (narrow-to-region start (point))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 (goto-char start)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 (while (let ((case-fold-search t))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 (re-search-forward mail-yank-ignored-headers nil t))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 (beginning-of-line)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 (delete-region (point)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 (progn (re-search-forward "\n[^ \t]")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 (forward-char -1)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 (point))))))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 ;; Put these last, to reduce chance of lossage from quitting in middle of loading the file.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 (defun mail (&optional noerase to subject in-reply-to cc replybuffer actions)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553 "Edit a message to be sent. Argument means resume editing (don't erase).
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 Search for an existing mail buffer currently not in use and initialize it,
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555 or make a new one if all existing mail buffers are busy.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
556 With an argument, search for a busy existing mail buffer and re-select it.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
557
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558 Returns with message buffer selected; value t if message freshly initialized.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 By default, the signature file `~/.signature' is inserted at the end;
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560 see the variable `mail-signature'.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 \\<mail-mode-map>
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 While editing message, type \\[mail-send-and-exit] to send the message and exit.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 Various special commands starting with C-c are available in sendmail mode
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 to move to message header fields:
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 \\{mail-mode-map}
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 If `mail-self-blind' is non-nil, a BCC to yourself is inserted
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 when the message is initialized.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 If `mail-default-reply-to' is non-nil, it should be an address (a string);
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573 a Reply-to: field with that address is inserted.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575 If `mail-archive-file-name' is non-nil, an FCC field with that file name
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 is inserted.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 If `mail-setup-hook' is bound, its value is called with no arguments
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 after the message is initialized. It can add more default fields.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 When calling from a program, the second through fifth arguments
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 TO, SUBJECT, IN-REPLY-TO and CC specify if non-nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 the initial contents of those header fields.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 These arguments should not have final newlines.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 The sixth argument REPLYBUFFER is a buffer whose contents
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 should be yanked if the user types C-c C-y.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 The seventh argument ACTIONS is a list of actions to take
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 if/when the message is sent. Each action looks like (FUNCTION . ARGS);
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 when the message is sent, we apply FUNCTION to ARGS.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 This is how Rmail arranges to mark messages `answered'."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 (interactive "P")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 (let ((index 1)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 ;; If requested, look for a mail buffer that is modified and go to it.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 (if noerase
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 (while (and (setq buffer
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 (get-buffer (if (= 1 index) "*mail*"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 (format "*mail*<%d>" index))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 (not (buffer-modified-p buffer)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 (setq index (1+ index)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 (if buffer (switch-to-buffer buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 ;; If none exists, start a new message.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 ;; This will never re-use an existing unmodified mail buffer
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 ;; (since index is not 1 anymore). Perhaps it should.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606 (setq noerase nil))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 ;; Unless we found a modified message and are happy, start a new message.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 (if (not noerase)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 ;; Look for existing unmodified mail buffer.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 (while (and (setq buffer
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 (get-buffer (if (= 1 index) "*mail*"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613 (format "*mail*<%d>" index))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 (buffer-modified-p buffer))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 (setq index (1+ index)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 ;; If none, make a new one.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 (or buffer
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 (setq buffer (generate-new-buffer "*mail*")))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619 ;; Go there and initialize it.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 (switch-to-buffer buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 (erase-buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 (setq default-directory (expand-file-name "~/"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 (auto-save-mode auto-save-default)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 (mail-mode)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 (mail-setup to subject in-reply-to cc replybuffer actions)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 (if (and buffer-auto-save-file-name
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 (file-exists-p buffer-auto-save-file-name))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 (message "Auto save file for draft message exists; consider M-x mail-recover"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 t))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 (define-key ctl-x-map "m" 'mail)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 (defun mail-recover ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635 "Reread contents of current buffer from its last auto-save file."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 (let ((file-name (make-auto-save-file-name)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638 (cond ((save-window-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639 (if (not (eq system-type 'vax-vms))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 (with-output-to-temp-buffer "*Directory*"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 (buffer-disable-undo standard-output)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
642 (call-process "ls" nil standard-output nil "-l" file-name)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 (yes-or-no-p (format "Recover auto save file %s? " file-name)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 (let ((buffer-read-only nil))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645 (erase-buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 (insert-file-contents file-name nil)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 (t (error "mail-recover cancelled.")))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650 (defun mail-other-window (&optional noerase to subject in-reply-to cc replybuffer sendactions)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
651 "Like `mail' command, but display mail buffer in another window."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652 (interactive "P")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 (let ((pop-up-windows t))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 (pop-to-buffer "*mail*"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655 (mail noerase to subject in-reply-to cc replybuffer sendactions))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 ;;;###autoload
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 746
diff changeset
658 (defun mail-other-frame (&optional noerase to subject in-reply-to cc replybuffer sendactions)
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 746
diff changeset
659 "Like `mail' command, but display mail buffer in another frame."
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 (interactive "P")
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 746
diff changeset
661 (let ((pop-up-frames t))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662 (pop-to-buffer "*mail*"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663 (mail noerase to subject in-reply-to cc replybuffer sendactions))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
667 (define-key ctl-x-4-map "m" 'mail-other-window)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
668
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
669 ;;;###autoload
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 746
diff changeset
670 (define-key ctl-x-5-map "m" 'mail-other-frame)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
672
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
673 ;;; Do not add anything but external entries on this page.
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 573
diff changeset
674
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 573
diff changeset
675 (provide 'sendmail)
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 573
diff changeset
676
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 604
diff changeset
677 ;;; sendmail.el ends here