annotate lisp/mail/sendmail.el @ 99983:3634b7edab06

Set inhibit-load-charset-map to t while preloading files.
author Kenichi Handa <handa@m17n.org>
date Thu, 27 Nov 2008 08:02:28 +0000
parents 0226898fa3f5
children a9dc0e7c3f2b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
32295
a25a7ebfcb34 Byte-compile-dynamic since it gets loaded by
Dave Love <fx@gnu.org>
parents: 31568
diff changeset
1 ;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*-
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 604
diff changeset
2
64754
fafd692d1e40 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64085
diff changeset
3 ;; Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995, 1996, 1998, 2000,
95625
ca7011bae7f9 (mail-interactive): Add :version.
Glenn Morris <rgm@gnu.org>
parents: 95595
diff changeset
4 ;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
ca7011bae7f9 (mail-interactive): Add :version.
Glenn Morris <rgm@gnu.org>
parents: 95595
diff changeset
5 ;; Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 825
diff changeset
6
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 779
diff changeset
7 ;; Maintainer: FSF
814
38b2499cb3e9 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
8 ;; Keywords: mail
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 779
diff changeset
9
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
94674
ef65fa4dca3b Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
94674
ef65fa4dca3b Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
14 ;; the Free Software Foundation, either version 3 of the License, or
ef65fa4dca3b Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
15 ;; (at your option) any later version.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
94674
ef65fa4dca3b Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
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:
27245
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
31 (eval-when-compile
27246
08855e02ad79 (toplevel): Provide `sendmail' when compiling
Gerd Moellmann <gerd@gnu.org>
parents: 27245
diff changeset
32 ;; Necessary to avoid recursive `require's.
08855e02ad79 (toplevel): Provide `sendmail' when compiling
Gerd Moellmann <gerd@gnu.org>
parents: 27245
diff changeset
33 (provide 'sendmail)
27245
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
34 (require 'rmail)
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
35 (require 'mailalias))
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
36
35615
6330c3e00b34 Doc fixes.
Dave Love <fx@gnu.org>
parents: 35383
diff changeset
37 (autoload 'rfc2047-encode-string "rfc2047")
6330c3e00b34 Doc fixes.
Dave Love <fx@gnu.org>
parents: 35383
diff changeset
38
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
39 (defgroup sendmail nil
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
40 "Mail sending commands for Emacs."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
41 :prefix "mail-"
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
42 :group 'mail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43
63553
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
44 (defcustom mail-setup-with-from t
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
45 "Non-nil means insert `From:' field when setting up the message."
63714
6679826cccf2 (mail-setup-with-from): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents: 63553
diff changeset
46 :type 'boolean
63553
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
47 :group 'sendmail
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
48 :version "22.1")
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
49
72635
e4183d5068ec * mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
Chong Yidong <cyd@stupidchicken.com>
parents: 71349
diff changeset
50 (defcustom sendmail-program
e4183d5068ec * mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
Chong Yidong <cyd@stupidchicken.com>
parents: 71349
diff changeset
51 (cond
e4183d5068ec * mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
Chong Yidong <cyd@stupidchicken.com>
parents: 71349
diff changeset
52 ((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail")
e4183d5068ec * mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
Chong Yidong <cyd@stupidchicken.com>
parents: 71349
diff changeset
53 ((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail")
e4183d5068ec * mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
Chong Yidong <cyd@stupidchicken.com>
parents: 71349
diff changeset
54 ((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail")
e4183d5068ec * mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
Chong Yidong <cyd@stupidchicken.com>
parents: 71349
diff changeset
55 (t "fakemail")) ;In ../etc, to interface to /bin/mail.
e4183d5068ec * mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
Chong Yidong <cyd@stupidchicken.com>
parents: 71349
diff changeset
56 "Program used to send messages."
e4183d5068ec * mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
Chong Yidong <cyd@stupidchicken.com>
parents: 71349
diff changeset
57 :group 'mail
e4183d5068ec * mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
Chong Yidong <cyd@stupidchicken.com>
parents: 71349
diff changeset
58 :type 'file)
e4183d5068ec * mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
Chong Yidong <cyd@stupidchicken.com>
parents: 71349
diff changeset
59
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 ;;;###autoload
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
61 (defcustom mail-from-style 'angles
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
62 "Specifies how \"From:\" fields look.
10097
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
63
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
64 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
65 king@grassland.com
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
66 If `parens', they look like:
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
67 king@grassland.com (Elvis Parsley)
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
68 If `angles', they look like:
22275
54bd3424441d (mail-from-style): New alternative, `default'.
Richard M. Stallman <rms@gnu.org>
parents: 22273
diff changeset
69 Elvis Parsley <king@grassland.com>
25238
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
70 If `system-default', allows the mailer to insert its default From field
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
71 derived from the envelope-from address.
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
72
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
73 In old versions of Emacs, the `system-default' setting also caused
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
74 Emacs to pass the proper email address from `user-mail-address'
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
75 to the mailer to specify the envelope-from address. But that is now
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
76 controlled by a separate variable, `mail-specify-envelope-from'."
22277
cc85ea3f54cc (mail-from-style): Rename new alternative to `system-default'.
Richard M. Stallman <rms@gnu.org>
parents: 22276
diff changeset
77 :type '(choice (const nil) (const parens) (const angles)
cc85ea3f54cc (mail-from-style): Rename new alternative to `system-default'.
Richard M. Stallman <rms@gnu.org>
parents: 22276
diff changeset
78 (const system-default))
22276
17b123f15a22 (mail-from-style): Fix prev change.
Richard M. Stallman <rms@gnu.org>
parents: 22275
diff changeset
79 :version "20.3"
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
80 :group 'sendmail)
10097
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
81
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
82 ;;;###autoload
29631
d91cfeea29c6 (mail-specify-envelope-from): Initialize to
Gerd Moellmann <gerd@gnu.org>
parents: 28750
diff changeset
83 (defcustom mail-specify-envelope-from nil
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
84 "If non-nil, specify the envelope-from address when sending mail.
38308
2ec4983f57eb (mail-specify-envelope-from): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 38285
diff changeset
85 The value used to specify it is whatever is found in
52320
af0e45b62c3e (mail-specify-envelope-from): Doc change.
Glenn Morris <rgm@gnu.org>
parents: 51718
diff changeset
86 the variable `mail-envelope-from', with `user-mail-address' as fallback.
25238
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
87
51718
5a6a8c32b90b (mail-specify-envelope-from, mail-envelope-from): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 51082
diff changeset
88 On most systems, specifying the envelope-from address is a
52320
af0e45b62c3e (mail-specify-envelope-from): Doc change.
Glenn Morris <rgm@gnu.org>
parents: 51718
diff changeset
89 privileged operation. This variable affects sendmail and
af0e45b62c3e (mail-specify-envelope-from): Doc change.
Glenn Morris <rgm@gnu.org>
parents: 51718
diff changeset
90 smtpmail -- if you use feedmail to send mail, see instead the
af0e45b62c3e (mail-specify-envelope-from): Doc change.
Glenn Morris <rgm@gnu.org>
parents: 51718
diff changeset
91 variable `feedmail-deduce-envelope-from'."
25238
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
92 :version "21.1"
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
93 :type 'boolean
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
94 :group 'sendmail)
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
95
38308
2ec4983f57eb (mail-specify-envelope-from): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 38285
diff changeset
96 (defcustom mail-envelope-from nil
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
97 "If non-nil, designate the envelope-from address when sending mail.
51718
5a6a8c32b90b (mail-specify-envelope-from, mail-envelope-from): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 51082
diff changeset
98 This only has an effect if `mail-specify-envelope-from' is non-nil.
5a6a8c32b90b (mail-specify-envelope-from, mail-envelope-from): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 51082
diff changeset
99 The value should be either a string, or the symbol `header' (in
5a6a8c32b90b (mail-specify-envelope-from, mail-envelope-from): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 51082
diff changeset
100 which case the contents of the \"From\" header of the message
5a6a8c32b90b (mail-specify-envelope-from, mail-envelope-from): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 51082
diff changeset
101 being sent is used), or nil (in which case the value of
5a6a8c32b90b (mail-specify-envelope-from, mail-envelope-from): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 51082
diff changeset
102 `user-mail-address' is used)."
38308
2ec4983f57eb (mail-specify-envelope-from): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 38285
diff changeset
103 :version "21.1"
42383
4d7337b920e3 (mail-envelope-from): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents: 42370
diff changeset
104 :type '(choice (string :tag "From-name")
47837
b9705a05fa60 * mail/sendmail.el (mail-envelope-from): New option `header' to
Simon Josefsson <jas@extundo.com>
parents: 47579
diff changeset
105 (const :tag "Use From: header from message" header)
42383
4d7337b920e3 (mail-envelope-from): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents: 42370
diff changeset
106 (const :tag "Use `user-mail-address'" nil))
38308
2ec4983f57eb (mail-specify-envelope-from): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 38285
diff changeset
107 :group 'sendmail)
2ec4983f57eb (mail-specify-envelope-from): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 38285
diff changeset
108
25238
401a07be3a35 (sendmail-send-it): Let mail-specify-envelope-from
Karl Heuer <kwzh@gnu.org>
parents: 25142
diff changeset
109 ;;;###autoload
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
110 (defcustom mail-self-blind nil
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
111 "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
112 This is done when the message is initialized,
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
113 so you can remove or alter the BCC field to override the default."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
114 :type 'boolean
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
115 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 ;;;###autoload
95595
3adf48743a99 (mail-interactive): Change default.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94674
diff changeset
118 (defcustom mail-interactive t
3adf48743a99 (mail-interactive): Change default.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94674
diff changeset
119 ;; We used to use a default of nil rather than t, but nowadays it is very
3adf48743a99 (mail-interactive): Change default.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94674
diff changeset
120 ;; common for sendmail to be misconfigured, so one cannot rely on the
3adf48743a99 (mail-interactive): Change default.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94674
diff changeset
121 ;; bounce message to be delivered anywhere, least of all to the
3adf48743a99 (mail-interactive): Change default.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94674
diff changeset
122 ;; user's mailbox.
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
123 "Non-nil means when sending a message wait for and display errors.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
124 nil means let mailer mail back a message to report errors."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
125 :type 'boolean
95625
ca7011bae7f9 (mail-interactive): Add :version.
Glenn Morris <rgm@gnu.org>
parents: 95595
diff changeset
126 :version "23.1" ; changed from nil to t
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
127 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
129 (defcustom mail-yank-ignored-headers
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
130 (concat "^"
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
131 (regexp-opt '("via" "mail-from" "origin" "status" "remailed"
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
132 "received" "message-id" "summary-line" "to" "subject"
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
133 "in-reply-to" "return-path" "mail-reply-to"
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
134 "mail-followup-to") "\\(?:")
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
135 ":")
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
136 "Delete these headers from old message when it's inserted in a reply."
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
137 :type 'regexp
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
138 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139
67879
e05d92c19248 (send-mail-function): Fix typo in comment.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67877
diff changeset
140 ;; Prevent problems with `window-system' not having the correct value
67877
2ea40935bde1 (send-mail-function): Autoload the standard-value.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67435
diff changeset
141 ;; when loaddefs.el is loaded. `custom-reevaluate-setting' needs the
2ea40935bde1 (send-mail-function): Autoload the standard-value.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67435
diff changeset
142 ;; standard value.
2ea40935bde1 (send-mail-function): Autoload the standard-value.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67435
diff changeset
143 ;;;###autoload
2ea40935bde1 (send-mail-function): Autoload the standard-value.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67435
diff changeset
144 (put 'send-mail-function 'standard-value
2ea40935bde1 (send-mail-function): Autoload the standard-value.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67435
diff changeset
145 '((if (and window-system (memq system-type '(darwin windows-nt)))
2ea40935bde1 (send-mail-function): Autoload the standard-value.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67435
diff changeset
146 'mailclient-send-it
2ea40935bde1 (send-mail-function): Autoload the standard-value.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67435
diff changeset
147 'sendmail-send-it)))
2ea40935bde1 (send-mail-function): Autoload the standard-value.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67435
diff changeset
148
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 ;; Useful to set in site-init.el
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 ;;;###autoload
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
151 (defcustom send-mail-function
66126
5aebfc4d20d5 (send-mail-function): Use mailclient-send-it
Richard M. Stallman <rms@gnu.org>
parents: 65482
diff changeset
152 (if (and window-system (memq system-type '(darwin windows-nt)))
5aebfc4d20d5 (send-mail-function): Use mailclient-send-it
Richard M. Stallman <rms@gnu.org>
parents: 65482
diff changeset
153 'mailclient-send-it
5aebfc4d20d5 (send-mail-function): Use mailclient-send-it
Richard M. Stallman <rms@gnu.org>
parents: 65482
diff changeset
154 'sendmail-send-it)
35615
6330c3e00b34 Doc fixes.
Dave Love <fx@gnu.org>
parents: 35383
diff changeset
155 "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
156 The headers should be delimited by a line which is
39479
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
157 not a valid RFC822 header or continuation line,
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
158 that matches the variable `mail-header-separator'.
35615
6330c3e00b34 Doc fixes.
Dave Love <fx@gnu.org>
parents: 35383
diff changeset
159 This is used by the default mail-sending commands. See also
6330c3e00b34 Doc fixes.
Dave Love <fx@gnu.org>
parents: 35383
diff changeset
160 `message-send-mail-function' for use with the Message package."
34681
34b048e564c0 Fix last check-in.
Dave Love <fx@gnu.org>
parents: 34678
diff changeset
161 :type '(radio (function-item sendmail-send-it :tag "Use Sendmail package")
34b048e564c0 Fix last check-in.
Dave Love <fx@gnu.org>
parents: 34678
diff changeset
162 (function-item smtpmail-send-it :tag "Use SMTPmail package")
34b048e564c0 Fix last check-in.
Dave Love <fx@gnu.org>
parents: 34678
diff changeset
163 (function-item feedmail-send-it :tag "Use Feedmail package")
65381
85a1acb45695 (send-mail-function): Add Mailclient alternative.
Richard M. Stallman <rms@gnu.org>
parents: 64807
diff changeset
164 (function-item mailclient-send-it :tag "Use Mailclient package")
34678
02f8f4d6f0b8 (send-mail-function): Customize.
Dave Love <fx@gnu.org>
parents: 33415
diff changeset
165 function)
02f8f4d6f0b8 (send-mail-function): Customize.
Dave Love <fx@gnu.org>
parents: 33415
diff changeset
166 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 ;;;###autoload
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
169 (defcustom mail-header-separator "--text follows this line--"
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
170 "Line used to separate headers from text in messages being composed."
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
171 :type 'string
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
172 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173
13824
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
174 ;; 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
175 (put 'mail-header-separator 'rear-nonsticky '(category))
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
176 ;; This was a nice idea, for preventing accidental modification of
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
177 ;; the separator. But I found it also prevented or obstructed
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
178 ;; certain deliberate operations, such as copying the separator line
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
179 ;; up to the top to send myself a copy of an already sent outgoing message
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
180 ;; and other things. So I turned it off. --rms.
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
181 ;;(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
182
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 ;;;###autoload
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
184 (defcustom mail-archive-file-name nil
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
185 "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
186 This can be an inbox file or an Rmail file."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
187 :type '(choice file (const nil))
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
188 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189
5261
50406a868f05 (mail-default-reply-to): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 5210
diff changeset
190 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
191 (defcustom mail-default-reply-to nil
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
192 "Address to insert as default Reply-to field of outgoing messages.
12607
498ce026e14b (mail-default-reply-to): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 12564
diff changeset
193 If nil, it will be initialized from the REPLYTO environment variable
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
194 when you first send mail."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
195 :type '(choice (const nil) string)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
196 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197
8488
ddd8e250a65d (mail-alias-file): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 8416
diff changeset
198 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
199 (defcustom mail-alias-file nil
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
200 "If non-nil, the name of a file to use instead of `/usr/lib/aliases'.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201 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
202 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
203 This variable has no effect unless your system uses sendmail as its mailer."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
204 :type '(choice (const nil) file)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
205 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206
10326
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
207 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
208 (defcustom mail-personal-alias-file "~/.mailrc"
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
209 "If non-nil, the name of the user's personal mail alias file.
10326
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
210 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
211 the `Mail' or `mailx' program.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
212 This file need not actually exist."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
213 :type '(choice (const nil) file)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
214 :group 'sendmail)
10326
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
215
66228
69f47ed7d25d (mail-setup-hook, mail-aliases)
Eli Zaretskii <eliz@gnu.org>
parents: 66126
diff changeset
216 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
217 (defcustom mail-setup-hook nil
12564
3cd5105aeb2b (mail-setup-hook): New defvar.
Karl Heuer <kwzh@gnu.org>
parents: 12473
diff changeset
218 "Normal hook, run each time a new outgoing mail message is initialized.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
219 The function `mail-setup' runs this hook."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
220 :type 'hook
32295
a25a7ebfcb34 Byte-compile-dynamic since it gets loaded by
Dave Love <fx@gnu.org>
parents: 31568
diff changeset
221 :options '(fortune-to-signature spook mail-abbrevs-setup)
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
222 :group 'sendmail)
12564
3cd5105aeb2b (mail-setup-hook): New defvar.
Karl Heuer <kwzh@gnu.org>
parents: 12473
diff changeset
223
66228
69f47ed7d25d (mail-setup-hook, mail-aliases)
Eli Zaretskii <eliz@gnu.org>
parents: 66126
diff changeset
224 ;;;###autoload
1431
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
225 (defvar mail-aliases t
1468
01e760e7de34 (mail-aliases): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 1431
diff changeset
226 "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
227 or t meaning should be initialized from your mail aliases file.
52684
3c1324a5f1d5 (mail-aliases): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
228 \(The file's name is normally `~/.mailrc', but `mail-personal-alias-file'
3c1324a5f1d5 (mail-aliases): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
229 can specify a different file name.)
9647
c27b8baa6aa4 (mail-aliases, mail-archive-file-name): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 9645
diff changeset
230 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
231 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
232
8802
7fcda87193a3 (mail-alias-modtime): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 8488
diff changeset
233 (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
234 "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
235
66228
69f47ed7d25d (mail-setup-hook, mail-aliases)
Eli Zaretskii <eliz@gnu.org>
parents: 66126
diff changeset
236 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
237 (defcustom mail-yank-prefix nil
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
238 "Prefix insert on lines of yanked message being replied to.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
239 nil means use indentation."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
240 :type '(choice (const nil) string)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
241 :group 'sendmail)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
242
66228
69f47ed7d25d (mail-setup-hook, mail-aliases)
Eli Zaretskii <eliz@gnu.org>
parents: 66126
diff changeset
243 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
244 (defcustom mail-indentation-spaces 3
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
245 "Number of spaces to insert at the beginning of each cited line.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
246 Used by `mail-yank-original' via `mail-indent-citation'."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
247 :type 'integer
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
248 :group 'sendmail)
66228
69f47ed7d25d (mail-setup-hook, mail-aliases)
Eli Zaretskii <eliz@gnu.org>
parents: 66126
diff changeset
249
4418
fdbbde0d4f24 (mail-yank-hooks): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents: 4342
diff changeset
250 (defvar mail-yank-hooks nil
3816
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
251 "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
252 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
253 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
254 text as modified.
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
255
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
256 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
257 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
258
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
259 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
260 (defcustom mail-citation-hook nil
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
261 "Hook for modifying a citation just inserted in the mail buffer.
22990
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
262 Each hook function can find the citation between (point) and (mark t),
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
263 and should leave point and mark around the citation text as modified.
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
264 The hook functions can find the header of the cited message
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
265 in the variable `mail-citation-header', whether or not this is included
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
266 in the cited portion of the message.
3424
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
267
3816
231b935db22c (mail-citation-hook): New hook var.
Richard M. Stallman <rms@gnu.org>
parents: 3513
diff changeset
268 If this hook is entirely empty (nil), a default action is taken
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
269 instead of no action."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
270 :type 'hook
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
271 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272
22990
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
273 (defvar mail-citation-header nil
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
274 "While running `mail-citation-hook', this variable holds the message header.
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
275 This enables the hook functions to see the whole message header
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
276 regardless of what part of it (if any) is included in the cited text.")
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
277
66228
69f47ed7d25d (mail-setup-hook, mail-aliases)
Eli Zaretskii <eliz@gnu.org>
parents: 66126
diff changeset
278 ;;;###autoload
22747
63b084753ad7 (mail-citation-prefix-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22634
diff changeset
279 (defcustom mail-citation-prefix-regexp "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|[ \t]*"
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
280 "Regular expression to match a citation prefix plus whitespace.
22747
63b084753ad7 (mail-citation-prefix-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22634
diff changeset
281 It should match whatever sort of citation prefixes you want to handle,
63b084753ad7 (mail-citation-prefix-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22634
diff changeset
282 with whitespace before and after; it should also match just whitespace.
63b084753ad7 (mail-citation-prefix-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22634
diff changeset
283 The default value matches citations like `foo-bar>' plus whitespace."
63b084753ad7 (mail-citation-prefix-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22634
diff changeset
284 :type 'regexp
63b084753ad7 (mail-citation-prefix-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22634
diff changeset
285 :group 'sendmail
63b084753ad7 (mail-citation-prefix-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22634
diff changeset
286 :version "20.3")
63b084753ad7 (mail-citation-prefix-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22634
diff changeset
287
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 (defvar mail-abbrevs-loaded nil)
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
289 (defvar mail-mode-map
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
290 (let ((map (make-sparse-keymap)))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
291 (define-key map "\M-\t" 'mail-complete)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
292 (define-key map "\C-c?" 'describe-mode)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
293 (define-key map "\C-c\C-f\C-t" 'mail-to)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
294 (define-key map "\C-c\C-f\C-b" 'mail-bcc)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
295 (define-key map "\C-c\C-f\C-f" 'mail-fcc)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
296 (define-key map "\C-c\C-f\C-c" 'mail-cc)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
297 (define-key map "\C-c\C-f\C-s" 'mail-subject)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
298 (define-key map "\C-c\C-f\C-r" 'mail-reply-to)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
299 (define-key map "\C-c\C-f\C-a" 'mail-mail-reply-to) ; author
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
300 (define-key map "\C-c\C-f\C-l" 'mail-mail-followup-to) ; list
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
301 (define-key map "\C-c\C-t" 'mail-text)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
302 (define-key map "\C-c\C-y" 'mail-yank-original)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
303 (define-key map "\C-c\C-r" 'mail-yank-region)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
304 (define-key map [remap split-line] 'mail-split-line)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
305 (define-key map "\C-c\C-q" 'mail-fill-yanked-message)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
306 (define-key map "\C-c\C-w" 'mail-signature)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
307 (define-key map "\C-c\C-v" 'mail-sent-via)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
308 (define-key map "\C-c\C-c" 'mail-send-and-exit)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
309 (define-key map "\C-c\C-s" 'mail-send)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
310 (define-key map "\C-c\C-i" 'mail-attach-file)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
311
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
312 (define-key map [menu-bar mail]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
313 (cons "Mail" (make-sparse-keymap "Mail")))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
314
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
315 (define-key map [menu-bar mail fill]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
316 '("Fill Citation" . mail-fill-yanked-message))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
317
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
318 (define-key map [menu-bar mail yank]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
319 '("Cite Original" . mail-yank-original))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
320
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
321 (define-key map [menu-bar mail signature]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
322 '("Insert Signature" . mail-signature))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
323
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
324 (define-key map [menu-bar mail mail-sep]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
325 '("--"))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
326
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
327 (define-key map [menu-bar mail cancel]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
328 '("Cancel" . mail-dont-send))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
329
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
330 (define-key map [menu-bar mail send-stay]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
331 '("Send, Keep Editing" . mail-send))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
332
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
333 (define-key map [menu-bar mail send]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
334 '("Send Message" . mail-send-and-exit))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
335
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
336 (define-key map [menu-bar headers]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
337 (cons "Headers" (make-sparse-keymap "Move to Header")))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
338
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
339 (define-key map [menu-bar headers text]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
340 '("Text" . mail-text))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
341
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
342 (define-key map [menu-bar headers expand-aliases]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
343 '("Expand Aliases" . expand-mail-aliases))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
344
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
345 (define-key map [menu-bar headers sent-via]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
346 '("Sent Via" . mail-sent-via))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
347
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
348 (define-key map [menu-bar headers mail-reply-to]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
349 '("Mail Reply To" . mail-mail-reply-to))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
350
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
351 (define-key map [menu-bar headers mail-followup-to]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
352 '("Mail Followup To" . mail-mail-followup-to))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
353
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
354 (define-key map [menu-bar headers reply-to]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
355 '("Reply-To" . mail-reply-to))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
356
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
357 (define-key map [menu-bar headers bcc]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
358 '("Bcc" . mail-bcc))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
359
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
360 (define-key map [menu-bar headers fcc]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
361 '("Fcc" . mail-fcc))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
362
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
363 (define-key map [menu-bar headers cc]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
364 '("Cc" . mail-cc))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
365
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
366 (define-key map [menu-bar headers subject]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
367 '("Subject" . mail-subject))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
368
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
369 (define-key map [menu-bar headers to]
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
370 '("To" . mail-to))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
371
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
372 map))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
373
1431
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
374 (autoload 'build-mail-aliases "mailalias"
10326
627063d29d25 (mail-personal-alias-file): New variable.
Noah Friedman <friedman@splode.com>
parents: 10174
diff changeset
375 "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
376 nil)
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
377
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
378 (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
379 "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
380 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
381 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
382 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
383 nil)
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
384
999
d8d503897aa5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 898
diff changeset
385 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
386 (defcustom mail-signature nil
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
387 "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
388 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
389 If a string, that string is inserted.
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
390 (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
391 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
392 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
393 and should insert whatever you want to insert."
45423
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
394 :type '(choice (const :tag "None" nil)
22005
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
395 (const :tag "Use `.signature' file" t)
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
396 (string :tag "String to insert")
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
397 (sexp :tag "Expression to evaluate"))
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
398 :group 'sendmail)
22005
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
399 (put 'mail-signature 'risky-local-variable t)
13116
61c560010274 (mail-signature-file): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13090
diff changeset
400
66228
69f47ed7d25d (mail-setup-hook, mail-aliases)
Eli Zaretskii <eliz@gnu.org>
parents: 66126
diff changeset
401 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
402 (defcustom mail-signature-file "~/.signature"
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
403 "File containing the text inserted at end of mail buffer."
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
404 :type 'file
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
405 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406
45423
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
407 ;;;###autoload
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
408 (defcustom mail-default-directory "~/"
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
409 "Directory for mail buffers.
45423
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
410 Value of `default-directory' for mail buffers.
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
411 This directory is used for auto-save files of mail buffers."
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
412 :type '(directory :tag "Directory")
48198
d4b940e02949 (mail-default-directory): Set the version to 21.4.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 47887
diff changeset
413 :group 'sendmail
59996
aac0a33f5772 Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents: 55115
diff changeset
414 :version "22.1")
45423
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
415
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
416 (defvar mail-reply-action nil)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417 (defvar mail-send-actions nil
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 "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
419 (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
420 (put 'mail-send-actions 'permanent-local t)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421
66228
69f47ed7d25d (mail-setup-hook, mail-aliases)
Eli Zaretskii <eliz@gnu.org>
parents: 66126
diff changeset
422 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
423 (defcustom mail-default-headers nil
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
424 "A string containing header lines, to be inserted in outgoing messages.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425 It is inserted before you edit the message,
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
426 so you can edit or delete these lines."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
427 :type '(choice (const nil) string)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
428 :group 'sendmail)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429
66228
69f47ed7d25d (mail-setup-hook, mail-aliases)
Eli Zaretskii <eliz@gnu.org>
parents: 66126
diff changeset
430 ;;;###autoload
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
431 (defcustom mail-bury-selects-summary t
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
432 "If non-nil, try to show RMAIL summary buffer after returning from mail.
8955
14951db9444a (mail-bury-selects-summary): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8802
diff changeset
433 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
434 the RMAIL summary buffer before returning, if it exists and this variable
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
435 is non-nil."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
436 :type 'boolean
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
437 :group 'sendmail)
8955
14951db9444a (mail-bury-selects-summary): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8802
diff changeset
438
66228
69f47ed7d25d (mail-setup-hook, mail-aliases)
Eli Zaretskii <eliz@gnu.org>
parents: 66126
diff changeset
439 ;;;###autoload
28031
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
440 (defcustom mail-send-nonascii 'mime
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
441 "Specify whether to allow sending non-ASCII characters in mail.
19350
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
442 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
443 `query' means ask the user each time.
28031
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
444 `mime' means add an appropriate MIME header if none already present.
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
445 The default is `mime'.
19350
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
446 Including non-ASCII characters in a mail message can be problematical
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
447 for the recipient, who may not know how to decode them properly."
28031
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
448 :type '(choice (const t) (const nil) (const query) (const mime))
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
449 :group 'sendmail)
19350
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
450
44861
de1bcec6e403 (mail-use-dsn): New variable to request delivery status notification from MTA.
Richard M. Stallman <rms@gnu.org>
parents: 43683
diff changeset
451 (defcustom mail-use-dsn nil
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
452 "Ask MTA for notification of failed, delayed or successful delivery.
44861
de1bcec6e403 (mail-use-dsn): New variable to request delivery status notification from MTA.
Richard M. Stallman <rms@gnu.org>
parents: 43683
diff changeset
453 Note that only some MTAs (currently only recent versions of Sendmail)
de1bcec6e403 (mail-use-dsn): New variable to request delivery status notification from MTA.
Richard M. Stallman <rms@gnu.org>
parents: 43683
diff changeset
454 support Delivery Status Notification."
de1bcec6e403 (mail-use-dsn): New variable to request delivery status notification from MTA.
Richard M. Stallman <rms@gnu.org>
parents: 43683
diff changeset
455 :group 'sendmail
de1bcec6e403 (mail-use-dsn): New variable to request delivery status notification from MTA.
Richard M. Stallman <rms@gnu.org>
parents: 43683
diff changeset
456 :type '(repeat (radio (const :tag "Failure" failure)
de1bcec6e403 (mail-use-dsn): New variable to request delivery status notification from MTA.
Richard M. Stallman <rms@gnu.org>
parents: 43683
diff changeset
457 (const :tag "Delay" delay)
de1bcec6e403 (mail-use-dsn): New variable to request delivery status notification from MTA.
Richard M. Stallman <rms@gnu.org>
parents: 43683
diff changeset
458 (const :tag "Success" success)))
59996
aac0a33f5772 Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents: 55115
diff changeset
459 :version "22.1")
44861
de1bcec6e403 (mail-use-dsn): New variable to request delivery status notification from MTA.
Richard M. Stallman <rms@gnu.org>
parents: 43683
diff changeset
460
5667
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
461 ;; 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
462 ;; 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
463 (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
464 (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
465 (file-readable-p "/etc/sendmail.cf")
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
466 (with-temp-buffer
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
467 (insert-file-contents "/etc/sendmail.cf")
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
468 (goto-char (point-min))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
469 (let ((case-fold-search nil))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
470 (re-search-forward "^OR\\>" nil t))))
10624
ec7ba4fd36f0 mail-mailer-swallows-blank-line: Handle full range of legal header names as
Noah Friedman <friedman@splode.com>
parents: 10326
diff changeset
471 ;; 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
472 ;; 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
473 ;; 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
474 ;; 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
475 '(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
476 "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
477 \(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
478 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
479 actually occur.")
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
480
40383
cfc82f90a7d4 (mail-mode-syntax-table): Let it inherit from text-mode-syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39479
diff changeset
481 (defvar mail-mode-syntax-table
cfc82f90a7d4 (mail-mode-syntax-table): Let it inherit from text-mode-syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39479
diff changeset
482 (let ((st (make-syntax-table)))
cfc82f90a7d4 (mail-mode-syntax-table): Let it inherit from text-mode-syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39479
diff changeset
483 ;; define-derived-mode will make it inherit from text-mode-syntax-table.
cfc82f90a7d4 (mail-mode-syntax-table): Let it inherit from text-mode-syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39479
diff changeset
484 (modify-syntax-entry ?% ". " st)
cfc82f90a7d4 (mail-mode-syntax-table): Let it inherit from text-mode-syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39479
diff changeset
485 st)
cfc82f90a7d4 (mail-mode-syntax-table): Let it inherit from text-mode-syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39479
diff changeset
486 "Syntax table used while in `mail-mode'.")
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487
9381
535197b3fc42 (mail-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9160
diff changeset
488 (defvar mail-font-lock-keywords
14364
64be2e6b8094 Use `eval' in mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
489 (eval-when-compile
16453
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
490 (let* ((cite-chars "[>|}]")
33415
49906cfa5179 (mail-font-lock-keywords): Use [:alpha:], not
Dave Love <fx@gnu.org>
parents: 32295
diff changeset
491 (cite-prefix "[:alpha:]")
16453
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
492 (cite-suffix (concat cite-prefix "0-9_.@-`'\"")))
17164
024399a1b442 Tweak font-lock-keywords
Simon Marshall <simon@gnu.org>
parents: 17097
diff changeset
493 (list '("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face)
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
494 '("^\\(B?CC\\|Reply-to\\|Mail-\\(reply\\|followup\\)-to\\):" . font-lock-keyword-face)
14364
64be2e6b8094 Use `eval' in mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
495 '("^\\(Subject:\\)[ \t]*\\(.+\\)?"
61597
bebf790f4c99 (mail-font-lock-keywords): Don't fontify subject text.
Richard M. Stallman <rms@gnu.org>
parents: 60691
diff changeset
496 (1 font-lock-comment-face)
bebf790f4c99 (mail-font-lock-keywords): Don't fontify subject text.
Richard M. Stallman <rms@gnu.org>
parents: 60691
diff changeset
497 ;; (2 font-lock-type-face nil t)
bebf790f4c99 (mail-font-lock-keywords): Don't fontify subject text.
Richard M. Stallman <rms@gnu.org>
parents: 60691
diff changeset
498 )
16453
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
499 ;; 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
500 '(eval .
21284
1d971e4f4645 check length of mail-header-separator before using in font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 20962
diff changeset
501 (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
502 " \\`\\' "
21284
1d971e4f4645 check length of mail-header-separator before using in font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 20962
diff changeset
503 (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
504 (cons (concat "^" separator "$") 'font-lock-warning-face)))
16453
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
505 ;; 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
506 `(,cite-chars
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
507 (,(concat "\\=[ \t]*"
61815
3e72302e1d5a (mail-font-lock-keywords): Match any number of
Richard M. Stallman <rms@gnu.org>
parents: 61761
diff changeset
508 "\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
3e72302e1d5a (mail-font-lock-keywords): Match any number of
Richard M. Stallman <rms@gnu.org>
parents: 61761
diff changeset
509 "\\(" cite-chars "[ \t]*\\)\\)+\\)"
17164
024399a1b442 Tweak font-lock-keywords
Simon Marshall <simon@gnu.org>
parents: 17097
diff changeset
510 "\\(.*\\)")
16453
90a2c2aebc37 Tweak mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 15962
diff changeset
511 (beginning-of-line) (end-of-line)
61815
3e72302e1d5a (mail-font-lock-keywords): Match any number of
Richard M. Stallman <rms@gnu.org>
parents: 61761
diff changeset
512 (1 font-lock-comment-delimiter-face nil t)
3e72302e1d5a (mail-font-lock-keywords): Match any number of
Richard M. Stallman <rms@gnu.org>
parents: 61761
diff changeset
513 (5 font-lock-comment-face nil t)))
49063
aed65d90301e (mail-font-lock-keywords): Match multiline In-Reply-To and X-*.
Richard M. Stallman <rms@gnu.org>
parents: 49033
diff changeset
514 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$"
14364
64be2e6b8094 Use `eval' in mail-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
515 . font-lock-string-face))))
9381
535197b3fc42 (mail-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9160
diff changeset
516 "Additional expressions to highlight in Mail mode.")
535197b3fc42 (mail-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9160
diff changeset
517
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
518
13950
e9615c5f477a (sendmail-sync-aliases): Renamed from sendmail-synch-aliases.
Karl Heuer <kwzh@gnu.org>
parents: 13928
diff changeset
519 (defun sendmail-sync-aliases ()
52372
02e7333fda5d (sendmail-sync-aliases, mail-setup):
Richard M. Stallman <rms@gnu.org>
parents: 52320
diff changeset
520 (when mail-personal-alias-file
02e7333fda5d (sendmail-sync-aliases, mail-setup):
Richard M. Stallman <rms@gnu.org>
parents: 52320
diff changeset
521 (let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
02e7333fda5d (sendmail-sync-aliases, mail-setup):
Richard M. Stallman <rms@gnu.org>
parents: 52320
diff changeset
522 (or (equal mail-alias-modtime modtime)
02e7333fda5d (sendmail-sync-aliases, mail-setup):
Richard M. Stallman <rms@gnu.org>
parents: 52320
diff changeset
523 (setq mail-alias-modtime modtime
02e7333fda5d (sendmail-sync-aliases, mail-setup):
Richard M. Stallman <rms@gnu.org>
parents: 52320
diff changeset
524 mail-aliases t)))))
8802
7fcda87193a3 (mail-alias-modtime): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 8488
diff changeset
525
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 (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
527 (or mail-default-reply-to
8972
ad8f1cea49cc (mail-default-reply-to): Initialize to t.
Richard M. Stallman <rms@gnu.org>
parents: 8955
diff changeset
528 (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
529 (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
530 (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
531 (progn
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
532 (setq mail-aliases nil)
52372
02e7333fda5d (sendmail-sync-aliases, mail-setup):
Richard M. Stallman <rms@gnu.org>
parents: 52320
diff changeset
533 (when mail-personal-alias-file
02e7333fda5d (sendmail-sync-aliases, mail-setup):
Richard M. Stallman <rms@gnu.org>
parents: 52320
diff changeset
534 (if (file-exists-p mail-personal-alias-file)
02e7333fda5d (sendmail-sync-aliases, mail-setup):
Richard M. Stallman <rms@gnu.org>
parents: 52320
diff changeset
535 (build-mail-aliases)))))
18130
ea43e3ebc47a (mail-setup): Clear out buffer-file-coding-system.
Richard M. Stallman <rms@gnu.org>
parents: 17796
diff changeset
536 ;; 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
537 (kill-local-variable 'buffer-file-coding-system)
35383
2c239dcc208a (mail-setup): Call set-buffer-multibyte because
Kenichi Handa <handa@m17n.org>
parents: 35115
diff changeset
538 ;; This doesn't work for enable-multibyte-characters.
2c239dcc208a (mail-setup): Call set-buffer-multibyte because
Kenichi Handa <handa@m17n.org>
parents: 35115
diff changeset
539 ;; (kill-local-variable 'enable-multibyte-characters)
2c239dcc208a (mail-setup): Call set-buffer-multibyte because
Kenichi Handa <handa@m17n.org>
parents: 35115
diff changeset
540 (set-buffer-multibyte default-enable-multibyte-characters)
18794
631776603b13 (mail-setup): Kill the local binding of enable-multibyte-characters.
Kenichi Handa <handa@m17n.org>
parents: 18704
diff changeset
541 (if current-input-method
631776603b13 (mail-setup): Kill the local binding of enable-multibyte-characters.
Kenichi Handa <handa@m17n.org>
parents: 18704
diff changeset
542 (inactivate-input-method))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 (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
544 (setq mail-reply-action replybuffer)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 (goto-char (point-min))
63553
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
546 (if mail-setup-with-from
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
547 (mail-insert-from-field))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 (insert "To: ")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 (if to
1843
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
551 ;; 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
552 ;; 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
553 ;; 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
554 (let ((fill-prefix "\t")
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
555 (address-start (point)))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
556 (insert to "\n")
22997
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
557 (fill-region-as-paragraph address-start (point-max))
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
558 (goto-char (point-max))
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
559 (unless (bolp)
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
560 (newline)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561 (newline))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 (if cc
1843
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
563 (let ((fill-prefix "\t")
2d5caf3fd862 (mail-setup): Use fill-region-as-paragraph
Richard M. Stallman <rms@gnu.org>
parents: 1835
diff changeset
564 (address-start (progn (insert "CC: ") (point))))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
565 (insert cc "\n")
22997
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
566 (fill-region-as-paragraph address-start (point-max))
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
567 (goto-char (point-max))
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
568 (unless (bolp)
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
569 (newline))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 (if in-reply-to
22997
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
571 (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
572 (fill-column 78)
9663
8bd05e79e0bd (mail-setup): Fill in-reply-to field properly.
Richard M. Stallman <rms@gnu.org>
parents: 9647
diff changeset
573 (address-start (point)))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
574 (insert "In-reply-to: " in-reply-to "\n")
22997
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
575 (fill-region-as-paragraph address-start (point-max))
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
576 (goto-char (point-max))
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
577 (unless (bolp)
7be798773f85 (mail-setup): After using `fill-region-as-paragraph'
Richard M. Stallman <rms@gnu.org>
parents: 22990
diff changeset
578 (newline))))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
579 (insert "Subject: " (or subject "") "\n")
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580 (if mail-default-headers
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 (insert mail-default-headers))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 (if mail-default-reply-to
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
583 (insert "Reply-to: " mail-default-reply-to "\n"))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 (if mail-self-blind
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
585 (insert "BCC: " user-mail-address "\n"))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 (if mail-archive-file-name
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
587 (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
588 (put-text-property (point)
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
589 (progn
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
590 (insert mail-header-separator "\n")
13824
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
591 (1- (point)))
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
592 'category 'mail-header-separator)
2852
e80e6e533533 (mail-setup): Leave point before signature, not after.
Richard M. Stallman <rms@gnu.org>
parents: 2701
diff changeset
593 ;; 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
594 (if to (setq to (point)))
1025
1ccd97bc1d2b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1024
diff changeset
595 (cond ((eq mail-signature t)
13116
61c560010274 (mail-signature-file): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13090
diff changeset
596 (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
597 (progn
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
598 (insert "\n\n-- \n")
13116
61c560010274 (mail-signature-file): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13090
diff changeset
599 (insert-file-contents mail-signature-file))))
22005
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
600 ((stringp mail-signature)
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
601 (insert mail-signature))
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
602 (t
863230e3e248 (mail-signature): Allow expression as value.
Richard M. Stallman <rms@gnu.org>
parents: 21920
diff changeset
603 (eval mail-signature)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 (goto-char (point-max))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 (or (bolp) (newline)))
2852
e80e6e533533 (mail-setup): Leave point before signature, not after.
Richard M. Stallman <rms@gnu.org>
parents: 2701
diff changeset
606 (if to (goto-char to))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 (or to subject in-reply-to
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 (set-buffer-modified-p nil))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609 (run-hooks 'mail-setup-hook))
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
610
27245
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
611 (defcustom mail-mode-hook nil
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
612 "Hook run by Mail mode."
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
613 :group 'sendmail
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
614 :type 'hook
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
615 :options '(footnote-mode))
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
616
47206
49fb7a41adff (mail-mode): Don't set local-abbrev-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45423
diff changeset
617 (defvar mail-mode-abbrev-table text-mode-abbrev-table)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 ;;;###autoload
40383
cfc82f90a7d4 (mail-mode-syntax-table): Let it inherit from text-mode-syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39479
diff changeset
619 (define-derived-mode mail-mode text-mode "Mail"
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 "Major mode for editing mail to be sent.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 Like Text Mode but with these additional commands:
67435
f245bb6e08da * files.el (save-buffer):
Reiner Steib <Reiner.Steib@gmx.de>
parents: 67324
diff changeset
622
f245bb6e08da * files.el (save-buffer):
Reiner Steib <Reiner.Steib@gmx.de>
parents: 67324
diff changeset
623 \\[mail-send] mail-send (send the message)
f245bb6e08da * files.el (save-buffer):
Reiner Steib <Reiner.Steib@gmx.de>
parents: 67324
diff changeset
624 \\[mail-send-and-exit] mail-send-and-exit (send the message and exit)
f245bb6e08da * files.el (save-buffer):
Reiner Steib <Reiner.Steib@gmx.de>
parents: 67324
diff changeset
625
21545
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
626 Here are commands that move to a header field (and create it if there isn't):
76971
f1b843dae8ab (mail-text, mail-mode): Revert extant pieces of 1995-05-19 doc
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
627 \\[mail-to] move to To: \\[mail-subject] move to Subj:
f1b843dae8ab (mail-text, mail-mode): Revert extant pieces of 1995-05-19 doc
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
628 \\[mail-bcc] move to BCC: \\[mail-cc] move to CC:
39396
8c3457d1371c (mail-mode): Doc fix. From Simon Josefsson <jas@extundo.com>.
Eli Zaretskii <eliz@gnu.org>
parents: 39224
diff changeset
629 \\[mail-fcc] move to FCC: \\[mail-reply-to] move to Reply-To:
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
630 \\[mail-mail-reply-to] move to Mail-Reply-To:
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
631 \\[mail-mail-followup-to] move to Mail-Followup-To:
76971
f1b843dae8ab (mail-text, mail-mode): Revert extant pieces of 1995-05-19 doc
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
632 \\[mail-text] move to message text.
21545
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
633 \\[mail-signature] mail-signature (insert `mail-signature-file' file).
2c4281059c0a (mail-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 21301
diff changeset
634 \\[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
635 \\[mail-fill-yanked-message] mail-fill-yanked-message (fill what was yanked).
76971
f1b843dae8ab (mail-text, mail-mode): Revert extant pieces of 1995-05-19 doc
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
636 \\[mail-sent-via] mail-sent-via (add a sent-via field for each To or CC).
35115
98a3ec955d8d (mail-mode): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 34767
diff changeset
637 Turning on Mail mode runs the normal hooks `text-mode-hook' and
98a3ec955d8d (mail-mode): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 34767
diff changeset
638 `mail-mode-hook' (in that order)."
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
639 (make-local-variable 'mail-reply-action)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 (make-local-variable 'mail-send-actions)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 (setq buffer-offer-save t)
9483
a8f745eaee5c * sendmail.el: (mail-mode): Set font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents: 9470
diff changeset
642 (make-local-variable 'font-lock-defaults)
36887
854351f92bfe (mail-mode): Activate case-folding in
Gerd Moellmann <gerd@gnu.org>
parents: 35615
diff changeset
643 (setq font-lock-defaults '(mail-font-lock-keywords t t))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 (make-local-variable 'paragraph-separate)
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
645 (make-local-variable 'normal-auto-fill-function)
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
646 (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
647 (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
648 (setq fill-paragraph-function 'mail-mode-fill-paragraph)
34767
0be0c72fb0ad (mail-mode): Set `comment-start' to the yank prefix.
Miles Bader <miles@gnu.org>
parents: 34681
diff changeset
649 ;; Allow using comment commands to add/remove quoting (this only does
0be0c72fb0ad (mail-mode): Set `comment-start' to the yank prefix.
Miles Bader <miles@gnu.org>
parents: 34681
diff changeset
650 ;; anything if mail-yank-prefix is set to a non-nil value).
0be0c72fb0ad (mail-mode): Set `comment-start' to the yank prefix.
Miles Bader <miles@gnu.org>
parents: 34681
diff changeset
651 (set (make-local-variable 'comment-start) mail-yank-prefix)
54286
1395db493830 (mail-mode): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54278
diff changeset
652 (if mail-yank-prefix
1395db493830 (mail-mode): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54278
diff changeset
653 (set (make-local-variable 'comment-start-skip)
1395db493830 (mail-mode): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54278
diff changeset
654 (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*")))
18870
d86beb823996 (mail-mode): Set adaptive-fill-regexp specially to cater to supercite.
Richard M. Stallman <rms@gnu.org>
parents: 18814
diff changeset
655 (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
656 (setq adaptive-fill-regexp
42915
4c65aa6c1046 (mail-mode): ">" is not a supercite-style prefix
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42522
diff changeset
657 (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|"
40383
cfc82f90a7d4 (mail-mode-syntax-table): Let it inherit from text-mode-syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39479
diff changeset
658 adaptive-fill-regexp))
19000
f5d103332d9e (mail-mode): Make adaptive-fill-regexp
Richard M. Stallman <rms@gnu.org>
parents: 18955
diff changeset
659 (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
660 (setq adaptive-fill-first-line-regexp
43054
cdc1a6112b86 (mail-mode): Undo half of last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42915
diff changeset
661 (concat "[ \t]*[-[:alnum:]]*>+[ \t]*\\|"
40383
cfc82f90a7d4 (mail-mode-syntax-table): Let it inherit from text-mode-syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39479
diff changeset
662 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
663 ;; `-- ' 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
664 ;; lines that delimit forwarded messages.
a16fd1b9abb5 (mail-mode): Line starting with ---- is a separator.
Richard M. Stallman <rms@gnu.org>
parents: 14926
diff changeset
665 ;; 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
666 ;; are also sometimes used and should be separators.
51082
af63282f9b8e (mail-mode): Don't bother setting paragraph-start.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50787
diff changeset
667 (setq paragraph-separate (concat (regexp-quote mail-header-separator)
23976
12c74d5eff80 (mail-mode): Eliminate ambiguous match from paragraph-start.
Richard M. Stallman <rms@gnu.org>
parents: 23845
diff changeset
668 "$\\|\t*\\([-|#;>* ]\\|(?[0-9]+[.)]\\)+$"
33415
49906cfa5179 (mail-font-lock-keywords): Use [:alpha:], not
Dave Love <fx@gnu.org>
parents: 32295
diff changeset
669 "\\|[ \t]*[[:alnum:]]*>+[ \t]*$\\|[ \t]*$\\|"
51082
af63282f9b8e (mail-mode): Don't bother setting paragraph-start.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50787
diff changeset
670 "--\\( \\|-+\\)$\\|"
af63282f9b8e (mail-mode): Don't bother setting paragraph-start.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50787
diff changeset
671 page-delimiter)))
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
672
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
673
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
674 (defun mail-header-end ()
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
675 "Return the buffer location of the end of headers, as a number."
22410
6c20dbaac61e (mail-header-end): Widen.
Richard M. Stallman <rms@gnu.org>
parents: 22379
diff changeset
676 (save-restriction
6c20dbaac61e (mail-header-end): Widen.
Richard M. Stallman <rms@gnu.org>
parents: 22379
diff changeset
677 (widen)
6c20dbaac61e (mail-header-end): Widen.
Richard M. Stallman <rms@gnu.org>
parents: 22379
diff changeset
678 (save-excursion
6c20dbaac61e (mail-header-end): Widen.
Richard M. Stallman <rms@gnu.org>
parents: 22379
diff changeset
679 (rfc822-goto-eoh)
6c20dbaac61e (mail-header-end): Widen.
Richard M. Stallman <rms@gnu.org>
parents: 22379
diff changeset
680 (point))))
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
681
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
682 (defun mail-text-start ()
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
683 "Return the buffer location of the start of text, as a number."
22410
6c20dbaac61e (mail-header-end): Widen.
Richard M. Stallman <rms@gnu.org>
parents: 22379
diff changeset
684 (save-restriction
6c20dbaac61e (mail-header-end): Widen.
Richard M. Stallman <rms@gnu.org>
parents: 22379
diff changeset
685 (widen)
6c20dbaac61e (mail-header-end): Widen.
Richard M. Stallman <rms@gnu.org>
parents: 22379
diff changeset
686 (save-excursion
6c20dbaac61e (mail-header-end): Widen.
Richard M. Stallman <rms@gnu.org>
parents: 22379
diff changeset
687 (rfc822-goto-eoh)
6c20dbaac61e (mail-header-end): Widen.
Richard M. Stallman <rms@gnu.org>
parents: 22379
diff changeset
688 (forward-line 1)
6c20dbaac61e (mail-header-end): Widen.
Richard M. Stallman <rms@gnu.org>
parents: 22379
diff changeset
689 (point))))
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
690
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
691 (defun mail-sendmail-delimit-header ()
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
692 "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
693 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
694 (rfc822-goto-eoh)
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
695 (insert mail-header-separator)
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
696 (point))
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
697
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
698 (defun mail-sendmail-undelimit-header ()
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
699 "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
700 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
701 (rfc822-goto-eoh)
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
702 (delete-region (point) (progn (end-of-line) (point))))
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
703
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
704 (defun mail-mode-auto-fill ()
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
705 "Carry out Auto Fill for Mail mode.
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
706 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
707 (if (< (point) (mail-header-end))
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
708 (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
709 (if (do-auto-fill)
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
710 (save-excursion
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
711 (beginning-of-line)
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
712 (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
713 ;; 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
714 ;; 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
715 (insert-before-markers " ")
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
716 (forward-line -1))
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
717 t)))
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
718 (do-auto-fill)))
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
719
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
720 (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
721 ;; 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
722 (if (< (point) (mail-header-end))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49063
diff changeset
723 (let (beg end fieldname)
31568
d0dfc12963ef (mail-mode-fill-paragraph): Do not get the
Gerd Moellmann <gerd@gnu.org>
parents: 30774
diff changeset
724 (when (prog1 (re-search-backward "^[-a-zA-Z]+:" nil 'yes)
d0dfc12963ef (mail-mode-fill-paragraph): Do not get the
Gerd Moellmann <gerd@gnu.org>
parents: 30774
diff changeset
725 (setq beg (point)))
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
726 (setq fieldname
31568
d0dfc12963ef (mail-mode-fill-paragraph): Do not get the
Gerd Moellmann <gerd@gnu.org>
parents: 30774
diff changeset
727 (downcase (buffer-substring beg (1- (match-end 0))))))
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
728 (forward-line 1)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
729 ;; 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
730 (while (looking-at "[ \t]")
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
731 (delete-horizontal-space)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
732 (forward-line 1))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
733 (setq end (point-marker))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
734 (goto-char beg)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
735 ;; If this field contains addresses,
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
736 ;; 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
737 (if (member fieldname
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
738 '("to" "cc" "bcc" "from" "reply-to"
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
739 "mail-reply-to" "mail-followup-to"
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
740 "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
741 "resent-from" "resent-reply-to"))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
742 (while (search-forward "," end t)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
743 (or (looking-at "[ \t]")
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
744 (insert " "))))
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
745 (fill-region-as-paragraph beg end arg)
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
746 ;; 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
747 (goto-char beg)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
748 (forward-line 1)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
749 (while (< (point) end)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
750 (insert " ")
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
751 (forward-line 1))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
752 (move-marker end nil)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
753 t)))
3859
7e2410ba8e41 (mail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3816
diff changeset
754
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
755 ;; User-level commands for sending.
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
756
50688
5c18ceba3ad8 (mail-send-and-exit): Make arg optional.
Richard M. Stallman <rms@gnu.org>
parents: 49598
diff changeset
757 (defun mail-send-and-exit (&optional arg)
1539
5677f906bf78 Dox fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 1468
diff changeset
758 "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
759 Prefix arg means don't delete this window."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760 (interactive "P")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 (mail-send)
4074
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
762 (mail-bury arg))
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
763
50787
3d35ca8a190d (mail-dont-send, mail-bury): Make ARG optional.
Richard M. Stallman <rms@gnu.org>
parents: 50688
diff changeset
764 (defun mail-dont-send (&optional arg)
4074
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
765 "Don't send the message you have been editing.
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
766 Prefix arg means don't delete this window."
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
767 (interactive "P")
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
768 (mail-bury arg))
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
769
50787
3d35ca8a190d (mail-dont-send, mail-bury): Make ARG optional.
Richard M. Stallman <rms@gnu.org>
parents: 50688
diff changeset
770 (defun mail-bury (&optional arg)
4074
daf4ba204fe5 (mail-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4021
diff changeset
771 "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
772 (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
773 (bury-buffer (current-buffer))
84814
d2ce910aed7e (mail-bury): Delete the frame
Richard M. Stallman <rms@gnu.org>
parents: 78232
diff changeset
774 (if (and (or nil
d2ce910aed7e (mail-bury): Delete the frame
Richard M. Stallman <rms@gnu.org>
parents: 78232
diff changeset
775 ;; In this case, we need to go to a different frame.
d2ce910aed7e (mail-bury): Delete the frame
Richard M. Stallman <rms@gnu.org>
parents: 78232
diff changeset
776 (window-dedicated-p (frame-selected-window))
d2ce910aed7e (mail-bury): Delete the frame
Richard M. Stallman <rms@gnu.org>
parents: 78232
diff changeset
777 ;; In this mode of operation, the frame was probably
d2ce910aed7e (mail-bury): Delete the frame
Richard M. Stallman <rms@gnu.org>
parents: 78232
diff changeset
778 ;; made for this buffer, so the user probably wants
d2ce910aed7e (mail-bury): Delete the frame
Richard M. Stallman <rms@gnu.org>
parents: 78232
diff changeset
779 ;; to delete it now.
d2ce910aed7e (mail-bury): Delete the frame
Richard M. Stallman <rms@gnu.org>
parents: 78232
diff changeset
780 (and pop-up-frames (one-window-p))
20049
69e6aa6e413e (mail-bury): Check for value, not just
Karl Heuer <kwzh@gnu.org>
parents: 19914
diff changeset
781 (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
782 (not (null (delq (selected-frame) (visible-frame-list)))))
55115
af2c1ea381f4 (mail-bury): Don't delete the frame where the
Eli Zaretskii <eliz@gnu.org>
parents: 54286
diff changeset
783 (progn
af2c1ea381f4 (mail-bury): Don't delete the frame where the
Eli Zaretskii <eliz@gnu.org>
parents: 54286
diff changeset
784 (if (display-multi-frame-p)
af2c1ea381f4 (mail-bury): Don't delete the frame where the
Eli Zaretskii <eliz@gnu.org>
parents: 54286
diff changeset
785 (delete-frame (selected-frame))
af2c1ea381f4 (mail-bury): Don't delete the frame where the
Eli Zaretskii <eliz@gnu.org>
parents: 54286
diff changeset
786 ;; The previous frame is where normally they have the
af2c1ea381f4 (mail-bury): Don't delete the frame where the
Eli Zaretskii <eliz@gnu.org>
parents: 54286
diff changeset
787 ;; RMAIL buffer displayed.
af2c1ea381f4 (mail-bury): Don't delete the frame where the
Eli Zaretskii <eliz@gnu.org>
parents: 54286
diff changeset
788 (other-frame -1)))
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
789 (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
790 (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
791 (not (one-window-p))
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
792 (with-current-buffer
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
793 (window-buffer (next-window (selected-window) 'not))
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
794 (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
795 (setq summary-buffer
8955
14951db9444a (mail-bury-selects-summary): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8802
diff changeset
796 (and mail-bury-selects-summary
14951db9444a (mail-bury-selects-summary): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8802
diff changeset
797 (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
798 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
799 (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
800 (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
801 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
802 (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
803 ;; 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
804 (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
805 (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
806 (switch-to-buffer newbuf))))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
807
27245
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
808 (defcustom mail-send-hook nil
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
809 "Hook run just before sending mail with `mail-send'."
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
810 :type 'hook
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
811 :options '(flyspell-mode-off)
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
812 :group 'sendmail)
7958d9720d8f Require rmail, mailalias when compiling.
Dave Love <fx@gnu.org>
parents: 25240
diff changeset
813
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
814 ;;;###autoload
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
815 (defcustom mail-mailing-lists nil "\
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
816 *List of mailing list addresses the user is subscribed to.
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
817
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
818 The variable is used to trigger insertion of the \"Mail-Followup-To\"
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
819 header when sending a message to a mailing list."
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
820 :type '(repeat string)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
821 :group 'sendmail)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
822
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
823
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
824 (defun mail-send ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
825 "Send the message in the current buffer.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
826 If `mail-interactive' is non-nil, wait for success indication
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
827 or error messages, and inform user.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
828 Otherwise any failure is reported in a message back to
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
829 the user from the mailer."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
830 (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
831 (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
832 (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
833 (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
834 (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
835 (let ((inhibit-read-only t)
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
836 (opoint (point))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
837 (ml (when mail-mailing-lists
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
838 ;; The surrounding regexp assumes the use of
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
839 ;; `mail-strip-quoted-names' on addresses before matching
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
840 ;; Cannot deal with full RFC 822 freedom, but that is
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
841 ;; unlikely to be problematic.
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
842 (concat "\\(?:[[:space:];,]\\|\\`\\)"
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
843 (regexp-opt mail-mailing-lists t)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
844 "\\(?:[[:space:];,]\\|\\'\\)"))))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
845 ;; If there are mailing lists defined
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
846 (when ml
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
847 (save-excursion
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
848 (let* ((to (mail-fetch-field "to" nil t))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
849 (cc (mail-fetch-field "cc" nil t))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
850 (new-header-values ; To: and Cc:
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
851 (mail-strip-quoted-names
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
852 (concat to (when cc (concat ", " cc))))))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
853 ;; If message goes to known mailing list ...
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
854 (when (string-match ml new-header-values)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
855 ;; Add Mail-Followup-To if none yet
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
856 (unless (mail-fetch-field "mail-followup-to")
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
857 (goto-char (mail-header-end))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
858 (insert "Mail-Followup-To: "
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
859 (let ((l))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
860 (mapc
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
861 ;; remove duplicates
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
862 '(lambda (e)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
863 (unless (member e l)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
864 (push e l)))
62580
cc4bd3fe9a9d (mail-send): Use [[:space:]] instead of a literal blank
Eli Zaretskii <eliz@gnu.org>
parents: 61815
diff changeset
865 (split-string new-header-values
cc4bd3fe9a9d (mail-send): Use [[:space:]] instead of a literal blank
Eli Zaretskii <eliz@gnu.org>
parents: 61815
diff changeset
866 ",[[:space:]]+" t))
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
867 (mapconcat 'identity l ", "))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
868 "\n"))
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
869 ;; Add Mail-Reply-To if none yet
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
870 (unless (mail-fetch-field "mail-reply-to")
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
871 (goto-char (mail-header-end))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
872 (insert "Mail-Reply-To: "
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
873 (or (mail-fetch-field "reply-to")
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
874 user-mail-address)
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
875 "\n"))))))
39224
cd06bcf39556 (mail-send): Obey mail-send-nonascii when
Gerd Moellmann <gerd@gnu.org>
parents: 38965
diff changeset
876 (unless (memq mail-send-nonascii '(t mime))
19350
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
877 (goto-char (point-min))
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
878 (skip-chars-forward "\0-\177")
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
879 (or (= (point) (point-max))
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
880 (if (eq mail-send-nonascii 'query)
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
881 (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
882 (error "Aborted"))
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
883 (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
884 ;; Complain about any invalid line.
3be882bc0211 (mail-send): Complain about invalid header line.
Richard M. Stallman <rms@gnu.org>
parents: 19440
diff changeset
885 (goto-char (point-min))
71349
424b1f91f07b * mail/sendmail.el (mail-send): Search explicitly for
Chong Yidong <cyd@stupidchicken.com>
parents: 68648
diff changeset
886 (re-search-forward (regexp-quote mail-header-separator) (point-max) t)
424b1f91f07b * mail/sendmail.el (mail-send): Search explicitly for
Chong Yidong <cyd@stupidchicken.com>
parents: 68648
diff changeset
887 (let ((header-end (or (match-beginning 0) (point-max))))
424b1f91f07b * mail/sendmail.el (mail-send): Search explicitly for
Chong Yidong <cyd@stupidchicken.com>
parents: 68648
diff changeset
888 (goto-char (point-min))
424b1f91f07b * mail/sendmail.el (mail-send): Search explicitly for
Chong Yidong <cyd@stupidchicken.com>
parents: 68648
diff changeset
889 (while (< (point) header-end)
424b1f91f07b * mail/sendmail.el (mail-send): Search explicitly for
Chong Yidong <cyd@stupidchicken.com>
parents: 68648
diff changeset
890 (unless (looking-at "[ \t]\\|.*:\\|$")
424b1f91f07b * mail/sendmail.el (mail-send): Search explicitly for
Chong Yidong <cyd@stupidchicken.com>
parents: 68648
diff changeset
891 (push-mark opoint)
424b1f91f07b * mail/sendmail.el (mail-send): Search explicitly for
Chong Yidong <cyd@stupidchicken.com>
parents: 68648
diff changeset
892 (error "Invalid header line (maybe a continuation line lacks initial whitespace)"))
424b1f91f07b * mail/sendmail.el (mail-send): Search explicitly for
Chong Yidong <cyd@stupidchicken.com>
parents: 68648
diff changeset
893 (forward-line 1)))
19350
d7ecbd12ecef (mail-send): Ask for confirmation if
Richard M. Stallman <rms@gnu.org>
parents: 19202
diff changeset
894 (goto-char opoint)
7917
7967c371644f (mail-send-hook): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 7858
diff changeset
895 (run-hooks 'mail-send-hook)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 (message "Sending...")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 (funcall send-mail-function)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 ;; Now perform actions on successful sending.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 (while mail-send-actions
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900 (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
901 (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
902 (cdr (car mail-send-actions)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903 (error))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
904 (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
905 (message "Sending...done")
23382
55b2ea28932a Comment fix.
Karl Heuer <kwzh@gnu.org>
parents: 23086
diff changeset
906 ;; If buffer has no file, mark it as unmodified and delete auto-save.
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
907 (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
908 (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
909 (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
910 (delete-auto-save-file-if-necessary t))))))
47837
b9705a05fa60 * mail/sendmail.el (mail-envelope-from): New option `header' to
Simon Josefsson <jas@extundo.com>
parents: 47579
diff changeset
911
b9705a05fa60 * mail/sendmail.el (mail-envelope-from): New option `header' to
Simon Josefsson <jas@extundo.com>
parents: 47579
diff changeset
912 (defun mail-envelope-from ()
b9705a05fa60 * mail/sendmail.el (mail-envelope-from): New option `header' to
Simon Josefsson <jas@extundo.com>
parents: 47579
diff changeset
913 "Return the envelope mail address to use when sending mail.
b9705a05fa60 * mail/sendmail.el (mail-envelope-from): New option `header' to
Simon Josefsson <jas@extundo.com>
parents: 47579
diff changeset
914 This function uses `mail-envelope-from'."
b9705a05fa60 * mail/sendmail.el (mail-envelope-from): New option `header' to
Simon Josefsson <jas@extundo.com>
parents: 47579
diff changeset
915 (if (eq mail-envelope-from 'header)
b9705a05fa60 * mail/sendmail.el (mail-envelope-from): New option `header' to
Simon Josefsson <jas@extundo.com>
parents: 47579
diff changeset
916 (nth 1 (mail-extract-address-components
b9705a05fa60 * mail/sendmail.el (mail-envelope-from): New option `header' to
Simon Josefsson <jas@extundo.com>
parents: 47579
diff changeset
917 (mail-fetch-field "From")))
b9705a05fa60 * mail/sendmail.el (mail-envelope-from): New option `header' to
Simon Josefsson <jas@extundo.com>
parents: 47579
diff changeset
918 mail-envelope-from))
15962
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
919
37baba8d7fbc (mail-mode-auto-fill): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15951
diff changeset
920 ;; 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
921 ;; It is called via the variable send-mail-function.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922
17097
c3c90aba16f9 (sendmail-coding-system): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 17013
diff changeset
923 ;;;###autoload
c3c90aba16f9 (sendmail-coding-system): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 17013
diff changeset
924 (defvar sendmail-coding-system nil
23086
baea0ab6d015 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23020
diff changeset
925 "*Coding system for encoding the outgoing mail.
23581
6b883bd6398d (sendmail-coding-system,
Andreas Schwab <schwab@suse.de>
parents: 23382
diff changeset
926 This has higher priority than `default-buffer-file-coding-system'
23086
baea0ab6d015 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23020
diff changeset
927 and `default-sendmail-coding-system',
baea0ab6d015 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23020
diff changeset
928 but lower priority than the local value of `buffer-file-coding-system'.
25142
2953218005dd (sendmail-coding-system): Doc-string fixed.
Kenichi Handa <handa@m17n.org>
parents: 24622
diff changeset
929 See also the function `select-message-coding-system'.")
23086
baea0ab6d015 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23020
diff changeset
930
baea0ab6d015 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23020
diff changeset
931 ;;;###autoload
baea0ab6d015 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23020
diff changeset
932 (defvar default-sendmail-coding-system 'iso-latin-1
23581
6b883bd6398d (sendmail-coding-system,
Andreas Schwab <schwab@suse.de>
parents: 23382
diff changeset
933 "Default coding system for encoding the outgoing mail.
23086
baea0ab6d015 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23020
diff changeset
934 This variable is used only when `sendmail-coding-system' is nil.
baea0ab6d015 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23020
diff changeset
935
65395
e5827c5f0d2a (default-sendmail-coding-system): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 65381
diff changeset
936 This variable is set/changed by the command `set-language-environment'.
23086
baea0ab6d015 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23020
diff changeset
937 User should not set this variable manually,
65395
e5827c5f0d2a (default-sendmail-coding-system): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 65381
diff changeset
938 instead use `sendmail-coding-system' to get a constant encoding
23086
baea0ab6d015 (sendmail-coding-system): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23020
diff changeset
939 of outgoing mails regardless of the current language environment.
25142
2953218005dd (sendmail-coding-system): Doc-string fixed.
Kenichi Handa <handa@m17n.org>
parents: 24622
diff changeset
940 See also the function `select-message-coding-system'.")
17013
d6ce795e84da (sendmail-coding-system): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 16761
diff changeset
941
63553
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
942 (defun mail-insert-from-field ()
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
943 (let* ((login user-mail-address)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
944 (fullname (user-full-name))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
945 (quote-fullname nil))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
946 (if (string-match "[^\0-\177]" fullname)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
947 (setq fullname (rfc2047-encode-string fullname)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
948 quote-fullname t))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
949 (cond ((eq mail-from-style 'angles)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
950 (insert "From: " fullname)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
951 (let ((fullname-start (+ (point-min) 6))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
952 (fullname-end (point-marker)))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
953 (goto-char fullname-start)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
954 ;; Look for a character that cannot appear unquoted
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
955 ;; according to RFC 822.
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
956 (if (or (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]"
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
957 fullname-end 1)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
958 quote-fullname)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
959 (progn
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
960 ;; Quote fullname, escaping specials.
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
961 (goto-char fullname-start)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
962 (insert "\"")
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
963 (while (re-search-forward "[\"\\]"
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
964 fullname-end 1)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
965 (replace-match "\\\\\\&" t))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
966 (insert "\""))))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
967 (insert " <" login ">\n"))
63553
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
968 ((eq mail-from-style 'parens)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
969 (insert "From: " login " (")
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
970 (let ((fullname-start (point)))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
971 (if quote-fullname
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
972 (insert "\""))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
973 (insert fullname)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
974 (if quote-fullname
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
975 (insert "\""))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
976 (let ((fullname-end (point-marker)))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
977 (goto-char fullname-start)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
978 ;; RFC 822 says \ and nonmatching parentheses
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
979 ;; must be escaped in comments.
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
980 ;; Escape every instance of ()\ ...
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
981 (while (re-search-forward "[()\\]" fullname-end 1)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
982 (replace-match "\\\\\\&" t))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
983 ;; ... then undo escaping of matching parentheses,
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
984 ;; including matching nested parentheses.
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
985 (goto-char fullname-start)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
986 (while (re-search-forward
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
987 "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)"
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
988 fullname-end 1)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
989 (replace-match "\\1(\\3)" t)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
990 (goto-char fullname-start))))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
991 (insert ")\n"))
63553
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
992 ((null mail-from-style)
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
993 (insert "From: " login "\n"))
63553
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
994 ((eq mail-from-style 'system-default)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
995 nil)
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
996 (t (error "Invalid value for `mail-from-style'")))))
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
997
85316
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
998 ;; Normally you will not need to modify these options unless you are
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
999 ;; using some non-genuine substitute for sendmail which does not
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1000 ;; implement each and every option that the original supports.
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1001 ;; E.g., ssmtp does not support "-odb", so, if your site uses it,
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1002 ;; you will need to modify `sendmail-error-reporting-non-interactive'
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1003 ;; in your site-init.el.
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1004 (defvar sendmail-error-reporting-interactive
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1005 ;; These mean "report errors to terminal" and "deliver interactively"
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1006 '("-oep" "-odi"))
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1007 (defvar sendmail-error-reporting-non-interactive
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1008 ;; These mean "report errors by mail" and "deliver in background".
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1009 '("-oem" "-odb"))
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1010
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1011 (defun sendmail-send-it ()
35615
6330c3e00b34 Doc fixes.
Dave Love <fx@gnu.org>
parents: 35383
diff changeset
1012 "Send the current mail buffer using the Sendmail package.
6330c3e00b34 Doc fixes.
Dave Love <fx@gnu.org>
parents: 35383
diff changeset
1013 This is a suitable value for `send-mail-function'. It sends using the
6330c3e00b34 Doc fixes.
Dave Love <fx@gnu.org>
parents: 35383
diff changeset
1014 external program defined by `sendmail-program'."
13056
c1ce3b4556f2 (mail-file-babyl-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 12980
diff changeset
1015 (require 'mail-utils)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1016 (let ((errbuf (if mail-interactive
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1017 (generate-new-buffer " sendmail errors")
23845
b3d94db9bc57 (sendmail-send-it): Don't wait for sendmail to
Karl Heuer <kwzh@gnu.org>
parents: 23645
diff changeset
1018 0))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1019 (tembuf (generate-new-buffer " sendmail temp"))
47579
d5e1e2adcb67 (sendmail-send-it): If user's buffer is unibyte, make tembuf unibyte.
Richard M. Stallman <rms@gnu.org>
parents: 47206
diff changeset
1020 (multibyte enable-multibyte-characters)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1021 (case-fold-search nil)
47887
d347ebc48f79 (sendmail-send-it): Call
Kenichi Handa <handa@m17n.org>
parents: 47837
diff changeset
1022 (selected-coding (select-message-coding-system))
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1023 resend-to-addresses
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1024 delimline
16700
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
1025 fcc-was-found
38285
b7db38e7d28d (sendmail-send-it): Look at `sendmail-program'
Gerd Moellmann <gerd@gnu.org>
parents: 36913
diff changeset
1026 (mailbuf (current-buffer))
b7db38e7d28d (sendmail-send-it): Look at `sendmail-program'
Gerd Moellmann <gerd@gnu.org>
parents: 36913
diff changeset
1027 (program (if (boundp 'sendmail-program)
b7db38e7d28d (sendmail-send-it): Look at `sendmail-program'
Gerd Moellmann <gerd@gnu.org>
parents: 36913
diff changeset
1028 sendmail-program
42370
fd0376bcb507 (mail-envelope-from): Fix :type. Suggested by "Golubev I. N." <gin@mo.msk.ru>.
Eli Zaretskii <eliz@gnu.org>
parents: 40383
diff changeset
1029 "/usr/lib/sendmail"))
42383
4d7337b920e3 (mail-envelope-from): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents: 42370
diff changeset
1030 ;; Examine these variables now, so that
4d7337b920e3 (mail-envelope-from): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents: 42370
diff changeset
1031 ;; local binding in the mail buffer will take effect.
4d7337b920e3 (mail-envelope-from): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents: 42370
diff changeset
1032 (envelope-from
4d7337b920e3 (mail-envelope-from): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents: 42370
diff changeset
1033 (and mail-specify-envelope-from
47837
b9705a05fa60 * mail/sendmail.el (mail-envelope-from): New option `header' to
Simon Josefsson <jas@extundo.com>
parents: 47579
diff changeset
1034 (or (mail-envelope-from) user-mail-address))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1035 (unwind-protect
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1036 (with-current-buffer tembuf
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1037 (erase-buffer)
47579
d5e1e2adcb67 (sendmail-send-it): If user's buffer is unibyte, make tembuf unibyte.
Richard M. Stallman <rms@gnu.org>
parents: 47206
diff changeset
1038 (unless multibyte
d5e1e2adcb67 (sendmail-send-it): If user's buffer is unibyte, make tembuf unibyte.
Richard M. Stallman <rms@gnu.org>
parents: 47206
diff changeset
1039 (set-buffer-multibyte nil))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1040 (insert-buffer-substring mailbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1041 (goto-char (point-max))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1042 ;; require one newline at the end.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1043 (or (= (preceding-char) ?\n)
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1044 (insert ?\n))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1045 ;; 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
1046 (goto-char (mail-header-end))
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
1047 (delete-region (point) (progn (end-of-line) (point)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1048 (setq delimline (point-marker))
13950
e9615c5f477a (sendmail-sync-aliases): Renamed from sendmail-synch-aliases.
Karl Heuer <kwzh@gnu.org>
parents: 13928
diff changeset
1049 (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
1050 (if mail-aliases
240d5fe38595 (mail-setup): Call build-mail-aliases, not mail-abbrev-setup.
Richard M. Stallman <rms@gnu.org>
parents: 1269
diff changeset
1051 (expand-mail-aliases (point-min) delimline))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1052 (goto-char (point-min))
19628
3be882bc0211 (mail-send): Complain about invalid header line.
Richard M. Stallman <rms@gnu.org>
parents: 19440
diff changeset
1053 ;; Ignore any blank lines in the header
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1054 (while (and (re-search-forward "\n\n\n*" delimline t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1055 (< (point) delimline))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1056 (replace-match "\n"))
19628
3be882bc0211 (mail-send): Complain about invalid header line.
Richard M. Stallman <rms@gnu.org>
parents: 19440
diff changeset
1057 (goto-char (point-min))
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1058 ;; Look for Resent- headers. They require sending
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1059 ;; the message specially.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1060 (let ((case-fold-search t))
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1061 (goto-char (point-min))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1062 (while (re-search-forward "^Resent-\\(to\\|cc\\|bcc\\):" delimline t)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1063 ;; Put a list of such addresses in resend-to-addresses.
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1064 (setq resend-to-addresses
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1065 (save-restriction
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1066 (narrow-to-region (point)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1067 (save-excursion
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1068 (forward-line 1)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1069 (while (looking-at "^[ \t]")
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1070 (forward-line 1))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1071 (point)))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1072 (append (mail-parse-comma-list)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1073 resend-to-addresses)))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1074 ;; Delete Resent-BCC ourselves
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1075 (if (save-excursion (beginning-of-line)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1076 (looking-at "resent-bcc"))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1077 (delete-region (save-excursion (beginning-of-line) (point))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1078 (save-excursion (end-of-line) (1+ (point))))))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1079 ;;; Apparently this causes a duplicate Sender.
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1080 ;;; ;; If the From is different than current user, insert Sender.
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1081 ;;; (goto-char (point-min))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1082 ;;; (and (re-search-forward "^From:" delimline t)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1083 ;;; (progn
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1084 ;;; (require 'mail-utils)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1085 ;;; (not (string-equal
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1086 ;;; (mail-strip-quoted-names
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1087 ;;; (save-restriction
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1088 ;;; (narrow-to-region (point-min) delimline)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1089 ;;; (mail-fetch-field "From")))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1090 ;;; (user-login-name))))
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1091 ;;; (progn
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1092 ;;; (forward-line 1)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1093 ;;; (insert "Sender: " (user-login-name) "\n")))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1094 ;; Don't send out a blank subject line
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1095 (goto-char (point-min))
11709
03f977d9a240 (sendmail-send-it): Check continuation lines
Richard M. Stallman <rms@gnu.org>
parents: 11551
diff changeset
1096 (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
1097 (replace-match "")
30b732ff2de2 (sendmail-send-it): Make deletion of empty subject line work reliably.
Richard M. Stallman <rms@gnu.org>
parents: 13824
diff changeset
1098 ;; 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
1099 (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
1100 (= (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
1101 (replace-match "")))
10097
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
1102 ;; 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
1103 ;; they put one in themselves.
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
1104 (goto-char (point-min))
429eda63a32c (sendmail-send-it): Add `From:' header.
Karl Heuer <kwzh@gnu.org>
parents: 10013
diff changeset
1105 (if (not (re-search-forward "^From:" delimline t))
63553
5026b9fcbb0c (mail-setup-with-from): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62580
diff changeset
1106 (mail-insert-from-field))
28031
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
1107 ;; Possibly add a MIME header for the current coding system
30494
0cb71f4faae1 (sendmail-send-it): Improve the way to avoid calling
Kenichi Handa <handa@m17n.org>
parents: 29648
diff changeset
1108 (let (charset)
28031
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
1109 (goto-char (point-min))
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
1110 (and (eq mail-send-nonascii 'mime)
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
1111 (not (re-search-forward "^MIME-version:" delimline t))
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
1112 (progn (skip-chars-forward "\0-\177")
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
1113 (/= (point) (point-max)))
47887
d347ebc48f79 (sendmail-send-it): Call
Kenichi Handa <handa@m17n.org>
parents: 47837
diff changeset
1114 selected-coding
28031
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
1115 (setq charset
88514
18cd065b6b87 (sendmail-send-it): Use :mime-charset, not
Dave Love <fx@gnu.org>
parents: 43054
diff changeset
1116 (coding-system-get selected-coding :mime-charset))
28031
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
1117 (goto-char delimline)
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1118 (insert "MIME-version: 1.0\n"
28031
4b1aa29ef006 (mail-send-nonascii): Add a new value 'mime and use
Gerd Moellmann <gerd@gnu.org>
parents: 27548
diff changeset
1119 "Content-type: text/plain; charset="
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1120 (symbol-name charset)
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1121 "\nContent-Transfer-Encoding: 8bit\n")))
5667
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
1122 ;; 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
1123 ;; Sun's bug that swallows newlines.
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
1124 (goto-char (1+ delimline))
03c03462bca3 (mail-mailer-swallows-blank-line): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5261
diff changeset
1125 (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
1126 (newline))
13090
b9cc587a5d8b (sendmail-send-it): Handle FCC after all text changes.
Richard M. Stallman <rms@gnu.org>
parents: 13062
diff changeset
1127 ;; 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
1128 (goto-char (point-min))
b9cc587a5d8b (sendmail-send-it): Handle FCC after all text changes.
Richard M. Stallman <rms@gnu.org>
parents: 13062
diff changeset
1129 (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
1130 (progn
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
1131 (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
1132 (mail-do-fcc delimline)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1133 (if mail-interactive
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1134 (with-current-buffer errbuf
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1135 (erase-buffer))))
16700
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
1136 (goto-char (point-min))
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
1137 (if (let ((case-fold-search t))
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1138 (or resend-to-addresses
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1139 (re-search-forward "^To:\\|^cc:\\|^bcc:"
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1140 delimline t)))
23645
2717722f5c32 (sendmail-send-it): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 23581
diff changeset
1141 (let* ((default-directory "/")
47887
d347ebc48f79 (sendmail-send-it): Call
Kenichi Handa <handa@m17n.org>
parents: 47837
diff changeset
1142 (coding-system-for-write selected-coding)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49063
diff changeset
1143 (args
23645
2717722f5c32 (sendmail-send-it): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 23581
diff changeset
1144 (append (list (point-min) (point-max)
38285
b7db38e7d28d (sendmail-send-it): Look at `sendmail-program'
Gerd Moellmann <gerd@gnu.org>
parents: 36913
diff changeset
1145 program
23645
2717722f5c32 (sendmail-send-it): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 23581
diff changeset
1146 nil errbuf nil "-oi")
42383
4d7337b920e3 (mail-envelope-from): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents: 42370
diff changeset
1147 (and envelope-from
4d7337b920e3 (mail-envelope-from): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents: 42370
diff changeset
1148 (list "-f" envelope-from))
23645
2717722f5c32 (sendmail-send-it): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 23581
diff changeset
1149 ;;; ;; Don't say "from root" if running under su.
2717722f5c32 (sendmail-send-it): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 23581
diff changeset
1150 ;;; (and (equal (user-real-login-name) "root")
2717722f5c32 (sendmail-send-it): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 23581
diff changeset
1151 ;;; (list "-f" (user-login-name)))
2717722f5c32 (sendmail-send-it): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 23581
diff changeset
1152 (and mail-alias-file
2717722f5c32 (sendmail-send-it): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 23581
diff changeset
1153 (list (concat "-oA" mail-alias-file)))
2717722f5c32 (sendmail-send-it): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 23581
diff changeset
1154 (if mail-interactive
85316
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1155 sendmail-error-reporting-interactive
a1fff6d65046 (sendmail-error-reporting-interactive)
Sam Steingold <sds@gnu.org>
parents: 84814
diff changeset
1156 sendmail-error-reporting-non-interactive)
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1157 ;; Get the addresses from the message
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1158 ;; unless this is a resend.
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1159 ;; We must not do that for a resend
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1160 ;; because we would find the original addresses.
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1161 ;; For a resend, include the specific addresses.
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1162 (or resend-to-addresses
36913
5474d22888af (sendmail-send-it): Don't parse Resent-*
Gerd Moellmann <gerd@gnu.org>
parents: 36887
diff changeset
1163 '("-t")
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1164 )
44861
de1bcec6e403 (mail-use-dsn): New variable to request delivery status notification from MTA.
Richard M. Stallman <rms@gnu.org>
parents: 43683
diff changeset
1165 (if mail-use-dsn
de1bcec6e403 (mail-use-dsn): New variable to request delivery status notification from MTA.
Richard M. Stallman <rms@gnu.org>
parents: 43683
diff changeset
1166 (list "-N" (mapconcat 'symbol-name
de1bcec6e403 (mail-use-dsn): New variable to request delivery status notification from MTA.
Richard M. Stallman <rms@gnu.org>
parents: 43683
diff changeset
1167 mail-use-dsn ",")))
36913
5474d22888af (sendmail-send-it): Don't parse Resent-*
Gerd Moellmann <gerd@gnu.org>
parents: 36887
diff changeset
1168 )
5474d22888af (sendmail-send-it): Don't parse Resent-*
Gerd Moellmann <gerd@gnu.org>
parents: 36887
diff changeset
1169 )
23645
2717722f5c32 (sendmail-send-it): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 23581
diff changeset
1170 (exit-value (apply 'call-process-region args)))
53477
79093b308520 * progmodes/idlwave.el (idlwave-make-tags):
Eli Zaretskii <eliz@is.elta.co.il>
parents: 52684
diff changeset
1171 (or (null exit-value) (eq 0 exit-value)
23645
2717722f5c32 (sendmail-send-it): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 23581
diff changeset
1172 (error "Sending...failed with exit value %d" exit-value)))
16700
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
1173 (or fcc-was-found
0ecab43a0f69 (sendmail-send-it): If no recipients, don't run
Richard M. Stallman <rms@gnu.org>
parents: 16634
diff changeset
1174 (error "No recipients")))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1175 (if mail-interactive
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1176 (with-current-buffer errbuf
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1177 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1178 (while (re-search-forward "\n\n* *" nil t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1179 (replace-match "; "))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1180 (if (not (zerop (buffer-size)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1181 (error "Sending...failed to %s"
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1182 (buffer-substring (point-min) (point-max)))))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1183 (kill-buffer tembuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1184 (if (bufferp errbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1185 (kill-buffer errbuf)))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1186
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1187 (defun mail-do-fcc (header-end)
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1188 (unless (markerp header-end)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1189 (error "Value of `header-end' must be a marker"))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1190 (let (fcc-list
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1191 (rmailbuf (current-buffer))
2920
c47652dc3400 Some time-handling patches from Paul Eggert:
Jim Blandy <jimb@redhat.com>
parents: 2858
diff changeset
1192 (time (current-time))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1193 (tembuf (generate-new-buffer " rmail output"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1194 (case-fold-search t))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1195 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1196 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1197 (while (re-search-forward "^FCC:[ \t]*" header-end t)
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1198 (push (buffer-substring (point)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1199 (progn
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1200 (end-of-line)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1201 (skip-chars-backward " \t")
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1202 (point)))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1203 fcc-list)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1204 (delete-region (match-beginning 0)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1205 (progn (forward-line 1) (point))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1206 (set-buffer tembuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1207 (erase-buffer)
3340
908134e8308a (mail-do-fcc): Put back the newline at the start
Richard M. Stallman <rms@gnu.org>
parents: 3232
diff changeset
1208 ;; This initial newline is written out if the fcc file already exists.
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1209 (insert "\nFrom " (user-login-name) " "
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1210 (current-time-string time) "\n")
1075
f402fe560fcd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1025
diff changeset
1211 ;; Insert the time zone before the year.
f402fe560fcd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1025
diff changeset
1212 (forward-char -1)
f402fe560fcd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1025
diff changeset
1213 (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
1214 (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
1215 (insert (mail-rfc822-time-zone time) " ")
1075
f402fe560fcd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1025
diff changeset
1216 (goto-char (point-max))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1217 (insert-buffer-substring rmailbuf)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1218 ;; Make sure messages are separated.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219 (goto-char (point-max))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1220 (insert ?\n)
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1221 (goto-char 2)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1222 ;; ``Quote'' "^From " as ">From "
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1223 ;; (note that this isn't really quoting, as there is no requirement
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1224 ;; that "^[>]+From " be quoted in the same transparent way.)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1225 (let ((case-fold-search nil))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1226 (while (search-forward "\nFrom " nil t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1227 (forward-char -5)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1228 (insert ?>)))
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1229 (dolist (fcc fcc-list)
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1230 (let* ((buffer (find-buffer-visiting fcc))
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
1231 (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
1232 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
1233 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
1234 (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
1235 (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
1236 (forward-line 2) (point))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1237 (if buffer
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1238 ;; File is present in a buffer => append to that buffer.
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1239 (with-current-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
1240 (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
1241 (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
1242 (verify-visited-file-modtime buffer)))
9516
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1243 ;; 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
1244 ;; 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
1245 (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
1246 (point-max))))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1247 (unwind-protect
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1248 ;; Code below lifted from rmailout.el
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1249 ;; function rmail-output-to-rmail-file:
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1250 (let ((buffer-read-only nil)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1251 (msg (and (boundp 'rmail-current-message)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1252 rmail-current-message)))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1253 ;; 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
1254 (if msg
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1255 (progn
39479
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1256 ;; Append to an ordinary buffer as a
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1257 ;; Unix mail message.
9516
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1258 (rmail-maybe-set-message-counters)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1259 (widen)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1260 (narrow-to-region (point-max) (point-max))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1261 (insert "\C-l\n0, unseen,,\n*** EOOH ***\n"
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1262 "Date: " (mail-rfc822-date) "\n")
9516
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1263 (insert-buffer-substring curbuf beg2 end)
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1264 (insert "\n\C-_")
9516
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1265 (goto-char (point-min))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1266 (widen)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1267 (search-backward "\n\^_")
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1268 (narrow-to-region (point) (point-max))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1269 (rmail-count-new-messages t)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1270 (rmail-show-message msg)
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1271 (setq max nil))
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1272 ;; Output file not in rmail mode
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1273 ;; => just insert at the end.
48a47a2673a5 (mail-file-babyl-p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9483
diff changeset
1274 (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
1275 (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
1276 (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
1277 (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
1278 (progn
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
1279 (if (y-or-n-p (format "Save file %s? "
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1280 fcc))
17488
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
1281 (save-buffer))
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
1282 (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
1283 (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
1284 ;; 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
1285 ;; 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
1286 (unless dont-write-the-file
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1287 (if (and (file-exists-p fcc)
28632
239d5d98c1bd (mail-do-fcc): Prevent inserting a newline
Gerd Moellmann <gerd@gnu.org>
parents: 28031
diff changeset
1288 ;; Check that the file isn't empty. We don't
239d5d98c1bd (mail-do-fcc): Prevent inserting a newline
Gerd Moellmann <gerd@gnu.org>
parents: 28031
diff changeset
1289 ;; want to insert a newline at the start of an
239d5d98c1bd (mail-do-fcc): Prevent inserting a newline
Gerd Moellmann <gerd@gnu.org>
parents: 28031
diff changeset
1290 ;; empty file.
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1291 (not (zerop (nth 7 (file-attributes fcc))))
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1292 (mail-file-babyl-p fcc))
20096
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
1293 ;; 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
1294 ;; convert the message to Babyl format.
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
1295 (let ((coding-system-for-write
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
1296 (or rmail-file-coding-system
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
1297 'emacs-mule)))
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1298 (with-current-buffer (get-buffer-create " mail-temp")
20096
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
1299 (setq buffer-read-only nil)
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
1300 (erase-buffer)
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1301 (insert "\C-l\n0, unseen,,\n*** EOOH ***\nDate: "
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1302 (mail-rfc822-date) "\n")
20096
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
1303 (insert-buffer-substring curbuf beg2 end)
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1304 (insert "\n\C-_")
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1305 (write-region (point-min) (point-max) fcc t)
20096
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
1306 (erase-buffer)))
f83d5ee9a78e (mail-do-fcc): Handle dont-write-the-file
Karl Heuer <kwzh@gnu.org>
parents: 20049
diff changeset
1307 (write-region
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1308 (1+ (point-min)) (point-max) fcc t)))
17488
59a7e3965010 (sendmail-send-it): Use quoted-printable encoding for the From field.
Richard M. Stallman <rms@gnu.org>
parents: 17164
diff changeset
1309 (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
1310 (with-current-buffer buffer
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1311 (set-visited-file-modtime))))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1312 (kill-buffer tembuf)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1313
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1314 (defun mail-sent-via ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1315 "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
1316 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1317 (save-excursion
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1318 ;; put a marker at the end of the header
24622
787f4cefd148 (mail-sent-via): Use copy-marker not make-marker.
Karl Heuer <kwzh@gnu.org>
parents: 24483
diff changeset
1319 (let ((end (copy-marker (mail-header-end)))
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1320 (case-fold-search t))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1321 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1322 ;; search for the To: lines and make Sent-via: lines from them
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1323 ;; search for the next To: line
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1324 (while (re-search-forward "^\\(to\\|cc\\):" end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1325 ;; Grab this line plus all its continuations, sans the `to:'.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1326 (let ((to-line
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1327 (buffer-substring (point)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1328 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1329 (if (re-search-forward "^[^ \t\n]" end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1330 (backward-char 1)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1331 (goto-char end))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1332 (point)))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1333 ;; Insert a copy, with altered header field name.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1334 (insert-before-markers "Sent-via:" to-line))))))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1335
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1336 (defun mail-to ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1337 "Move point to end of To-field."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1338 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1339 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1340 (mail-position-on-field "To"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1341
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1342 (defun mail-subject ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1343 "Move point to end of Subject-field."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1344 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1345 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1346 (mail-position-on-field "Subject"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1347
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1348 (defun mail-cc ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1349 "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
1350 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1351 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1352 (or (mail-position-on-field "cc" t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1353 (progn (mail-position-on-field "to")
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1354 (insert "\nCC: "))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1355
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1356 (defun mail-bcc ()
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1357 "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
1358 (interactive)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1359 (expand-abbrev)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1360 (or (mail-position-on-field "bcc" t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1361 (progn (mail-position-on-field "to")
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1362 (insert "\nBCC: "))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1363
5210
4db0922992a3 (mail-fcc): Take argument and use interactive spec to prompt, rather than
Roland McGrath <roland@gnu.org>
parents: 5097
diff changeset
1364 (defun mail-fcc (folder)
573
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
1365 "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
1366 (interactive "FFolder carbon copy: ")
573
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
1367 (expand-abbrev)
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
1368 (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
1369 (mail-position-on-field "to"))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1370 (insert "\nFCC: " folder))
573
f0ffd1764382 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
1371
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49063
diff changeset
1372 (defun mail-reply-to ()
39479
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1373 "Move point to end of Reply-To-field. Create a Reply-To field if none."
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
1374 (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
1375 (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
1376 (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
1377
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1378 (defun mail-mail-reply-to ()
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1379 "Move point to end of Mail-Reply-To field.
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1380 Create a Mail-Reply-To field if none."
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1381 (interactive)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1382 (expand-abbrev)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1383 (or (mail-position-on-field "mail-reply-to" t)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1384 (progn (mail-position-on-field "to")
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1385 (insert "\nMail-Reply-To: "))))
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1386
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1387 (defun mail-mail-followup-to ()
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1388 "Move point to end of Mail-Followup-To field.
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1389 Create a Mail-Followup-To field if none."
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1390 (interactive)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1391 (expand-abbrev)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1392 (or (mail-position-on-field "mail-followup-to" t)
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1393 (progn (mail-position-on-field "to")
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1394 (insert "\nMail-Followup-To: "))))
60691
2333319dc01c (sendmail-send-it): Reenaable the code
Richard M. Stallman <rms@gnu.org>
parents: 59996
diff changeset
1395
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1396 (defun mail-position-on-field (field &optional soft)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1397 (let (end
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1398 (case-fold-search t))
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
1399 (setq end (mail-header-end))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1400 (goto-char (point-min))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1401 (if (re-search-forward (concat "^" (regexp-quote field) ":") end t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1402 (progn
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1403 (re-search-forward "^[^ \t]" nil 'move)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1404 (beginning-of-line)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1405 (skip-chars-backward "\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1406 t)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1407 (or soft
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1408 (progn (goto-char end)
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1409 (insert field ": \n")
604
63a8e7b3c547 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 584
diff changeset
1410 (skip-chars-backward "\n")))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1411 nil)))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1412
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1413 (defun mail-text ()
76971
f1b843dae8ab (mail-text, mail-mode): Revert extant pieces of 1995-05-19 doc
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1414 "Move point to beginning of text field."
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1415 (interactive)
11866
77f73856e803 (mail-text): Expand abbrev before moving point.
Karl Heuer <kwzh@gnu.org>
parents: 11857
diff changeset
1416 (expand-abbrev)
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
1417 (goto-char (mail-text-start)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1418
39479
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1419 (defun mail-signature (&optional atpoint)
48526
cd3075e04573 (mail-signature): Handle case where
Richard M. Stallman <rms@gnu.org>
parents: 48198
diff changeset
1420 "Sign letter with signature based on `mail-signature-file'.
5839
14c24d764568 (mail-signature): Doc mod.
Karl Heuer <kwzh@gnu.org>
parents: 5731
diff changeset
1421 Prefix arg means put contents at point."
679
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
1422 (interactive "P")
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1423 (save-excursion
679
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
1424 (or atpoint
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
1425 (goto-char (point-max)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1426 (skip-chars-backward " \t\n")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1427 (end-of-line)
679
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
1428 (or atpoint
046f1a6867e7 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
1429 (delete-region (point) (point-max)))
48526
cd3075e04573 (mail-signature): Handle case where
Richard M. Stallman <rms@gnu.org>
parents: 48198
diff changeset
1430 (if (stringp mail-signature)
cd3075e04573 (mail-signature): Handle case where
Richard M. Stallman <rms@gnu.org>
parents: 48198
diff changeset
1431 (insert mail-signature)
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1432 (insert "\n\n-- \n")
48526
cd3075e04573 (mail-signature): Handle case where
Richard M. Stallman <rms@gnu.org>
parents: 48198
diff changeset
1433 (insert-file-contents (expand-file-name mail-signature-file)))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1434
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1435 (defun mail-fill-yanked-message (&optional justifyp)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1436 "Fill the paragraphs of a message yanked into this one.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1437 Numeric argument means justify as well."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1438 (interactive "P")
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1439 (save-excursion
21920
eeb4e3a385db (send-mail-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21545
diff changeset
1440 (goto-char (mail-text-start))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1441 (fill-individual-paragraphs (point)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1442 (point-max)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1443 justifyp
22747
63b084753ad7 (mail-citation-prefix-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22634
diff changeset
1444 mail-citation-prefix-regexp)))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1445
18909
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1446 (defun mail-indent-citation ()
3424
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1447 "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
1448 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
1449 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
1450
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1451 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
1452 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
1453 (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
1454 (if (null mail-yank-prefix)
18909
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1455 (indent-rigidly (region-beginning) (region-end)
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1456 mail-indentation-spaces)
16761
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1457 (save-excursion
18909
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1458 (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
1459 (goto-char (region-beginning))
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1460 (while (< (point) end)
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1461 (insert mail-yank-prefix)
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1462 (forward-line 1))))))
3424
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1463
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1464 (defun mail-yank-original (arg)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1465 "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
1466 Puts point after the text and mark before.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1467 Normally, indents each nonblank line ARG spaces (default 3).
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1468 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
1469
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1470 Just \\[universal-argument] as argument means don't indent, insert no prefix,
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1471 and don't delete any header fields."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1472 (interactive "P")
16634
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1473 (if mail-reply-action
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1474 (let ((start (point))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1475 (original mail-reply-action))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1476 (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
1477 (setq original (nth 1 original)))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1478 (if (consp original)
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1479 (apply (car original) (cdr original))
a076177cfac7 (mail-reply-action): Renamed from mail-reply-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 16453
diff changeset
1480 ;; 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
1481 ;; 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
1482 ;; 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
1483 (delete-windows-on original t)
64807
ece90261ed42 (mail-yank-original): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 64754
diff changeset
1484 (with-no-warnings
ece90261ed42 (mail-yank-original): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 64754
diff changeset
1485 ;; We really want this to set mark.
ece90261ed42 (mail-yank-original): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 64754
diff changeset
1486 (insert-buffer original))
23976
12c74d5eff80 (mail-mode): Eliminate ambiguous match from paragraph-start.
Richard M. Stallman <rms@gnu.org>
parents: 23845
diff changeset
1487 (set-text-properties (point) (mark t) nil))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1488 (if (consp arg)
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1489 nil
3424
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1490 (goto-char start)
7ccd5b60891d (mail-signature): Do not insert a line with `--'.
Richard M. Stallman <rms@gnu.org>
parents: 3340
diff changeset
1491 (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
1492 mail-indentation-spaces))
22865
df59ef00f1e4 (mail-yank-region): Bind mark-even-if-inactive to t.
Richard M. Stallman <rms@gnu.org>
parents: 22839
diff changeset
1493 ;; Avoid error in Transient Mark mode
df59ef00f1e4 (mail-yank-region): Bind mark-even-if-inactive to t.
Richard M. Stallman <rms@gnu.org>
parents: 22839
diff changeset
1494 ;; on account of mark's being inactive.
19440
797637e1e880 (mail-yank-original): Bind mark-even-if-inactive
Richard M. Stallman <rms@gnu.org>
parents: 19350
diff changeset
1495 (mark-even-if-inactive t))
39479
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1496 (cond (mail-citation-hook
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1497 ;; Bind mail-citation-header to the inserted
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1498 ;; message's header.
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1499 (let ((mail-citation-header
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1500 (buffer-substring-no-properties
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1501 start
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1502 (save-excursion
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1503 (save-restriction
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1504 (narrow-to-region start (point-max))
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1505 (goto-char start)
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1506 (rfc822-goto-eoh)
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1507 (point))))))
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1508 (run-hooks 'mail-citation-hook)))
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1509 (mail-yank-hooks
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1510 (run-hooks 'mail-yank-hooks))
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1511 (t
eae96dc1dbb3 (send-mail-function): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 39396
diff changeset
1512 (mail-indent-citation)))))
2858
ef942eda3523 (mail-yank-original): In Transient Mark mode,
Richard M. Stallman <rms@gnu.org>
parents: 2852
diff changeset
1513 ;; 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
1514 ;; 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
1515 ;; 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
1516 (goto-char (prog1 (mark t)
ef942eda3523 (mail-yank-original): In Transient Mark mode,
Richard M. Stallman <rms@gnu.org>
parents: 2852
diff changeset
1517 (set-marker (mark-marker) (point) (current-buffer))))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1518 (if (not (eolp)) (insert ?\n)))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1519
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1520 (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
1521 (if (< end start)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1522 (let (temp)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1523 (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
1524 (if mail-yank-ignored-headers
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1525 (save-excursion
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1526 (goto-char start)
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1527 (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
1528 (save-restriction
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1529 (narrow-to-region start (point))
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1530 (goto-char start)
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1531 (while (let ((case-fold-search t))
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1532 (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
1533 (beginning-of-line)
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1534 (delete-region (point)
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1535 (progn (re-search-forward "\n[^ \t]")
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1536 (forward-char -1)
391ce1139d50 (mail-yank-clear-headers): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents: 13398
diff changeset
1537 (point)))))))))
16761
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1538
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1539 (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
1540 "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
1541 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
1542 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
1543 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
1544
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1545 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
1546 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
1547 (interactive "P")
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1548 (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
1549 (eq (car mail-reply-action) 'insert-buffer)
23976
12c74d5eff80 (mail-mode): Eliminate ambiguous match from paragraph-start.
Richard M. Stallman <rms@gnu.org>
parents: 23845
diff changeset
1550 (with-current-buffer (nth 1 mail-reply-action)
12c74d5eff80 (mail-mode): Eliminate ambiguous match from paragraph-start.
Richard M. Stallman <rms@gnu.org>
parents: 23845
diff changeset
1551 (or (mark t)
12c74d5eff80 (mail-mode): Eliminate ambiguous match from paragraph-start.
Richard M. Stallman <rms@gnu.org>
parents: 23845
diff changeset
1552 (error "No mark set: %S" (current-buffer))))
16761
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1553 (let ((buffer (nth 1 mail-reply-action))
22865
df59ef00f1e4 (mail-yank-region): Bind mark-even-if-inactive to t.
Richard M. Stallman <rms@gnu.org>
parents: 22839
diff changeset
1554 (start (point))
df59ef00f1e4 (mail-yank-region): Bind mark-even-if-inactive to t.
Richard M. Stallman <rms@gnu.org>
parents: 22839
diff changeset
1555 ;; Avoid error in Transient Mark mode
df59ef00f1e4 (mail-yank-region): Bind mark-even-if-inactive to t.
Richard M. Stallman <rms@gnu.org>
parents: 22839
diff changeset
1556 ;; on account of mark's being inactive.
df59ef00f1e4 (mail-yank-region): Bind mark-even-if-inactive to t.
Richard M. Stallman <rms@gnu.org>
parents: 22839
diff changeset
1557 (mark-even-if-inactive t))
16761
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1558 ;; Insert the citation text.
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1559 (insert (with-current-buffer buffer
22990
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
1560 (buffer-substring-no-properties (point) (mark))))
16761
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1561 (push-mark start)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1562 ;; 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
1563 (if (consp arg)
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1564 nil
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1565 (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
1566 mail-indentation-spaces)))
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1567 (if mail-citation-hook
97965
0226898fa3f5 (mail-yank-region): Fix comment.
John Paul Wallington <jpw@pobox.com>
parents: 95625
diff changeset
1568 ;; Bind mail-citation-header to the original message's header.
22990
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
1569 (let ((mail-citation-header
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
1570 (with-current-buffer buffer
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
1571 (buffer-substring-no-properties
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
1572 (point-min)
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
1573 (save-excursion
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
1574 (goto-char (point-min))
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
1575 (rfc822-goto-eoh)
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
1576 (point))))))
491a97002c82 (mail-citation-header): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22865
diff changeset
1577 (run-hooks 'mail-citation-hook))
16761
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1578 (if mail-yank-hooks
20f01fd704f7 (mail-yank-clear-headers): Handle case of end < start.
Richard M. Stallman <rms@gnu.org>
parents: 16760
diff changeset
1579 (run-hooks 'mail-yank-hooks)
18909
e8c770e7f81d (mail-indent-citation): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 18871
diff changeset
1580 (mail-indent-citation))))))))
49033
4a660dffff16 (mail-split-line): New function.
Kim F. Storm <storm@cua.dk>
parents: 48526
diff changeset
1581
4a660dffff16 (mail-split-line): New function.
Kim F. Storm <storm@cua.dk>
parents: 48526
diff changeset
1582 (defun mail-split-line ()
4a660dffff16 (mail-split-line): New function.
Kim F. Storm <storm@cua.dk>
parents: 48526
diff changeset
1583 "Split current line, moving portion beyond point vertically down.
4a660dffff16 (mail-split-line): New function.
Kim F. Storm <storm@cua.dk>
parents: 48526
diff changeset
1584 If the current line has `mail-yank-prefix', insert it on the new line."
4a660dffff16 (mail-split-line): New function.
Kim F. Storm <storm@cua.dk>
parents: 48526
diff changeset
1585 (interactive "*")
4a660dffff16 (mail-split-line): New function.
Kim F. Storm <storm@cua.dk>
parents: 48526
diff changeset
1586 (split-line mail-yank-prefix))
4a660dffff16 (mail-split-line): New function.
Kim F. Storm <storm@cua.dk>
parents: 48526
diff changeset
1587
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1588
17512
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1589 (defun mail-attach-file (&optional file)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1590 "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
1591 (interactive "fAttach file: ")
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1592 (save-excursion
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1593 (goto-char (point-max))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1594 (or (bolp) (newline))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1595 (newline)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1596 (let ((start (point))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1597 middle)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1598 (insert (format "===File %s===" file))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1599 (insert-char ?= (max 0 (- 60 (current-column))))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1600 (newline)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1601 (setq middle (point))
67213
818361523ce8 * longlines.el (longlines-mode): Add mail-setup-hook.
Chong Yidong <cyd@stupidchicken.com>
parents: 66965
diff changeset
1602 (insert "============================================================\n")
17512
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1603 (push-mark)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1604 (goto-char middle)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1605 (insert-file-contents file)
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1606 (or (bolp) (newline))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1607 (goto-char start))))
50ada9a65e3d (mail-attach-file): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17488
diff changeset
1608
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
1609 ;; 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
1610 ;; 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
1611
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
1612 ;;;###autoload (add-hook 'same-window-buffer-names "*mail*")
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1613
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1614 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1615 (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
1616 "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
1617 When this function returns, the buffer `*mail*' is selected.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1618 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
1619
13116
61c560010274 (mail-signature-file): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13090
diff changeset
1620 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
1621 end; see the variable `mail-signature'.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1622
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1623 \\<mail-mode-map>
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1624 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
1625
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1626 Various special commands starting with C-c are available in sendmail mode
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1627 to move to message header fields:
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1628 \\{mail-mode-map}
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1629
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1630 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
1631 when the message is initialized.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1632
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1633 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
1634 a Reply-to: field with that address is inserted.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1635
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1636 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
1637 is inserted.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1638
12564
3cd5105aeb2b (mail-setup-hook): New defvar.
Karl Heuer <kwzh@gnu.org>
parents: 12473
diff changeset
1639 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
1640 initialized. It can add more default fields to the message.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1641
65479
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1642 The first argument, NOERASE, determines what to do when there is
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1643 an existing modified `*mail*' buffer. If NOERASE is nil, the
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1644 existing mail buffer is used, and the user is prompted whether to
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1645 keep the old contents or to erase them. If NOERASE has the value
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1646 `new', a new mail buffer will be created instead of using the old
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1647 one. Any other non-nil value means to always select the old
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1648 buffer without erasing the contents.
9160
21ac199719fc (mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9004
diff changeset
1649
21ac199719fc (mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9004
diff changeset
1650 The second through fifth arguments,
21ac199719fc (mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9004
diff changeset
1651 TO, SUBJECT, IN-REPLY-TO and CC, specify if non-nil
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1652 the initial contents of those header fields.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1653 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
1654 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
1655 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
1656 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
1657 Or it can be nil, if not replying to anything.
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1658 The seventh argument ACTIONS is a list of actions to take
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1659 if/when the message is sent. Each action looks like (FUNCTION . ARGS);
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1660 when the message is sent, we apply FUNCTION to ARGS.
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1661 This is how Rmail arranges to mark messages `answered'."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1662 (interactive "P")
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1663 ;;; This is commented out because I found it was confusing in practice.
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1664 ;;; It is easy enough to rename *mail* by hand with rename-buffer
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1665 ;;; if you want to have multiple mail buffers.
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1666 ;;; And then you can control which messages to save. --rms.
898
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1667 ;;; (let ((index 1)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1668 ;;; buffer)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1669 ;;; ;; 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
1670 ;;; (if noerase
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1671 ;;; (progn
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1672 ;;; (while (and (setq buffer
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1673 ;;; (get-buffer (if (= 1 index) "*mail*"
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1674 ;;; (format "*mail*<%d>" index))))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1675 ;;; (not (buffer-modified-p buffer)))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1676 ;;; (setq index (1+ index)))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1677 ;;; (if buffer (switch-to-buffer buffer)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1678 ;;; ;; If none exists, start a new message.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1679 ;;; ;; This will never re-use an existing unmodified mail buffer
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1680 ;;; ;; (since index is not 1 anymore). Perhaps it should.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1681 ;;; (setq noerase nil))))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1682 ;;; ;; 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
1683 ;;; (if (not noerase)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1684 ;;; (progn
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1685 ;;; ;; Look for existing unmodified mail buffer.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1686 ;;; (while (and (setq buffer
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1687 ;;; (get-buffer (if (= 1 index) "*mail*"
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1688 ;;; (format "*mail*<%d>" index))))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1689 ;;; (buffer-modified-p buffer))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1690 ;;; (setq index (1+ index)))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1691 ;;; ;; If none, make a new one.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1692 ;;; (or buffer
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1693 ;;; (setq buffer (generate-new-buffer "*mail*")))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1694 ;;; ;; Go there and initialize it.
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1695 ;;; (switch-to-buffer buffer)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1696 ;;; (erase-buffer)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1697 ;;; (setq default-directory (expand-file-name "~/"))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1698 ;;; (auto-save-mode auto-save-default)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1699 ;;; (mail-mode)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1700 ;;; (mail-setup to subject in-reply-to cc replybuffer actions)
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1701 ;;; (if (and buffer-auto-save-file-name
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1702 ;;; (file-exists-p buffer-auto-save-file-name))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1703 ;;; (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
1704 ;;; t))
65479
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1705
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1706 (if (eq noerase 'new)
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1707 (pop-to-buffer (generate-new-buffer "*mail*"))
65482
b7611654bd5e 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65479
diff changeset
1708 (and noerase
b7611654bd5e 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65479
diff changeset
1709 (not (get-buffer "*mail*"))
b7611654bd5e 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65479
diff changeset
1710 (setq noerase nil))
65479
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1711 (pop-to-buffer "*mail*"))
2cbd801671c4 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65395
diff changeset
1712
45423
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
1713 ;; Avoid danger that the auto-save file can't be written.
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
1714 (let ((dir (expand-file-name
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
1715 (file-name-as-directory mail-default-directory))))
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
1716 (if (file-exists-p dir)
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
1717 (setq default-directory dir)))
22634
0a83ee212349 (mail): Avoid changing auto-save file name.
Richard M. Stallman <rms@gnu.org>
parents: 22410
diff changeset
1718 ;; Only call auto-save-mode if necessary, to avoid changing auto-save file.
0a83ee212349 (mail): Avoid changing auto-save file name.
Richard M. Stallman <rms@gnu.org>
parents: 22410
diff changeset
1719 (if (or (and auto-save-default (not buffer-auto-save-file-name))
0a83ee212349 (mail): Avoid changing auto-save file name.
Richard M. Stallman <rms@gnu.org>
parents: 22410
diff changeset
1720 (and (not auto-save-default) buffer-auto-save-file-name))
0a83ee212349 (mail): Avoid changing auto-save file name.
Richard M. Stallman <rms@gnu.org>
parents: 22410
diff changeset
1721 (auto-save-mode auto-save-default))
898
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1722 (mail-mode)
8144
Michael I. Bushnell <mib@gnu.org>
parents: 8132
diff changeset
1723 ;; Disconnect the buffer from its visited file
Michael I. Bushnell <mib@gnu.org>
parents: 8132
diff changeset
1724 ;; (in case the user has actually visited a file *mail*).
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1725 ;;; (set-visited-file-name nil)
898
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1726 (let (initialized)
65482
b7611654bd5e 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65479
diff changeset
1727 (and (not (and noerase
b7611654bd5e 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
Chong Yidong <cyd@stupidchicken.com>
parents: 65479
diff changeset
1728 (not (eq noerase 'new))))
18955
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1729 (if buffer-file-name
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1730 (if (buffer-modified-p)
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1731 (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
1732 (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
1733 (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
1734 t)
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1735 (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
1736 (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
1737 t))
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1738 ;; 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
1739 (if (buffer-modified-p)
9612d2ae3960 (mail): Improve confirmation questions for file-visiting mail buffers.
Richard M. Stallman <rms@gnu.org>
parents: 18909
diff changeset
1740 (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
1741 t))
13824
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
1742 (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
1743 (erase-buffer)
88384034a5b4 (mail-setup): Put text property on mail-header-separator.
Richard M. Stallman <rms@gnu.org>
parents: 13738
diff changeset
1744 (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
1745 (setq initialized t)))
898
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1746 (if (and buffer-auto-save-file-name
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1747 (file-exists-p buffer-auto-save-file-name))
d3e136526f22 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1748 (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
1749 initialized))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1750
86503
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 86440
diff changeset
1751 (declare-function dired-view-file "dired" ())
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 86440
diff changeset
1752 (declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep))
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 86440
diff changeset
1753
42501
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1754 (defun mail-recover-1 ()
42522
bf0d83587878 (mail-recover-1, mail-recover): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 42501
diff changeset
1755 "Pop up a list of auto-saved draft messages so you can recover one of them."
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1756 (interactive)
42501
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1757 (let ((file-name (make-auto-save-file-name))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1758 (ls-lisp-support-shell-wildcards t)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1759 non-random-len wildcard)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1760 ;; Remove the random part from the auto-save-file-name, and
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1761 ;; create a wildcard which matches possible candidates.
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1762 ;; Note: this knows that make-auto-save-file-name appends
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1763 ;; "#<RANDOM-STUFF>#" to the buffer name, where RANDOM-STUFF
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1764 ;; is the result of (make-temp-name "").
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1765 (setq non-random-len
44947
e0182b284e42 (mail-recover-1): Decrease non-random-len by 1 for the newly-readded #.
Richard M. Stallman <rms@gnu.org>
parents: 44861
diff changeset
1766 (- (length file-name) (length (make-temp-name "")) 1))
42501
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1767 (setq wildcard (concat (substring file-name 0 non-random-len) "*"))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1768 (if (null (file-expand-wildcards wildcard))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1769 (message "There are no auto-saved drafts to recover")
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1770 ;; Bind dired-trivial-filenames to t because all auto-save file
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1771 ;; names are normally ``trivial'', so Dired will set point after
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1772 ;; all the files, at buffer bottom. We want it on the first
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1773 ;; file instead.
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1774 (let ((dired-trivial-filenames t))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1775 (dired-other-window wildcard (concat dired-listing-switches "t")))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1776 (rename-buffer "*Auto-saved Drafts*" t)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1777 (save-excursion
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1778 (goto-char (point-min))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1779 (or (looking-at " Move to the draft file you want to recover,")
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1780 (let ((inhibit-read-only t))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1781 ;; Each line starts with a space so that Font Lock mode
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1782 ;; won't highlight the first character.
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1783 (insert "\
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1784 Move to the draft file you want to recover, then type C-c C-c
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1785 to recover text of message whose composition was interrupted.
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1786 To browse text of a draft, type v on the draft file's line.
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1787
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1788 You can also delete some of these files;
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1789 type d on a line to mark that file for deletion.
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1790
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1791 List of possible auto-save files for recovery:
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1792
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1793 "))))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1794 (use-local-map
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1795 (let ((map (make-sparse-keymap)))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1796 (set-keymap-parent map (current-local-map))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1797 map))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1798 (define-key (current-local-map) "v"
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1799 (lambda ()
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1800 (interactive)
88657
df76808e99c0 (mail-recover-1, mail-recover): Use utf-8-emacs
Dave Love <fx@gnu.org>
parents: 88514
diff changeset
1801 (let ((coding-system-for-read 'utf-8-emacs-unix))
42501
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1802 (dired-view-file))))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1803 (define-key (current-local-map) "\C-c\C-c"
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1804 (lambda ()
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1805 (interactive)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1806 (let ((fname (dired-get-filename))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1807 ;; Auto-saved files are written in the internal
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1808 ;; representation, so they should be read accordingly.
88657
df76808e99c0 (mail-recover-1, mail-recover): Use utf-8-emacs
Dave Love <fx@gnu.org>
parents: 88514
diff changeset
1809 (coding-system-for-read 'utf-8-emacs-unix))
42501
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1810 (switch-to-buffer-other-window "*mail*")
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1811 (let ((buffer-read-only nil))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1812 (erase-buffer)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1813 (insert-file-contents fname nil)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1814 ;; insert-file-contents will set buffer-file-coding-system
88657
df76808e99c0 (mail-recover-1, mail-recover): Use utf-8-emacs
Dave Love <fx@gnu.org>
parents: 88514
diff changeset
1815 ;; to utf-8-emacs, which is probably not what they want to
42501
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1816 ;; use for sending the message. But we don't know what
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1817 ;; was its value before the buffer was killed or Emacs
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1818 ;; crashed. We therefore reset buffer-file-coding-system
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1819 ;; to the default value, so that either the default does
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1820 ;; TRT, or the user will get prompted for the right
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1821 ;; encoding when they send the message.
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1822 (setq buffer-file-coding-system
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1823 default-buffer-file-coding-system))))))))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1824
86440
4aedd218aad1 * mail/mspools.el (rmail-get-new-mail):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85316
diff changeset
1825 (declare-function dired-move-to-filename "dired" (&optional raise-error eol))
4aedd218aad1 * mail/mspools.el (rmail-get-new-mail):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85316
diff changeset
1826 (declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep))
4aedd218aad1 * mail/mspools.el (rmail-get-new-mail):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85316
diff changeset
1827 (declare-function dired-view-file "dired" ())
4aedd218aad1 * mail/mspools.el (rmail-get-new-mail):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85316
diff changeset
1828
42501
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1829 (defun mail-recover ()
42522
bf0d83587878 (mail-recover-1, mail-recover): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 42501
diff changeset
1830 "Recover interrupted mail composition from auto-save files.
bf0d83587878 (mail-recover-1, mail-recover): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 42501
diff changeset
1831
bf0d83587878 (mail-recover-1, mail-recover): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 42501
diff changeset
1832 If the mail buffer has a current valid auto-save file,
bf0d83587878 (mail-recover-1, mail-recover): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 42501
diff changeset
1833 the command recovers that file. Otherwise, it displays a
bf0d83587878 (mail-recover-1, mail-recover): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 42501
diff changeset
1834 buffer showing the existing auto-saved draft messages;
bf0d83587878 (mail-recover-1, mail-recover): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 42501
diff changeset
1835 you can move to one of them and type C-c C-c to recover that one."
42501
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1836 (interactive)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1837 ;; In case they invoke us from some random buffer...
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1838 (switch-to-buffer "*mail*")
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1839 ;; If *mail* didn't exist, set its directory, so that auto-saved
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1840 ;; drafts will be found.
45423
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
1841 (let ((dir (expand-file-name
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
1842 (file-name-as-directory mail-default-directory))))
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
1843 (if (file-exists-p dir)
9bee1f5d919f (mail-recover-1): Remove (debug).
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45255
diff changeset
1844 (setq default-directory dir)))
42501
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1845 (or (eq major-mode 'mail-mode)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1846 (mail-mode))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1847 (let ((file-name buffer-auto-save-file-name))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1848 (cond ((and file-name (file-exists-p file-name))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1849 (let ((dispbuf
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1850 ;; This used to invoke `ls' via call-process, but
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1851 ;; dired-noselect is more portable to systems where
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1852 ;; `ls' is not a standard program (it will use
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1853 ;; ls-lisp instead).
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1854 (dired-noselect file-name
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1855 (concat dired-listing-switches "t"))))
43683
fc8f970acda0 (mail-recover-1): Increase non-random-len
Richard M. Stallman <rms@gnu.org>
parents: 43054
diff changeset
1856 (save-selected-window
fc8f970acda0 (mail-recover-1): Increase non-random-len
Richard M. Stallman <rms@gnu.org>
parents: 43054
diff changeset
1857 (select-window (display-buffer dispbuf t))
fc8f970acda0 (mail-recover-1): Increase non-random-len
Richard M. Stallman <rms@gnu.org>
parents: 43054
diff changeset
1858 (goto-char (point-min))
fc8f970acda0 (mail-recover-1): Increase non-random-len
Richard M. Stallman <rms@gnu.org>
parents: 43054
diff changeset
1859 (forward-line 2)
fc8f970acda0 (mail-recover-1): Increase non-random-len
Richard M. Stallman <rms@gnu.org>
parents: 43054
diff changeset
1860 (dired-move-to-filename)
fc8f970acda0 (mail-recover-1): Increase non-random-len
Richard M. Stallman <rms@gnu.org>
parents: 43054
diff changeset
1861 (setq dispbuf (rename-buffer "*Directory*" t)))
42501
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1862 (if (not (yes-or-no-p
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1863 (format "Recover mail draft from auto save file %s? "
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1864 file-name)))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1865 (error "mail-recover cancelled")
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1866 (let ((buffer-read-only nil)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1867 (buffer-coding buffer-file-coding-system)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1868 ;; Auto-save files are written in internal
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1869 ;; representation of non-ASCII characters.
88657
df76808e99c0 (mail-recover-1, mail-recover): Use utf-8-emacs
Dave Love <fx@gnu.org>
parents: 88514
diff changeset
1870 (coding-system-for-read 'utf-8-emacs-unix))
42501
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1871 (erase-buffer)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1872 (insert-file-contents file-name nil)
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1873 (setq buffer-file-coding-system buffer-coding)))))
0ae15950ed66 (mail-recover-1): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42383
diff changeset
1874 (t (mail-recover-1)))))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1875
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1876 ;;;###autoload
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1877 (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
1878 "Like `mail' command, but display mail buffer in another window."
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1879 (interactive "P")
11120
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1880 (let ((pop-up-windows t)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1881 (special-display-buffer-names nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1882 (special-display-regexps nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1883 (same-window-buffer-names nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1884 (same-window-regexps nil))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1885 (pop-to-buffer "*mail*"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1886 (mail noerase to subject in-reply-to cc replybuffer sendactions))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1887
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1888 ;;;###autoload
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 746
diff changeset
1889 (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
1890 "Like `mail' command, but display mail buffer in another frame."
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1891 (interactive "P")
11120
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1892 (let ((pop-up-frames t)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1893 (special-display-buffer-names nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1894 (special-display-regexps nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1895 (same-window-buffer-names nil)
150ac5a4a1fa (mail): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10894
diff changeset
1896 (same-window-regexps nil))
455
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1897 (pop-to-buffer "*mail*"))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1898 (mail noerase to subject in-reply-to cc replybuffer sendactions))
12af79cf16ee Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1899
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1900 ;; Do not add anything but external entries on this page.
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 573
diff changeset
1901
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 573
diff changeset
1902 (provide 'sendmail)
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 573
diff changeset
1903
67322
505d047aa503 Remove unnecessary leading-star in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67213
diff changeset
1904 ;; arch-tag: 48bc1025-d993-4d31-8d81-2a29491f0626
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 604
diff changeset
1905 ;;; sendmail.el ends here