annotate lisp/mail/sendmail.el @ 86734:6a054102f8ac

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