annotate lisp/mail/sendmail.el @ 22005:863230e3e248

(mail-signature): Allow expression as value. Improve prompts in custom type. Add risky-local-variable property. (mail-setup): Implement that feature.
author Richard M. Stallman <rms@gnu.org>
date Sat, 09 May 1998 07:24:47 +0000
parents eeb4e3a385db
children 1ad8bfc81600
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
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
3 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 1998 Free Software Foundation, Inc.
846
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
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13950
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13950
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13950
diff changeset
23 ;; Boston, MA 02111-1307, USA.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
2315
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 1843
diff changeset
25 ;;; Commentary:
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 1843
diff changeset
26
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 1843
diff changeset
27 ;; This mode provides mail-sending facilities from within Emacs. It is
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 1843
diff changeset
28 ;; documented in the Emacs user's manual.
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 1843
diff changeset
29
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 779
diff changeset
30 ;;; Code:
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
31 (defgroup sendmail nil
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
32 "Mail sending commands for Emacs."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
33 :prefix "mail-"
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
34 :group 'mail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
37 (defcustom mail-from-style 'angles "\
10097
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
38 *Specifies how \"From:\" fields look.
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
39
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
40 If `nil', they contain just the return address like:
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
41 king@grassland.com
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
42 If `parens', they look like:
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
43 king@grassland.com (Elvis Parsley)
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
44 If `angles', they look like:
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
45 Elvis Parsley <king@grassland.com>"
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
46 :type '(choice (const nil) (const parens) (const angles))
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
47 :group 'sendmail)
10097
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
48
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
49 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
50 (defcustom mail-self-blind nil "\
15951
0807c87a589f (mail-self-blind, mail-interactive)
Richard M. Stallman <rms@gnu.org>
parents: 15546
diff changeset
51 *Non-nil means insert BCC to self in messages to be sent.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 This is done when the message is initialized,
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
53 so you can remove or alter the BCC field to override the default."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
54 :type 'boolean
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
55 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
58 (defcustom mail-interactive nil "\
15951
0807c87a589f (mail-self-blind, mail-interactive)
Richard M. Stallman <rms@gnu.org>
parents: 15546
diff changeset
59 *Non-nil means when sending a message wait for and display errors.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
60 nil means let mailer mail back a message to report errors."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
61 :type 'boolean
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
62 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
65 (defcustom mail-yank-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^remailed\\|^received:\\|^message-id:\\|^summary-line:\\|^to:\\|^subject:\\|^in-reply-to:\\|^return-path:" "\
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
66 *Delete these headers from old message when it's inserted in a reply."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
67 :type 'regexp
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
68 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 ;; Useful to set in site-init.el
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 ;;;###autoload
3232
27d2747abab2 (send-mail-function): Use defvar. not defconst.
Richard M. Stallman <rms@gnu.org>
parents: 2920
diff changeset
72 (defvar send-mail-function 'sendmail-send-it "\
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 Function to call to send the current buffer as mail.
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
74 The headers should be delimited by a line which is
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
75 not a valid RFC822 header or continuation line.")
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
78 (defcustom mail-header-separator "--text follows this line--" "\
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
79 *Line used to separate headers from text in messages being composed."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
80 :type 'string
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
81 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82
13824
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
83 ;; Set up mail-header-separator for use as a category text property.
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
84 (put 'mail-header-separator 'rear-nonsticky '(category))
13928
d9a95968edb8 (mail-header-separator): Don't put on read-only property.
Richard M. Stallman <rms@gnu.org>
parents: 13919
diff changeset
85 ;;; This was a nice idea, for preventing accidental modification of
d9a95968edb8 (mail-header-separator): Don't put on read-only property.
Richard M. Stallman <rms@gnu.org>
parents: 13919
diff changeset
86 ;;; the separator. But I found it also prevented or obstructed
d9a95968edb8 (mail-header-separator): Don't put on read-only property.
Richard M. Stallman <rms@gnu.org>
parents: 13919
diff changeset
87 ;;; certain deliberate operations, such as copying the separator line
d9a95968edb8 (mail-header-separator): Don't put on read-only property.
Richard M. Stallman <rms@gnu.org>
parents: 13919
diff changeset
88 ;;; up to the top to send myself a copy of an already sent outgoing message
d9a95968edb8 (mail-header-separator): Don't put on read-only property.
Richard M. Stallman <rms@gnu.org>
parents: 13919
diff changeset
89 ;;; and other things. So I turned it off. --rms.
d9a95968edb8 (mail-header-separator): Don't put on read-only property.
Richard M. Stallman <rms@gnu.org>
parents: 13919
diff changeset
90 ;;;(put 'mail-header-separator 'read-only t)
13824
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
91
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
93 (defcustom mail-archive-file-name nil "\
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 *Name of file to write all outgoing messages in, or nil for none.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
95 This can be an inbox file or an Rmail file."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
96 :type '(choice file (const nil))
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
97 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98
5261
50406a868f05 (mail-default-reply-to): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 5210
diff changeset
99 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
100 (defcustom mail-default-reply-to nil
12607
498ce026e14b (mail-default-reply-to): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 12564
diff changeset
101 "*Address to insert as default Reply-to field of outgoing messages.
498ce026e14b (mail-default-reply-to): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 12564
diff changeset
102 If nil, it will be initialized from the REPLYTO environment variable
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
103 when you first send mail."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
104 :type '(choice (const nil) string)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
105 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106
8488
ddd8e250a65d (mail-alias-file): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 8416
diff changeset
107 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
108 (defcustom mail-alias-file nil
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 "*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
110 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
111 feature from that of defining aliases in `.mailrc' to be expanded in Emacs.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
112 This variable has no effect unless your system uses sendmail as its mailer."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
113 :type '(choice (const nil) file)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
114 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115
10326
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
116 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
117 (defcustom mail-personal-alias-file "~/.mailrc"
10326
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
118 "*If non-nil, the name of the user's personal mail alias file.
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
119 This file typically should be in same format as the `.mailrc' file used by
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
120 the `Mail' or `mailx' program.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
121 This file need not actually exist."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
122 :type '(choice (const nil) file)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
123 :group 'sendmail)
10326
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
124
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
125 (defcustom mail-setup-hook nil
12564
3cd5105aeb2b (mail-setup-hook): New defvar.
Karl Heuer <kwzh@gnu.org>
parents: 12473
diff changeset
126 "Normal hook, run each time a new outgoing mail message is initialized.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
127 The function `mail-setup' runs this hook."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
128 :type 'hook
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
129 :group 'sendmail)
12564
3cd5105aeb2b (mail-setup-hook): New defvar.
Karl Heuer <kwzh@gnu.org>
parents: 12473
diff changeset
130
1431
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
131 (defvar mail-aliases t
1468
01e760e7de34 (mail-aliases): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 1431
diff changeset
132 "Alist of mail address aliases,
9647
c27b8baa6aa4 (mail-aliases, mail-archive-file-name): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 9645
diff changeset
133 or t meaning should be initialized from your mail aliases file.
c27b8baa6aa4 (mail-aliases, mail-archive-file-name): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 9645
diff changeset
134 \(The file's name is normally `~/.mailrc', but your MAILRC environment
c27b8baa6aa4 (mail-aliases, mail-archive-file-name): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 9645
diff changeset
135 variable can override that name.)
c27b8baa6aa4 (mail-aliases, mail-archive-file-name): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 9645
diff changeset
136 The alias definitions in the file have this form:
1468
01e760e7de34 (mail-aliases): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 1431
diff changeset
137 alias ALIAS MEANING")
1431
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
138
8802
7fcda87193a3 (mail-alias-modtime): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 8488
diff changeset
139 (defvar mail-alias-modtime nil
9647
c27b8baa6aa4 (mail-aliases, mail-archive-file-name): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 9645
diff changeset
140 "The modification time of your mail alias file when it was last examined.")
8802
7fcda87193a3 (mail-alias-modtime): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 8488
diff changeset
141
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
142 (defcustom mail-yank-prefix nil
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 "*Prefix insert on lines of yanked message being replied to.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
144 nil means use indentation."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
145 :type '(choice (const nil) string)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
146 :group 'sendmail)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
147
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
148 (defcustom mail-indentation-spaces 3
3424
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
149 "*Number of spaces to insert at the beginning of each cited line.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
150 Used by `mail-yank-original' via `mail-indent-citation'."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
151 :type 'integer
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
152 :group 'sendmail)
4418
fdbbde0d4f24 (mail-yank-hooks): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents: 4342
diff changeset
153 (defvar mail-yank-hooks nil
3816
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
154 "Obsolete hook for modifying a citation just inserted in the mail buffer.
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
155 Each hook function can find the citation between (point) and (mark t).
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
156 And each hook function should leave point and mark around the citation
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
157 text as modified.
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
158
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
159 This is a normal hook, misnamed for historical reasons.
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
160 It is semi-obsolete and mail agents should no longer use it.")
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
161
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
162 (defcustom mail-citation-hook nil
3424
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
163 "*Hook for modifying a citation just inserted in the mail buffer.
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
164 Each hook function can find the citation between (point) and (mark t).
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
165 And each hook function should leave point and mark around the citation
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
166 text as modified.
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
167
3816
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
168 If this hook is entirely empty (nil), a default action is taken
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
169 instead of no action."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
170 :type 'hook
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
171 :group 'sendmail)
455
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 (defvar mail-abbrevs-loaded nil)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 (defvar mail-mode-map nil)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175
1431
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
176 (autoload 'build-mail-aliases "mailalias"
10326
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
177 "Read mail aliases from user's personal aliases file and set `mail-aliases'."
1431
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
178 nil)
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
179
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
180 (autoload 'expand-mail-aliases "mailalias"
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
181 "Expand all mail aliases in suitable header fields found between BEG and END.
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
182 Suitable header fields are `To', `Cc' and `Bcc' and their `Resent-' variants.
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
183 Optional second arg EXCLUDE may be a regular expression defining text to be
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
184 removed from alias expansions."
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
185 nil)
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
186
999
d8d503897aa5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 898
diff changeset
187 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
188 (defcustom mail-signature nil
1025
1ccd97bc1d2b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1024
diff changeset
189 "*Text inserted at end of mail buffer when a message is initialized.
22005
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
190 If t, it means to insert the contents of the file `mail-signature-file'.
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
191 If a string, that string is inserted.
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
192 (To make a proper signature, the string should begin with \\n\\n-- \\n,
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
193 which is the standard way to delimit a signature in a message.)
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
194 Otherwise, it should be an expression; it is evaluated
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
195 and should insert whatever you want to insert."
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
196 :type '(choice (const "None" nil)
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
197 (const :tag "Use `.signature' file" t)
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
198 (string :tag "String to insert")
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
199 (sexp :tag "Expression to evaluate"))
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
200 :group 'sendmail)
22005
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
201 (put 'mail-signature 'risky-local-variable t)
13116
61c560010274 (mail-signature-file): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13090
diff changeset
202
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
203 (defcustom mail-signature-file "~/.signature"
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
204 "*File containing the text inserted at end of mail buffer."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
205 :type 'file
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
206 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
208 (defvar mail-reply-action nil)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 (defvar mail-send-actions nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 "A list of actions to be performed upon successful sending of a message.")
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
211 (put 'mail-reply-action 'permanent-local t)
15546
e4a1ba2cfdba (mail-reply-buffer, mail-send-actions):
Richard M. Stallman <rms@gnu.org>
parents: 15162
diff changeset
212 (put 'mail-send-actions 'permanent-local t)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
214 (defcustom mail-default-headers nil
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 "*A string containing header lines, to be inserted in outgoing messages.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 It is inserted before you edit the message,
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
217 so you can edit or delete these lines."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
218 :type '(choice (const nil) string)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
219 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
221 (defcustom mail-bury-selects-summary t
8955
14951db9444a (mail-bury-selects-summary): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8802
diff changeset
222 "*If non-nil, try to show RMAIL summary buffer after returning from mail.
14951db9444a (mail-bury-selects-summary): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8802
diff changeset
223 The functions \\[mail-send-on-exit] or \\[mail-dont-send] select
14951db9444a (mail-bury-selects-summary): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8802
diff changeset
224 the RMAIL summary buffer before returning, if it exists and this variable
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
225 is non-nil."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
226 :type 'boolean
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
227 :group 'sendmail)
8955
14951db9444a (mail-bury-selects-summary): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8802
diff changeset
228
19440
797637e1e880 (mail-yank-original): Bind mark-even-if-inactive
Richard M. Stallman <rms@gnu.org>
parents: 19350
diff changeset
229 ;; I find that this happens so often, for innocent reasons,
797637e1e880 (mail-yank-original): Bind mark-even-if-inactive
Richard M. Stallman <rms@gnu.org>
parents: 19350
diff changeset
230 ;; that it is not acceptable to bother the user about it -- rms.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
231 (defcustom mail-send-nonascii t
19350
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
232 "*Specify whether to allow sending non-ASCII characters in mail.
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
233 If t, that means do allow it. nil means don't allow it.
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
234 `query' means ask the user each time.
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
235 Including non-ASCII characters in a mail message can be problematical
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
236 for the recipient, who may not know how to decode them properly."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
237 :type '(choice (const t) (const nil) (const query))
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
238 :group 'sendmail)
19350
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
239
5667
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
240 ;; Note: could use /usr/ucb/mail instead of sendmail;
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
241 ;; options -t, and -v if not interactive.
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
242 (defvar mail-mailer-swallows-blank-line
5731
d53870d31221 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5667
diff changeset
243 (if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" system-configuration)
8253
e390776e5846 (mail-mailer-swallows-blank-line): Verify sendmail.cf
Richard M. Stallman <rms@gnu.org>
parents: 8216
diff changeset
244 (file-readable-p "/etc/sendmail.cf")
5731
d53870d31221 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5667
diff changeset
245 (let ((buffer (get-buffer-create " *temp*")))
d53870d31221 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5667
diff changeset
246 (unwind-protect
d53870d31221 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5667
diff changeset
247 (save-excursion
d53870d31221 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5667
diff changeset
248 (set-buffer buffer)
d53870d31221 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5667
diff changeset
249 (insert-file-contents "/etc/sendmail.cf")
d53870d31221 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5667
diff changeset
250 (goto-char (point-min))
d53870d31221 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5667
diff changeset
251 (let ((case-fold-search nil))
5977
8c5cc76de654 (mail-mailer-swallows-blank-line): Fix regexp typo.
Richard M. Stallman <rms@gnu.org>
parents: 5847
diff changeset
252 (re-search-forward "^OR\\>" nil t)))
5731
d53870d31221 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5667
diff changeset
253 (kill-buffer buffer))))
10624
ec7ba4fd36f0 mail-mailer-swallows-blank-line: Handle full range of legal header names as
Noah Friedman <friedman@splode.com>
parents: 10326
diff changeset
254 ;; According to RFC822, "The field-name must be composed of printable
ec7ba4fd36f0 mail-mailer-swallows-blank-line: Handle full range of legal header names as
Noah Friedman <friedman@splode.com>
parents: 10326
diff changeset
255 ;; ASCII characters (i.e. characters that have decimal values between
ec7ba4fd36f0 mail-mailer-swallows-blank-line: Handle full range of legal header names as
Noah Friedman <friedman@splode.com>
parents: 10326
diff changeset
256 ;; 33 and 126, except colon)", i.e. any chars except ctl chars,
ec7ba4fd36f0 mail-mailer-swallows-blank-line: Handle full range of legal header names as
Noah Friedman <friedman@splode.com>
parents: 10326
diff changeset
257 ;; space, or colon.
ec7ba4fd36f0 mail-mailer-swallows-blank-line: Handle full range of legal header names as
Noah Friedman <friedman@splode.com>
parents: 10326
diff changeset
258 '(looking-at "[ \t]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:"))
5667
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
259 "Set this non-nil if the system's mailer runs the header and body together.
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
260 \(This problem exists on Sunos 4 when sendmail is run in remote mode.)
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
261 The value should be an expression to test whether the problem will
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
262 actually occur.")
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
263
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 (defvar mail-mode-syntax-table nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 "Syntax table used while in mail mode.")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266
9381
535197b3fc42 (mail-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9160
diff changeset
267 (if (not mail-mode-syntax-table)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 (setq mail-mode-syntax-table (copy-syntax-table text-mode-syntax-table))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 (modify-syntax-entry ?% ". " mail-mode-syntax-table)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271
9381
535197b3fc42 (mail-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9160
diff changeset
272 (defvar mail-font-lock-keywords
14364
64be2e6b8094 Use `eval' in mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
273 (eval-when-compile
16453
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
274 (let* ((cite-chars "[>|}]")
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
275 (cite-prefix "A-Za-z")
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
276 (cite-suffix (concat cite-prefix "0-9_.@-`'\"")))
17164
024399a1b442 Tweak font-lock-keywords
Simon Marshall <simon@gnu.org>
parents: 17097
diff changeset
277 (list '("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face)
024399a1b442 Tweak font-lock-keywords
Simon Marshall <simon@gnu.org>
parents: 17097
diff changeset
278 '("^\\(B?CC\\|Reply-to\\):" . font-lock-keyword-face)
14364
64be2e6b8094 Use `eval' in mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
279 '("^\\(Subject:\\)[ \t]*\\(.+\\)?"
64be2e6b8094 Use `eval' in mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
280 (1 font-lock-comment-face) (2 font-lock-type-face nil t))
16453
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
281 ;; Use EVAL to delay in case `mail-header-separator' gets changed.
17164
024399a1b442 Tweak font-lock-keywords
Simon Marshall <simon@gnu.org>
parents: 17097
diff changeset
282 '(eval .
21284
1d971e4f4645 check length of mail-header-separator before using in font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 20962
diff changeset
283 (let ((separator (if (zerop (length mail-header-separator))
21301
129d706946d5 use a string that will never match.
Simon Marshall <simon@gnu.org>
parents: 21284
diff changeset
284 " \\`\\' "
21284
1d971e4f4645 check length of mail-header-separator before using in font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 20962
diff changeset
285 (regexp-quote mail-header-separator))))
1d971e4f4645 check length of mail-header-separator before using in font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 20962
diff changeset
286 (cons (concat "^" separator "$") 'font-lock-warning-face)))
16453
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
287 ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
288 `(,cite-chars
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
289 (,(concat "\\=[ \t]*"
17164
024399a1b442 Tweak font-lock-keywords
Simon Marshall <simon@gnu.org>
parents: 17097
diff changeset
290 "\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
024399a1b442 Tweak font-lock-keywords
Simon Marshall <simon@gnu.org>
parents: 17097
diff changeset
291 "\\(" cite-chars "[ \t]*\\)\\)+"
024399a1b442 Tweak font-lock-keywords
Simon Marshall <simon@gnu.org>
parents: 17097
diff changeset
292 "\\(.*\\)")
16453
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
293 (beginning-of-line) (end-of-line)
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20727
diff changeset
294 (2 font-lock-constant-face nil t)
17164
024399a1b442 Tweak font-lock-keywords
Simon Marshall <simon@gnu.org>
parents: 17097
diff changeset
295 (4 font-lock-comment-face nil t)))
14364
64be2e6b8094 Use `eval' in mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
296 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*"
64be2e6b8094 Use `eval' in mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
297 . font-lock-string-face))))
9381
535197b3fc42 (mail-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9160
diff changeset
298 "Additional expressions to highlight in Mail mode.")
535197b3fc42 (mail-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9160
diff changeset
299
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
300 (defcustom mail-send-hook nil
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
301 "Normal hook run before sending mail, in Mail mode."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
302 :type 'hook
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
303 :group 'sendmail)
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
304
13950
e9615c5f477a (sendmail-sync-aliases): Renamed from sendmail-synch-aliases.
Karl Heuer <kwzh@gnu.org>
parents: 13928
diff changeset
305 (defun sendmail-sync-aliases ()
10326
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
306 (let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
8802
7fcda87193a3 (mail-alias-modtime): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 8488
diff changeset
307 (or (equal mail-alias-modtime modtime)
7fcda87193a3 (mail-alias-modtime): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 8488
diff changeset
308 (setq mail-alias-modtime modtime
7fcda87193a3 (mail-alias-modtime): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 8488
diff changeset
309 mail-aliases t))))
7fcda87193a3 (mail-alias-modtime): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 8488
diff changeset
310
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 (defun mail-setup (to subject in-reply-to cc replybuffer actions)
12473
4472a461ab1c (mail-default-reply-to): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents: 12458
diff changeset
312 (or mail-default-reply-to
8972
ad8f1cea49cc (mail-default-reply-to): Initialize to t.
Richard M. Stallman <rms@gnu.org>
parents: 8955
diff changeset
313 (setq mail-default-reply-to (getenv "REPLYTO")))
13950
e9615c5f477a (sendmail-sync-aliases): Renamed from sendmail-synch-aliases.
Karl Heuer <kwzh@gnu.org>
parents: 13928
diff changeset
314 (sendmail-sync-aliases)
1431
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
315 (if (eq mail-aliases t)
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
316 (progn
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
317 (setq mail-aliases nil)
10326
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
318 (if (file-exists-p mail-personal-alias-file)
1431
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
319 (build-mail-aliases))))
18130
ea43e3ebc47a (mail-setup): Clear out buffer-file-coding-system.
Richard M. Stallman <rms@gnu.org>
parents: 17796
diff changeset
320 ;; Don't leave this around from a previous message.
18135
000b0a8baf1a (mail-setup): Don't set buffer-file-coding-system to nil.
Richard M. Stallman <rms@gnu.org>
parents: 18130
diff changeset
321 (kill-local-variable 'buffer-file-coding-system)
18794
631776603b13 (mail-setup): Kill the local binding of enable-multibyte-characters.
Kenichi Handa <handa@m17n.org>
parents: 18704
diff changeset
322 (kill-local-variable 'enable-multibyte-characters)
631776603b13 (mail-setup): Kill the local binding of enable-multibyte-characters.
Kenichi Handa <handa@m17n.org>
parents: 18704
diff changeset
323 (if current-input-method
631776603b13 (mail-setup): Kill the local binding of enable-multibyte-characters.
Kenichi Handa <handa@m17n.org>
parents: 18704
diff changeset
324 (inactivate-input-method))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 (setq mail-send-actions actions)
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
326 (setq mail-reply-action replybuffer)
455
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 (insert "To: ")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 (if to
1843
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
331 ;; Here removed code to extract names from within <...>
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
332 ;; on the assumption that mail-strip-quoted-names
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
333 ;; has been called and has done so.
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
334 (let ((fill-prefix "\t")
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
335 (address-start (point)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 (insert to "\n")
1843
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
337 (fill-region-as-paragraph address-start (point-max)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 (newline))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
339 (if cc
1843
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
340 (let ((fill-prefix "\t")
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
341 (address-start (progn (insert "CC: ") (point))))
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
342 (insert cc "\n")
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
343 (fill-region-as-paragraph address-start (point-max))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344 (if in-reply-to
9536
ecaa7babab17 (mail-setup): Fill the in-reply-to field.
Richard M. Stallman <rms@gnu.org>
parents: 9527
diff changeset
345 (let ((fill-prefix "\t")
10013
fd7810a1535a (mail-setup): Make fill-column wide for the in-reply-to.
Richard M. Stallman <rms@gnu.org>
parents: 9663
diff changeset
346 (fill-column 78)
9663
8bd05e79e0bd (mail-setup): Fill in-reply-to field properly.
Richard M. Stallman <rms@gnu.org>
parents: 9647
diff changeset
347 (address-start (point)))
8bd05e79e0bd (mail-setup): Fill in-reply-to field properly.
Richard M. Stallman <rms@gnu.org>
parents: 9647
diff changeset
348 (insert "In-reply-to: " in-reply-to "\n")
9536
ecaa7babab17 (mail-setup): Fill the in-reply-to field.
Richard M. Stallman <rms@gnu.org>
parents: 9527
diff changeset
349 (fill-region-as-paragraph address-start (point-max))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 (insert "Subject: " (or subject "") "\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 (if mail-default-headers
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 (insert mail-default-headers))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353 (if mail-default-reply-to
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 (insert "Reply-to: " mail-default-reply-to "\n"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 (if mail-self-blind
14437
8013f6a7080d (mail-setup): For mail-self-blind, use user-mail-address.
Richard M. Stallman <rms@gnu.org>
parents: 14373
diff changeset
356 (insert "BCC: " user-mail-address "\n"))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 (if mail-archive-file-name
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358 (insert "FCC: " mail-archive-file-name "\n"))
13824
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
359 (put-text-property (point)
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
360 (progn
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
361 (insert mail-header-separator "\n")
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
362 (1- (point)))
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
363 'category 'mail-header-separator)
2852
e80e6e533533 (mail-setup): Leave point before signature, not after.
Richard M. Stallman <rms@gnu.org>
parents: 2701
diff changeset
364 ;; Insert the signature. But remember the beginning of the message.
e80e6e533533 (mail-setup): Leave point before signature, not after.
Richard M. Stallman <rms@gnu.org>
parents: 2701
diff changeset
365 (if to (setq to (point)))
1025
1ccd97bc1d2b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1024
diff changeset
366 (cond ((eq mail-signature t)
13116
61c560010274 (mail-signature-file): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13090
diff changeset
367 (if (file-exists-p mail-signature-file)
8216
1f1387385ac6 (mail-setup): Insert -- line before .signature file.
Richard M. Stallman <rms@gnu.org>
parents: 8145
diff changeset
368 (progn
1f1387385ac6 (mail-setup): Insert -- line before .signature file.
Richard M. Stallman <rms@gnu.org>
parents: 8145
diff changeset
369 (insert "\n\n-- \n")
13116
61c560010274 (mail-signature-file): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13090
diff changeset
370 (insert-file-contents mail-signature-file))))
22005
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
371 ((stringp mail-signature)
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
372 (insert mail-signature))
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
373 (t
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
374 (eval mail-signature)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375 (goto-char (point-max))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376 (or (bolp) (newline)))
2852
e80e6e533533 (mail-setup): Leave point before signature, not after.
Richard M. Stallman <rms@gnu.org>
parents: 2701
diff changeset
377 (if to (goto-char to))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 (or to subject in-reply-to
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 (set-buffer-modified-p nil))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
380 (run-hooks 'mail-setup-hook))
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
381
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 (defun mail-mode ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
384 "Major mode for editing mail to be sent.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 Like Text Mode but with these additional commands:
21545
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
386 \\[mail-send] mail-send (send the message) \\[mail-send-and-exit] mail-send-and-exit
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
387 Here are commands that move to a header field (and create it if there isn't):
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
388 \\[mail-to] move to To: \\[mail-subject] move to Subject:
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
389 \\[mail-cc] move to CC: \\[mail-bcc] move to BCC:
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
390 \\[mail-fcc] move to FCC:
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
391 \\[mail-text] mail-text (move to beginning of message text).
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
392 \\[mail-signature] mail-signature (insert `mail-signature-file' file).
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
393 \\[mail-yank-original] mail-yank-original (insert current message, in Rmail).
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
394 \\[mail-fill-yanked-message] mail-fill-yanked-message (fill what was yanked).
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
395 \\[mail-sent-via] mail-sent-via (add a Sent-via field for each To or CC)."
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 (kill-all-local-variables)
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
398 (make-local-variable 'mail-reply-action)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 (make-local-variable 'mail-send-actions)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 (set-syntax-table mail-mode-syntax-table)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 (use-local-map mail-mode-map)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 (setq local-abbrev-table text-mode-abbrev-table)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 (setq major-mode 'mail-mode)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 (setq mode-name "Mail")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405 (setq buffer-offer-save t)
9483
a8f745eaee5c * sendmail.el: (mail-mode): Set font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents: 9470
diff changeset
406 (make-local-variable 'font-lock-defaults)
a8f745eaee5c * sendmail.el: (mail-mode): Set font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents: 9470
diff changeset
407 (setq font-lock-defaults '(mail-font-lock-keywords t))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 (make-local-variable 'paragraph-separate)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 (make-local-variable 'paragraph-start)
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
410 (make-local-variable 'normal-auto-fill-function)
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
411 (setq normal-auto-fill-function 'mail-mode-auto-fill)
18704
259f416a8485 (mail-mode): Make fill-paragraph-function local.
Richard M. Stallman <rms@gnu.org>
parents: 18589
diff changeset
412 (make-local-variable 'fill-paragraph-function)
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
413 (setq fill-paragraph-function 'mail-mode-fill-paragraph)
18870
d86beb823996 (mail-mode): Set adaptive-fill-regexp specially to cater to supercite.
Richard M. Stallman <rms@gnu.org>
parents: 18814
diff changeset
414 (make-local-variable 'adaptive-fill-regexp)
d86beb823996 (mail-mode): Set adaptive-fill-regexp specially to cater to supercite.
Richard M. Stallman <rms@gnu.org>
parents: 18814
diff changeset
415 (setq adaptive-fill-regexp
19818
0db6ba06cd1c (mail-mode): Allow dash in citation prefixes
Richard M. Stallman <rms@gnu.org>
parents: 19724
diff changeset
416 (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp))
19000
f5d103332d9e (mail-mode): Make adaptive-fill-regexp
Richard M. Stallman <rms@gnu.org>
parents: 18955
diff changeset
417 (make-local-variable 'adaptive-fill-first-line-regexp)
19724
3f803418061c (mail-mode): Set adaptive-fill-first-line-regexp
Richard M. Stallman <rms@gnu.org>
parents: 19628
diff changeset
418 (setq adaptive-fill-first-line-regexp
19818
0db6ba06cd1c (mail-mode): Allow dash in citation prefixes
Richard M. Stallman <rms@gnu.org>
parents: 19724
diff changeset
419 (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-first-line-regexp))
15162
a16fd1b9abb5 (mail-mode): Line starting with ---- is a separator.
Richard M. Stallman <rms@gnu.org>
parents: 14926
diff changeset
420 ;; `-- ' precedes the signature. `-----' appears at the start of the
a16fd1b9abb5 (mail-mode): Line starting with ---- is a separator.
Richard M. Stallman <rms@gnu.org>
parents: 14926
diff changeset
421 ;; lines that delimit forwarded messages.
a16fd1b9abb5 (mail-mode): Line starting with ---- is a separator.
Richard M. Stallman <rms@gnu.org>
parents: 14926
diff changeset
422 ;; Lines containing just >= 3 dashes, perhaps after whitespace,
a16fd1b9abb5 (mail-mode): Line starting with ---- is a separator.
Richard M. Stallman <rms@gnu.org>
parents: 14926
diff changeset
423 ;; are also sometimes used and should be separators.
11305
e39cb5447c68 (mail-mode): Make mail-header-separator into regexp.
Richard M. Stallman <rms@gnu.org>
parents: 11181
diff changeset
424 (setq paragraph-start (concat (regexp-quote mail-header-separator)
19171
2746f25df333 (mail-mode): Allow TAB after prefix in previous change.
Richard M. Stallman <rms@gnu.org>
parents: 19161
diff changeset
425 "$\\|[ \t]*[a-z0-9A-Z]*>+[ \t]*$\\|[ \t]*$\\|"
19161
248ec4d8a5e6 (mail-mode): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 19074
diff changeset
426 page-delimiter))
18227
dabaf167de47 (mail-mode): Change paragraph-start and
Richard M. Stallman <rms@gnu.org>
parents: 18135
diff changeset
427 (setq paragraph-separate paragraph-start)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 (run-hooks 'text-mode-hook 'mail-mode-hook))
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
429
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
430
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
431 (defun mail-header-end ()
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
432 "Return the buffer location of the end of headers, as a number."
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
433 (save-excursion
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
434 (rfc822-goto-eoh)
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
435 (point)))
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
436
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
437 (defun mail-text-start ()
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
438 "Return the buffer location of the start of text, as a number."
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
439 (save-excursion
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
440 (rfc822-goto-eoh)
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
441 (forward-line 1)
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
442 (point)))
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
443
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
444 (defun mail-sendmail-delimit-header ()
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
445 "Set up whatever header delimiter convention sendmail will use.
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
446 Concretely: replace the first blank line in the header with the separator."
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
447 (rfc822-goto-eoh)
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
448 (insert mail-header-separator)
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
449 (point))
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
450
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
451 (defun mail-sendmail-undelimit-header ()
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
452 "Remove header separator to put the message in correct form for sendmail.
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
453 Leave point at the start of the delimiter line."
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
454 (rfc822-goto-eoh)
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
455 (delete-region (point) (progn (end-of-line) (point))))
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
456
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
457 (defun mail-mode-auto-fill ()
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
458 "Carry out Auto Fill for Mail mode.
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
459 If within the headers, this makes the new lines into continuation lines."
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
460 (if (< (point) (mail-header-end))
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
461 (let ((old-line-start (save-excursion (beginning-of-line) (point))))
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
462 (if (do-auto-fill)
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
463 (save-excursion
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
464 (beginning-of-line)
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
465 (while (not (eq (point) old-line-start))
18814
9b92c85d0dc2 (mail-mode-auto-fill): Use insert-before-markers.
Richard M. Stallman <rms@gnu.org>
parents: 18794
diff changeset
466 ;; Use insert-before-markers in case we're inserting
9b92c85d0dc2 (mail-mode-auto-fill): Use insert-before-markers.
Richard M. Stallman <rms@gnu.org>
parents: 18794
diff changeset
467 ;; before the saved value of point (which is common).
9b92c85d0dc2 (mail-mode-auto-fill): Use insert-before-markers.
Richard M. Stallman <rms@gnu.org>
parents: 18794
diff changeset
468 (insert-before-markers " ")
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
469 (forward-line -1))
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
470 t)))
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
471 (do-auto-fill)))
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
472
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
473 (defun mail-mode-fill-paragraph (arg)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
474 ;; Do something special only if within the headers.
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
475 (if (< (point) (mail-header-end))
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
476 (let (beg end fieldname)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
477 (re-search-backward "^[-a-zA-Z]+:" nil 'yes)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
478 (setq beg (point))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
479 (setq fieldname
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
480 (downcase (buffer-substring beg (1- (match-end 0)))))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
481 (forward-line 1)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
482 ;; Find continuation lines and get rid of their continuation markers.
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
483 (while (looking-at "[ \t]")
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
484 (delete-horizontal-space)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
485 (forward-line 1))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
486 (setq end (point-marker))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
487 (goto-char beg)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
488 ;; If this field contains addresses,
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
489 ;; make sure we can fill after each address.
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
490 (if (member fieldname
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
491 '("to" "cc" "bcc" "from" "reply-to"
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
492 "resent-to" "resent-cc" "resent-bcc"
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
493 "resent-from" "resent-reply-to"))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
494 (while (search-forward "," end t)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
495 (or (looking-at "[ \t]")
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
496 (insert " "))))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
497 (fill-region-as-paragraph beg end)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
498 ;; Mark all lines except the first as continuations.
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
499 (goto-char beg)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
500 (forward-line 1)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
501 (while (< (point) end)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
502 (insert " ")
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
503 (forward-line 1))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
504 (move-marker end nil)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
505 t)))
3859
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
506
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
507 ;;; Set up keymap.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 (if mail-mode-map
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 (setq mail-mode-map (nconc (make-sparse-keymap) text-mode-map))
14679
671df59704d7 (mail-mode-map): Bind M-TAB to mail-complete.
Richard M. Stallman <rms@gnu.org>
parents: 14651
diff changeset
512 (define-key mail-mode-map "\M-\t" 'mail-complete)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 (define-key mail-mode-map "\C-c?" 'describe-mode)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 (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
515 (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
516 (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
517 (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
518 (define-key mail-mode-map "\C-c\C-f\C-s" 'mail-subject)
10726
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
519 (define-key mail-mode-map "\C-c\C-f\C-r" 'mail-reply-to)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 (define-key mail-mode-map "\C-c\C-t" 'mail-text)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 (define-key mail-mode-map "\C-c\C-y" 'mail-yank-original)
16761
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
522 (define-key mail-mode-map "\C-c\C-r" 'mail-yank-region)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 (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
524 (define-key mail-mode-map "\C-c\C-w" 'mail-signature)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 (define-key mail-mode-map "\C-c\C-v" 'mail-sent-via)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 (define-key mail-mode-map "\C-c\C-c" 'mail-send-and-exit)
17512
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
527 (define-key mail-mode-map "\C-c\C-s" 'mail-send)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
528 (define-key mail-mode-map "\C-c\C-i" 'mail-attach-file))
3859
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
529
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
530 (define-key mail-mode-map [menu-bar mail]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
531 (cons "Mail" (make-sparse-keymap "Mail")))
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
532
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
533 (define-key mail-mode-map [menu-bar mail fill]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
534 '("Fill Citation" . mail-fill-yanked-message))
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
535
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
536 (define-key mail-mode-map [menu-bar mail yank]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
537 '("Cite Original" . mail-yank-original))
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
538
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
539 (define-key mail-mode-map [menu-bar mail signature]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
540 '("Insert Signature" . mail-signature))
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
541
17796
dd8043525cd9 entry for expand-mail-aliases
Simon Marshall <simon@gnu.org>
parents: 17596
diff changeset
542 (define-key mail-mode-map [menu-bar mail mail-sep]
dd8043525cd9 entry for expand-mail-aliases
Simon Marshall <simon@gnu.org>
parents: 17596
diff changeset
543 '("--"))
dd8043525cd9 entry for expand-mail-aliases
Simon Marshall <simon@gnu.org>
parents: 17596
diff changeset
544
4074
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
545 (define-key mail-mode-map [menu-bar mail cancel]
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
546 '("Cancel" . mail-dont-send))
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
547
3859
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
548 (define-key mail-mode-map [menu-bar mail send-stay]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
549 '("Send, Keep Editing" . mail-send))
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
550
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
551 (define-key mail-mode-map [menu-bar mail send]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
552 '("Send Message" . mail-send-and-exit))
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
553
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
554 (define-key mail-mode-map [menu-bar headers]
11181
67a8c8274784 (mail-mode-map): Longer title for headers submenu.
Richard M. Stallman <rms@gnu.org>
parents: 11120
diff changeset
555 (cons "Headers" (make-sparse-keymap "Move to Header")))
3859
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
556
17796
dd8043525cd9 entry for expand-mail-aliases
Simon Marshall <simon@gnu.org>
parents: 17596
diff changeset
557 (define-key mail-mode-map [menu-bar headers text]
dd8043525cd9 entry for expand-mail-aliases
Simon Marshall <simon@gnu.org>
parents: 17596
diff changeset
558 '("Text" . mail-text))
dd8043525cd9 entry for expand-mail-aliases
Simon Marshall <simon@gnu.org>
parents: 17596
diff changeset
559
dd8043525cd9 entry for expand-mail-aliases
Simon Marshall <simon@gnu.org>
parents: 17596
diff changeset
560 (define-key mail-mode-map [menu-bar headers expand-aliases]
dd8043525cd9 entry for expand-mail-aliases
Simon Marshall <simon@gnu.org>
parents: 17596
diff changeset
561 '("Expand Aliases" . expand-mail-aliases))
10726
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
562
3859
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
563 (define-key mail-mode-map [menu-bar headers sent-via]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
564 '("Sent Via" . mail-sent-via))
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
565
17796
dd8043525cd9 entry for expand-mail-aliases
Simon Marshall <simon@gnu.org>
parents: 17596
diff changeset
566 (define-key mail-mode-map [menu-bar headers reply-to]
dd8043525cd9 entry for expand-mail-aliases
Simon Marshall <simon@gnu.org>
parents: 17596
diff changeset
567 '("Reply-To" . mail-reply-to))
3859
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
568
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
569 (define-key mail-mode-map [menu-bar headers bcc]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
570 '("Bcc" . mail-bcc))
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
571
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
572 (define-key mail-mode-map [menu-bar headers fcc]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
573 '("Fcc" . mail-fcc))
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
574
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
575 (define-key mail-mode-map [menu-bar headers cc]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
576 '("Cc" . mail-cc))
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
577
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
578 (define-key mail-mode-map [menu-bar headers subject]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
579 '("Subject" . mail-subject))
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
580
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
581 (define-key mail-mode-map [menu-bar headers to]
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
582 '("To" . mail-to))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
584 ;; User-level commands for sending.
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
585
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 (defun mail-send-and-exit (arg)
1539
5677f906bf78 Dox fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 1468
diff changeset
587 "Send message like `mail-send', then, if no errors, exit from mail buffer.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 Prefix arg means don't delete this window."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 (interactive "P")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 (mail-send)
4074
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
591 (mail-bury arg))
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
592
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
593 (defun mail-dont-send (arg)
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
594 "Don't send the message you have been editing.
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
595 Prefix arg means don't delete this window."
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
596 (interactive "P")
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
597 (mail-bury arg))
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
598
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
599 (defun mail-bury (arg)
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
600 "Bury this mail buffer."
1269
d123cad4373c (mail-send-and-exit): Do other-buffer before bury-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 1075
diff changeset
601 (let ((newbuf (other-buffer (current-buffer))))
d123cad4373c (mail-send-and-exit): Do other-buffer before bury-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 1075
diff changeset
602 (bury-buffer (current-buffer))
14369
8d779463ec36 (mail-bury): Check mail-dedicated-frame frame param.
Richard M. Stallman <rms@gnu.org>
parents: 14364
diff changeset
603 (if (and (or (window-dedicated-p (frame-selected-window))
20049
69e6aa6e413e (mail-bury): Check for value, not just
Karl Heuer <kwzh@gnu.org>
parents: 19914
diff changeset
604 (cdr (assq 'mail-dedicated-frame (frame-parameters))))
4107
7b855e27223f (mail-bury): If selected frame is dedicated,
Richard M. Stallman <rms@gnu.org>
parents: 4074
diff changeset
605 (not (null (delq (selected-frame) (visible-frame-list)))))
7b855e27223f (mail-bury): If selected frame is dedicated,
Richard M. Stallman <rms@gnu.org>
parents: 4074
diff changeset
606 (delete-frame (selected-frame))
7833
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
607 (let (rmail-flag summary-buffer)
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
608 (and (not arg)
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
609 (not (one-window-p))
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
610 (save-excursion
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
611 (set-buffer (window-buffer (next-window (selected-window) 'not)))
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
612 (setq rmail-flag (eq major-mode 'rmail-mode))
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
613 (setq summary-buffer
8955
14951db9444a (mail-bury-selects-summary): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8802
diff changeset
614 (and mail-bury-selects-summary
14951db9444a (mail-bury-selects-summary): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8802
diff changeset
615 (boundp 'rmail-summary-buffer)
7963
b66df6f80740 (mail-bury): Test that rmail-summary-buffer is boundp.
Richard M. Stallman <rms@gnu.org>
parents: 7917
diff changeset
616 rmail-summary-buffer
7833
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
617 (buffer-name rmail-summary-buffer)
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
618 (not (get-buffer-window rmail-summary-buffer))
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
619 rmail-summary-buffer))))
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
620 (if rmail-flag
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
621 ;; If the Rmail buffer has a summary, show that.
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
622 (if summary-buffer (switch-to-buffer summary-buffer)
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
623 (delete-window))
6cc0db90bcc3 (mail-bury): If showing rmail buffer that has summary, show the summary too.
Richard M. Stallman <rms@gnu.org>
parents: 7642
diff changeset
624 (switch-to-buffer newbuf))))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 (defun mail-send ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 "Send the message in the current buffer.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 If `mail-interactive' is non-nil, wait for success indication
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 or error messages, and inform user.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 Otherwise any failure is reported in a message back to
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 the user from the mailer."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 (interactive)
3949
d95172e91f4e (mail-send): Don't test buffer-modified-p if buffer is visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 3859
diff changeset
633 (if (if buffer-file-name
d95172e91f4e (mail-send): Don't test buffer-modified-p if buffer is visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 3859
diff changeset
634 (y-or-n-p "Send buffer contents as mail message? ")
d95172e91f4e (mail-send): Don't test buffer-modified-p if buffer is visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 3859
diff changeset
635 (or (buffer-modified-p)
d95172e91f4e (mail-send): Don't test buffer-modified-p if buffer is visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 3859
diff changeset
636 (y-or-n-p "Message already sent; resend? ")))
19350
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
637 (let ((inhibit-read-only t)
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
638 (opoint (point)))
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
639 (when (and enable-multibyte-characters
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
640 (not (eq mail-send-nonascii t)))
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
641 (goto-char (point-min))
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
642 (skip-chars-forward "\0-\177")
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
643 (or (= (point) (point-max))
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
644 (if (eq mail-send-nonascii 'query)
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
645 (or (y-or-n-p "Message contains non-ASCII characters; send anyway? ")
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
646 (error "Aborted"))
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
647 (error "Message contains non-ASCII characters"))))
19628
3be882bc0211 (mail-send): Complain about invalid header line.
Richard M. Stallman <rms@gnu.org>
parents: 19440
diff changeset
648 ;; Complain about any invalid line.
3be882bc0211 (mail-send): Complain about invalid header line.
Richard M. Stallman <rms@gnu.org>
parents: 19440
diff changeset
649 (goto-char (point-min))
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
650 (while (< (point) (mail-header-end))
19628
3be882bc0211 (mail-send): Complain about invalid header line.
Richard M. Stallman <rms@gnu.org>
parents: 19440
diff changeset
651 (unless (looking-at "[ \t]\\|.*:\\|$")
3be882bc0211 (mail-send): Complain about invalid header line.
Richard M. Stallman <rms@gnu.org>
parents: 19440
diff changeset
652 (push-mark opoint)
3be882bc0211 (mail-send): Complain about invalid header line.
Richard M. Stallman <rms@gnu.org>
parents: 19440
diff changeset
653 (error "Invalid header line (maybe a continuation line lacks initial whitespace)"))
3be882bc0211 (mail-send): Complain about invalid header line.
Richard M. Stallman <rms@gnu.org>
parents: 19440
diff changeset
654 (forward-line 1))
19350
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
655 (goto-char opoint)
7917
7967c371644f (mail-send-hook): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 7858
diff changeset
656 (run-hooks 'mail-send-hook)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 (message "Sending...")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658 (funcall send-mail-function)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 ;; Now perform actions on successful sending.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 (while mail-send-actions
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661 (condition-case nil
1741
bc25cbeb27c0 (mail-send): Don't clear modified or delete autosave if visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 1705
diff changeset
662 (apply (car (car mail-send-actions))
bc25cbeb27c0 (mail-send): Don't clear modified or delete autosave if visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 1705
diff changeset
663 (cdr (car mail-send-actions)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 (error))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 (setq mail-send-actions (cdr mail-send-actions)))
1741
bc25cbeb27c0 (mail-send): Don't clear modified or delete autosave if visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 1705
diff changeset
666 (message "Sending...done")
bc25cbeb27c0 (mail-send): Don't clear modified or delete autosave if visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 1705
diff changeset
667 ;; If buffer has no file, mark it as unmodified and delete autosave.
bc25cbeb27c0 (mail-send): Don't clear modified or delete autosave if visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 1705
diff changeset
668 (if (not buffer-file-name)
bc25cbeb27c0 (mail-send): Don't clear modified or delete autosave if visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 1705
diff changeset
669 (progn
bc25cbeb27c0 (mail-send): Don't clear modified or delete autosave if visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 1705
diff changeset
670 (set-buffer-modified-p nil)
bc25cbeb27c0 (mail-send): Don't clear modified or delete autosave if visiting a file.
Richard M. Stallman <rms@gnu.org>
parents: 1705
diff changeset
671 (delete-auto-save-file-if-necessary t))))))
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
672
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
673 ;; This does the real work of sending a message via sendmail.
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
674 ;; It is called via the variable send-mail-function.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675
17097
c3c90aba16f9 (sendmail-coding-system): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 17013
diff changeset
676 ;;;###autoload
c3c90aba16f9 (sendmail-coding-system): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 17013
diff changeset
677 (defvar sendmail-coding-system nil
20727
480d3121ae14 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20408
diff changeset
678 "Coding system to encode the outgoing mail.")
17013
d6ce795e84da (sendmail-coding-system): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 16761
diff changeset
679
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 (defun sendmail-send-it ()
13056
c1ce3b4556f2 (mail-file-babyl-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 12980
diff changeset
681 (require 'mail-utils)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682 (let ((errbuf (if mail-interactive
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
683 (generate-new-buffer " sendmail errors")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684 0))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685 (tembuf (generate-new-buffer " sendmail temp"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686 (case-fold-search nil)
8416
31a71761eeae (sendmail-send-it): Handle resent-to specially.
Richard M. Stallman <rms@gnu.org>
parents: 8253
diff changeset
687 resend-to-addresses
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688 delimline
16700
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
689 fcc-was-found
19202
e32501a34d5c (sendmail-send-it): Bind sendmail-coding-system
Kenichi Handa <handa@m17n.org>
parents: 19171
diff changeset
690 (mailbuf (current-buffer))
19857
1e35c1c533db (sendmail-send-it): The priority of coding
Kenichi Handa <handa@m17n.org>
parents: 19818
diff changeset
691 (sendmail-coding-system
1e35c1c533db (sendmail-send-it): The priority of coding
Kenichi Handa <handa@m17n.org>
parents: 19818
diff changeset
692 (if (local-variable-p 'buffer-file-coding-system)
1e35c1c533db (sendmail-send-it): The priority of coding
Kenichi Handa <handa@m17n.org>
parents: 19818
diff changeset
693 buffer-file-coding-system
1e35c1c533db (sendmail-send-it): The priority of coding
Kenichi Handa <handa@m17n.org>
parents: 19818
diff changeset
694 (or sendmail-coding-system
19880
14dec6a251c7 (sendmail-send-it): If both
Kenichi Handa <handa@m17n.org>
parents: 19857
diff changeset
695 default-buffer-file-coding-system
14dec6a251c7 (sendmail-send-it): If both
Kenichi Handa <handa@m17n.org>
parents: 19857
diff changeset
696 'iso-latin-1))))
20727
480d3121ae14 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20408
diff changeset
697 (if (fboundp select-safe-coding-system-function)
480d3121ae14 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20408
diff changeset
698 (setq sendmail-coding-system
480d3121ae14 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20408
diff changeset
699 (funcall select-safe-coding-system-function
480d3121ae14 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 20408
diff changeset
700 (point-min) (point-max) sendmail-coding-system)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701 (unwind-protect
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
703 (set-buffer tembuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
704 (erase-buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
705 (insert-buffer-substring mailbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 (goto-char (point-max))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 ;; require one newline at the end.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 (or (= (preceding-char) ?\n)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
709 (insert ?\n))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
710 ;; Change header-delimiter to be what sendmail expects.
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
711 (goto-char (mail-header-end))
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
712 (delete-region (point) (progn (end-of-line) (point)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713 (setq delimline (point-marker))
13950
e9615c5f477a (sendmail-sync-aliases): Renamed from sendmail-synch-aliases.
Karl Heuer <kwzh@gnu.org>
parents: 13928
diff changeset
714 (sendmail-sync-aliases)
1431
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
715 (if mail-aliases
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
716 (expand-mail-aliases (point-min) delimline))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717 (goto-char (point-min))
19628
3be882bc0211 (mail-send): Complain about invalid header line.
Richard M. Stallman <rms@gnu.org>
parents: 19440
diff changeset
718 ;; Ignore any blank lines in the header
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
719 (while (and (re-search-forward "\n\n\n*" delimline t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
720 (< (point) delimline))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
721 (replace-match "\n"))
19628
3be882bc0211 (mail-send): Complain about invalid header line.
Richard M. Stallman <rms@gnu.org>
parents: 19440
diff changeset
722 (goto-char (point-min))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
723 (let ((case-fold-search t))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 (goto-char (point-min))
13716
00bd8662272d (sendmail-send-it): Added support for Resent-CC and
Karl Heuer <kwzh@gnu.org>
parents: 13478
diff changeset
725 (while (re-search-forward "^Resent-\\(to\\|cc\\|bcc\\):" delimline t)
8416
31a71761eeae (sendmail-send-it): Handle resent-to specially.
Richard M. Stallman <rms@gnu.org>
parents: 8253
diff changeset
726 (setq resend-to-addresses
31a71761eeae (sendmail-send-it): Handle resent-to specially.
Richard M. Stallman <rms@gnu.org>
parents: 8253
diff changeset
727 (save-restriction
31a71761eeae (sendmail-send-it): Handle resent-to specially.
Richard M. Stallman <rms@gnu.org>
parents: 8253
diff changeset
728 (narrow-to-region (point)
31a71761eeae (sendmail-send-it): Handle resent-to specially.
Richard M. Stallman <rms@gnu.org>
parents: 8253
diff changeset
729 (save-excursion
20408
704e096f6a96 (sendmail-send-it): Parse folded
Karl Heuer <kwzh@gnu.org>
parents: 20096
diff changeset
730 (forward-line 1)
704e096f6a96 (sendmail-send-it): Parse folded
Karl Heuer <kwzh@gnu.org>
parents: 20096
diff changeset
731 (while (looking-at "^[ \t]")
704e096f6a96 (sendmail-send-it): Parse folded
Karl Heuer <kwzh@gnu.org>
parents: 20096
diff changeset
732 (forward-line 1))
8416
31a71761eeae (sendmail-send-it): Handle resent-to specially.
Richard M. Stallman <rms@gnu.org>
parents: 8253
diff changeset
733 (point)))
31a71761eeae (sendmail-send-it): Handle resent-to specially.
Richard M. Stallman <rms@gnu.org>
parents: 8253
diff changeset
734 (append (mail-parse-comma-list)
13716
00bd8662272d (sendmail-send-it): Added support for Resent-CC and
Karl Heuer <kwzh@gnu.org>
parents: 13478
diff changeset
735 resend-to-addresses)))
00bd8662272d (sendmail-send-it): Added support for Resent-CC and
Karl Heuer <kwzh@gnu.org>
parents: 13478
diff changeset
736 ;; Delete Resent-BCC ourselves
00bd8662272d (sendmail-send-it): Added support for Resent-CC and
Karl Heuer <kwzh@gnu.org>
parents: 13478
diff changeset
737 (if (save-excursion (beginning-of-line)
00bd8662272d (sendmail-send-it): Added support for Resent-CC and
Karl Heuer <kwzh@gnu.org>
parents: 13478
diff changeset
738 (looking-at "resent-bcc"))
00bd8662272d (sendmail-send-it): Added support for Resent-CC and
Karl Heuer <kwzh@gnu.org>
parents: 13478
diff changeset
739 (delete-region (save-excursion (beginning-of-line) (point))
00bd8662272d (sendmail-send-it): Added support for Resent-CC and
Karl Heuer <kwzh@gnu.org>
parents: 13478
diff changeset
740 (save-excursion (end-of-line) (1+ (point))))))
4910
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
741 ;;; Apparently this causes a duplicate Sender.
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
742 ;;; ;; If the From is different than current user, insert Sender.
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
743 ;;; (goto-char (point-min))
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
744 ;;; (and (re-search-forward "^From:" delimline t)
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
745 ;;; (progn
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
746 ;;; (require 'mail-utils)
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
747 ;;; (not (string-equal
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
748 ;;; (mail-strip-quoted-names
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
749 ;;; (save-restriction
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
750 ;;; (narrow-to-region (point-min) delimline)
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
751 ;;; (mail-fetch-field "From")))
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
752 ;;; (user-login-name))))
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
753 ;;; (progn
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
754 ;;; (forward-line 1)
435032be7b12 (sendmail-send-it): Don't insert Sender.
Richard M. Stallman <rms@gnu.org>
parents: 4418
diff changeset
755 ;;; (insert "Sender: " (user-login-name) "\n")))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756 ;; Don't send out a blank subject line
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 (goto-char (point-min))
11709
03f977d9a240 (sendmail-send-it): Check continuation lines
Richard M. Stallman <rms@gnu.org>
parents: 11551
diff changeset
758 (if (re-search-forward "^Subject:\\([ \t]*\n\\)+\\b" delimline t)
13919
30b732ff2de2 (sendmail-send-it): Make deletion of empty subject line work reliably.
Richard M. Stallman <rms@gnu.org>
parents: 13824
diff changeset
759 (replace-match "")
30b732ff2de2 (sendmail-send-it): Make deletion of empty subject line work reliably.
Richard M. Stallman <rms@gnu.org>
parents: 13824
diff changeset
760 ;; This one matches a Subject just before the header delimiter.
30b732ff2de2 (sendmail-send-it): Make deletion of empty subject line work reliably.
Richard M. Stallman <rms@gnu.org>
parents: 13824
diff changeset
761 (if (and (re-search-forward "^Subject:\\([ \t]*\n\\)+" delimline t)
30b732ff2de2 (sendmail-send-it): Make deletion of empty subject line work reliably.
Richard M. Stallman <rms@gnu.org>
parents: 13824
diff changeset
762 (= (match-end 0) delimline))
30b732ff2de2 (sendmail-send-it): Make deletion of empty subject line work reliably.
Richard M. Stallman <rms@gnu.org>
parents: 13824
diff changeset
763 (replace-match "")))
10097
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
764 ;; Put the "From:" field in unless for some odd reason
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
765 ;; they put one in themselves.
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
766 (goto-char (point-min))
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
767 (if (not (re-search-forward "^From:" delimline t))
12980
4f9052477a81 (sendmail-send-it): Use user-mail-address.
Richard M. Stallman <rms@gnu.org>
parents: 12607
diff changeset
768 (let* ((login user-mail-address)
17488
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
769 (fullname (user-full-name))
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
770 (quote-fullname nil))
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
771 (if (string-match "[\200-\377]" fullname)
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
772 (setq fullname (mail-quote-printable fullname t)
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
773 quote-fullname t))
10097
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
774 (cond ((eq mail-from-style 'angles)
12446
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
775 (insert "From: " fullname)
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
776 (let ((fullname-start (+ (point-min) 6))
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
777 (fullname-end (point-marker)))
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
778 (goto-char fullname-start)
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
779 ;; Look for a character that cannot appear unquoted
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
780 ;; according to RFC 822.
17488
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
781 (if (or (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]"
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
782 fullname-end 1)
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
783 quote-fullname)
12446
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
784 (progn
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
785 ;; Quote fullname, escaping specials.
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
786 (goto-char fullname-start)
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
787 (insert "\"")
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
788 (while (re-search-forward "[\"\\]"
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
789 fullname-end 1)
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
790 (replace-match "\\\\\\&" t))
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
791 (insert "\""))))
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
792 (insert " <" login ">\n"))
10097
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
793 ((eq mail-from-style 'parens)
12458
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
794 (insert "From: " login " (")
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
795 (let ((fullname-start (point)))
17488
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
796 (if quote-fullname
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
797 (insert "\""))
12458
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
798 (insert fullname)
17488
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
799 (if quote-fullname
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
800 (insert "\""))
12458
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
801 (let ((fullname-end (point-marker)))
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
802 (goto-char fullname-start)
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
803 ;; RFC 822 says \ and nonmatching parentheses
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
804 ;; must be escaped in comments.
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
805 ;; Escape every instance of ()\ ...
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
806 (while (re-search-forward "[()\\]" fullname-end 1)
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
807 (replace-match "\\\\\\&" t))
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
808 ;; ... then undo escaping of matching parentheses,
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
809 ;; including matching nested parentheses.
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
810 (goto-char fullname-start)
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
811 (while (re-search-forward
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
812 "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)"
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
813 fullname-end 1)
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
814 (replace-match "\\1(\\3)" t)
a83478662820 (sendmail-send-it): If mail-from-style is parens,
Richard M. Stallman <rms@gnu.org>
parents: 12446
diff changeset
815 (goto-char fullname-start))))
12446
92440abe8409 (sendmail-send-it): If user-full-name contains
Richard M. Stallman <rms@gnu.org>
parents: 11963
diff changeset
816 (insert ")\n"))
10097
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
817 ((null mail-from-style)
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
818 (insert "From: " login "\n")))))
5667
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
819 ;; Insert an extra newline if we need it to work around
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
820 ;; Sun's bug that swallows newlines.
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
821 (goto-char (1+ delimline))
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
822 (if (eval mail-mailer-swallows-blank-line)
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
823 (newline))
13090
b9cc587a5d8b (sendmail-send-it): Handle FCC after all text changes.
Richard M. Stallman <rms@gnu.org>
parents: 13062
diff changeset
824 ;; Find and handle any FCC fields.
b9cc587a5d8b (sendmail-send-it): Handle FCC after all text changes.
Richard M. Stallman <rms@gnu.org>
parents: 13062
diff changeset
825 (goto-char (point-min))
b9cc587a5d8b (sendmail-send-it): Handle FCC after all text changes.
Richard M. Stallman <rms@gnu.org>
parents: 13062
diff changeset
826 (if (re-search-forward "^FCC:" delimline t)
16700
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
827 (progn
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
828 (setq fcc-was-found t)
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
829 (mail-do-fcc delimline)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
830 (if mail-interactive
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
831 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
832 (set-buffer errbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
833 (erase-buffer))))
16700
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
834 (goto-char (point-min))
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
835 (if (let ((case-fold-search t))
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
836 (re-search-forward "^To:\\|^cc:\\|^bcc:\\|^resent-to:\
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
837 \\|^resent-cc:\\|^resent-bcc:"
16707
cad3a4d09d58 (sendmail-send-it): Explicitly pass interactive delivery options to
Erik Naggum <erik@naggum.no>
parents: 16700
diff changeset
838 delimline t))
17013
d6ce795e84da (sendmail-coding-system): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 16761
diff changeset
839 (let ((default-directory "/")
d6ce795e84da (sendmail-coding-system): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 16761
diff changeset
840 (coding-system-for-write sendmail-coding-system))
16700
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
841 (apply 'call-process-region
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
842 (append (list (point-min) (point-max)
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
843 (if (boundp 'sendmail-program)
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
844 sendmail-program
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
845 "/usr/lib/sendmail")
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
846 nil errbuf nil "-oi")
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
847 ;; Always specify who from,
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
848 ;; since some systems have broken sendmails.
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
849 (list "-f" (user-login-name))
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
850 ;;; ;; Don't say "from root" if running under su.
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
851 ;;; (and (equal (user-real-login-name) "root")
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
852 ;;; (list "-f" (user-login-name)))
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
853 (and mail-alias-file
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
854 (list (concat "-oA" mail-alias-file)))
16707
cad3a4d09d58 (sendmail-send-it): Explicitly pass interactive delivery options to
Erik Naggum <erik@naggum.no>
parents: 16700
diff changeset
855 (if mail-interactive
cad3a4d09d58 (sendmail-send-it): Explicitly pass interactive delivery options to
Erik Naggum <erik@naggum.no>
parents: 16700
diff changeset
856 ;; These mean "report errors to terminal"
cad3a4d09d58 (sendmail-send-it): Explicitly pass interactive delivery options to
Erik Naggum <erik@naggum.no>
parents: 16700
diff changeset
857 ;; and "deliver interactively"
cad3a4d09d58 (sendmail-send-it): Explicitly pass interactive delivery options to
Erik Naggum <erik@naggum.no>
parents: 16700
diff changeset
858 '("-oep" "-odi")
cad3a4d09d58 (sendmail-send-it): Explicitly pass interactive delivery options to
Erik Naggum <erik@naggum.no>
parents: 16700
diff changeset
859 ;; These mean "report errors by mail"
cad3a4d09d58 (sendmail-send-it): Explicitly pass interactive delivery options to
Erik Naggum <erik@naggum.no>
parents: 16700
diff changeset
860 ;; and "deliver in background".
cad3a4d09d58 (sendmail-send-it): Explicitly pass interactive delivery options to
Erik Naggum <erik@naggum.no>
parents: 16700
diff changeset
861 '("-oem" "-odb"))
16700
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
862 ;; Get the addresses from the message
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
863 ;; unless this is a resend.
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
864 ;; We must not do that for a resend
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
865 ;; because we would find the original addresses.
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
866 ;; For a resend, include the specific addresses.
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
867 (or resend-to-addresses
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
868 '("-t")))))
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
869 (or fcc-was-found
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
870 (error "No recipients")))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
871 (if mail-interactive
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
873 (set-buffer errbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
874 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
875 (while (re-search-forward "\n\n* *" nil t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
876 (replace-match "; "))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
877 (if (not (zerop (buffer-size)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
878 (error "Sending...failed to %s"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
879 (buffer-substring (point-min) (point-max)))))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
880 (kill-buffer tembuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
881 (if (bufferp errbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882 (kill-buffer errbuf)))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 (defun mail-do-fcc (header-end)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885 (let (fcc-list
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 (rmailbuf (current-buffer))
2920
c47652dc3400 Some time-handling patches from Paul Eggert:
Jim Blandy <jimb@redhat.com>
parents: 2858
diff changeset
887 (time (current-time))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
888 (tembuf (generate-new-buffer " rmail output"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 (case-fold-search t))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892 (while (re-search-forward "^FCC:[ \t]*" header-end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
893 (setq fcc-list (cons (buffer-substring (point)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895 (end-of-line)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 (skip-chars-backward " \t")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 (point)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 fcc-list))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 (delete-region (match-beginning 0)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900 (progn (forward-line 1) (point))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901 (set-buffer tembuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 (erase-buffer)
3340
908134e8308a (mail-do-fcc): Put back the newline at the start
Richard M. Stallman <rms@gnu.org>
parents: 3232
diff changeset
903 ;; This initial newline is written out if the fcc file already exists.
908134e8308a (mail-do-fcc): Put back the newline at the start
Richard M. Stallman <rms@gnu.org>
parents: 3232
diff changeset
904 (insert "\nFrom " (user-login-name) " "
2920
c47652dc3400 Some time-handling patches from Paul Eggert:
Jim Blandy <jimb@redhat.com>
parents: 2858
diff changeset
905 (current-time-string time) "\n")
1075
f402fe560fcd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1025
diff changeset
906 ;; Insert the time zone before the year.
f402fe560fcd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1025
diff changeset
907 (forward-char -1)
f402fe560fcd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1025
diff changeset
908 (forward-word -1)
4021
5a8ed60f39f2 (mail-do-fcc): Use RFC 822 style date in Resent-Date: line.
Richard M. Stallman <rms@gnu.org>
parents: 3949
diff changeset
909 (require 'mail-utils)
5a8ed60f39f2 (mail-do-fcc): Use RFC 822 style date in Resent-Date: line.
Richard M. Stallman <rms@gnu.org>
parents: 3949
diff changeset
910 (insert (mail-rfc822-time-zone time) " ")
1075
f402fe560fcd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1025
diff changeset
911 (goto-char (point-max))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
912 (insert-buffer-substring rmailbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
913 ;; Make sure messages are separated.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
914 (goto-char (point-max))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
915 (insert ?\n)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
916 (goto-char 2)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
917 ;; ``Quote'' "^From " as ">From "
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
918 ;; (note that this isn't really quoting, as there is no requirement
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
919 ;; that "^[>]+From " be quoted in the same transparent way.)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
920 (let ((case-fold-search nil))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
921 (while (search-forward "\nFrom " nil t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922 (forward-char -5)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923 (insert ?>)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
924 (while fcc-list
11409
4c3096cfd900 (mail-do-fcc): Use just find-buffer-visiting
Richard M. Stallman <rms@gnu.org>
parents: 11305
diff changeset
925 (let* ((buffer (find-buffer-visiting (car fcc-list)))
10726
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
926 (curbuf (current-buffer))
17488
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
927 dont-write-the-file
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
928 buffer-matches-file
10726
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
929 (beg (point-min)) (end (point-max))
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
930 (beg2 (save-excursion (goto-char (point-min))
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
931 (forward-line 2) (point))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
932 (if buffer
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
933 ;; File is present in a buffer => append to that buffer.
9516
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
934 (save-excursion
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
935 (set-buffer buffer)
17488
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
936 (setq buffer-matches-file
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
937 (and (not (buffer-modified-p))
18589
86c067e48e33 (mail-do-fcc): Pass an arg to verify-visited-file-modtime.
Richard M. Stallman <rms@gnu.org>
parents: 18275
diff changeset
938 (verify-visited-file-modtime buffer)))
9516
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
939 ;; Keep the end of the accessible portion at the same place
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
940 ;; unless it is the end of the buffer.
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
941 (let ((max (if (/= (1+ (buffer-size)) (point-max))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
942 (point-max))))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
943 (unwind-protect
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
944 ;; Code below lifted from rmailout.el
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
945 ;; function rmail-output-to-rmail-file:
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
946 (let ((buffer-read-only nil)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
947 (msg (and (boundp 'rmail-current-message)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
948 rmail-current-message)))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
949 ;; If MSG is non-nil, buffer is in RMAIL mode.
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
950 (if msg
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
951 (progn
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
952 (rmail-maybe-set-message-counters)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
953 (widen)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
954 (narrow-to-region (point-max) (point-max))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
955 (insert "\C-l\n0, unseen,,\n*** EOOH ***\n"
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
956 "Date: " (mail-rfc822-date) "\n")
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
957 (insert-buffer-substring curbuf beg2 end)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
958 (insert "\n\C-_")
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
959 (goto-char (point-min))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
960 (widen)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
961 (search-backward "\n\^_")
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
962 (narrow-to-region (point) (point-max))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
963 (rmail-count-new-messages t)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
964 (rmail-show-message msg)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
965 (setq max nil))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
966 ;; Output file not in rmail mode
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
967 ;; => just insert at the end.
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
968 (narrow-to-region (point-min) (1+ (buffer-size)))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
969 (goto-char (point-max))
17488
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
970 (insert-buffer-substring curbuf beg end))
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
971 (or buffer-matches-file
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
972 (progn
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
973 (if (y-or-n-p (format "Save file %s? "
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
974 (car fcc-list)))
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
975 (save-buffer))
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
976 (setq dont-write-the-file t))))
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
977 (if max (narrow-to-region (point-min) max))))))
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
978 ;; Append to the file directly,
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
979 ;; unless we've already taken care of it.
20096
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
980 (unless dont-write-the-file
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
981 (if (and (file-exists-p (car fcc-list))
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
982 (mail-file-babyl-p (car fcc-list)))
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
983 ;; If the file is a Babyl file,
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
984 ;; convert the message to Babyl format.
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
985 (let ((coding-system-for-write
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
986 (or rmail-file-coding-system
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
987 'emacs-mule)))
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
988 (save-excursion
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
989 (set-buffer (get-buffer-create " mail-temp"))
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
990 (setq buffer-read-only nil)
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
991 (erase-buffer)
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
992 (insert "\C-l\n0, unseen,,\n*** EOOH ***\n"
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
993 "Date: " (mail-rfc822-date) "\n")
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
994 (insert-buffer-substring curbuf beg2 end)
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
995 (insert "\n\C-_")
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
996 (write-region (point-min) (point-max) (car fcc-list) t)
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
997 (erase-buffer)))
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
998 (write-region
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
999 (1+ (point-min)) (point-max) (car fcc-list) t)))
17488
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
1000 (and buffer (not dont-write-the-file)
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
1001 (with-current-buffer buffer
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
1002 (set-visited-file-modtime))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1003 (setq fcc-list (cdr fcc-list))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1004 (kill-buffer tembuf)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1005
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1006 (defun mail-sent-via ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1007 "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
1008 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1009 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1010 ;; put a marker at the end of the header
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
1011 (let ((end (make-marker (mail-header-end)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1012 (case-fold-search t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1013 to-line)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1014 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1015 ;; search for the To: lines and make Sent-via: lines from them
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1016 ;; search for the next To: line
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1017 (while (re-search-forward "^\\(to\\|cc\\):" end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1018 ;; Grab this line plus all its continuations, sans the `to:'.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1019 (let ((to-line
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1020 (buffer-substring (point)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1021 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1022 (if (re-search-forward "^[^ \t\n]" end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1023 (backward-char 1)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1024 (goto-char end))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1025 (point)))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1026 ;; Insert a copy, with altered header field name.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1027 (insert-before-markers "Sent-via:" to-line))))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1028
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1029 (defun mail-to ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1030 "Move point to end of To-field."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1031 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1032 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1033 (mail-position-on-field "To"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1034
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1035 (defun mail-subject ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1036 "Move point to end of Subject-field."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1037 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1038 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1039 (mail-position-on-field "Subject"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1040
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1041 (defun mail-cc ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1042 "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
1043 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1044 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1045 (or (mail-position-on-field "cc" t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1046 (progn (mail-position-on-field "to")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1047 (insert "\nCC: "))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1048
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1049 (defun mail-bcc ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1050 "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
1051 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1052 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1053 (or (mail-position-on-field "bcc" t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1054 (progn (mail-position-on-field "to")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1055 (insert "\nBCC: "))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1056
5210
4db0922992a3 (mail-fcc): Take argument and use interactive spec to prompt, rather than
Roland McGrath <roland@gnu.org>
parents: 5097
diff changeset
1057 (defun mail-fcc (folder)
573
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
1058 "Add a new FCC field, with file name completion."
5210
4db0922992a3 (mail-fcc): Take argument and use interactive spec to prompt, rather than
Roland McGrath <roland@gnu.org>
parents: 5097
diff changeset
1059 (interactive "FFolder carbon copy: ")
573
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
1060 (expand-abbrev)
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
1061 (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
1062 (mail-position-on-field "to"))
5210
4db0922992a3 (mail-fcc): Take argument and use interactive spec to prompt, rather than
Roland McGrath <roland@gnu.org>
parents: 5097
diff changeset
1063 (insert "\nFCC: " folder))
573
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
1064
10726
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
1065 (defun mail-reply-to ()
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
1066 "Move point to end of Reply-To-field."
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
1067 (interactive)
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
1068 (expand-abbrev)
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
1069 (mail-position-on-field "Reply-To"))
596c3e2c168d (mail-reply-to): New command, on C-c C-f C-r and in menu.
Richard M. Stallman <rms@gnu.org>
parents: 10624
diff changeset
1070
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1071 (defun mail-position-on-field (field &optional soft)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1072 (let (end
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1073 (case-fold-search t))
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
1074 (setq end (mail-header-end))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1075 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1076 (if (re-search-forward (concat "^" (regexp-quote field) ":") end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1077 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1078 (re-search-forward "^[^ \t]" nil 'move)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1079 (beginning-of-line)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1080 (skip-chars-backward "\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1081 t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1082 (or soft
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1083 (progn (goto-char end)
604
63a8e7b3c547 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 584
diff changeset
1084 (insert field ": \n")
63a8e7b3c547 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 584
diff changeset
1085 (skip-chars-backward "\n")))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1086 nil)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1087
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1088 (defun mail-text ()
11857
42dba4f290a0 (mail-mode): Clarify doc string.
Karl Heuer <kwzh@gnu.org>
parents: 11770
diff changeset
1089 "Move point to beginning of message text."
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1090 (interactive)
11866
77f73856e803 (mail-text): Expand abbrev before moving point.
Karl Heuer <kwzh@gnu.org>
parents: 11857
diff changeset
1091 (expand-abbrev)
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
1092 (goto-char (mail-text-start)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1093
679
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
1094 (defun mail-signature (atpoint)
13116
61c560010274 (mail-signature-file): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13090
diff changeset
1095 "Sign letter with contents of the file `mail-signature-file'.
5839
14c24d764568 (mail-signature): Doc mod.
Karl Heuer <kwzh@gnu.org>
parents: 5731
diff changeset
1096 Prefix arg means put contents at point."
679
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
1097 (interactive "P")
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1098 (save-excursion
679
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
1099 (or atpoint
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
1100 (goto-char (point-max)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1101 (skip-chars-backward " \t\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1102 (end-of-line)
679
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
1103 (or atpoint
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
1104 (delete-region (point) (point-max)))
5847
8a2e912b29a5 (mail-signature): Insert a `-- ' line.
Richard M. Stallman <rms@gnu.org>
parents: 5839
diff changeset
1105 (insert "\n\n-- \n")
13116
61c560010274 (mail-signature-file): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13090
diff changeset
1106 (insert-file-contents (expand-file-name mail-signature-file))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1107
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108 (defun mail-fill-yanked-message (&optional justifyp)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109 "Fill the paragraphs of a message yanked into this one.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1110 Numeric argument means justify as well."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1111 (interactive "P")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1112 (save-excursion
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
1113 (goto-char (mail-text-start))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1114 (fill-individual-paragraphs (point)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1115 (point-max)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1116 justifyp
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1117 t)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1118
18909
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1119 (defun mail-indent-citation ()
3424
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1120 "Modify text just inserted from a message to be cited.
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1121 The inserted text should be the region.
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1122 When this function returns, the region is again around the modified text.
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1123
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1124 Normally, indent each nonblank line `mail-indentation-spaces' spaces.
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1125 However, if `mail-yank-prefix' is non-nil, insert that prefix on each line."
18909
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1126 (mail-yank-clear-headers (region-beginning) (region-end))
16761
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1127 (if (null mail-yank-prefix)
18909
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1128 (indent-rigidly (region-beginning) (region-end)
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1129 mail-indentation-spaces)
16761
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1130 (save-excursion
18909
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1131 (let ((end (set-marker (make-marker) (region-end))))
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1132 (goto-char (region-beginning))
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1133 (while (< (point) end)
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1134 (insert mail-yank-prefix)
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1135 (forward-line 1))))))
3424
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1136
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1137 (defun mail-yank-original (arg)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1138 "Insert the message being replied to, if any (in rmail).
14373
0d9970f055dd (mail-yank-original): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14369
diff changeset
1139 Puts point after the text and mark before.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1140 Normally, indents each nonblank line ARG spaces (default 3).
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1141 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
1142
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1143 Just \\[universal-argument] as argument means don't indent, insert no prefix,
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1144 and don't delete any header fields."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1145 (interactive "P")
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1146 (if mail-reply-action
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1147 (let ((start (point))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1148 (original mail-reply-action))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1149 (and (consp original) (eq (car original) 'insert-buffer)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1150 (setq original (nth 1 original)))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1151 (if (consp original)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1152 (apply (car original) (cdr original))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1153 ;; If the original message is in another window in the same frame,
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1154 ;; delete that window to save screen space.
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1155 ;; t means don't alter other frames.
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1156 (delete-windows-on original t)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1157 (insert-buffer original))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1158 (if (consp arg)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1159 nil
3424
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1160 (goto-char start)
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1161 (let ((mail-indentation-spaces (if arg (prefix-numeric-value arg)
19440
797637e1e880 (mail-yank-original): Bind mark-even-if-inactive
Richard M. Stallman <rms@gnu.org>
parents: 19350
diff changeset
1162 mail-indentation-spaces))
797637e1e880 (mail-yank-original): Bind mark-even-if-inactive
Richard M. Stallman <rms@gnu.org>
parents: 19350
diff changeset
1163 (mark-even-if-inactive t))
3816
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
1164 (if mail-citation-hook
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
1165 (run-hooks 'mail-citation-hook)
4418
fdbbde0d4f24 (mail-yank-hooks): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents: 4342
diff changeset
1166 (if mail-yank-hooks
fdbbde0d4f24 (mail-yank-hooks): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents: 4342
diff changeset
1167 (run-hooks 'mail-yank-hooks)
18909
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1168 (mail-indent-citation)))))
2858
ef942eda3523 (mail-yank-original): In Transient Mark mode,
Richard M. Stallman <rms@gnu.org>
parents: 2852
diff changeset
1169 ;; This is like exchange-point-and-mark, but doesn't activate the mark.
ef942eda3523 (mail-yank-original): In Transient Mark mode,
Richard M. Stallman <rms@gnu.org>
parents: 2852
diff changeset
1170 ;; It is cleaner to avoid activation, even though the command
ef942eda3523 (mail-yank-original): In Transient Mark mode,
Richard M. Stallman <rms@gnu.org>
parents: 2852
diff changeset
1171 ;; loop would deactivate the mark because we inserted text.
ef942eda3523 (mail-yank-original): In Transient Mark mode,
Richard M. Stallman <rms@gnu.org>
parents: 2852
diff changeset
1172 (goto-char (prog1 (mark t)
ef942eda3523 (mail-yank-original): In Transient Mark mode,
Richard M. Stallman <rms@gnu.org>
parents: 2852
diff changeset
1173 (set-marker (mark-marker) (point) (current-buffer))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1174 (if (not (eolp)) (insert ?\n)))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1175
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1176 (defun mail-yank-clear-headers (start end)
16761
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1177 (if (< end start)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1178 (let (temp)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1179 (setq temp start start end end temp)))
13478
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1180 (if mail-yank-ignored-headers
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1181 (save-excursion
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1182 (goto-char start)
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1183 (if (search-forward "\n\n" end t)
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1184 (save-restriction
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1185 (narrow-to-region start (point))
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1186 (goto-char start)
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1187 (while (let ((case-fold-search t))
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1188 (re-search-forward mail-yank-ignored-headers nil t))
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1189 (beginning-of-line)
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1190 (delete-region (point)
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1191 (progn (re-search-forward "\n[^ \t]")
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1192 (forward-char -1)
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1193 (point)))))))))
16761
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1194
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1195 (defun mail-yank-region (arg)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1196 "Insert the selected region from the message being replied to.
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1197 Puts point after the text and mark before.
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1198 Normally, indents each nonblank line ARG spaces (default 3).
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1199 However, if `mail-yank-prefix' is non-nil, insert that prefix on each line.
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1200
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1201 Just \\[universal-argument] as argument means don't indent, insert no prefix,
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1202 and don't delete any header fields."
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1203 (interactive "P")
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1204 (and (consp mail-reply-action)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1205 (eq (car mail-reply-action) 'insert-buffer)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1206 (let ((buffer (nth 1 mail-reply-action))
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1207 (start (point)))
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1208 ;; Insert the citation text.
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1209 (insert (with-current-buffer buffer
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1210 (buffer-substring (point) (mark))))
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1211 (push-mark start)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1212 ;; Indent or otherwise annotate the citation text.
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1213 (if (consp arg)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1214 nil
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1215 (let ((mail-indentation-spaces (if arg (prefix-numeric-value arg)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1216 mail-indentation-spaces)))
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1217 (if mail-citation-hook
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1218 (run-hooks 'mail-citation-hook)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1219 (if mail-yank-hooks
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1220 (run-hooks 'mail-yank-hooks)
18909
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1221 (mail-indent-citation))))))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1222
17512
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1223 (defun mail-attach-file (&optional file)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1224 "Insert a file at the end of the buffer, with separator lines around it."
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1225 (interactive "fAttach file: ")
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1226 (save-excursion
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1227 (goto-char (point-max))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1228 (or (bolp) (newline))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1229 (newline)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1230 (let ((start (point))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1231 middle)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1232 (insert (format "===File %s===" file))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1233 (insert-char ?= (max 0 (- 60 (current-column))))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1234 (newline)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1235 (setq middle (point))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1236 (insert "============================================================\n")
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1237 (push-mark)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1238 (goto-char middle)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1239 (insert-file-contents file)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1240 (or (bolp) (newline))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1241 (goto-char start))))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1242
17596
6deb79521f42 Don't bind C-x m, C-x 4 m, C-x 5 m.
Richard M. Stallman <rms@gnu.org>
parents: 17512
diff changeset
1243 ;; Put these commands last, to reduce chance of lossage from quitting
6deb79521f42 Don't bind C-x m, C-x 4 m, C-x 5 m.
Richard M. Stallman <rms@gnu.org>
parents: 17512
diff changeset
1244 ;; in middle of loading the file.
6deb79521f42 Don't bind C-x m, C-x 4 m, C-x 5 m.
Richard M. Stallman <rms@gnu.org>
parents: 17512
diff changeset
1245
6deb79521f42 Don't bind C-x m, C-x 4 m, C-x 5 m.
Richard M. Stallman <rms@gnu.org>
parents: 17512
diff changeset
1246 ;;;###autoload (add-hook 'same-window-buffer-names "*mail*")
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1247
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1248 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1249 (defun mail (&optional noerase to subject in-reply-to cc replybuffer actions)
898
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1250 "Edit a message to be sent. Prefix arg means resume editing (don't erase).
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1251 When this function returns, the buffer `*mail*' is selected.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1252 The value is t if the message was newly initialized; otherwise, nil.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1253
13116
61c560010274 (mail-signature-file): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13090
diff changeset
1254 Optionally, the signature file `mail-signature-file' can be inserted at the
61c560010274 (mail-signature-file): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13090
diff changeset
1255 end; see the variable `mail-signature'.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1256
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1257 \\<mail-mode-map>
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1258 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
1259
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1260 Various special commands starting with C-c are available in sendmail mode
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1261 to move to message header fields:
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1262 \\{mail-mode-map}
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1263
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1264 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
1265 when the message is initialized.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1266
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1267 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
1268 a Reply-to: field with that address is inserted.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1269
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1270 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
1271 is inserted.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1272
12564
3cd5105aeb2b (mail-setup-hook): New defvar.
Karl Heuer <kwzh@gnu.org>
parents: 12473
diff changeset
1273 The normal hook `mail-setup-hook' is run after the message is
3cd5105aeb2b (mail-setup-hook): New defvar.
Karl Heuer <kwzh@gnu.org>
parents: 12473
diff changeset
1274 initialized. It can add more default fields to the message.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1275
9160
21ac199719fc (mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9004
diff changeset
1276 When calling from a program, the first argument if non-nil says
21ac199719fc (mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9004
diff changeset
1277 not to erase the existing contents of the `*mail*' buffer.
21ac199719fc (mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9004
diff changeset
1278
21ac199719fc (mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9004
diff changeset
1279 The second through fifth arguments,
21ac199719fc (mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9004
diff changeset
1280 TO, SUBJECT, IN-REPLY-TO and CC, specify if non-nil
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1281 the initial contents of those header fields.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1282 These arguments should not have final newlines.
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1283 The sixth argument REPLYBUFFER is a buffer which contains an
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1284 original message being replied to, or else an action
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1285 of the form (FUNCTION . ARGS) which says how to insert the original.
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1286 Or it can be nil, if not replying to anything.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1287 The seventh argument ACTIONS is a list of actions to take
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1288 if/when the message is sent. Each action looks like (FUNCTION . ARGS);
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1289 when the message is sent, we apply FUNCTION to ARGS.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1290 This is how Rmail arranges to mark messages `answered'."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1291 (interactive "P")
898
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1292 ;;; This is commented out because I found it was confusing in practice.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1293 ;;; It is easy enough to rename *mail* by hand with rename-buffer
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1294 ;;; if you want to have multiple mail buffers.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1295 ;;; And then you can control which messages to save. --rms.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1296 ;;; (let ((index 1)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1297 ;;; buffer)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1298 ;;; ;; If requested, look for a mail buffer that is modified and go to it.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1299 ;;; (if noerase
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1300 ;;; (progn
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1301 ;;; (while (and (setq buffer
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1302 ;;; (get-buffer (if (= 1 index) "*mail*"
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1303 ;;; (format "*mail*<%d>" index))))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1304 ;;; (not (buffer-modified-p buffer)))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1305 ;;; (setq index (1+ index)))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1306 ;;; (if buffer (switch-to-buffer buffer)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1307 ;;; ;; If none exists, start a new message.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1308 ;;; ;; This will never re-use an existing unmodified mail buffer
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1309 ;;; ;; (since index is not 1 anymore). Perhaps it should.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1310 ;;; (setq noerase nil))))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1311 ;;; ;; Unless we found a modified message and are happy, start a new message.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1312 ;;; (if (not noerase)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1313 ;;; (progn
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1314 ;;; ;; Look for existing unmodified mail buffer.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1315 ;;; (while (and (setq buffer
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1316 ;;; (get-buffer (if (= 1 index) "*mail*"
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1317 ;;; (format "*mail*<%d>" index))))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1318 ;;; (buffer-modified-p buffer))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1319 ;;; (setq index (1+ index)))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1320 ;;; ;; If none, make a new one.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1321 ;;; (or buffer
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1322 ;;; (setq buffer (generate-new-buffer "*mail*")))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1323 ;;; ;; Go there and initialize it.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1324 ;;; (switch-to-buffer buffer)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1325 ;;; (erase-buffer)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1326 ;;; (setq default-directory (expand-file-name "~/"))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1327 ;;; (auto-save-mode auto-save-default)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1328 ;;; (mail-mode)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1329 ;;; (mail-setup to subject in-reply-to cc replybuffer actions)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1330 ;;; (if (and buffer-auto-save-file-name
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1331 ;;; (file-exists-p buffer-auto-save-file-name))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1332 ;;; (message "Auto save file for draft message exists; consider M-x mail-recover"))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1333 ;;; t))
11120
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1334 (pop-to-buffer "*mail*")
14925
a19affa9f653 (mail): Put the auto-save file in the home dir.
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
1335 ;; Put the auto-save file in the home dir
a19affa9f653 (mail): Put the auto-save file in the home dir.
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
1336 ;; to avoid any danger that it can't be written.
14926
963288ebadeb (mail): Once again set default dir to home dir.
Richard M. Stallman <rms@gnu.org>
parents: 14925
diff changeset
1337 (if (file-exists-p (expand-file-name "~/"))
963288ebadeb (mail): Once again set default dir to home dir.
Richard M. Stallman <rms@gnu.org>
parents: 14925
diff changeset
1338 (setq default-directory (expand-file-name "~/")))
963288ebadeb (mail): Once again set default dir to home dir.
Richard M. Stallman <rms@gnu.org>
parents: 14925
diff changeset
1339 (auto-save-mode auto-save-default)
898
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1340 (mail-mode)
8144
Michael I. Bushnell <mib@gnu.org>
parents: 8132
diff changeset
1341 ;; Disconnect the buffer from its visited file
Michael I. Bushnell <mib@gnu.org>
parents: 8132
diff changeset
1342 ;; (in case the user has actually visited a file *mail*).
8145
d94fc60e4195 Comment out losing call to set-visited-file-name; this shouldn't hurt
Michael I. Bushnell <mib@gnu.org>
parents: 8144
diff changeset
1343 ; (set-visited-file-name nil)
898
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1344 (let (initialized)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1345 (and (not noerase)
18955
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1346 (if buffer-file-name
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1347 (if (buffer-modified-p)
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1348 (when (y-or-n-p "Buffer has unsaved changes; reinitialize it and discard them? ")
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1349 (if (y-or-n-p "Disconnect buffer from visited file? ")
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1350 (set-visited-file-name nil))
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1351 t)
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1352 (when (y-or-n-p "Reinitialize buffer, and disconnect it from the visited file? ")
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1353 (set-visited-file-name nil)
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1354 t))
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1355 ;; A non-file-visiting buffer.
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1356 (if (buffer-modified-p)
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1357 (y-or-n-p "Unsent message being composed; erase it? ")
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1358 t))
13824
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
1359 (let ((inhibit-read-only t))
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
1360 (erase-buffer)
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
1361 (mail-setup to subject in-reply-to cc replybuffer actions)
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
1362 (setq initialized t)))
898
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1363 (if (and buffer-auto-save-file-name
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1364 (file-exists-p buffer-auto-save-file-name))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1365 (message "Auto save file for draft message exists; consider M-x mail-recover"))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1366 initialized))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1367
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1368 (defun mail-recover ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1369 "Reread contents of current buffer from its last auto-save file."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1370 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1371 (let ((file-name (make-auto-save-file-name)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1372 (cond ((save-window-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1373 (if (not (eq system-type 'vax-vms))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1374 (with-output-to-temp-buffer "*Directory*"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1375 (buffer-disable-undo standard-output)
13398
2b18ef667bde (mail): Don't change directory for *mail* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 13304
diff changeset
1376 (let ((default-directory "/"))
2b18ef667bde (mail): Don't change directory for *mail* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 13304
diff changeset
1377 (call-process
2b18ef667bde (mail): Don't change directory for *mail* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 13304
diff changeset
1378 "ls" nil standard-output nil "-l" file-name))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1379 (yes-or-no-p (format "Recover auto save file %s? " file-name)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1380 (let ((buffer-read-only nil))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1381 (erase-buffer)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1382 (insert-file-contents file-name nil)))
8144
Michael I. Bushnell <mib@gnu.org>
parents: 8132
diff changeset
1383 (t (error "mail-recover cancelled")))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1384
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1385 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1386 (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
1387 "Like `mail' command, but display mail buffer in another window."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1388 (interactive "P")
11120
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1389 (let ((pop-up-windows t)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1390 (special-display-buffer-names nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1391 (special-display-regexps nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1392 (same-window-buffer-names nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1393 (same-window-regexps nil))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1394 (pop-to-buffer "*mail*"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1395 (mail noerase to subject in-reply-to cc replybuffer sendactions))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1396
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1397 ;;;###autoload
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 746
diff changeset
1398 (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
1399 "Like `mail' command, but display mail buffer in another frame."
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1400 (interactive "P")
11120
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1401 (let ((pop-up-frames t)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1402 (special-display-buffer-names nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1403 (special-display-regexps nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1404 (same-window-buffer-names nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1405 (same-window-regexps nil))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1406 (pop-to-buffer "*mail*"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1407 (mail noerase to subject in-reply-to cc replybuffer sendactions))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1408
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1409 ;;; Do not add anything but external entries on this page.
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 573
diff changeset
1410
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 573
diff changeset
1411 (provide 'sendmail)
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 573
diff changeset
1412
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 604
diff changeset
1413 ;;; sendmail.el ends here