Mercurial > emacs
annotate lisp/gnus/message.el @ 107427:ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
The general approach is to autoload rather than require, and to
require in the specific functions rather than the file. (Bug#5642)
* url/url.el: Move mailcap require earlier in the file.
* gnus/gmm-utils.el: Don't require wid-edit.
(widget-create-child-value, widget-convert, widget-default-get):
Autoload.
* gnus/gnus-util.el: Don't require time-date, netrc.
(message-fetch-field, gnus-group-name-decode): Declare rather than
autoloading.
(gnus-fetch-field): Require message.
(gnus-decode-newsgroups): Require gnus-group.
* gnus/ietf-drums.el: Don't require time-date.
* gnus/message.el: Don't require hashcash, canlock, ecomplete.
Do require mail-utils. Require nnheader only when compiling.
(smtpmail-default-smtp-server): Remove declaration.
(message-send-mail-function): Check smtpmail-default-smtp-server
is bound rather than requiring smtpmail.
(message-auto-save-directory, message-insert-signature): Use
expand-file-name rather than nnheader-concat.
(nnheader-insert-file-contents): Autoload.
(hashcash-wait-async): Declare.
(message-send-mail): Only call gnus-setup-posting-charset if
gnus-group-posting-charset-alist is bound. Require hashcash if needed.
(message-send-mail-with-sendmail): Require sendmail.
(canlock-password, canlock-password-for-verify): Declare.
(message-canlock-password): Require canlock.
(nnheader-get-report): Autoload.
(gnus-setup-posting-charset): Declare.
(message-send-news): Require gnus-msg.
(message-make-references, message-make-in-reply-to): Use mail-header-id
rather than the alias mail-header-message-id.
(ecomplete-add-item, ecomplete-save): Declare.
(message-put-addresses-in-ecomplete): Require ecomplete.
(ecomplete-display-matches): Autoload.
* gnus/mm-decode.el: Don't require mailcap, gnus-util.
(gnus-map-function, gnus-replace-in-string, gnus-read-shell-command)
(message-fetch-field, mailcap-parse-mailcaps, mailcap-mime-info):
Autoload.
(mailcap-mime-extensions): Declare.
* gnus/mm-encode.el: Don't require mailcap.
(mailcap-extension-to-mime): Autoload.
* gnus/mml-sec.el: Don't require password-cache.
* gnus/mml.el (gnus-setup-posting-charset): Declare rather than autoload.
(mailcap-parse-mimetypes, mailcap-mime-types): Declare.
(mml-minibuffer-read-type): Require mailcap.
(mml-preview): Require gnus-msg.
* gnus/mml1991.el: Require password-cache.
(password-cache-expiry): Remove declaration.
* gnus/mml2015.el: Require password-cache.
(password-cache-expiry): Remove declaration.
* gnus/nneething.el (mailcap): Require mailcap.
* gnus/nnheader.el: (declare-function): Add compatibility stub.
(message-remove-header): Declare rather than autoload.
(nnheader-replace-header): Require message.
* gnus/nnimap.el (declare-function): Add compatibility stub.
(netrc-parse, netrc-machine-user-or-password): Declare.
(nnimap-open-connection): Require netrc.
* gnus/nntp.el (declare-function): Add compatibility stub.
(netrc-parse, netrc-machine, netrc-get): Declare.
(nntp-send-authinfo): Require netrc.
* gnus/rfc2047.el: Don't require qp.
(quoted-printable-encode-region, quoted-printable-decode-string):
Autoload.
* gnus/sieve-mode.el: Don't require easymenu.
(easy-menu-add-item): Autoload it.
* gnus/spam-stat.el (time-to-number-of-days): Autoload it.
* password-cache.el (password-cache, password-cache-expiry):
Autoload.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 18 Mar 2010 19:55:37 -0700 |
parents | a3c102291ce1 |
children | 0fe940324254 |
rev | line source |
---|---|
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1 ;;; message.el --- composing mail and news messages |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64735
diff
changeset
|
2 |
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64735
diff
changeset
|
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
106815 | 4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
17493 | 7 ;; Keywords: mail, news |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94209
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17493 | 12 ;; it under the terms of the GNU General Public License as published by |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94209
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94209
diff
changeset
|
14 ;; (at your option) any later version. |
17493 | 15 |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94209
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
17493 | 19 ;; GNU General Public License for more details. |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94209
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17493 | 23 |
24 ;;; Commentary: | |
25 | |
26 ;; This mode provides mail-sending facilities from within Emacs. It | |
27 ;; consists mainly of large chunks of code from the sendmail.el, | |
28 ;; gnus-msg.el and rnewspost.el files. | |
29 | |
30 ;;; Code: | |
31 | |
87191
066a2efbc9c8
(declare-function): Add compatibility declaration.
Glenn Morris <rgm@gnu.org>
parents:
87097
diff
changeset
|
32 (eval-and-compile |
066a2efbc9c8
(declare-function): Add compatibility declaration.
Glenn Morris <rgm@gnu.org>
parents:
87097
diff
changeset
|
33 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
34 (eval-when-compile |
86154 | 35 (require 'cl)) |
87191
066a2efbc9c8
(declare-function): Add compatibility declaration.
Glenn Morris <rgm@gnu.org>
parents:
87097
diff
changeset
|
36 |
17493 | 37 (require 'mailheader) |
70051
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
38 (require 'gmm-utils) |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
39 (require 'mail-utils) |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
40 ;; Only for the trivial macros mail-header-from, mail-header-date |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
41 ;; mail-header-references, mail-header-subject, mail-header-id |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
42 (eval-when-compile (require 'nnheader)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
43 ;; This is apparently necessary even though things are autoloaded. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
44 ;; Because we dynamically bind mail-abbrev-mode-regexp, we'd better |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
45 ;; require mailabbrev here. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
46 (if (featurep 'xemacs) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
47 (require 'mail-abbrevs) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
48 (require 'mailabbrev)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
49 (require 'mail-parse) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
50 (require 'mml) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
51 (require 'rfc822) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
52 |
86254
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
53 (autoload 'mailclient-send-it "mailclient") ;; Emacs 22 or contrib/ |
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
54 |
86154 | 55 (defvar gnus-message-group-art) |
56 (defvar gnus-list-identifiers) ; gnus-sum is required where necessary | |
57 (defvar rmail-enable-mime-composing) | |
17493 | 58 |
59 (defgroup message '((user-mail-address custom-variable) | |
60 (user-full-name custom-variable)) | |
61 "Mail and news message composing." | |
62 :link '(custom-manual "(message)Top") | |
63 :group 'mail | |
64 :group 'news) | |
65 | |
66 (put 'user-mail-address 'custom-type 'string) | |
67 (put 'user-full-name 'custom-type 'string) | |
68 | |
69 (defgroup message-various nil | |
63977
093115a435b2
(message-various, message-buffers, message-sending, message-interface,
Juanma Barranquero <lekktu@gmail.com>
parents:
63480
diff
changeset
|
70 "Various Message Variables." |
17493 | 71 :link '(custom-manual "(message)Various Message Variables") |
72 :group 'message) | |
73 | |
74 (defgroup message-buffers nil | |
63977
093115a435b2
(message-various, message-buffers, message-sending, message-interface,
Juanma Barranquero <lekktu@gmail.com>
parents:
63480
diff
changeset
|
75 "Message Buffers." |
17493 | 76 :link '(custom-manual "(message)Message Buffers") |
77 :group 'message) | |
78 | |
79 (defgroup message-sending nil | |
63977
093115a435b2
(message-various, message-buffers, message-sending, message-interface,
Juanma Barranquero <lekktu@gmail.com>
parents:
63480
diff
changeset
|
80 "Message Sending." |
17493 | 81 :link '(custom-manual "(message)Sending Variables") |
82 :group 'message) | |
83 | |
84 (defgroup message-interface nil | |
63977
093115a435b2
(message-various, message-buffers, message-sending, message-interface,
Juanma Barranquero <lekktu@gmail.com>
parents:
63480
diff
changeset
|
85 "Message Interface." |
17493 | 86 :link '(custom-manual "(message)Interface") |
87 :group 'message) | |
88 | |
89 (defgroup message-forwarding nil | |
63977
093115a435b2
(message-various, message-buffers, message-sending, message-interface,
Juanma Barranquero <lekktu@gmail.com>
parents:
63480
diff
changeset
|
90 "Message Forwarding." |
17493 | 91 :link '(custom-manual "(message)Forwarding") |
92 :group 'message-interface) | |
93 | |
94 (defgroup message-insertion nil | |
63977
093115a435b2
(message-various, message-buffers, message-sending, message-interface,
Juanma Barranquero <lekktu@gmail.com>
parents:
63480
diff
changeset
|
95 "Message Insertion." |
17493 | 96 :link '(custom-manual "(message)Insertion") |
97 :group 'message) | |
98 | |
99 (defgroup message-headers nil | |
63977
093115a435b2
(message-various, message-buffers, message-sending, message-interface,
Juanma Barranquero <lekktu@gmail.com>
parents:
63480
diff
changeset
|
100 "Message Headers." |
17493 | 101 :link '(custom-manual "(message)Message Headers") |
102 :group 'message) | |
103 | |
104 (defgroup message-news nil | |
63977
093115a435b2
(message-various, message-buffers, message-sending, message-interface,
Juanma Barranquero <lekktu@gmail.com>
parents:
63480
diff
changeset
|
105 "Composing News Messages." |
17493 | 106 :group 'message) |
107 | |
108 (defgroup message-mail nil | |
63977
093115a435b2
(message-various, message-buffers, message-sending, message-interface,
Juanma Barranquero <lekktu@gmail.com>
parents:
63480
diff
changeset
|
109 "Composing Mail Messages." |
17493 | 110 :group 'message) |
111 | |
112 (defgroup message-faces nil | |
113 "Faces used for message composing." | |
114 :group 'message | |
115 :group 'faces) | |
116 | |
117 (defcustom message-directory "~/Mail/" | |
118 "*Directory from which all other mail file variables are derived." | |
119 :group 'message-various | |
120 :type 'directory) | |
121 | |
122 (defcustom message-max-buffers 10 | |
123 "*How many buffers to keep before starting to kill them off." | |
124 :group 'message-buffers | |
125 :type 'integer) | |
126 | |
127 (defcustom message-send-rename-function nil | |
128 "Function called to rename the buffer after sending it." | |
129 :group 'message-buffers | |
35147 | 130 :type '(choice function (const nil))) |
17493 | 131 |
132 (defcustom message-fcc-handler-function 'message-output | |
133 "*A function called to save outgoing articles. | |
134 This function will be called with the name of the file to store the | |
135 article in. The default function is `message-output' which saves in Unix | |
136 mailbox format." | |
137 :type '(radio (function-item message-output) | |
138 (function :tag "Other")) | |
139 :group 'message-sending) | |
140 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
141 (defcustom message-fcc-externalize-attachments nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
142 "If non-nil, attachments are included as external parts in Fcc copies." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
143 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
144 :type 'boolean |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
145 :group 'message-sending) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
146 |
17493 | 147 (defcustom message-courtesy-message |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
148 "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n" |
17493 | 149 "*This is inserted at the start of a mailed copy of a posted message. |
150 If the string contains the format spec \"%s\", the Newsgroups | |
151 the article has been posted to will be inserted there. | |
152 If this variable is nil, no such courtesy message will be added." | |
153 :group 'message-sending | |
58835
9bdd97960431
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-716
Miles Bader <miles@gnu.org>
parents:
57856
diff
changeset
|
154 :type '(radio string (const nil))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
155 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
156 (defcustom message-ignored-bounced-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
157 "^\\(Received\\|Return-Path\\|Delivered-To\\):" |
17493 | 158 "*Regexp that matches headers to be removed in resent bounced mail." |
159 :group 'message-interface | |
160 :type 'regexp) | |
161 | |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
162 (defcustom message-from-style mail-from-style |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
163 ;; Default to the value of `mail-from-style', available in all Emacsen |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
164 ;; that Gnus supports. |
17493 | 165 "*Specifies how \"From\" headers look. |
166 | |
35147 | 167 If nil, they contain just the return address like: |
17493 | 168 king@grassland.com |
169 If `parens', they look like: | |
170 king@grassland.com (Elvis Parsley) | |
171 If `angles', they look like: | |
172 Elvis Parsley <king@grassland.com> | |
173 | |
174 Otherwise, most addresses look like `angles', but they look like | |
175 `parens' if `angles' would need quoting and `parens' would not." | |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
176 :version "23.2" |
17493 | 177 :type '(choice (const :tag "simple" nil) |
178 (const parens) | |
179 (const angles) | |
180 (const default)) | |
181 :group 'message-headers) | |
182 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
183 (defcustom message-insert-canlock t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
184 "Whether to insert a Cancel-Lock header in news postings." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
185 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
186 :group 'message-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
187 :type 'boolean) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
188 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
189 (defcustom message-syntax-checks |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
190 (if message-insert-canlock '((sender . disabled)) nil) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
191 ;; Guess this one shouldn't be easy to customize... |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
192 "*Controls what syntax checks should not be performed on outgoing posts. |
17493 | 193 To disable checking of long signatures, for instance, add |
194 `(signature . disabled)' to this list. | |
195 | |
196 Don't touch this variable unless you really know what you're doing. | |
197 | |
85809 | 198 Checks include `approved', `bogus-recipient', `continuation-headers', |
199 `control-chars', `empty', `existing-newsgroups', `from', `illegible-text', | |
71379 | 200 `invisible-text', `long-header-lines', `long-lines', `message-id', |
201 `multiple-headers', `new-text', `newsgroups', `quoting-style', | |
71398 | 202 `repeated-newsgroups', `reply-to', `sender', `sendsys', `shoot', |
71379 | 203 `shorten-followup-to', `signature', `size', `subject', `subject-cmsg' |
204 and `valid-newsgroups'." | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
205 :group 'message-news |
35147 | 206 :type '(repeat sexp)) ; Fixme: improve this |
17493 | 207 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
208 (defcustom message-required-headers '((optional . References) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
209 From) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
210 "*Headers to be generated or prompted for when sending a message. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
211 Also see `message-required-news-headers' and |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
212 `message-required-mail-headers'." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
213 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
214 :group 'message-news |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
215 :group 'message-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
216 :link '(custom-manual "(message)Message Headers") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
217 :type '(repeat sexp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
218 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
219 (defcustom message-draft-headers '(References From Date) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
220 "*Headers to be generated when saving a draft message." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
221 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
222 :group 'message-news |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
223 :group 'message-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
224 :link '(custom-manual "(message)Message Headers") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
225 :type '(repeat sexp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
226 |
17493 | 227 (defcustom message-required-news-headers |
228 '(From Newsgroups Subject Date Message-ID | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
229 (optional . Organization) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
230 (optional . User-Agent)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
231 "*Headers to be generated or prompted for when posting an article. |
17493 | 232 RFC977 and RFC1036 require From, Date, Newsgroups, Subject, |
233 Message-ID. Organization, Lines, In-Reply-To, Expires, and | |
76650 | 234 User-Agent are optional. If you don't want message to insert some |
17493 | 235 header, remove it from this list." |
236 :group 'message-news | |
237 :group 'message-headers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
238 :link '(custom-manual "(message)Message Headers") |
17493 | 239 :type '(repeat sexp)) |
240 | |
241 (defcustom message-required-mail-headers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
242 '(From Subject Date (optional . In-Reply-To) Message-ID |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
243 (optional . User-Agent)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
244 "*Headers to be generated or prompted for when mailing a message. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
245 It is recommended that From, Date, To, Subject and Message-ID be |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
246 included. Organization and User-Agent are optional." |
17493 | 247 :group 'message-mail |
248 :group 'message-headers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
249 :link '(custom-manual "(message)Message Headers") |
17493 | 250 :type '(repeat sexp)) |
251 | |
252 (defcustom message-deletable-headers '(Message-ID Date Lines) | |
253 "Headers to be deleted if they already exist and were generated by message previously." | |
254 :group 'message-headers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
255 :link '(custom-manual "(message)Message Headers") |
17493 | 256 :type 'sexp) |
257 | |
258 (defcustom message-ignored-news-headers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
259 "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:" |
17493 | 260 "*Regexp of headers to be removed unconditionally before posting." |
261 :group 'message-news | |
262 :group 'message-headers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
263 :link '(custom-manual "(message)Message Headers") |
57561
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
264 :type '(repeat :value-to-internal (lambda (widget value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
265 (custom-split-regexp-maybe value)) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
266 :match (lambda (widget value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
267 (or (stringp value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
268 (widget-editable-list-match widget value))) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
269 regexp)) |
17493 | 270 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
271 (defcustom message-ignored-mail-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
272 "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:" |
17493 | 273 "*Regexp of headers to be removed unconditionally before mailing." |
274 :group 'message-mail | |
275 :group 'message-headers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
276 :link '(custom-manual "(message)Mail Headers") |
17493 | 277 :type 'regexp) |
278 | |
87097 | 279 (defcustom message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|^X-Trace:\\|^X-ID:\\|^X-Complaints-To:\\|Return-Path:\\|^Supersedes:\\|^NNTP-Posting-Date:\\|^X-Trace:\\|^X-Complaints-To:\\|^Cancel-Lock:\\|^Cancel-Key:\\|^X-Hashcash:\\|^X-Payment:\\|^Approved:" |
17493 | 280 "*Header lines matching this regexp will be deleted before posting. |
281 It's best to delete old Path and Date headers before posting to avoid | |
282 any confusion." | |
283 :group 'message-interface | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
284 :link '(custom-manual "(message)Superseding") |
57561
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
285 :type '(repeat :value-to-internal (lambda (widget value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
286 (custom-split-regexp-maybe value)) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
287 :match (lambda (widget value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
288 (or (stringp value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
289 (widget-editable-list-match widget value))) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
290 regexp)) |
17493 | 291 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
292 (defcustom message-subject-re-regexp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
293 "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*" |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
294 "*Regexp matching \"Re: \" in the subject line." |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
295 :group 'message-various |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
296 :link '(custom-manual "(message)Message Headers") |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
297 :type 'regexp) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
298 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
299 ;;; Start of variables adopted from `message-utils.el'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
300 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
301 (defcustom message-subject-trailing-was-query 'ask |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
302 "*What to do with trailing \"(was: <old subject>)\" in subject lines. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
303 If nil, leave the subject unchanged. If it is the symbol `ask', query |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
304 the user what do do. In this case, the subject is matched against |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
305 `message-subject-trailing-was-ask-regexp'. If |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
306 `message-subject-trailing-was-query' is t, always strip the trailing |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
307 old subject. In this case, `message-subject-trailing-was-regexp' is |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
308 used." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
309 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
310 :type '(choice (const :tag "never" nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
311 (const :tag "always strip" t) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
312 (const ask)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
313 :link '(custom-manual "(message)Message Headers") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
314 :group 'message-various) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
315 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
316 (defcustom message-subject-trailing-was-ask-regexp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
317 "[ \t]*\\([[(]+[Ww][Aa][Ss][ \t]*.*[\])]+\\)" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
318 "*Regexp matching \"(was: <old subject>)\" in the subject line. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
319 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
320 The function `message-strip-subject-trailing-was' uses this regexp if |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
321 `message-subject-trailing-was-query' is set to the symbol `ask'. If |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
322 the variable is t instead of `ask', use |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
323 `message-subject-trailing-was-regexp' instead. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
324 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
325 It is okay to create some false positives here, as the user is asked." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
326 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
327 :group 'message-various |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
328 :link '(custom-manual "(message)Message Headers") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
329 :type 'regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
330 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
331 (defcustom message-subject-trailing-was-regexp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
332 "[ \t]*\\((*[Ww][Aa][Ss]:[ \t]*.*)\\)" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
333 "*Regexp matching \"(was: <old subject>)\" in the subject line. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
334 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
335 If `message-subject-trailing-was-query' is set to t, the subject is |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
336 matched against `message-subject-trailing-was-regexp' in |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
337 `message-strip-subject-trailing-was'. You should use a regexp creating very |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
338 few false positives here." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
339 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
340 :group 'message-various |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
341 :link '(custom-manual "(message)Message Headers") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
342 :type 'regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
343 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
344 ;;; marking inserted text |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
345 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
346 (defcustom message-mark-insert-begin |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
347 "--8<---------------cut here---------------start------------->8---\n" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
348 "How to mark the beginning of some inserted text." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
349 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
350 :type 'string |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
351 :link '(custom-manual "(message)Insertion Variables") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
352 :group 'message-various) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
353 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
354 (defcustom message-mark-insert-end |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
355 "--8<---------------cut here---------------end--------------->8---\n" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
356 "How to mark the end of some inserted text." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
357 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
358 :type 'string |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
359 :link '(custom-manual "(message)Insertion Variables") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
360 :group 'message-various) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
361 |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
362 (defcustom message-archive-header "X-No-Archive: Yes\n" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
363 "Header to insert when you don't want your article to be archived. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
364 Archives \(such as groups.google.com\) respect this header." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
365 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
366 :type 'string |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
367 :link '(custom-manual "(message)Header Commands") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
368 :group 'message-various) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
369 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
370 (defcustom message-archive-note |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
371 "X-No-Archive: Yes - save http://groups.google.com/" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
372 "Note to insert why you wouldn't want this posting archived. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
373 If nil, don't insert any text in the body." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
374 :version "22.1" |
58835
9bdd97960431
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-716
Miles Bader <miles@gnu.org>
parents:
57856
diff
changeset
|
375 :type '(radio string (const nil)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
376 :link '(custom-manual "(message)Header Commands") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
377 :group 'message-various) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
378 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
379 ;;; Crossposts and Followups |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
380 ;; inspired by JoH-followup-to by Jochem Huhman <joh at gmx.de> |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
381 ;; new suggestions by R. Weikusat <rw at another.de> |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
382 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
383 (defvar message-cross-post-old-target nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
384 "Old target for cross-posts or follow-ups.") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
385 (make-variable-buffer-local 'message-cross-post-old-target) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
386 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
387 (defcustom message-cross-post-default t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
388 "When non-nil `message-cross-post-followup-to' will perform a crosspost. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
389 If nil, `message-cross-post-followup-to' will only do a followup. Note that |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
390 you can explicitly override this setting by calling |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
391 `message-cross-post-followup-to' with a prefix." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
392 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
393 :type 'boolean |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
394 :group 'message-various) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
395 |
60390
d8ddb2b48062
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-155
Miles Bader <miles@gnu.org>
parents:
60356
diff
changeset
|
396 (defcustom message-cross-post-note "Crosspost & Followup-To: " |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
397 "Note to insert before signature to notify of cross-post and follow-up." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
398 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
399 :type 'string |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
400 :group 'message-various) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
401 |
60390
d8ddb2b48062
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-155
Miles Bader <miles@gnu.org>
parents:
60356
diff
changeset
|
402 (defcustom message-followup-to-note "Followup-To: " |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
403 "Note to insert before signature to notify of follow-up only." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
404 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
405 :type 'string |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
406 :group 'message-various) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
407 |
60390
d8ddb2b48062
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-155
Miles Bader <miles@gnu.org>
parents:
60356
diff
changeset
|
408 (defcustom message-cross-post-note-function 'message-cross-post-insert-note |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
409 "Function to use to insert note about Crosspost or Followup-To. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
410 The function will be called with four arguments. The function should not only |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
411 insert a note, but also ensure old notes are deleted. See the documentation |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
412 for `message-cross-post-insert-note'." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
413 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
414 :type 'function |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
415 :group 'message-various) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
416 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
417 ;;; End of variables adopted from `message-utils.el'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
418 |
93386 | 419 (defcustom message-signature-separator "^-- $" |
420 "Regexp matching the signature separator. | |
421 This variable is used to strip off the signature from quoted text | |
422 when `message-cite-function' is | |
423 `message-cite-original-without-signature'. Most useful values | |
424 are \"^-- $\" (strict) and \"^-- *$\" (loose; allow missing | |
425 whitespace)." | |
426 :type '(choice (const :tag "strict" "^-- $") | |
427 (const :tag "loose" "^-- *$") | |
428 regexp) | |
94209 | 429 :version "22.3" ;; Gnus 5.10.12 (changed default) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
430 :link '(custom-manual "(message)Various Message Variables") |
17493 | 431 :group 'message-various) |
432 | |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
433 (defcustom message-elide-ellipsis "\n[...]\n\n" |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
434 "*The string which is inserted for elided text." |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
435 :type 'string |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
436 :link '(custom-manual "(message)Various Commands") |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
437 :group 'message-various) |
17493 | 438 |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
439 (defcustom message-interactive mail-interactive |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
440 ;; Default to the value of `mail-interactive', available in all Emacsen |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
441 ;; that Gnus supports. |
17493 | 442 "Non-nil means when sending a message wait for and display errors. |
443 nil means let mailer mail back a message to report errors." | |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
444 :version "23.2" |
17493 | 445 :group 'message-sending |
446 :group 'message-mail | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
447 :link '(custom-manual "(message)Sending Variables") |
17493 | 448 :type 'boolean) |
449 | |
97972 | 450 (defcustom message-confirm-send nil |
98345 | 451 "When non-nil, ask for confirmation when sending a message." |
97972 | 452 :group 'message-sending |
453 :group 'message-mail | |
98398 | 454 :version "23.1" ;; No Gnus |
97972 | 455 :link '(custom-manual "(message)Sending Variables") |
456 :type 'boolean) | |
457 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
458 (defcustom message-generate-new-buffers 'unique |
76650 | 459 "*Say whether to create a new message buffer to compose a message. |
460 Valid values include: | |
461 | |
462 nil | |
463 Generate the buffer name in the Message way (e.g., *mail*, *news*, | |
464 *mail to whom*, *news on group*, etc.) and continue editing in the | |
465 existing buffer of that name. If there is no such buffer, it will | |
466 be newly created. | |
467 | |
468 `unique' or t | |
469 Create the new buffer with the name generated in the Message way. | |
470 | |
471 `unsent' | |
472 Similar to `unique' but the buffer name begins with \"*unsent \". | |
473 | |
474 `standard' | |
475 Similar to nil but the buffer name is simpler like *mail message*. | |
476 | |
477 function | |
478 If this is a function, call that function with three parameters: | |
479 The type, the To address and the group name (any of these may be nil). | |
480 The function should return the new buffer name." | |
17493 | 481 :group 'message-buffers |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
482 :link '(custom-manual "(message)Message Buffers") |
76650 | 483 :type '(choice (const nil) |
484 (sexp :tag "unique" :format "unique\n" :value unique | |
485 :match (lambda (widget value) (memq value '(unique t)))) | |
486 (const unsent) | |
487 (const standard) | |
488 (function :format "\n %{%t%}: %v"))) | |
17493 | 489 |
490 (defcustom message-kill-buffer-on-exit nil | |
491 "*Non-nil means that the message buffer will be killed after sending a message." | |
492 :group 'message-buffers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
493 :link '(custom-manual "(message)Message Buffers") |
17493 | 494 :type 'boolean) |
495 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
496 (defcustom message-kill-buffer-query t |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
497 "*Non-nil means that killing a modified message buffer has to be confirmed. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
498 This is used by `message-kill-buffer'." |
92336
5f827896103e
Change defcustom :version from 23.0 to 23.1.
Glenn Morris <rgm@gnu.org>
parents:
92147
diff
changeset
|
499 :version "23.1" ;; No Gnus |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
500 :group 'message-buffers |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
501 :type 'boolean) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
502 |
86154 | 503 (defvar gnus-local-organization) |
17493 | 504 (defcustom message-user-organization |
505 (or (and (boundp 'gnus-local-organization) | |
506 (stringp gnus-local-organization) | |
507 gnus-local-organization) | |
508 (getenv "ORGANIZATION") | |
509 t) | |
510 "*String to be used as an Organization header. | |
511 If t, use `message-user-organization-file'." | |
512 :group 'message-headers | |
513 :type '(choice string | |
514 (const :tag "consult file" t))) | |
515 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
516 (defcustom message-user-organization-file |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
517 (let (orgfile) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
518 (dolist (f (list "/etc/organization" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
519 "/etc/news/organization" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
520 "/usr/lib/news/organization")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
521 (when (file-readable-p f) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
522 (setq orgfile f))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
523 orgfile) |
17493 | 524 "*Local news organization file." |
525 :type 'file | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
526 :link '(custom-manual "(message)News Headers") |
17493 | 527 :group 'message-headers) |
528 | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
529 (defcustom message-make-forward-subject-function |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
530 #'message-forward-subject-name-subject |
35147 | 531 "*List of functions called to generate subject headers for forwarded messages. |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
532 The subject generated by the previous function is passed into each |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
533 successive function. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
534 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
535 The provided functions are: |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
536 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
537 * `message-forward-subject-author-subject' Source of article (author or |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
538 newsgroup), in brackets followed by the subject |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
539 * `message-forward-subject-name-subject' Source of article (name of author |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
540 or newsgroup), in brackets followed by the subject |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
541 * `message-forward-subject-fwd' Subject of article with 'Fwd:' prepended |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
542 to it." |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
543 :group 'message-forwarding |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
544 :link '(custom-manual "(message)Forwarding") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
545 :type '(radio (function-item message-forward-subject-author-subject) |
35147 | 546 (function-item message-forward-subject-fwd) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
547 (function-item message-forward-subject-name-subject) |
35147 | 548 (repeat :tag "List of functions" function))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
549 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
550 (defcustom message-forward-as-mime t |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
551 "*Non-nil means forward messages as an inline/rfc822 MIME section. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
552 Otherwise, directly inline the old message in the forwarded message." |
33400
42c1ba3caf9c
(message-forward-as-mime, message-forward-ignored-headers)
Dave Love <fx@gnu.org>
parents:
33375
diff
changeset
|
553 :version "21.1" |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
554 :group 'message-forwarding |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
555 :link '(custom-manual "(message)Forwarding") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
556 :type 'boolean) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
557 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
558 (defcustom message-forward-show-mml 'best |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
559 "*Non-nil means show forwarded messages as MML (decoded from MIME). |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
560 Otherwise, forwarded messages are unchanged. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
561 Can also be the symbol `best' to indicate that MML should be |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
562 used, except when it is a bad idea to use MML. One example where |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
563 it is a bad idea is when forwarding a signed or encrypted |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
564 message, because converting MIME to MML would invalidate the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
565 digital signature." |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
566 :version "21.1" |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
567 :group 'message-forwarding |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
568 :type '(choice (const :tag "use MML" t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
569 (const :tag "don't use MML " nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
570 (const :tag "use MML when appropriate" best))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
571 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
572 (defcustom message-forward-before-signature t |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
573 "*Non-nil means put forwarded message before signature, else after." |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
574 :group 'message-forwarding |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
575 :type 'boolean) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
576 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
577 (defcustom message-wash-forwarded-subjects nil |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
578 "*Non-nil means try to remove as much cruft as possible from the subject. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
579 Done before generating the new subject of a forward." |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
580 :group 'message-forwarding |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
581 :link '(custom-manual "(message)Forwarding") |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
582 :type 'boolean) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
583 |
92754
6984a176570c
(message-ignored-resent-headers): Add "Delivered-To".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92694
diff
changeset
|
584 (defcustom message-ignored-resent-headers |
6984a176570c
(message-ignored-resent-headers): Add "Delivered-To".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92694
diff
changeset
|
585 ;; `Delivered-To' needs to be removed because some mailers use it to |
6984a176570c
(message-ignored-resent-headers): Add "Delivered-To".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92694
diff
changeset
|
586 ;; detect loops, so if you resend a message to an address that ultimately |
6984a176570c
(message-ignored-resent-headers): Add "Delivered-To".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92694
diff
changeset
|
587 ;; comes back to you (e.g. a mailing-list to which you subscribe, in which |
6984a176570c
(message-ignored-resent-headers): Add "Delivered-To".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92694
diff
changeset
|
588 ;; case you may be removed from the list on the grounds that mail to you |
6984a176570c
(message-ignored-resent-headers): Add "Delivered-To".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92694
diff
changeset
|
589 ;; bounced with a "mailing loop" error). |
6984a176570c
(message-ignored-resent-headers): Add "Delivered-To".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92694
diff
changeset
|
590 "^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From \\|^Delivered-To:" |
17493 | 591 "*All headers that match this regexp will be deleted when resending a message." |
592 :group 'message-interface | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
593 :link '(custom-manual "(message)Resending") |
57561
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
594 :type '(repeat :value-to-internal (lambda (widget value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
595 (custom-split-regexp-maybe value)) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
596 :match (lambda (widget value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
597 (or (stringp value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
598 (widget-editable-list-match widget value))) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
599 regexp)) |
17493 | 600 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
601 (defcustom message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
602 "*All headers that match this regexp will be deleted when forwarding a message." |
33400
42c1ba3caf9c
(message-forward-as-mime, message-forward-ignored-headers)
Dave Love <fx@gnu.org>
parents:
33375
diff
changeset
|
603 :version "21.1" |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
604 :group 'message-forwarding |
57561
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
605 :type '(repeat :value-to-internal (lambda (widget value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
606 (custom-split-regexp-maybe value)) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
607 :match (lambda (widget value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
608 (or (stringp value) |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57489
diff
changeset
|
609 (widget-editable-list-match widget value))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
610 regexp)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
611 |
17493 | 612 (defcustom message-ignored-cited-headers "." |
613 "*Delete these headers from the messages you yank." | |
614 :group 'message-insertion | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
615 :link '(custom-manual "(message)Insertion Variables") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
616 :type 'regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
617 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
618 (defcustom message-cite-prefix-regexp |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
619 ;; Default to the value of `mail-citation-prefix-regexp' if available. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
620 ;; Note: as for Emacs 21, XEmacs 21.4 and 21.5, it is unavailable |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
621 ;; unless sendmail.el is loaded. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
622 (cond ((boundp 'mail-citation-prefix-regexp) |
106118
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
623 mail-citation-prefix-regexp) |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
624 ((string-match "[[:digit:]]" "1") |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
625 ;; Support POSIX? XEmacs 21.5.27 doesn't. |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
626 "\\([ \t]*[_.[:word:]]+>+\\|[ \t]*[]>|}]\\)+") |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
627 (t |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
628 ;; ?-, ?_ or ?. MUST NOT be in syntax entry w. |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
629 (let (non-word-constituents) |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
630 (with-syntax-table text-mode-syntax-table |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
631 (setq non-word-constituents |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
632 (concat |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
633 (if (string-match "\\w" "_") "" "_") |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
634 (if (string-match "\\w" ".") "" ".")))) |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
635 (if (equal non-word-constituents "") |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
636 "\\([ \t]*\\(\\w\\)+>+\\|[ \t]*[]>|}]\\)+" |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
637 (concat "\\([ \t]*\\(\\w\\|[" |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
638 non-word-constituents |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
639 "]\\)+>+\\|[ \t]*[]>|}]\\)+"))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
640 "*Regexp matching the longest possible citation prefix on a line." |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
641 :version "23.2" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
642 :group 'message-insertion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
643 :link '(custom-manual "(message)Insertion Variables") |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
644 :type 'regexp |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
645 :set (lambda (symbol value) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
646 (prog1 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
647 (custom-set-default symbol value) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
648 (if (boundp 'gnus-message-cite-prefix-regexp) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
649 (setq gnus-message-cite-prefix-regexp |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
650 (concat "^\\(?:" value "\\)")))))) |
17493 | 651 |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
652 (defcustom message-cancel-message "I am canceling my own article.\n" |
17493 | 653 "Message to be inserted in the cancel message." |
654 :group 'message-interface | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
655 :link '(custom-manual "(message)Canceling News") |
17493 | 656 :type 'string) |
657 | |
86254
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
658 (defun message-send-mail-function () |
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
659 "Return suitable value for the variable `message-send-mail-function'." |
86276
b284b075c181
(message-send-mail-function): Require sendmail.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86257
diff
changeset
|
660 (cond ((and (require 'sendmail) |
b284b075c181
(message-send-mail-function): Require sendmail.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86257
diff
changeset
|
661 (boundp 'sendmail-program) |
b284b075c181
(message-send-mail-function): Require sendmail.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86257
diff
changeset
|
662 sendmail-program |
86256
b53cbc241b6f
(message-send-mail-function): Check for smtpmail too.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86254
diff
changeset
|
663 (executable-find sendmail-program)) |
86254
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
664 'message-send-mail-with-sendmail) |
86256
b53cbc241b6f
(message-send-mail-function): Check for smtpmail too.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86254
diff
changeset
|
665 ((and (locate-library "smtpmail") |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
666 (boundp 'smtpmail-default-smtp-server) |
86256
b53cbc241b6f
(message-send-mail-function): Check for smtpmail too.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86254
diff
changeset
|
667 smtpmail-default-smtp-server) |
b53cbc241b6f
(message-send-mail-function): Check for smtpmail too.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86254
diff
changeset
|
668 'message-smtpmail-send-it) |
b53cbc241b6f
(message-send-mail-function): Check for smtpmail too.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86254
diff
changeset
|
669 ((locate-library "mailclient") |
86254
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
670 'message-send-mail-with-mailclient) |
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
671 (t |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
672 (error "Don't know how to send mail. Please customize `message-send-mail-function'")))) |
86254
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
673 |
17493 | 674 ;; Useful to set in site-init.el |
107235 | 675 (defcustom message-send-mail-function |
676 (cond ((eq send-mail-function 'smtpmail-send-it) 'message-smtpmail-send-it) | |
677 ((eq send-mail-function 'feedmail-send-it) 'feedmail-send-it) | |
678 ((eq send-mail-function 'mailclient-send-it) | |
679 'message-send-mail-with-mailclient) | |
680 (t (message-send-mail-function))) | |
17493 | 681 "Function to call to send the current buffer as mail. |
682 The headers should be delimited by a line whose contents match the | |
683 variable `mail-header-separator'. | |
684 | |
86254
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
685 Valid values include `message-send-mail-with-sendmail' |
35147 | 686 `message-send-mail-with-mh', `message-send-mail-with-qmail', |
86254
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
687 `message-smtpmail-send-it', `smtpmail-send-it', |
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
688 `feedmail-send-it' and `message-send-mail-with-mailclient'. The |
92694 | 689 default is system dependent and determined by the function |
690 `message-send-mail-function'. | |
35147 | 691 |
692 See also `send-mail-function'." | |
17493 | 693 :type '(radio (function-item message-send-mail-with-sendmail) |
694 (function-item message-send-mail-with-mh) | |
695 (function-item message-send-mail-with-qmail) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
696 (function-item message-smtpmail-send-it) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
697 (function-item smtpmail-send-it) |
35147 | 698 (function-item feedmail-send-it) |
86254
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
699 (function-item message-send-mail-with-mailclient |
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
700 :tag "Use Mailclient package") |
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
701 (function :tag "Other")) |
17493 | 702 :group 'message-sending |
107235 | 703 :version "23.2" |
86254
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
704 :initialize 'custom-initialize-default |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
705 :link '(custom-manual "(message)Mail Variables") |
17493 | 706 :group 'message-mail) |
707 | |
708 (defcustom message-send-news-function 'message-send-news | |
709 "Function to call to send the current buffer as news. | |
710 The headers should be delimited by a line whose contents match the | |
711 variable `mail-header-separator'." | |
712 :group 'message-sending | |
713 :group 'message-news | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
714 :link '(custom-manual "(message)News Variables") |
17493 | 715 :type 'function) |
716 | |
717 (defcustom message-reply-to-function nil | |
35147 | 718 "If non-nil, function that should return a list of headers. |
17493 | 719 This function should pick out addresses from the To, Cc, and From headers |
720 and respond with new To and Cc headers." | |
721 :group 'message-interface | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
722 :link '(custom-manual "(message)Reply") |
35147 | 723 :type '(choice function (const nil))) |
17493 | 724 |
725 (defcustom message-wide-reply-to-function nil | |
35147 | 726 "If non-nil, function that should return a list of headers. |
17493 | 727 This function should pick out addresses from the To, Cc, and From headers |
728 and respond with new To and Cc headers." | |
729 :group 'message-interface | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
730 :link '(custom-manual "(message)Wide Reply") |
35147 | 731 :type '(choice function (const nil))) |
17493 | 732 |
733 (defcustom message-followup-to-function nil | |
35147 | 734 "If non-nil, function that should return a list of headers. |
17493 | 735 This function should pick out addresses from the To, Cc, and From headers |
736 and respond with new To and Cc headers." | |
737 :group 'message-interface | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
738 :link '(custom-manual "(message)Followup") |
35147 | 739 :type '(choice function (const nil))) |
17493 | 740 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
741 (defcustom message-extra-wide-headers nil |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
742 "If non-nil, a list of additional address headers. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
743 These are used when composing a wide reply." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
744 :group 'message-sending |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
745 :type '(repeat string)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
746 |
17493 | 747 (defcustom message-use-followup-to 'ask |
748 "*Specifies what to do with Followup-To header. | |
749 If nil, always ignore the header. If it is t, use its value, but | |
750 query before using the \"poster\" value. If it is the symbol `ask', | |
751 always query the user whether to use the value. If it is the symbol | |
752 `use', always use the value." | |
753 :group 'message-interface | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
754 :link '(custom-manual "(message)Followup") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
755 :type '(choice (const :tag "ignore" nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
756 (const :tag "use & query" t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
757 (const use) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
758 (const ask))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
759 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
760 (defcustom message-use-mail-followup-to 'use |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
761 "*Specifies what to do with Mail-Followup-To header. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
762 If nil, always ignore the header. If it is the symbol `ask', always |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
763 query the user whether to use the value. If it is the symbol `use', |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
764 always use the value." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
765 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
766 :group 'message-interface |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
767 :link '(custom-manual "(message)Mailing Lists") |
17493 | 768 :type '(choice (const :tag "ignore" nil) |
769 (const use) | |
770 (const ask))) | |
771 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
772 (defcustom message-subscribed-address-functions nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
773 "*Specifies functions for determining list subscription. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
774 If nil, do not attempt to determine list subscription with functions. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
775 If non-nil, this variable contains a list of functions which return |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
776 regular expressions to match lists. These functions can be used in |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
777 conjunction with `message-subscribed-regexps' and |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
778 `message-subscribed-addresses'." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
779 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
780 :group 'message-interface |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
781 :link '(custom-manual "(message)Mailing Lists") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
782 :type '(repeat sexp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
783 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
784 (defcustom message-subscribed-address-file nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
785 "*A file containing addresses the user is subscribed to. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
786 If nil, do not look at any files to determine list subscriptions. If |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
787 non-nil, each line of this file should be a mailing list address." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
788 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
789 :group 'message-interface |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
790 :link '(custom-manual "(message)Mailing Lists") |
58835
9bdd97960431
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-716
Miles Bader <miles@gnu.org>
parents:
57856
diff
changeset
|
791 :type '(radio file (const nil))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
792 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
793 (defcustom message-subscribed-addresses nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
794 "*Specifies a list of addresses the user is subscribed to. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
795 If nil, do not use any predefined list subscriptions. This list of |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
796 addresses can be used in conjunction with |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
797 `message-subscribed-address-functions' and `message-subscribed-regexps'." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
798 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
799 :group 'message-interface |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
800 :link '(custom-manual "(message)Mailing Lists") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
801 :type '(repeat string)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
802 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
803 (defcustom message-subscribed-regexps nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
804 "*Specifies a list of addresses the user is subscribed to. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
805 If nil, do not use any predefined list subscriptions. This list of |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
806 regular expressions can be used in conjunction with |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
807 `message-subscribed-address-functions' and `message-subscribed-addresses'." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
808 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
809 :group 'message-interface |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
810 :link '(custom-manual "(message)Mailing Lists") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
811 :type '(repeat regexp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
812 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
813 (defcustom message-allow-no-recipients 'ask |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
814 "Specifies what to do when there are no recipients other than Gcc/Fcc. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
815 If it is the symbol `always', the posting is allowed. If it is the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
816 symbol `never', the posting is not allowed. If it is the symbol |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
817 `ask', you are prompted." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
818 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
819 :group 'message-interface |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
820 :link '(custom-manual "(message)Message Headers") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
821 :type '(choice (const always) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
822 (const never) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
823 (const ask))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
824 |
17493 | 825 (defcustom message-sendmail-f-is-evil nil |
35147 | 826 "*Non-nil means don't add \"-f username\" to the sendmail command line. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
827 Doing so would be even more evil than leaving it out." |
17493 | 828 :group 'message-sending |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
829 :link '(custom-manual "(message)Mail Variables") |
17493 | 830 :type 'boolean) |
831 | |
106118
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
832 (defcustom message-sendmail-envelope-from |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
833 ;; Default to the value of `mail-envelope-from' if available. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
834 ;; Note: as for Emacsen that Gnus supports, except for SXEmacs, it is |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
835 ;; unavailable unless sendmail.el is loaded. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
836 (if (boundp 'mail-envelope-from) mail-envelope-from) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
837 "*Envelope-from when sending mail with sendmail. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
838 If this is nil, use `user-mail-address'. If it is the symbol |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
839 `header', use the From: header of the message." |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
840 :version "23.2" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
841 :type '(choice (string :tag "From name") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
842 (const :tag "Use From: header from message" header) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
843 (const :tag "Use `user-mail-address'" nil)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
844 :link '(custom-manual "(message)Mail Variables") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
845 :group 'message-sending) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
846 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
847 (defcustom message-sendmail-extra-arguments nil |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
848 "Additional arguments to `sendmail-program'." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
849 ;; E.g. '("-a" "account") for msmtp |
92336
5f827896103e
Change defcustom :version from 23.0 to 23.1.
Glenn Morris <rgm@gnu.org>
parents:
92147
diff
changeset
|
850 :version "23.1" ;; No Gnus |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
851 :type '(repeat string) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
852 ;; :link '(custom-manual "(message)Mail Variables") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
853 :group 'message-sending) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
854 |
17493 | 855 ;; qmail-related stuff |
856 (defcustom message-qmail-inject-program "/var/qmail/bin/qmail-inject" | |
857 "Location of the qmail-inject program." | |
858 :group 'message-sending | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
859 :link '(custom-manual "(message)Mail Variables") |
17493 | 860 :type 'file) |
861 | |
862 (defcustom message-qmail-inject-args nil | |
863 "Arguments passed to qmail-inject programs. | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
864 This should be a list of strings, one string for each argument. It |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
865 may also be a function. |
17493 | 866 |
867 For e.g., if you wish to set the envelope sender address so that bounces | |
868 go to the right place or to deal with listserv's usage of that address, you | |
869 might set this variable to '(\"-f\" \"you@some.where\")." | |
870 :group 'message-sending | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
871 :link '(custom-manual "(message)Mail Variables") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
872 :type '(choice (function) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
873 (repeat string))) |
17493 | 874 |
86154 | 875 (defvar gnus-post-method) |
876 (defvar gnus-select-method) | |
17493 | 877 (defcustom message-post-method |
878 (cond ((and (boundp 'gnus-post-method) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
879 (listp gnus-post-method) |
17493 | 880 gnus-post-method) |
881 gnus-post-method) | |
882 ((boundp 'gnus-select-method) | |
883 gnus-select-method) | |
884 (t '(nnspool ""))) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
885 "*Method used to post news. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
886 Note that when posting from inside Gnus, for instance, this |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
887 variable isn't used." |
17493 | 888 :group 'message-news |
889 :group 'message-sending | |
890 ;; This should be the `gnus-select-method' widget, but that might | |
891 ;; create a dependence to `gnus.el'. | |
892 :type 'sexp) | |
893 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
894 ;; FIXME: This should be a temporary workaround until someone implements a |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
895 ;; proper solution. If a crash happens while replying, the auto-save file |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
896 ;; will *not* have a `References:' header if `message-generate-headers-first' |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
897 ;; is nil. See: http://article.gmane.org/gmane.emacs.gnus.general/51138 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
898 (defcustom message-generate-headers-first '(references) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
899 "Which headers should be generated before starting to compose a message. |
59756
b53453586872
(message-beginning-of-line): Change the behavior when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58835
diff
changeset
|
900 If t, generate all required headers. This can also be a list of headers to |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
901 generate. The variables `message-required-news-headers' and |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
902 `message-required-mail-headers' specify which headers to generate. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
903 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
904 Note that the variable `message-deletable-headers' specifies headers which |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
905 are to be deleted and then re-generated before sending, so this variable |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
906 will not have a visible effect for those headers." |
17493 | 907 :group 'message-headers |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
908 :link '(custom-manual "(message)Message Headers") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
909 :type '(choice (const :tag "None" nil) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
910 (const :tag "References" '(references)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
911 (const :tag "All" t) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
912 (repeat (sexp :tag "Header")))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
913 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
914 (defcustom message-fill-column 72 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
915 "Column beyond which automatic line-wrapping should happen. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
916 Local value for message buffers. If non-nil, also turn on |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
917 auto-fill in message buffers." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
918 :group 'message-various |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
919 ;; :link '(custom-manual "(message)Message Headers") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
920 :type '(choice (const :tag "Don't turn on auto fill" nil) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
921 (integer))) |
17493 | 922 |
106358
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
923 (defcustom message-setup-hook nil |
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
924 "Normal hook, run each time a new outgoing message is initialized. |
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
925 The function `message-setup' runs this hook." |
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
926 :group 'message-various |
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
927 :link '(custom-manual "(message)Various Message Variables") |
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
928 :type 'hook) |
17493 | 929 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
930 (defcustom message-cancel-hook nil |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
931 "Hook run when cancelling articles." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
932 :group 'message-various |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
933 :link '(custom-manual "(message)Various Message Variables") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
934 :type 'hook) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
935 |
17493 | 936 (defcustom message-signature-setup-hook nil |
937 "Normal hook, run each time a new outgoing message is initialized. | |
938 It is run after the headers have been inserted and before | |
939 the signature is inserted." | |
940 :group 'message-various | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
941 :link '(custom-manual "(message)Various Message Variables") |
17493 | 942 :type 'hook) |
943 | |
944 (defcustom message-mode-hook nil | |
945 "Hook run in message mode buffers." | |
946 :group 'message-various | |
947 :type 'hook) | |
948 | |
949 (defcustom message-header-hook nil | |
950 "Hook run in a message mode buffer narrowed to the headers." | |
951 :group 'message-various | |
952 :type 'hook) | |
953 | |
954 (defcustom message-header-setup-hook nil | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
955 "Hook called narrowed to the headers when setting up a message buffer." |
17493 | 956 :group 'message-various |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
957 :link '(custom-manual "(message)Various Message Variables") |
17493 | 958 :type 'hook) |
959 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
960 (defcustom message-minibuffer-local-map |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
961 (let ((map (make-sparse-keymap 'message-minibuffer-local-map))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
962 (set-keymap-parent map minibuffer-local-map) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
963 map) |
57856
df80d19d7a2e
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-660
Miles Bader <miles@gnu.org>
parents:
57581
diff
changeset
|
964 "Keymap for `message-read-from-minibuffer'." |
62755
0d1a48b1ca68
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-324
Miles Bader <miles@gnu.org>
parents:
61462
diff
changeset
|
965 :version "22.1" |
0d1a48b1ca68
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-324
Miles Bader <miles@gnu.org>
parents:
61462
diff
changeset
|
966 :group 'message-various) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
967 |
17493 | 968 (defcustom message-citation-line-function 'message-insert-citation-line |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
969 "*Function called to insert the \"Whomever writes:\" line. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
970 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
971 Predefined functions include `message-insert-citation-line' and |
85974 | 972 `message-insert-formatted-citation-line' (see the variable |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
973 `message-citation-line-format'). |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
974 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
975 Note that Gnus provides a feature where the reader can click on |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
976 `writes:' to hide the cited text. If you change this line too much, |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
977 people who read your message will have to change their Gnus |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
978 configuration. See the variable `gnus-cite-attribution-suffix'." |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
979 :type '(choice |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
980 (function-item :tag "plain" message-insert-citation-line) |
85974 | 981 (function-item :tag "formatted" message-insert-formatted-citation-line) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
982 (function :tag "Other")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
983 :link '(custom-manual "(message)Insertion Variables") |
17493 | 984 :group 'message-insertion) |
985 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
986 (defcustom message-citation-line-format "On %a, %b %d %Y, %N wrote:\n" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
987 "Format of the \"Whomever writes:\" line. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
988 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
989 The string is formatted using `format-spec'. The following |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
990 constructs are replaced: |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
991 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
992 %f The full From, e.g. \"John Doe <john.doe@example.invalid>\". |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
993 %n The mail address, e.g. \"john.doe@example.invalid\". |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
994 %N The real name if present, e.g.: \"John Doe\", else fall |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
995 back to the mail address. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
996 %F The first name if present, e.g.: \"John\". |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
997 %L The last name if present, e.g.: \"Doe\". |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
998 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
999 All other format specifiers are passed to `format-time-string' |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1000 which is called using the date from the article your replying to. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1001 Extracting the first (%F) and last name (%L) is done |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1002 heuristically, so you should always check it yourself. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1003 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1004 Please also read the note in the documentation of |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1005 `message-citation-line-function'." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1006 :type '(choice (const :tag "Plain" "%f writes:") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1007 (const :tag "Include date" "On %a, %b %d %Y, %n wrote:") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1008 string) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1009 :link '(custom-manual "(message)Insertion Variables") |
92336
5f827896103e
Change defcustom :version from 23.0 to 23.1.
Glenn Morris <rgm@gnu.org>
parents:
92147
diff
changeset
|
1010 :version "23.1" ;; No Gnus |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1011 :group 'message-insertion) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1012 |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1013 (defcustom message-yank-prefix |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1014 ;; Default to the value of `mail-yank-prefix' if available. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1015 ;; Note: as for Emacs 21, it is unavailable unless sendmail.el is loaded. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1016 (if (boundp 'mail-yank-prefix) mail-yank-prefix "> ") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1017 "*Prefix inserted on the lines of yanked messages. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1018 Fix `message-cite-prefix-regexp' if it is set to an abnormal value. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1019 See also `message-yank-cited-prefix' and `message-yank-empty-prefix'." |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1020 :version "23.2" |
17493 | 1021 :type 'string |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1022 :link '(custom-manual "(message)Insertion Variables") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1023 :group 'message-insertion) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1024 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1025 (defcustom message-yank-cited-prefix ">" |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1026 "*Prefix inserted on cited lines of yanked messages. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1027 Fix `message-cite-prefix-regexp' if it is set to an abnormal value. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1028 See also `message-yank-prefix' and `message-yank-empty-prefix'." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1029 :version "22.1" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1030 :type 'string |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1031 :link '(custom-manual "(message)Insertion Variables") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1032 :group 'message-insertion) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1033 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1034 (defcustom message-yank-empty-prefix ">" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1035 "*Prefix inserted on empty lines of yanked messages. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1036 See also `message-yank-prefix' and `message-yank-cited-prefix'." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
1037 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1038 :type 'string |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1039 :link '(custom-manual "(message)Insertion Variables") |
17493 | 1040 :group 'message-insertion) |
1041 | |
106118
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
1042 (defcustom message-indentation-spaces |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1043 ;; Default to the value of `mail-indentation-spaces' if available. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1044 ;; Note: as for Emacs 21, XEmacs 21.4 and 21.5, it is unavailable |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1045 ;; unless sendmail.el is loaded. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1046 (if (boundp 'mail-indentation-spaces) mail-indentation-spaces 3) |
17493 | 1047 "*Number of spaces to insert at the beginning of each cited line. |
1048 Used by `message-yank-original' via `message-yank-cite'." | |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1049 :version "23.2" |
17493 | 1050 :group 'message-insertion |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1051 :link '(custom-manual "(message)Insertion Variables") |
17493 | 1052 :type 'integer) |
1053 | |
93386 | 1054 (defcustom message-cite-function 'message-cite-original-without-signature |
22656
e3dc0aa099e5
(message-cite-original): If mail-citation-hook
Richard M. Stallman <rms@gnu.org>
parents:
22378
diff
changeset
|
1055 "*Function for citing an original message. |
e3dc0aa099e5
(message-cite-original): If mail-citation-hook
Richard M. Stallman <rms@gnu.org>
parents:
22378
diff
changeset
|
1056 Predefined functions include `message-cite-original' and |
e3dc0aa099e5
(message-cite-original): If mail-citation-hook
Richard M. Stallman <rms@gnu.org>
parents:
22378
diff
changeset
|
1057 `message-cite-original-without-signature'. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1058 Note that these functions use `mail-citation-hook' if that is non-nil." |
17493 | 1059 :type '(radio (function-item message-cite-original) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1060 (function-item message-cite-original-without-signature) |
17493 | 1061 (function-item sc-cite-original) |
1062 (function :tag "Other")) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1063 :link '(custom-manual "(message)Insertion Variables") |
94209 | 1064 :version "22.3" ;; Gnus 5.10.12 (changed default) |
17493 | 1065 :group 'message-insertion) |
1066 | |
1067 (defcustom message-indent-citation-function 'message-indent-citation | |
1068 "*Function for modifying a citation just inserted in the mail buffer. | |
1069 This can also be a list of functions. Each function can find the | |
1070 citation between (point) and (mark t). And each function should leave | |
1071 point and mark around the citation text as modified." | |
1072 :type 'function | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1073 :link '(custom-manual "(message)Insertion Variables") |
17493 | 1074 :group 'message-insertion) |
1075 | |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1076 (defcustom message-signature mail-signature |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1077 ;; Default to the value of `mail-signature', available in all Emacsen |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1078 ;; that Gnus supports. |
17493 | 1079 "*String to be inserted at the end of the message buffer. |
1080 If t, the `message-signature-file' file will be inserted instead. | |
1081 If a function, the result from the function will be used instead. | |
1082 If a form, the result from the form will be used instead." | |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1083 :version "23.2" |
17493 | 1084 :type 'sexp |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1085 :link '(custom-manual "(message)Insertion Variables") |
17493 | 1086 :group 'message-insertion) |
1087 | |
106118
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
1088 (defcustom message-signature-file |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1089 ;; Default to the value of `mail-signature-file' if available. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1090 ;; Note: as for Emacs 21, XEmacs 21.4 and 21.5, it is unavailable |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1091 ;; unless sendmail.el is loaded. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1092 (if (boundp 'mail-signature-file) mail-signature-file "~/.signature") |
36036
dcbe0206da25
(message-signature-file): Fix doc, :type.
Dave Love <fx@gnu.org>
parents:
35957
diff
changeset
|
1093 "*Name of file containing the text inserted at end of message buffer. |
dcbe0206da25
(message-signature-file): Fix doc, :type.
Dave Love <fx@gnu.org>
parents:
35957
diff
changeset
|
1094 Ignored if the named file doesn't exist. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1095 If nil, don't insert a signature. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1096 If a path is specified, the value of `message-signature-directory' is ignored, |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1097 even if set." |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1098 :version "23.2" |
36036
dcbe0206da25
(message-signature-file): Fix doc, :type.
Dave Love <fx@gnu.org>
parents:
35957
diff
changeset
|
1099 :type '(choice file (const :tags "None" nil)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1100 :link '(custom-manual "(message)Insertion Variables") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1101 :group 'message-insertion) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1102 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1103 (defcustom message-signature-directory nil |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1104 "*Name of directory containing signature files. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1105 Comes in handy if you have many such files, handled via posting styles for |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1106 instance. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1107 If nil, `message-signature-file' is expected to specify the directory if |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1108 needed." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1109 :type '(choice string (const :tags "None" nil)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1110 :link '(custom-manual "(message)Insertion Variables") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1111 :group 'message-insertion) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1112 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1113 (defcustom message-signature-insert-empty-line t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1114 "*If non-nil, insert an empty line before the signature separator." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
1115 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1116 :type 'boolean |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1117 :link '(custom-manual "(message)Insertion Variables") |
17493 | 1118 :group 'message-insertion) |
1119 | |
1120 (defcustom message-distribution-function nil | |
1121 "*Function called to return a Distribution header." | |
1122 :group 'message-news | |
1123 :group 'message-headers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1124 :link '(custom-manual "(message)News Headers") |
35147 | 1125 :type '(choice function (const nil))) |
17493 | 1126 |
1127 (defcustom message-expires 14 | |
1128 "Number of days before your article expires." | |
1129 :group 'message-news | |
1130 :group 'message-headers | |
1131 :link '(custom-manual "(message)News Headers") | |
1132 :type 'integer) | |
1133 | |
1134 (defcustom message-user-path nil | |
1135 "If nil, use the NNTP server name in the Path header. | |
1136 If stringp, use this; if non-nil, use no host name (user name only)." | |
1137 :group 'message-news | |
1138 :group 'message-headers | |
1139 :link '(custom-manual "(message)News Headers") | |
1140 :type '(choice (const :tag "nntp" nil) | |
1141 (string :tag "name") | |
1142 (sexp :tag "none" :format "%t" t))) | |
1143 | |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
1144 ;; This can be the name of a buffer, or a cons cell (FUNCTION . ARGS) |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
1145 ;; for yanking the original buffer. |
17493 | 1146 (defvar message-reply-buffer nil) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1147 (defvar message-reply-headers nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1148 "The headers of the current replied article. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1149 It is a vector of the following headers: |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1150 \[number subject from date id references chars lines xref extra].") |
17493 | 1151 (defvar message-newsreader nil) |
1152 (defvar message-mailer nil) | |
1153 (defvar message-sent-message-via nil) | |
1154 (defvar message-checksum nil) | |
1155 (defvar message-send-actions nil | |
1156 "A list of actions to be performed upon successful sending of a message.") | |
1157 (defvar message-exit-actions nil | |
1158 "A list of actions to be performed upon exiting after sending a message.") | |
1159 (defvar message-kill-actions nil | |
1160 "A list of actions to be performed before killing a message buffer.") | |
1161 (defvar message-postpone-actions nil | |
1162 "A list of actions to be performed after postponing a message.") | |
1163 | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1164 (define-widget 'message-header-lines 'text |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1165 "All header lines must be LFD terminated." |
33982
ff339ba39162
(message-header-lines): Fontify tag.
Miles Bader <miles@gnu.org>
parents:
33768
diff
changeset
|
1166 :format "%{%t%}:%n%v" |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1167 :valid-regexp "^\\'" |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1168 :error "All header lines must be newline terminated") |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1169 |
106118
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
1170 (defcustom message-default-headers |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1171 ;; Default to the value of `mail-default-headers' if available. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1172 ;; Note: as for Emacs 21, XEmacs 21.4 and 21.5, it is unavailable |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1173 ;; unless sendmail.el is loaded. |
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1174 (if (boundp 'mail-default-headers) mail-default-headers "") |
17493 | 1175 "*A string containing header lines to be inserted in outgoing messages. |
1176 It is inserted before you edit the message, so you can edit or delete | |
1177 these lines." | |
106218
8ccde493b34d
(message-from-style, message-interactive, message-signature): Always set
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106152
diff
changeset
|
1178 :version "23.2" |
17493 | 1179 :group 'message-headers |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1180 :link '(custom-manual "(message)Message Headers") |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1181 :type 'message-header-lines) |
17493 | 1182 |
107157
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1183 (defcustom message-default-mail-headers |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1184 ;; Ease the transition from mail-mode to message-mode. See bugs#4431, 5555. |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1185 (concat (if (and (boundp 'mail-default-reply-to) |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1186 (stringp mail-default-reply-to)) |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1187 (format "Reply-to: %s\n" mail-default-reply-to) |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1188 "") |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1189 (if (and (boundp 'mail-self-blind) |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1190 mail-self-blind) |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1191 (format "BCC: %s\n" user-mail-address) |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1192 "") |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1193 (if (and (boundp 'mail-archive-file-name) |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1194 (stringp mail-archive-file-name)) |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1195 (format "FCC: %s\n" mail-archive-file-name) |
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1196 "")) |
17493 | 1197 "*A string of header lines to be inserted in outgoing mails." |
107157
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
1198 :version "23.2" |
17493 | 1199 :group 'message-headers |
1200 :group 'message-mail | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1201 :link '(custom-manual "(message)Mail Headers") |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1202 :type 'message-header-lines) |
17493 | 1203 |
1204 (defcustom message-default-news-headers "" | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1205 "*A string of header lines to be inserted in outgoing news articles." |
17493 | 1206 :group 'message-headers |
1207 :group 'message-news | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1208 :link '(custom-manual "(message)News Headers") |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1209 :type 'message-header-lines) |
17493 | 1210 |
1211 ;; Note: could use /usr/ucb/mail instead of sendmail; | |
1212 ;; options -t, and -v if not interactive. | |
1213 (defcustom message-mailer-swallows-blank-line | |
1214 (if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" | |
1215 system-configuration) | |
1216 (file-readable-p "/etc/sendmail.cf") | |
1217 (let ((buffer (get-buffer-create " *temp*"))) | |
1218 (unwind-protect | |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
1219 (with-current-buffer buffer |
17493 | 1220 (insert-file-contents "/etc/sendmail.cf") |
1221 (goto-char (point-min)) | |
1222 (let ((case-fold-search nil)) | |
1223 (re-search-forward "^OR\\>" nil t))) | |
1224 (kill-buffer buffer)))) | |
1225 ;; According to RFC822, "The field-name must be composed of printable | |
1226 ;; ASCII characters (i. e., characters that have decimal values between | |
1227 ;; 33 and 126, except colon)", i. e., any chars except ctl chars, | |
1228 ;; space, or colon. | |
1229 '(looking-at "[ \t]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:")) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1230 "*Set this non-nil if the system's mailer runs the header and body together. |
17493 | 1231 \(This problem exists on Sunos 4 when sendmail is run in remote mode.) |
1232 The value should be an expression to test whether the problem will | |
1233 actually occur." | |
1234 :group 'message-sending | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1235 :link '(custom-manual "(message)Mail Variables") |
17493 | 1236 :type 'sexp) |
1237 | |
19481
4d492290e085
(message-user-agent): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
17493
diff
changeset
|
1238 ;;;###autoload |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1239 (define-mail-user-agent 'message-user-agent |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1240 'message-mail 'message-send-and-exit |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1241 'message-kill-buffer 'message-send-hook) |
17493 | 1242 |
1243 (defvar message-mh-deletable-headers '(Message-ID Date Lines Sender) | |
1244 "If non-nil, delete the deletable headers before feeding to mh.") | |
1245 | |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1246 (defvar message-send-method-alist |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1247 '((news message-news-p message-send-via-news) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1248 (mail message-mail-p message-send-via-mail)) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1249 "Alist of ways to send outgoing messages. |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1250 Each element has the form |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1251 |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1252 \(TYPE PREDICATE FUNCTION) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1253 |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1254 where TYPE is a symbol that names the method; PREDICATE is a function |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1255 called without any parameters to determine whether the message is |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1256 a message of type TYPE; and FUNCTION is a function to be called if |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1257 PREDICATE returns non-nil. FUNCTION is called with one parameter -- |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1258 the prefix.") |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1259 |
34058
9f5e2364ef2b
(message-mail-alias-type): Customize.
Dave Love <fx@gnu.org>
parents:
34057
diff
changeset
|
1260 (defcustom message-mail-alias-type 'abbrev |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1261 "*What alias expansion type to use in Message buffers. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1262 The default is `abbrev', which uses mailabbrev. `ecomplete' uses |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1263 an electric completion mode. nil switches mail aliases off. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1264 This can also be a list of values." |
34058
9f5e2364ef2b
(message-mail-alias-type): Customize.
Dave Love <fx@gnu.org>
parents:
34057
diff
changeset
|
1265 :group 'message |
9f5e2364ef2b
(message-mail-alias-type): Customize.
Dave Love <fx@gnu.org>
parents:
34057
diff
changeset
|
1266 :link '(custom-manual "(message)Mail Aliases") |
9f5e2364ef2b
(message-mail-alias-type): Customize.
Dave Love <fx@gnu.org>
parents:
34057
diff
changeset
|
1267 :type '(choice (const :tag "Use Mailabbrev" abbrev) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1268 (const :tag "Use ecomplete" ecomplete) |
34058
9f5e2364ef2b
(message-mail-alias-type): Customize.
Dave Love <fx@gnu.org>
parents:
34057
diff
changeset
|
1269 (const :tag "No expansion" nil))) |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
1270 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1271 (defcustom message-self-insert-commands '(self-insert-command) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1272 "List of `self-insert-command's used to trigger ecomplete. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1273 When one of those commands is invoked to enter a character in To or Cc |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1274 header, ecomplete will suggest the candidates of recipients (see also |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1275 `message-mail-alias-type'). If you use some tool to enter non-ASCII |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1276 text and it replaces `self-insert-command' with the other command, e.g. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1277 `egg-self-insert-command', you may want to add it to this list." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1278 :group 'message-various |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1279 :type '(repeat function)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1280 |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1281 (defcustom message-auto-save-directory |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
1282 (file-name-as-directory (expand-file-name "drafts" message-directory)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1283 "*Directory where Message auto-saves buffers if Gnus isn't running. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1284 If nil, Message won't auto-save." |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1285 :group 'message-buffers |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1286 :link '(custom-manual "(message)Various Message Variables") |
35147 | 1287 :type '(choice directory (const :tag "Don't auto-save" nil))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1288 |
35147 | 1289 (defcustom message-default-charset |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
1290 (and (not (mm-multibyte-p)) 'iso-8859-1) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
1291 "Default charset used in non-MULE Emacsen. |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
1292 If nil, you might be asked to input the charset." |
33400
42c1ba3caf9c
(message-forward-as-mime, message-forward-ignored-headers)
Dave Love <fx@gnu.org>
parents:
33375
diff
changeset
|
1293 :version "21.1" |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1294 :group 'message |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1295 :link '(custom-manual "(message)Various Message Variables") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1296 :type 'symbol) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1297 |
35147 | 1298 (defcustom message-dont-reply-to-names |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1299 (and (boundp 'rmail-dont-reply-to-names) rmail-dont-reply-to-names) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1300 "*Addresses to prune when doing wide replies. |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
1301 This can be a regexp or a list of regexps. Also, a value of nil means |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1302 exclude your own user name only." |
33400
42c1ba3caf9c
(message-forward-as-mime, message-forward-ignored-headers)
Dave Love <fx@gnu.org>
parents:
33375
diff
changeset
|
1303 :version "21.1" |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1304 :group 'message |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1305 :link '(custom-manual "(message)Wide Reply") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1306 :type '(choice (const :tag "Yourself" nil) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1307 regexp |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1308 (repeat :tag "Regexp List" regexp))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1309 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1310 (defsubst message-dont-reply-to-names () |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1311 (gmm-regexp-concat message-dont-reply-to-names)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1312 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1313 (defvar message-shoot-gnksa-feet nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1314 "*A list of GNKSA feet you are allowed to shoot. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1315 Gnus gives you all the opportunity you could possibly want for |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1316 shooting yourself in the foot. Also, Gnus allows you to shoot the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1317 feet of Good Net-Keeping Seal of Approval. The following are foot |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1318 candidates: |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1319 `empty-article' Allow you to post an empty article; |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1320 `quoted-text-only' Allow you to post quoted text only; |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1321 `multiple-copies' Allow you to post multiple copies; |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1322 `cancel-messages' Allow you to cancel or supersede messages from |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1323 your other email addresses.") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1324 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1325 (defsubst message-gnksa-enable-p (feature) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1326 (or (not (listp message-shoot-gnksa-feet)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1327 (memq feature message-shoot-gnksa-feet))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1328 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1329 (defcustom message-hidden-headers '("^References:" "^Face:" "^X-Face:" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1330 "^X-Draft-From:") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1331 "Regexp of headers to be hidden when composing new messages. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1332 This can also be a list of regexps to match headers. Or a list |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1333 starting with `not' and followed by regexps." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
1334 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1335 :group 'message |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1336 :link '(custom-manual "(message)Message Headers") |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1337 :type '(choice |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1338 :format "%{%t%}: %[Value Type%] %v" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1339 (regexp :menu-tag "regexp" :format "regexp\n%t: %v") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1340 (repeat :menu-tag "(regexp ...)" :format "(regexp ...)\n%v%i" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1341 (regexp :format "%t: %v")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1342 (cons :menu-tag "(not regexp ...)" :format "(not regexp ...)\n%v" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1343 (const not) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1344 (repeat :format "%v%i" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1345 (regexp :format "%t: %v"))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1346 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1347 (defcustom message-cite-articles-with-x-no-archive t |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1348 "If non-nil, cite text from articles that has X-No-Archive set." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1349 :group 'message |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1350 :type 'boolean) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1351 |
17493 | 1352 ;;; Internal variables. |
1353 ;;; Well, not really internal. | |
1354 | |
1355 (defvar message-mode-syntax-table | |
1356 (let ((table (copy-syntax-table text-mode-syntax-table))) | |
1357 (modify-syntax-entry ?% ". " table) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1358 (modify-syntax-entry ?> ". " table) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1359 (modify-syntax-entry ?< ". " table) |
17493 | 1360 table) |
1361 "Syntax table used while in Message mode.") | |
1362 | |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1363 (defface message-header-to |
17493 | 1364 '((((class color) |
1365 (background dark)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1366 (:foreground "DarkOliveGreen1" :bold t)) |
17493 | 1367 (((class color) |
1368 (background light)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1369 (:foreground "MidnightBlue" :bold t)) |
17493 | 1370 (t |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1371 (:bold t :italic t))) |
17493 | 1372 "Face used for displaying From headers." |
1373 :group 'message-faces) | |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1374 ;; backward-compatibility alias |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1375 (put 'message-header-to-face 'face-alias 'message-header-to) |
104789
aa91debbb2f2
Mark face aliases with "-face" in the name as obsolete.
Glenn Morris <rgm@gnu.org>
parents:
102061
diff
changeset
|
1376 (put 'message-header-to-face 'obsolete-face "22.1") |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1377 |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1378 (defface message-header-cc |
17493 | 1379 '((((class color) |
1380 (background dark)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1381 (:foreground "chartreuse1" :bold t)) |
17493 | 1382 (((class color) |
1383 (background light)) | |
1384 (:foreground "MidnightBlue")) | |
1385 (t | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1386 (:bold t))) |
17493 | 1387 "Face used for displaying Cc headers." |
1388 :group 'message-faces) | |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1389 ;; backward-compatibility alias |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1390 (put 'message-header-cc-face 'face-alias 'message-header-cc) |
104789
aa91debbb2f2
Mark face aliases with "-face" in the name as obsolete.
Glenn Morris <rgm@gnu.org>
parents:
102061
diff
changeset
|
1391 (put 'message-header-cc-face 'obsolete-face "22.1") |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1392 |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1393 (defface message-header-subject |
17493 | 1394 '((((class color) |
1395 (background dark)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1396 (:foreground "OliveDrab1")) |
17493 | 1397 (((class color) |
1398 (background light)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1399 (:foreground "navy blue" :bold t)) |
17493 | 1400 (t |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1401 (:bold t))) |
17493 | 1402 "Face used for displaying subject headers." |
1403 :group 'message-faces) | |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1404 ;; backward-compatibility alias |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1405 (put 'message-header-subject-face 'face-alias 'message-header-subject) |
104789
aa91debbb2f2
Mark face aliases with "-face" in the name as obsolete.
Glenn Morris <rgm@gnu.org>
parents:
102061
diff
changeset
|
1406 (put 'message-header-subject-face 'obsolete-face "22.1") |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1407 |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1408 (defface message-header-newsgroups |
17493 | 1409 '((((class color) |
1410 (background dark)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1411 (:foreground "yellow" :bold t :italic t)) |
17493 | 1412 (((class color) |
1413 (background light)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1414 (:foreground "blue4" :bold t :italic t)) |
17493 | 1415 (t |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1416 (:bold t :italic t))) |
17493 | 1417 "Face used for displaying newsgroups headers." |
1418 :group 'message-faces) | |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1419 ;; backward-compatibility alias |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1420 (put 'message-header-newsgroups-face 'face-alias 'message-header-newsgroups) |
104789
aa91debbb2f2
Mark face aliases with "-face" in the name as obsolete.
Glenn Morris <rgm@gnu.org>
parents:
102061
diff
changeset
|
1421 (put 'message-header-newsgroups-face 'obsolete-face "22.1") |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1422 |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1423 (defface message-header-other |
17493 | 1424 '((((class color) |
1425 (background dark)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1426 (:foreground "VioletRed1")) |
17493 | 1427 (((class color) |
1428 (background light)) | |
1429 (:foreground "steel blue")) | |
1430 (t | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1431 (:bold t :italic t))) |
17493 | 1432 "Face used for displaying newsgroups headers." |
1433 :group 'message-faces) | |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1434 ;; backward-compatibility alias |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1435 (put 'message-header-other-face 'face-alias 'message-header-other) |
104789
aa91debbb2f2
Mark face aliases with "-face" in the name as obsolete.
Glenn Morris <rgm@gnu.org>
parents:
102061
diff
changeset
|
1436 (put 'message-header-other-face 'obsolete-face "22.1") |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1437 |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1438 (defface message-header-name |
17493 | 1439 '((((class color) |
1440 (background dark)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1441 (:foreground "green")) |
17493 | 1442 (((class color) |
1443 (background light)) | |
1444 (:foreground "cornflower blue")) | |
1445 (t | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1446 (:bold t))) |
17493 | 1447 "Face used for displaying header names." |
1448 :group 'message-faces) | |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1449 ;; backward-compatibility alias |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1450 (put 'message-header-name-face 'face-alias 'message-header-name) |
104789
aa91debbb2f2
Mark face aliases with "-face" in the name as obsolete.
Glenn Morris <rgm@gnu.org>
parents:
102061
diff
changeset
|
1451 (put 'message-header-name-face 'obsolete-face "22.1") |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1452 |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1453 (defface message-header-xheader |
17493 | 1454 '((((class color) |
1455 (background dark)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1456 (:foreground "DeepSkyBlue1")) |
17493 | 1457 (((class color) |
1458 (background light)) | |
1459 (:foreground "blue")) | |
1460 (t | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1461 (:bold t))) |
17493 | 1462 "Face used for displaying X-Header headers." |
1463 :group 'message-faces) | |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1464 ;; backward-compatibility alias |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1465 (put 'message-header-xheader-face 'face-alias 'message-header-xheader) |
104789
aa91debbb2f2
Mark face aliases with "-face" in the name as obsolete.
Glenn Morris <rgm@gnu.org>
parents:
102061
diff
changeset
|
1466 (put 'message-header-xheader-face 'obsolete-face "22.1") |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1467 |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1468 (defface message-separator |
17493 | 1469 '((((class color) |
1470 (background dark)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1471 (:foreground "LightSkyBlue1")) |
17493 | 1472 (((class color) |
1473 (background light)) | |
1474 (:foreground "brown")) | |
1475 (t | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1476 (:bold t))) |
17493 | 1477 "Face used for displaying the separator." |
1478 :group 'message-faces) | |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1479 ;; backward-compatibility alias |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1480 (put 'message-separator-face 'face-alias 'message-separator) |
104789
aa91debbb2f2
Mark face aliases with "-face" in the name as obsolete.
Glenn Morris <rgm@gnu.org>
parents:
102061
diff
changeset
|
1481 (put 'message-separator-face 'obsolete-face "22.1") |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1482 |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1483 (defface message-cited-text |
17493 | 1484 '((((class color) |
1485 (background dark)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1486 (:foreground "LightPink1")) |
17493 | 1487 (((class color) |
1488 (background light)) | |
1489 (:foreground "red")) | |
1490 (t | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1491 (:bold t))) |
17493 | 1492 "Face used for displaying cited text names." |
1493 :group 'message-faces) | |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1494 ;; backward-compatibility alias |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1495 (put 'message-cited-text-face 'face-alias 'message-cited-text) |
104789
aa91debbb2f2
Mark face aliases with "-face" in the name as obsolete.
Glenn Morris <rgm@gnu.org>
parents:
102061
diff
changeset
|
1496 (put 'message-cited-text-face 'obsolete-face "22.1") |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1497 |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1498 (defface message-mml |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1499 '((((class color) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1500 (background dark)) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1501 (:foreground "MediumSpringGreen")) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1502 (((class color) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1503 (background light)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1504 (:foreground "ForestGreen")) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1505 (t |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1506 (:bold t))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1507 "Face used for displaying MML." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1508 :group 'message-faces) |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1509 ;; backward-compatibility alias |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1510 (put 'message-mml-face 'face-alias 'message-mml) |
104789
aa91debbb2f2
Mark face aliases with "-face" in the name as obsolete.
Glenn Morris <rgm@gnu.org>
parents:
102061
diff
changeset
|
1511 (put 'message-mml-face 'obsolete-face "22.1") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1512 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1513 (defun message-font-lock-make-header-matcher (regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1514 (let ((form |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1515 `(lambda (limit) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1516 (let ((start (point))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1517 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1518 (widen) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1519 (goto-char (point-min)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1520 (if (re-search-forward |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1521 (concat "^" (regexp-quote mail-header-separator) "$") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1522 nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1523 (setq limit (min limit (match-beginning 0)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1524 (goto-char start)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1525 (and (< start limit) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1526 (re-search-forward ,regexp limit t)))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1527 (if (featurep 'bytecomp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1528 (byte-compile form) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1529 form))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1530 |
17493 | 1531 (defvar message-font-lock-keywords |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1532 (let ((content "[ \t]*\\(.+\\(\n[ \t].*\\)*\\)\n?")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1533 `((,(message-font-lock-make-header-matcher |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1534 (concat "^\\([Tt]o:\\)" content)) |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1535 (1 'message-header-name) |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1536 (2 'message-header-to nil t)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1537 (,(message-font-lock-make-header-matcher |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1538 (concat "^\\(^[GBF]?[Cc][Cc]:\\|^[Rr]eply-[Tt]o:\\)" content)) |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1539 (1 'message-header-name) |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1540 (2 'message-header-cc nil t)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1541 (,(message-font-lock-make-header-matcher |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1542 (concat "^\\([Ss]ubject:\\)" content)) |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1543 (1 'message-header-name) |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1544 (2 'message-header-subject nil t)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1545 (,(message-font-lock-make-header-matcher |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1546 (concat "^\\([Nn]ewsgroups:\\|Followup-[Tt]o:\\)" content)) |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1547 (1 'message-header-name) |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1548 (2 'message-header-newsgroups nil t)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1549 (,(message-font-lock-make-header-matcher |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1550 (concat "^\\(X-[A-Za-z0-9-]+:\\|In-Reply-To:\\)" content)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1551 (1 'message-header-name) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1552 (2 'message-header-xheader)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1553 (,(message-font-lock-make-header-matcher |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1554 (concat "^\\([A-Z][^: \n\t]+:\\)" content)) |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1555 (1 'message-header-name) |
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1556 (2 'message-header-other nil t)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1557 ,@(if (and mail-header-separator |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1558 (not (equal mail-header-separator ""))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1559 `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$") |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1560 1 'message-separator)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1561 nil) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1562 ((lambda (limit) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1563 (re-search-forward (concat "^\\(" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1564 message-cite-prefix-regexp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1565 "\\).*") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1566 limit t)) |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1567 (0 'message-cited-text)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1568 ("<#/?\\(multipart\\|part\\|external\\|mml\\|secure\\)[^>]*>" |
63480
53e7abe8917f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425
Miles Bader <miles@gnu.org>
parents:
63398
diff
changeset
|
1569 (0 'message-mml)))) |
17493 | 1570 "Additional expressions to highlight in Message mode.") |
1571 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1572 |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1573 ;; XEmacs does it like this. For Emacs, we have to set the |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1574 ;; `font-lock-defaults' buffer-local variable. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1575 (put 'message-mode 'font-lock-defaults '(message-font-lock-keywords t)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1576 |
17493 | 1577 (defvar message-face-alist |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1578 '((bold . message-bold-region) |
17493 | 1579 (underline . underline-region) |
1580 (default . (lambda (b e) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1581 (message-unbold-region b e) |
17493 | 1582 (ununderline-region b e)))) |
1583 "Alist of mail and news faces for facemenu. | |
48588 | 1584 The cdr of each entry is a function for applying the face to a region.") |
17493 | 1585 |
106358
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
1586 (defcustom message-send-hook nil |
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
1587 "Hook run before sending messages. |
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
1588 This hook is run quite early when sending." |
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
1589 :group 'message-various |
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
1590 :options '(ispell-message) |
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
1591 :link '(custom-manual "(message)Various Message Variables") |
8acd940e483a
* message.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
106353
diff
changeset
|
1592 :type 'hook) |
17493 | 1593 |
1594 (defcustom message-send-mail-hook nil | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1595 "Hook run before sending mail messages. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1596 This hook is run very late -- just before the message is sent as |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1597 mail." |
17493 | 1598 :group 'message-various |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1599 :link '(custom-manual "(message)Various Message Variables") |
17493 | 1600 :type 'hook) |
1601 | |
1602 (defcustom message-send-news-hook nil | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1603 "Hook run before sending news messages. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1604 This hook is run very late -- just before the message is sent as |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1605 news." |
17493 | 1606 :group 'message-various |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1607 :link '(custom-manual "(message)Various Message Variables") |
17493 | 1608 :type 'hook) |
1609 | |
1610 (defcustom message-sent-hook nil | |
1611 "Hook run after sending messages." | |
1612 :group 'message-various | |
1613 :type 'hook) | |
1614 | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1615 (defvar message-send-coding-system 'binary |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1616 "Coding system to encode outgoing mail.") |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1617 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1618 (defvar message-draft-coding-system |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1619 mm-auto-save-coding-system |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1620 "*Coding system to compose mail. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1621 If you'd like to make it possible to share draft files between XEmacs |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1622 and Emacs, you may use `iso-2022-7bit' for this value at your own risk. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1623 Note that the coding-system `iso-2022-7bit' isn't suitable to all data.") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1624 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1625 (defcustom message-send-mail-partially-limit 1000000 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1626 "The limitation of messages sent as message/partial. |
35147 | 1627 The lower bound of message size in characters, beyond which the message |
1628 should be sent in several parts. If it is nil, the size is unlimited." | |
33400
42c1ba3caf9c
(message-forward-as-mime, message-forward-ignored-headers)
Dave Love <fx@gnu.org>
parents:
33375
diff
changeset
|
1629 :version "21.1" |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1630 :group 'message-buffers |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1631 :link '(custom-manual "(message)Mail Variables") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1632 :type '(choice (const :tag "unlimited" nil) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1633 (integer 1000000))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1634 |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
1635 (defcustom message-alternative-emails nil |
68521
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
1636 "*Regexp matching alternative email addresses. |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
1637 The first address in the To, Cc or From headers of the original |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
1638 article matching this variable is used as the From field of |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
1639 outgoing messages. |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
1640 |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
1641 This variable has precedence over posting styles and anything that runs |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
1642 off `message-setup-hook'." |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
1643 :group 'message-headers |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1644 :link '(custom-manual "(message)Message Headers") |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
1645 :type '(choice (const :tag "Always use primary" nil) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
1646 regexp)) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
1647 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1648 (defcustom message-hierarchical-addresses nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1649 "A list of hierarchical mail address definitions. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1650 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1651 Inside each entry, the first address is the \"top\" address, and |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1652 subsequent addresses are subaddresses; this is used to indicate that |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1653 mail sent to the first address will automatically be delivered to the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1654 subaddresses. So if the first address appears in the recipient list |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1655 for a message, the subaddresses will be removed (if present) before |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1656 the mail is sent. All addresses in this structure should be |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1657 downcased." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
1658 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1659 :group 'message-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1660 :type '(repeat (repeat string))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1661 |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1662 (defcustom message-mail-user-agent nil |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1663 "Like `mail-user-agent'. |
35147 | 1664 Except if it is nil, use Gnus native MUA; if it is t, use |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1665 `mail-user-agent'." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
1666 :version "22.1" |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1667 :type '(radio (const :tag "Gnus native" |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1668 :format "%t\n" |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1669 nil) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1670 (const :tag "`mail-user-agent'" |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1671 :format "%t\n" |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1672 t) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1673 (function-item :tag "Default Emacs mail" |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1674 :format "%t\n" |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1675 sendmail-user-agent) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1676 (function-item :tag "Emacs interface to MH" |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1677 :format "%t\n" |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1678 mh-e-user-agent) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1679 (function :tag "Other")) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1680 :version "21.1" |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1681 :group 'message) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
1682 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1683 (defcustom message-wide-reply-confirm-recipients nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1684 "Whether to confirm a wide reply to multiple email recipients. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1685 If this variable is nil, don't ask whether to reply to all recipients. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1686 If this variable is non-nil, pose the question \"Reply to all |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1687 recipients?\" before a wide reply to multiple recipients. If the user |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1688 answers yes, reply to all recipients as usual. If the user answers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1689 no, only reply back to the author." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
1690 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1691 :group 'message-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1692 :link '(custom-manual "(message)Wide Reply") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1693 :type 'boolean) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1694 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1695 (defcustom message-user-fqdn nil |
64780
4def766e2c3f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-515
Miles Bader <miles@gnu.org>
parents:
64754
diff
changeset
|
1696 "*Domain part of Message-Ids." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
1697 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1698 :group 'message-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1699 :link '(custom-manual "(message)News Headers") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1700 :type '(radio (const :format "%v " nil) |
58835
9bdd97960431
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-716
Miles Bader <miles@gnu.org>
parents:
57856
diff
changeset
|
1701 (string :format "FQDN: %v"))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1702 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1703 (defcustom message-use-idna (and (condition-case nil (require 'idna) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1704 (file-error)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1705 (mm-coding-system-p 'utf-8) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1706 (executable-find idna-program) |
65742
8e46fef0174c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-566
Miles Bader <miles@gnu.org>
parents:
65719
diff
changeset
|
1707 (string= (idna-to-ascii "räksmörgås") |
8e46fef0174c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-566
Miles Bader <miles@gnu.org>
parents:
65719
diff
changeset
|
1708 "xn--rksmrgs-5wao1o") |
8e46fef0174c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-566
Miles Bader <miles@gnu.org>
parents:
65719
diff
changeset
|
1709 t) |
8e46fef0174c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-566
Miles Bader <miles@gnu.org>
parents:
65719
diff
changeset
|
1710 "Whether to encode non-ASCII in domain names into ASCII according to IDNA. |
8e46fef0174c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-566
Miles Bader <miles@gnu.org>
parents:
65719
diff
changeset
|
1711 GNU Libidn, and in particular the elisp package \"idna.el\" and |
8e46fef0174c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-566
Miles Bader <miles@gnu.org>
parents:
65719
diff
changeset
|
1712 the external program \"idn\", must be installed for this |
8e46fef0174c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-566
Miles Bader <miles@gnu.org>
parents:
65719
diff
changeset
|
1713 functionality to work." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
1714 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1715 :group 'message-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1716 :link '(custom-manual "(message)IDNA") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1717 :type '(choice (const :tag "Ask" ask) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1718 (const :tag "Never" nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1719 (const :tag "Always" t))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1720 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1721 (defcustom message-generate-hashcash (if (executable-find "hashcash") t) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1722 "*Whether to generate X-Hashcash: headers. |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
1723 If t, always generate hashcash headers. If `opportunistic', |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1724 only generate hashcash headers if it can be done without the user |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1725 waiting (i.e., only asynchronously). |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1726 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1727 You must have the \"hashcash\" binary installed, see `hashcash-path'." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1728 :group 'message-headers |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1729 :link '(custom-manual "(message)Mail Headers") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1730 :type '(choice (const :tag "Always" t) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1731 (const :tag "Never" nil) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1732 (const :tag "Opportunistic" opportunistic))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1733 |
17493 | 1734 ;;; Internal variables. |
1735 | |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
1736 (defvar message-sending-message "Sending...") |
17493 | 1737 (defvar message-buffer-list nil) |
1738 (defvar message-this-is-news nil) | |
1739 (defvar message-this-is-mail nil) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1740 (defvar message-draft-article nil) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1741 (defvar message-mime-part nil) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1742 (defvar message-posting-charset nil) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1743 (defvar message-inserted-headers nil) |
17493 | 1744 |
1745 ;; Byte-compiler warning | |
86154 | 1746 (defvar gnus-active-hashtb) |
1747 (defvar gnus-read-active-file) | |
17493 | 1748 |
1749 ;;; Regexp matching the delimiter of messages in UNIX mail format | |
19762
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1750 ;;; (UNIX From lines), minus the initial ^. It should be a copy |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1751 ;;; of rmail.el's rmail-unix-mail-delimiter. |
17493 | 1752 (defvar message-unix-mail-delimiter |
1753 (let ((time-zone-regexp | |
1754 (concat "\\([A-Z]?[A-Z]?[A-Z][A-Z]\\( DST\\)?" | |
1755 "\\|[-+]?[0-9][0-9][0-9][0-9]" | |
1756 "\\|" | |
1757 "\\) *"))) | |
1758 (concat | |
1759 "From " | |
1760 | |
19762
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1761 ;; Many things can happen to an RFC 822 mailbox before it is put into |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1762 ;; a `From' line. The leading phrase can be stripped, e.g. |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1763 ;; `Joe <@w.x:joe@y.z>' -> `<@w.x:joe@y.z>'. The <> can be stripped, e.g. |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1764 ;; `<@x.y:joe@y.z>' -> `@x.y:joe@y.z'. Everything starting with a CRLF |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1765 ;; can be removed, e.g. |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1766 ;; From: joe@y.z (Joe K |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1767 ;; User) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1768 ;; can yield `From joe@y.z (Joe K Fri Mar 22 08:11:15 1996', and |
19762
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1769 ;; From: Joe User |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1770 ;; <joe@y.z> |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1771 ;; can yield `From Joe User Fri Mar 22 08:11:15 1996'. |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1772 ;; The mailbox can be removed or be replaced by white space, e.g. |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1773 ;; From: "Joe User"{space}{tab} |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1774 ;; <joe@y.z> |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1775 ;; can yield `From {space}{tab} Fri Mar 22 08:11:15 1996', |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1776 ;; where {space} and {tab} represent the Ascii space and tab characters. |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1777 ;; We want to match the results of any of these manglings. |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1778 ;; The following regexp rejects names whose first characters are |
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1779 ;; obviously bogus, but after that anything goes. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1780 "\\([^\0-\b\n-\r\^?].*\\)?" |
17493 | 1781 |
1782 ;; The time the message was sent. | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1783 "\\([^\0-\r \^?]+\\) +" ; day of the week |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1784 "\\([^\0-\r \^?]+\\) +" ; month |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1785 "\\([0-3]?[0-9]\\) +" ; day of month |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1786 "\\([0-2][0-9]:[0-5][0-9]\\(:[0-6][0-9]\\)?\\) *" ; time of day |
17493 | 1787 |
1788 ;; Perhaps a time zone, specified by an abbreviation, or by a | |
1789 ;; numeric offset. | |
1790 time-zone-regexp | |
1791 | |
1792 ;; The year. | |
19762
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1793 " \\([0-9][0-9]+\\) *" |
17493 | 1794 |
1795 ;; On some systems the time zone can appear after the year, too. | |
1796 time-zone-regexp | |
1797 | |
1798 ;; Old uucp cruft. | |
1799 "\\(remote from .*\\)?" | |
1800 | |
19762
f6ca32374b0b
(message-unix-mail-delimiter): Initialize
Richard M. Stallman <rms@gnu.org>
parents:
19525
diff
changeset
|
1801 "\n")) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1802 "Regexp matching the delimiter of messages in UNIX mail format.") |
17493 | 1803 |
1804 (defvar message-unsent-separator | |
1805 (concat "^ *---+ +Unsent message follows +---+ *$\\|" | |
1806 "^ *---+ +Returned message +---+ *$\\|" | |
1807 "^Start of returned message$\\|" | |
1808 "^ *---+ +Original message +---+ *$\\|" | |
1809 "^ *--+ +begin message +--+ *$\\|" | |
1810 "^ *---+ +Original message follows +---+ *$\\|" | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1811 "^ *---+ +Undelivered message follows +---+ *$\\|" |
92147 | 1812 "^------ This is a copy of the message, including all the headers. ------ *$\\|" |
17493 | 1813 "^|? *---+ +Message text follows: +---+ *|?$") |
1814 "A regexp that matches the separator before the text of a failed message.") | |
1815 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1816 (defvar message-field-fillers |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1817 '((To message-fill-field-address) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1818 (Cc message-fill-field-address) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1819 (From message-fill-field-address)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1820 "Alist of header names/filler functions.") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1821 |
17493 | 1822 (defvar message-header-format-alist |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1823 `((From) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1824 (Newsgroups) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1825 (To) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1826 (Cc) |
17493 | 1827 (Subject) |
1828 (In-Reply-To) | |
1829 (Fcc) | |
1830 (Bcc) | |
1831 (Date) | |
1832 (Organization) | |
1833 (Distribution) | |
1834 (Lines) | |
1835 (Expires) | |
1836 (Message-ID) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1837 (References . message-shorten-references) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1838 (User-Agent)) |
17493 | 1839 "Alist used for formatting headers.") |
1840 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1841 (defvar message-options nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1842 "Some saved answers when sending message.") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1843 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1844 (defvar message-send-mail-real-function nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1845 "Internal send mail function.") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1846 |
74984 | 1847 (defvar message-bogus-system-names "^localhost\\.\\|\\.local$" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1848 "The regexp of bogus system names.") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1849 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1850 (defcustom message-valid-fqdn-regexp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1851 (concat "[a-z0-9][-.a-z0-9]+\\." ;; [hostname.subdomain.]domain. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1852 ;; valid TLDs: |
70245
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
1853 "\\([a-z][a-z]\\|" ;; two letter country TDLs |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
1854 "aero\\|arpa\\|bitnet\\|biz\\|bofh\\|" |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
1855 "cat\\|com\\|coop\\|edu\\|gov\\|" |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
1856 "info\\|int\\|jobs\\|" |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
1857 "mil\\|mobi\\|museum\\|name\\|net\\|" |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
1858 "org\\|pro\\|travel\\|uucp\\)") |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
1859 ;; http://en.wikipedia.org/wiki/List_of_Internet_top-level_domains |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
1860 ;; http://en.wikipedia.org/wiki/GTLD |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
1861 ;; `in the process of being approved': .asia .post .tel .sex |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
1862 ;; "dead" nato bitnet uucp |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1863 "Regular expression that matches a valid FQDN." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1864 ;; see also: gnus-button-valid-fqdn-regexp |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
1865 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1866 :group 'message-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1867 :type 'regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1868 |
95820
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1869 (autoload 'gnus-alive-p "gnus-util") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1870 (autoload 'gnus-delay-article "gnus-delay") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1871 (autoload 'gnus-extract-address-components "gnus-util") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1872 (autoload 'gnus-find-method-for-group "gnus") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1873 (autoload 'gnus-group-decoded-name "gnus-group") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1874 (autoload 'gnus-group-name-charset "gnus-group") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1875 (autoload 'gnus-group-name-decode "gnus-group") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1876 (autoload 'gnus-groups-from-server "gnus") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1877 (autoload 'gnus-make-local-hook "gnus-util") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1878 (autoload 'gnus-open-server "gnus-int") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1879 (autoload 'gnus-output-to-mail "gnus-util") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1880 (autoload 'gnus-output-to-rmail "gnus-util") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1881 (autoload 'gnus-request-post "gnus-int") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1882 (autoload 'gnus-select-frame-set-input-focus "gnus-util") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1883 (autoload 'gnus-server-string "gnus") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1884 (autoload 'idna-to-ascii "idna") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1885 (autoload 'message-setup-toolbar "messagexmas") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1886 (autoload 'mh-new-draft-name "mh-comp") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1887 (autoload 'mh-send-letter "mh-comp") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1888 (autoload 'nndraft-request-associate-buffer "nndraft") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1889 (autoload 'nndraft-request-expire-articles "nndraft") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1890 (autoload 'nnvirtual-find-group-art "nnvirtual") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1891 (autoload 'rmail-dont-reply-to "mail-utils") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1892 (autoload 'rmail-msg-is-pruned "rmail") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
1893 (autoload 'rmail-output "rmailout") |
17493 | 1894 |
1895 | |
1896 | |
1897 ;;; | |
1898 ;;; Utility functions. | |
1899 ;;; | |
1900 | |
1901 (defmacro message-y-or-n-p (question show &rest text) | |
35147 | 1902 "Ask QUESTION, displaying remaining args in a temporary buffer if SHOW." |
17493 | 1903 `(message-talkative-question 'y-or-n-p ,question ,show ,@text)) |
1904 | |
1905 (defmacro message-delete-line (&optional n) | |
35147 | 1906 "Delete the current line (and the next N lines)." |
17493 | 1907 `(delete-region (progn (beginning-of-line) (point)) |
1908 (progn (forward-line ,(or n 1)) (point)))) | |
1909 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1910 (defun message-mark-active-p () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1911 "Non-nil means the mark and region are currently active in this buffer." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1912 mark-active) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1913 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1914 (defun message-unquote-tokens (elems) |
35147 | 1915 "Remove double quotes (\") from strings in list ELEMS." |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1916 (mapcar (lambda (item) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1917 (while (string-match "^\\(.*\\)\"\\(.*\\)$" item) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1918 (setq item (concat (match-string 1 item) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1919 (match-string 2 item)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1920 item) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1921 elems)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1922 |
17493 | 1923 (defun message-tokenize-header (header &optional separator) |
1924 "Split HEADER into a list of header elements. | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1925 SEPARATOR is a string of characters to be used as separators. \",\" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1926 is used by default." |
17493 | 1927 (if (not header) |
1928 nil | |
1929 (let ((regexp (format "[%s]+" (or separator ","))) | |
1930 (first t) | |
57489
f7785a1e8cf8
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-615
Miles Bader <miles@gnu.org>
parents:
57363
diff
changeset
|
1931 beg quoted elems paren) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1932 (with-temp-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1933 (mm-enable-multibyte) |
57489
f7785a1e8cf8
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-615
Miles Bader <miles@gnu.org>
parents:
57363
diff
changeset
|
1934 (setq beg (point-min)) |
17493 | 1935 (insert header) |
1936 (goto-char (point-min)) | |
1937 (while (not (eobp)) | |
1938 (if first | |
1939 (setq first nil) | |
1940 (forward-char 1)) | |
1941 (cond ((and (> (point) beg) | |
1942 (or (eobp) | |
1943 (and (looking-at regexp) | |
1944 (not quoted) | |
1945 (not paren)))) | |
1946 (push (buffer-substring beg (point)) elems) | |
1947 (setq beg (match-end 0))) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1948 ((eq (char-after) ?\") |
17493 | 1949 (setq quoted (not quoted))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1950 ((and (eq (char-after) ?\() |
17493 | 1951 (not quoted)) |
1952 (setq paren t)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1953 ((and (eq (char-after) ?\)) |
17493 | 1954 (not quoted)) |
1955 (setq paren nil)))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1956 (nreverse elems))))) |
17493 | 1957 |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
1958 (autoload 'nnheader-insert-file-contents "nnheader") |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
1959 |
17493 | 1960 (defun message-mail-file-mbox-p (file) |
1961 "Say whether FILE looks like a Unix mbox file." | |
1962 (when (and (file-exists-p file) | |
1963 (file-readable-p file) | |
1964 (file-regular-p file)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1965 (with-temp-buffer |
17493 | 1966 (nnheader-insert-file-contents file) |
1967 (goto-char (point-min)) | |
1968 (looking-at message-unix-mail-delimiter)))) | |
1969 | |
1970 (defun message-fetch-field (header &optional not-all) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1971 "The same as `mail-fetch-field', only remove all newlines. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1972 The buffer is expected to be narrowed to just the header of the message; |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1973 see `message-narrow-to-headers-or-head'." |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1974 (let* ((inhibit-point-motion-hooks t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
1975 (value (mail-fetch-field header nil (not not-all)))) |
17493 | 1976 (when value |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1977 (while (string-match "\n[\t ]+" value) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1978 (setq value (replace-match " " t t value))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1979 value))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1980 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1981 (defun message-field-value (header &optional not-all) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1982 "The same as `message-fetch-field', only narrow to the headers first." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1983 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1984 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1985 (message-narrow-to-headers-or-head) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1986 (message-fetch-field header not-all)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
1987 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1988 (defun message-narrow-to-field () |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1989 "Narrow the buffer to the header on the current line." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1990 (beginning-of-line) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1991 (while (looking-at "[ \t]") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1992 (forward-line -1)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1993 (narrow-to-region |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1994 (point) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1995 (progn |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1996 (forward-line 1) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1997 (if (re-search-forward "^[^ \n\t]" nil t) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
1998 (point-at-bol) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
1999 (point-max)))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2000 (goto-char (point-min))) |
17493 | 2001 |
2002 (defun message-add-header (&rest headers) | |
2003 "Add the HEADERS to the message header, skipping those already present." | |
2004 (while headers | |
2005 (let (hclean) | |
2006 (unless (string-match "^\\([^:]+\\):[ \t]*[^ \t]" (car headers)) | |
2007 (error "Invalid header `%s'" (car headers))) | |
2008 (setq hclean (match-string 1 (car headers))) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2009 (save-restriction |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2010 (message-narrow-to-headers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2011 (unless (re-search-forward (concat "^" (regexp-quote hclean) ":") nil t) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2012 (goto-char (point-max)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2013 (if (string-match "\n$" (car headers)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2014 (insert (car headers)) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
2015 (insert (car headers) ?\n))))) |
17493 | 2016 (setq headers (cdr headers)))) |
2017 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2018 (defmacro message-with-reply-buffer (&rest forms) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2019 "Evaluate FORMS in the reply buffer, if it exists." |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
2020 `(when (and (bufferp message-reply-buffer) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2021 (buffer-name message-reply-buffer)) |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
2022 (with-current-buffer message-reply-buffer |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2023 ,@forms))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2024 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2025 (put 'message-with-reply-buffer 'lisp-indent-function 0) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2026 (put 'message-with-reply-buffer 'edebug-form-spec '(body)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2027 |
17493 | 2028 (defun message-fetch-reply-field (header) |
35147 | 2029 "Fetch field HEADER from the message we're replying to." |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2030 (message-with-reply-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2031 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2032 (mail-narrow-to-head) |
17493 | 2033 (message-fetch-field header)))) |
2034 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2035 (defun message-strip-list-identifiers (subject) |
35147 | 2036 "Remove list identifiers in `gnus-list-identifiers' from string SUBJECT." |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2037 (require 'gnus-sum) ; for gnus-list-identifiers |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2038 (let ((regexp (if (stringp gnus-list-identifiers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2039 gnus-list-identifiers |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2040 (mapconcat 'identity gnus-list-identifiers " *\\|")))) |
35147 | 2041 (if (string-match (concat "\\(\\(\\(Re: +\\)?\\(" regexp |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2042 " *\\)\\)+\\(Re: +\\)?\\)") subject) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2043 (concat (substring subject 0 (match-beginning 1)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2044 (or (match-string 3 subject) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2045 (match-string 5 subject)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2046 (substring subject |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2047 (match-end 1))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2048 subject))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2049 |
17493 | 2050 (defun message-strip-subject-re (subject) |
35147 | 2051 "Remove \"Re:\" from subject lines in string SUBJECT." |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2052 (if (string-match message-subject-re-regexp subject) |
17493 | 2053 (substring subject (match-end 0)) |
2054 subject)) | |
2055 | |
74021 | 2056 (defcustom message-replacement-char "." |
2057 "Replacement character used instead of unprintable or not decodable chars." | |
2058 :group 'message-various | |
2059 :version "22.1" ;; Gnus 5.10.9 | |
2060 :type '(choice string | |
2061 (const ".") | |
2062 (const "?"))) | |
2063 | |
2064 ;; FIXME: We also should call `message-strip-subject-encoded-words' | |
2065 ;; when forwarding. Probably in `message-make-forward-subject' and | |
2066 ;; `message-forward-make-body'. | |
2067 | |
2068 (defun message-strip-subject-encoded-words (subject) | |
2069 "Fix non-decodable words in SUBJECT." | |
2070 ;; Cf. `gnus-simplify-subject-fully'. | |
2071 (let* ((case-fold-search t) | |
2072 (replacement-chars (format "[%s%s%s]" | |
2073 message-replacement-char | |
2074 message-replacement-char | |
2075 message-replacement-char)) | |
2076 (enc-word-re "=\\?\\([^?]+\\)\\?\\([QB]\\)\\?\\([^?]+\\)\\(\\?=\\)") | |
2077 cs-string | |
2078 (have-marker | |
2079 (with-temp-buffer | |
2080 (insert subject) | |
2081 (goto-char (point-min)) | |
2082 (when (re-search-forward enc-word-re nil t) | |
2083 (setq cs-string (match-string 1))))) | |
2084 cs-coding q-or-b word-beg word-end) | |
2085 (if (or (not have-marker) ;; No encoded word found... | |
2086 ;; ... or double encoding was correct: | |
2087 (and (stringp cs-string) | |
2088 (setq cs-string (downcase cs-string)) | |
2089 (mm-coding-system-p (intern cs-string)) | |
2090 (not (prog1 | |
2091 (y-or-n-p | |
2092 (format "\ | |
2093 Decoded Subject \"%s\" | |
2094 contains a valid encoded word. Decode again? " | |
2095 subject)) | |
2096 (setq cs-coding (intern cs-string)))))) | |
2097 subject | |
2098 (with-temp-buffer | |
2099 (insert subject) | |
2100 (goto-char (point-min)) | |
2101 (while (re-search-forward enc-word-re nil t) | |
2102 (setq cs-string (downcase (match-string 1)) | |
2103 q-or-b (match-string 2) | |
2104 word-beg (match-beginning 0) | |
2105 word-end (match-end 0)) | |
2106 (setq cs-coding | |
2107 (if (mm-coding-system-p (intern cs-string)) | |
2108 (setq cs-coding (intern cs-string)) | |
2109 nil)) | |
2110 ;; No double encoded subject? => bogus charset. | |
2111 (unless cs-coding | |
2112 (setq cs-coding | |
2113 (mm-read-coding-system | |
2114 (format "\ | |
2115 Decoded Subject \"%s\" | |
2116 contains an encoded word. The charset `%s' is unknown or invalid. | |
2117 Hit RET to replace non-decodable characters with \"%s\" or enter replacement | |
2118 charset: " | |
2119 subject cs-string message-replacement-char))) | |
2120 (if cs-coding | |
2121 (replace-match (concat "=?" (symbol-name cs-coding) | |
2122 "?\\2?\\3\\4\\5")) | |
2123 (save-excursion | |
2124 (goto-char word-beg) | |
2125 (re-search-forward "=\\?\\([^?]+\\)\\?\\([QB]\\)\\?" word-end t) | |
2126 (replace-match "") | |
2127 ;; QP or base64 | |
2128 (if (string-match "\\`Q\\'" q-or-b) | |
2129 ;; QP | |
2130 (progn | |
2131 (message "Replacing non-decodable characters with \"%s\"." | |
2132 message-replacement-char) | |
2133 (while (re-search-forward "\\(=[A-F0-9][A-F0-9]\\)+" | |
2134 word-end t) | |
2135 (replace-match message-replacement-char))) | |
2136 ;; base64 | |
2137 (message "Replacing non-decodable characters with \"%s\"." | |
2138 replacement-chars) | |
2139 (re-search-forward "[^?]+" word-end t) | |
2140 (replace-match replacement-chars)) | |
2141 (re-search-forward "\\?=") | |
2142 (replace-match ""))))) | |
2143 (rfc2047-decode-region (point-min) (point-max)) | |
2144 (buffer-string))))) | |
2145 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2146 ;;; Start of functions adopted from `message-utils.el'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2147 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2148 (defun message-strip-subject-trailing-was (subject) |
60390
d8ddb2b48062
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-155
Miles Bader <miles@gnu.org>
parents:
60356
diff
changeset
|
2149 "Remove trailing \"(was: <old subject>)\" from SUBJECT lines. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2150 Leading \"Re: \" is not stripped by this function. Use the function |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2151 `message-strip-subject-re' for this." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2152 (let* ((query message-subject-trailing-was-query) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2153 (new) (found)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2154 (setq found |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2155 (string-match |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2156 (if (eq query 'ask) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2157 message-subject-trailing-was-ask-regexp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2158 message-subject-trailing-was-regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2159 subject)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2160 (if found |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2161 (setq new (substring subject 0 (match-beginning 0)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2162 (if (or (not found) (eq query nil)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2163 subject |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2164 (if (eq query 'ask) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2165 (if (message-y-or-n-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2166 "Strip `(was: <old subject>)' in subject? " t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2167 (concat |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2168 "Strip `(was: <old subject>)' in subject " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2169 "and use the new one instead?\n\n" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2170 "Current subject is: \"" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2171 subject "\"\n\n" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2172 "New subject would be: \"" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2173 new "\"\n\n" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2174 "See the variable `message-subject-trailing-was-query' " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2175 "to get rid of this query." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2176 )) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2177 new subject) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2178 new)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2179 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2180 ;;; Suggested by Jonas Steverud @ www.dtek.chalmers.se/~d4jonas/ |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2181 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2182 (defun message-change-subject (new-subject) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2183 "Ask for NEW-SUBJECT header, append (was: <Old Subject>)." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2184 ;; <URL:http://www.landfield.com/usefor/drafts/draft-ietf-usefor-useage--1.02.unpaged> |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2185 (interactive |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2186 (list |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2187 (read-from-minibuffer "New subject: "))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2188 (cond ((and (not (or (null new-subject) ; new subject not empty |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2189 (zerop (string-width new-subject)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2190 (string-match "^[ \t]*$" new-subject)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2191 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2192 (let ((old-subject |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2193 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2194 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2195 (message-fetch-field "Subject")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2196 (cond ((not old-subject) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2197 (error "No current subject")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2198 ((not (string-match |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2199 (concat "^[ \t]*" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2200 (regexp-quote new-subject) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2201 " \t]*$") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2202 old-subject)) ; yes, it really is a new subject |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2203 ;; delete eventual Re: prefix |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2204 (setq old-subject |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2205 (message-strip-subject-re old-subject)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2206 (message-goto-subject) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2207 (message-delete-line) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2208 (insert (concat "Subject: " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2209 new-subject |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2210 " (was: " |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
2211 old-subject ")\n"))))))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2212 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2213 (defun message-mark-inserted-region (beg end &optional verbatim) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2214 "Mark some region in the current article with enclosing tags. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2215 See `message-mark-insert-begin' and `message-mark-insert-end'. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2216 If VERBATIM, use slrn style verbatim marks (\"#v+\" and \"#v-\")." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2217 (interactive "r\nP") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2218 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2219 ;; add to the end of the region first, otherwise end would be invalid |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2220 (goto-char end) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2221 (insert (if verbatim "#v-\n" message-mark-insert-end)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2222 (goto-char beg) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2223 (insert (if verbatim "#v+\n" message-mark-insert-begin)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2224 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2225 (defun message-mark-insert-file (file &optional verbatim) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2226 "Insert FILE at point, marking it with enclosing tags. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2227 See `message-mark-insert-begin' and `message-mark-insert-end'. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2228 If VERBATIM, use slrn style verbatim marks (\"#v+\" and \"#v-\")." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2229 (interactive "fFile to insert: \nP") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2230 ;; reverse insertion to get correct result. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2231 (let ((p (point))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2232 (insert (if verbatim "#v-\n" message-mark-insert-end)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2233 (goto-char p) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2234 (insert-file-contents file) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2235 (goto-char p) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2236 (insert (if verbatim "#v+\n" message-mark-insert-begin)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2237 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2238 (defun message-add-archive-header () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2239 "Insert \"X-No-Archive: Yes\" in the header and a note in the body. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2240 The note can be customized using `message-archive-note'. When called with a |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2241 prefix argument, ask for a text to insert. If you don't want the note in the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2242 body, set `message-archive-note' to nil." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2243 (interactive) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2244 (if current-prefix-arg |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2245 (setq message-archive-note |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2246 (read-from-minibuffer "Reason for No-Archive: " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2247 (cons message-archive-note 0)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2248 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2249 (if (message-goto-signature) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2250 (re-search-backward message-signature-separator)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2251 (when message-archive-note |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2252 (insert message-archive-note) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2253 (newline)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2254 (message-add-header message-archive-header) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2255 (message-sort-headers))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2256 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2257 (defun message-cross-post-followup-to-header (target-group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2258 "Mangles FollowUp-To and Newsgroups header to point to TARGET-GROUP. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2259 With prefix-argument just set Follow-Up, don't cross-post." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2260 (interactive |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2261 (list ; Completion based on Gnus |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2262 (completing-read "Followup To: " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2263 (if (boundp 'gnus-newsrc-alist) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2264 gnus-newsrc-alist) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2265 nil nil '("poster" . 0) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2266 (if (boundp 'gnus-group-history) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2267 'gnus-group-history)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2268 (message-remove-header "Follow[Uu]p-[Tt]o" t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2269 (message-goto-newsgroups) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2270 (beginning-of-line) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2271 ;; if we already did a crosspost before, kill old target |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2272 (if (and message-cross-post-old-target |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2273 (re-search-forward |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2274 (regexp-quote (concat "," message-cross-post-old-target)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2275 nil t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2276 (replace-match "")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2277 ;; unless (followup is to poster or user explicitly asked not |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2278 ;; to cross-post, or target-group is already in Newsgroups) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2279 ;; add target-group to Newsgroups line. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2280 (cond ((and (or |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2281 ;; def: cross-post, req:no |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2282 (and message-cross-post-default (not current-prefix-arg)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2283 ;; def: no-cross-post, req:yes |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2284 (and (not message-cross-post-default) current-prefix-arg)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2285 (not (string-match "poster" target-group)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2286 (not (string-match (regexp-quote target-group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2287 (message-fetch-field "Newsgroups")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2288 (end-of-line) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2289 (insert (concat "," target-group)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2290 (end-of-line) ; ensure Followup: comes after Newsgroups: |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2291 ;; unless new followup would be identical to Newsgroups line |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2292 ;; make a new Followup-To line |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2293 (if (not (string-match (concat "^[ \t]*" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2294 target-group |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2295 "[ \t]*$") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2296 (message-fetch-field "Newsgroups"))) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
2297 (insert (concat "\nFollowup-To: " target-group))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2298 (setq message-cross-post-old-target target-group)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2299 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2300 (defun message-cross-post-insert-note (target-group cross-post in-old |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2301 old-groups) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2302 "Insert a in message body note about a set Followup or Crosspost. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2303 If there have been previous notes, delete them. TARGET-GROUP specifies the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2304 group to Followup-To. When CROSS-POST is t, insert note about |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2305 crossposting. IN-OLD specifies whether TARGET-GROUP is a member of |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2306 OLD-GROUPS. OLD-GROUPS lists the old-groups the posting would have |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2307 been made to before the user asked for a Crosspost." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2308 ;; start scanning body for previous uses |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2309 (message-goto-signature) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2310 (let ((head (re-search-backward |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2311 (concat "^" mail-header-separator) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2312 nil t))) ; just search in body |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2313 (message-goto-signature) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2314 (while (re-search-backward |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2315 (concat "^" (regexp-quote message-cross-post-note) ".*") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2316 head t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2317 (message-delete-line)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2318 (message-goto-signature) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2319 (while (re-search-backward |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2320 (concat "^" (regexp-quote message-followup-to-note) ".*") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2321 head t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2322 (message-delete-line)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2323 ;; insert new note |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2324 (if (message-goto-signature) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2325 (re-search-backward message-signature-separator)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2326 (if (or in-old |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2327 (not cross-post) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2328 (string-match "^[ \t]*poster[ \t]*$" target-group)) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
2329 (insert (concat message-followup-to-note target-group "\n")) |
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
2330 (insert (concat message-cross-post-note target-group "\n"))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2331 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2332 (defun message-cross-post-followup-to (target-group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2333 "Crossposts message and set Followup-To to TARGET-GROUP. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2334 With prefix-argument just set Follow-Up, don't cross-post." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2335 (interactive |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2336 (list ; Completion based on Gnus |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2337 (completing-read "Followup To: " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2338 (if (boundp 'gnus-newsrc-alist) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2339 gnus-newsrc-alist) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2340 nil nil '("poster" . 0) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2341 (if (boundp 'gnus-group-history) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2342 'gnus-group-history)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2343 (cond ((not (or (null target-group) ; new subject not empty |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2344 (zerop (string-width target-group)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2345 (string-match "^[ \t]*$" target-group))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2346 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2347 (let* ((old-groups (message-fetch-field "Newsgroups")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2348 (in-old (string-match |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2349 (regexp-quote target-group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2350 (or old-groups "")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2351 ;; check whether target exactly matches old Newsgroups |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2352 (cond ((not old-groups) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2353 (error "No current newsgroup")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2354 ((or (not in-old) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2355 (not (string-match |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2356 (concat "^[ \t]*" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2357 (regexp-quote target-group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2358 "[ \t]*$") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2359 old-groups))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2360 ;; yes, Newsgroups line must change |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2361 (message-cross-post-followup-to-header target-group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2362 ;; insert note whether we do cross-post or followup-to |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2363 (funcall message-cross-post-note-function |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2364 target-group |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2365 (if (or (and message-cross-post-default |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2366 (not current-prefix-arg)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2367 (and (not message-cross-post-default) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2368 current-prefix-arg)) t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2369 in-old old-groups)))))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2370 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2371 ;;; Reduce To: to Cc: or Bcc: header |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2372 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2373 (defun message-reduce-to-to-cc () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2374 "Replace contents of To: header with contents of Cc: or Bcc: header." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2375 (interactive) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2376 (let ((cc-content |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2377 (save-restriction (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2378 (message-fetch-field "cc"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2379 (bcc nil)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2380 (if (and (not cc-content) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2381 (setq cc-content |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2382 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2383 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2384 (message-fetch-field "bcc")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2385 (setq bcc t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2386 (cond (cc-content |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2387 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2388 (message-goto-to) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2389 (message-delete-line) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
2390 (insert (concat "To: " cc-content "\n")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2391 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2392 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2393 (message-remove-header (if bcc |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2394 "bcc" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2395 "cc")))))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2396 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2397 ;;; End of functions adopted from `message-utils.el'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2398 |
17493 | 2399 (defun message-remove-header (header &optional is-regexp first reverse) |
2400 "Remove HEADER in the narrowed buffer. | |
35147 | 2401 If IS-REGEXP, HEADER is a regular expression. |
17493 | 2402 If FIRST, only remove the first instance of the header. |
2403 Return the number of headers removed." | |
2404 (goto-char (point-min)) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2405 (let ((regexp (if is-regexp header (concat "^" (regexp-quote header) ":"))) |
17493 | 2406 (number 0) |
2407 (case-fold-search t) | |
2408 last) | |
2409 (while (and (not (eobp)) | |
2410 (not last)) | |
2411 (if (if reverse | |
2412 (not (looking-at regexp)) | |
2413 (looking-at regexp)) | |
2414 (progn | |
2415 (incf number) | |
2416 (when first | |
2417 (setq last t)) | |
2418 (delete-region | |
2419 (point) | |
2420 ;; There might be a continuation header, so we have to search | |
2421 ;; until we find a new non-continuation line. | |
2422 (progn | |
2423 (forward-line 1) | |
2424 (if (re-search-forward "^[^ \t]" nil t) | |
2425 (goto-char (match-beginning 0)) | |
2426 (point-max))))) | |
2427 (forward-line 1) | |
2428 (if (re-search-forward "^[^ \t]" nil t) | |
2429 (goto-char (match-beginning 0)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2430 (goto-char (point-max))))) |
17493 | 2431 number)) |
2432 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2433 (defun message-remove-first-header (header) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2434 "Remove the first instance of HEADER if there is more than one." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2435 (let ((count 0) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2436 (regexp (concat "^" (regexp-quote header) ":"))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2437 (save-excursion |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2438 (goto-char (point-min)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2439 (while (re-search-forward regexp nil t) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2440 (incf count))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2441 (while (> count 1) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2442 (message-remove-header header nil t) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2443 (decf count)))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2444 |
17493 | 2445 (defun message-narrow-to-headers () |
2446 "Narrow the buffer to the head of the message." | |
2447 (widen) | |
2448 (narrow-to-region | |
2449 (goto-char (point-min)) | |
2450 (if (re-search-forward | |
2451 (concat "^" (regexp-quote mail-header-separator) "\n") nil t) | |
2452 (match-beginning 0) | |
2453 (point-max))) | |
2454 (goto-char (point-min))) | |
2455 | |
34752
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
2456 (defun message-narrow-to-head-1 () |
35147 | 2457 "Like `message-narrow-to-head'. Don't widen." |
17493 | 2458 (narrow-to-region |
2459 (goto-char (point-min)) | |
2460 (if (search-forward "\n\n" nil 1) | |
2461 (1- (point)) | |
2462 (point-max))) | |
2463 (goto-char (point-min))) | |
2464 | |
100993 | 2465 ;; FIXME: clarify diffference: message-narrow-to-head, |
2466 ;; message-narrow-to-headers-or-head, message-narrow-to-headers | |
34752
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
2467 (defun message-narrow-to-head () |
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
2468 "Narrow the buffer to the head of the message. |
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
2469 Point is left at the beginning of the narrowed-to region." |
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
2470 (widen) |
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
2471 (message-narrow-to-head-1)) |
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
2472 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2473 (defun message-narrow-to-headers-or-head () |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2474 "Narrow the buffer to the head of the message." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2475 (widen) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2476 (narrow-to-region |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2477 (goto-char (point-min)) |
77823
923182f9ab47
(message-narrow-to-headers-or-head): Ignore mail-header-separator in
Chong Yidong <cyd@stupidchicken.com>
parents:
77819
diff
changeset
|
2478 (if (re-search-forward (concat "\\(\n\\)\n\\|^\\(" |
923182f9ab47
(message-narrow-to-headers-or-head): Ignore mail-header-separator in
Chong Yidong <cyd@stupidchicken.com>
parents:
77819
diff
changeset
|
2479 (regexp-quote mail-header-separator) |
923182f9ab47
(message-narrow-to-headers-or-head): Ignore mail-header-separator in
Chong Yidong <cyd@stupidchicken.com>
parents:
77819
diff
changeset
|
2480 "\n\\)") |
923182f9ab47
(message-narrow-to-headers-or-head): Ignore mail-header-separator in
Chong Yidong <cyd@stupidchicken.com>
parents:
77819
diff
changeset
|
2481 nil t) |
923182f9ab47
(message-narrow-to-headers-or-head): Ignore mail-header-separator in
Chong Yidong <cyd@stupidchicken.com>
parents:
77819
diff
changeset
|
2482 (or (match-end 1) (match-beginning 2)) |
923182f9ab47
(message-narrow-to-headers-or-head): Ignore mail-header-separator in
Chong Yidong <cyd@stupidchicken.com>
parents:
77819
diff
changeset
|
2483 (point-max))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2484 (goto-char (point-min))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2485 |
17493 | 2486 (defun message-news-p () |
2487 "Say whether the current buffer contains a news message." | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2488 (and (not message-this-is-mail) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2489 (or message-this-is-news |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2490 (save-excursion |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2491 (save-restriction |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2492 (message-narrow-to-headers) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2493 (and (message-fetch-field "newsgroups") |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2494 (not (message-fetch-field "posted-to")))))))) |
17493 | 2495 |
2496 (defun message-mail-p () | |
2497 "Say whether the current buffer contains a mail message." | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2498 (and (not message-this-is-news) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2499 (or message-this-is-mail |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2500 (save-excursion |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2501 (save-restriction |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2502 (message-narrow-to-headers) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2503 (or (message-fetch-field "to") |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2504 (message-fetch-field "cc") |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2505 (message-fetch-field "bcc"))))))) |
17493 | 2506 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2507 (defun message-subscribed-p () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2508 "Say whether we need to insert a MFT header." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2509 (or message-subscribed-regexps |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2510 message-subscribed-addresses |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2511 message-subscribed-address-file |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2512 message-subscribed-address-functions)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2513 |
17493 | 2514 (defun message-next-header () |
2515 "Go to the beginning of the next header." | |
2516 (beginning-of-line) | |
2517 (or (eobp) (forward-char 1)) | |
2518 (not (if (re-search-forward "^[^ \t]" nil t) | |
2519 (beginning-of-line) | |
2520 (goto-char (point-max))))) | |
2521 | |
2522 (defun message-sort-headers-1 () | |
2523 "Sort the buffer as headers using `message-rank' text props." | |
2524 (goto-char (point-min)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2525 (require 'sort) |
17493 | 2526 (sort-subr |
2527 nil 'message-next-header | |
2528 (lambda () | |
2529 (message-next-header) | |
2530 (unless (bobp) | |
2531 (forward-char -1))) | |
2532 (lambda () | |
2533 (or (get-text-property (point) 'message-rank) | |
2534 10000)))) | |
2535 | |
2536 (defun message-sort-headers () | |
2537 "Sort the headers of the current message according to `message-header-format-alist'." | |
2538 (interactive) | |
2539 (save-excursion | |
2540 (save-restriction | |
2541 (let ((max (1+ (length message-header-format-alist))) | |
2542 rank) | |
2543 (message-narrow-to-headers) | |
2544 (while (re-search-forward "^[^ \n]+:" nil t) | |
2545 (put-text-property | |
2546 (match-beginning 0) (1+ (match-beginning 0)) | |
2547 'message-rank | |
2548 (if (setq rank (length (memq (assq (intern (buffer-substring | |
2549 (match-beginning 0) | |
2550 (1- (match-end 0)))) | |
2551 message-header-format-alist) | |
2552 message-header-format-alist))) | |
2553 (- max rank) | |
2554 (1+ max))))) | |
2555 (message-sort-headers-1)))) | |
2556 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2557 (defun message-kill-address () |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2558 "Kill the address under point." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2559 (interactive) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2560 (let ((start (point))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2561 (message-skip-to-next-address) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2562 (kill-region start (point)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2563 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2564 |
87245
6207f5a83057
(Info-goto-node, format-spec): Autoload.
Glenn Morris <rgm@gnu.org>
parents:
87191
diff
changeset
|
2565 (autoload 'Info-goto-node "info") |
93451
06240ef0da8e
(mml2015-use): Declare for compiler.
Glenn Morris <rgm@gnu.org>
parents:
93394
diff
changeset
|
2566 (defvar mml2015-use) |
87245
6207f5a83057
(Info-goto-node, format-spec): Autoload.
Glenn Morris <rgm@gnu.org>
parents:
87191
diff
changeset
|
2567 |
68230
6c7c654eb3c7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-702
Miles Bader <miles@gnu.org>
parents:
67032
diff
changeset
|
2568 (defun message-info (&optional arg) |
6c7c654eb3c7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-702
Miles Bader <miles@gnu.org>
parents:
67032
diff
changeset
|
2569 "Display the Message manual. |
6c7c654eb3c7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-702
Miles Bader <miles@gnu.org>
parents:
67032
diff
changeset
|
2570 |
93386 | 2571 Prefixed with one \\[universal-argument], display the Emacs MIME |
2572 manual. With two \\[universal-argument]'s, display the EasyPG or | |
2573 PGG manual, depending on the value of `mml2015-use'." | |
68230
6c7c654eb3c7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-702
Miles Bader <miles@gnu.org>
parents:
67032
diff
changeset
|
2574 (interactive "p") |
106548
4a940e6bbe88
(message-info): Explain why we use `Info-goto-node'.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
106372
diff
changeset
|
2575 ;; Don't use `info' because support for `(filename)nodename' is not |
4a940e6bbe88
(message-info): Explain why we use `Info-goto-node'.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
106372
diff
changeset
|
2576 ;; available in XEmacs < 21.5.12. |
93386 | 2577 (Info-goto-node (format "(%s)Top" |
93451
06240ef0da8e
(mml2015-use): Declare for compiler.
Glenn Morris <rgm@gnu.org>
parents:
93394
diff
changeset
|
2578 (cond ((eq arg 16) |
06240ef0da8e
(mml2015-use): Declare for compiler.
Glenn Morris <rgm@gnu.org>
parents:
93394
diff
changeset
|
2579 (require 'mml2015) |
06240ef0da8e
(mml2015-use): Declare for compiler.
Glenn Morris <rgm@gnu.org>
parents:
93394
diff
changeset
|
2580 mml2015-use) |
93386 | 2581 ((eq arg 4) 'emacs-mime) |
2582 ;; `booleanp' only available in Emacs 22+ | |
2583 ((and (not (memq arg '(nil t))) | |
2584 (symbolp arg)) | |
2585 arg) | |
2586 (t | |
2587 'message))))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2588 |
17493 | 2589 |
2590 | |
2591 ;;; | |
2592 ;;; Message mode | |
2593 ;;; | |
2594 | |
2595 ;;; Set up keymap. | |
2596 | |
2597 (defvar message-mode-map nil) | |
2598 | |
2599 (unless message-mode-map | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2600 (setq message-mode-map (make-keymap)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2601 (set-keymap-parent message-mode-map text-mode-map) |
17493 | 2602 (define-key message-mode-map "\C-c?" 'describe-mode) |
2603 | |
2604 (define-key message-mode-map "\C-c\C-f\C-t" 'message-goto-to) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2605 (define-key message-mode-map "\C-c\C-f\C-o" 'message-goto-from) |
17493 | 2606 (define-key message-mode-map "\C-c\C-f\C-b" 'message-goto-bcc) |
2607 (define-key message-mode-map "\C-c\C-f\C-w" 'message-goto-fcc) | |
2608 (define-key message-mode-map "\C-c\C-f\C-c" 'message-goto-cc) | |
2609 (define-key message-mode-map "\C-c\C-f\C-s" 'message-goto-subject) | |
2610 (define-key message-mode-map "\C-c\C-f\C-r" 'message-goto-reply-to) | |
2611 (define-key message-mode-map "\C-c\C-f\C-n" 'message-goto-newsgroups) | |
2612 (define-key message-mode-map "\C-c\C-f\C-d" 'message-goto-distribution) | |
2613 (define-key message-mode-map "\C-c\C-f\C-f" 'message-goto-followup-to) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2614 (define-key message-mode-map "\C-c\C-f\C-m" 'message-goto-mail-followup-to) |
17493 | 2615 (define-key message-mode-map "\C-c\C-f\C-k" 'message-goto-keywords) |
2616 (define-key message-mode-map "\C-c\C-f\C-u" 'message-goto-summary) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2617 (define-key message-mode-map "\C-c\C-f\C-i" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2618 'message-insert-or-toggle-importance) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2619 (define-key message-mode-map "\C-c\C-f\C-a" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2620 'message-generate-unsubscribed-mail-followup-to) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2621 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2622 ;; modify headers (and insert notes in body) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2623 (define-key message-mode-map "\C-c\C-fs" 'message-change-subject) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2624 ;; |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2625 (define-key message-mode-map "\C-c\C-fx" 'message-cross-post-followup-to) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2626 ;; prefix+message-cross-post-followup-to = same w/o cross-post |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2627 (define-key message-mode-map "\C-c\C-ft" 'message-reduce-to-to-cc) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2628 (define-key message-mode-map "\C-c\C-fa" 'message-add-archive-header) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2629 ;; mark inserted text |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2630 (define-key message-mode-map "\C-c\M-m" 'message-mark-inserted-region) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2631 (define-key message-mode-map "\C-c\M-f" 'message-mark-insert-file) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2632 |
17493 | 2633 (define-key message-mode-map "\C-c\C-b" 'message-goto-body) |
2634 (define-key message-mode-map "\C-c\C-i" 'message-goto-signature) | |
2635 | |
2636 (define-key message-mode-map "\C-c\C-t" 'message-insert-to) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2637 (define-key message-mode-map "\C-c\C-fw" 'message-insert-wide-reply) |
17493 | 2638 (define-key message-mode-map "\C-c\C-n" 'message-insert-newsgroups) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2639 (define-key message-mode-map "\C-c\C-l" 'message-to-list-only) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2640 (define-key message-mode-map "\C-c\C-f\C-e" 'message-insert-expires) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2641 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2642 (define-key message-mode-map "\C-c\C-u" 'message-insert-or-toggle-importance) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2643 (define-key message-mode-map "\C-c\M-n" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2644 'message-insert-disposition-notification-to) |
17493 | 2645 |
2646 (define-key message-mode-map "\C-c\C-y" 'message-yank-original) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2647 (define-key message-mode-map "\C-c\M-\C-y" 'message-yank-buffer) |
17493 | 2648 (define-key message-mode-map "\C-c\C-q" 'message-fill-yanked-message) |
2649 (define-key message-mode-map "\C-c\C-w" 'message-insert-signature) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2650 (define-key message-mode-map "\C-c\M-h" 'message-insert-headers) |
17493 | 2651 (define-key message-mode-map "\C-c\C-r" 'message-caesar-buffer-body) |
2652 (define-key message-mode-map "\C-c\C-o" 'message-sort-headers) | |
2653 (define-key message-mode-map "\C-c\M-r" 'message-rename-buffer) | |
2654 | |
2655 (define-key message-mode-map "\C-c\C-c" 'message-send-and-exit) | |
2656 (define-key message-mode-map "\C-c\C-s" 'message-send) | |
2657 (define-key message-mode-map "\C-c\C-k" 'message-kill-buffer) | |
2658 (define-key message-mode-map "\C-c\C-d" 'message-dont-send) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2659 (define-key message-mode-map "\C-c\n" 'gnus-delay-article) |
17493 | 2660 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2661 (define-key message-mode-map "\C-c\M-k" 'message-kill-address) |
17493 | 2662 (define-key message-mode-map "\C-c\C-e" 'message-elide-region) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2663 (define-key message-mode-map "\C-c\C-v" 'message-delete-not-region) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2664 (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
2665 (define-key message-mode-map "\M-\r" 'message-newline-and-reformat) |
49034
b6e082e00b00
(message-split-line): New function.
Kim F. Storm <storm@cua.dk>
parents:
48588
diff
changeset
|
2666 (define-key message-mode-map [remap split-line] 'message-split-line) |
17493 | 2667 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2668 (define-key message-mode-map "\C-c\C-a" 'mml-attach-file) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2669 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2670 (define-key message-mode-map "\C-a" 'message-beginning-of-line) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2671 (define-key message-mode-map "\t" 'message-tab) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2672 (define-key message-mode-map "\M-;" 'comment-region) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2673 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2674 (define-key message-mode-map "\M-n" 'message-display-abbrev)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2675 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2676 (easy-menu-define |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2677 message-mode-menu message-mode-map "Message Menu." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2678 `("Message" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2679 ["Yank Original" message-yank-original message-reply-buffer] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2680 ["Fill Yanked Message" message-fill-yanked-message t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2681 ["Insert Signature" message-insert-signature t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2682 ["Caesar (rot13) Message" message-caesar-buffer-body t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2683 ["Caesar (rot13) Region" message-caesar-region (message-mark-active-p)] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2684 ["Elide Region" message-elide-region |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2685 :active (message-mark-active-p) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2686 ,@(if (featurep 'xemacs) nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2687 '(:help "Replace text in region with an ellipsis"))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2688 ["Delete Outside Region" message-delete-not-region |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2689 :active (message-mark-active-p) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2690 ,@(if (featurep 'xemacs) nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2691 '(:help "Delete all quoted text outside region"))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2692 ["Kill To Signature" message-kill-to-signature t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2693 ["Newline and Reformat" message-newline-and-reformat t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2694 ["Rename buffer" message-rename-buffer t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2695 ["Spellcheck" ispell-message |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2696 ,@(if (featurep 'xemacs) '(t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2697 '(:help "Spellcheck this message"))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2698 "----" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2699 ["Insert Region Marked" message-mark-inserted-region |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2700 :active (message-mark-active-p) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2701 ,@(if (featurep 'xemacs) nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2702 '(:help "Mark region with enclosing tags"))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2703 ["Insert File Marked..." message-mark-insert-file |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2704 ,@(if (featurep 'xemacs) '(t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2705 '(:help "Insert file at point marked with enclosing tags"))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2706 "----" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2707 ["Send Message" message-send-and-exit |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2708 ,@(if (featurep 'xemacs) '(t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2709 '(:help "Send this message"))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2710 ["Postpone Message" message-dont-send |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2711 ,@(if (featurep 'xemacs) '(t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2712 '(:help "File this draft message and exit"))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2713 ["Send at Specific Time..." gnus-delay-article |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2714 ,@(if (featurep 'xemacs) '(t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2715 '(:help "Ask, then arrange to send message at that time"))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2716 ["Kill Message" message-kill-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2717 ,@(if (featurep 'xemacs) '(t) |
68230
6c7c654eb3c7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-702
Miles Bader <miles@gnu.org>
parents:
67032
diff
changeset
|
2718 '(:help "Delete this message without sending"))] |
6c7c654eb3c7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-702
Miles Bader <miles@gnu.org>
parents:
67032
diff
changeset
|
2719 "----" |
6c7c654eb3c7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-702
Miles Bader <miles@gnu.org>
parents:
67032
diff
changeset
|
2720 ["Message manual" message-info |
6c7c654eb3c7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-702
Miles Bader <miles@gnu.org>
parents:
67032
diff
changeset
|
2721 ,@(if (featurep 'xemacs) '(t) |
6c7c654eb3c7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-702
Miles Bader <miles@gnu.org>
parents:
67032
diff
changeset
|
2722 '(:help "Display the Message manual"))])) |
17493 | 2723 |
2724 (easy-menu-define | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2725 message-mode-field-menu message-mode-map "" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2726 `("Field" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2727 ["To" message-goto-to t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2728 ["From" message-goto-from t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2729 ["Subject" message-goto-subject t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2730 ["Change subject..." message-change-subject t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2731 ["Cc" message-goto-cc t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2732 ["Bcc" message-goto-bcc t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2733 ["Fcc" message-goto-fcc t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2734 ["Reply-To" message-goto-reply-to t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2735 ["Flag As Important" message-insert-importance-high |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2736 ,@(if (featurep 'xemacs) '(t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2737 '(:help "Mark this message as important"))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2738 ["Flag As Unimportant" message-insert-importance-low |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2739 ,@(if (featurep 'xemacs) '(t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2740 '(:help "Mark this message as unimportant"))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2741 ["Request Receipt" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2742 message-insert-disposition-notification-to |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2743 ,@(if (featurep 'xemacs) '(t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2744 '(:help "Request a receipt notification"))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2745 "----" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2746 ;; (typical) news stuff |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2747 ["Summary" message-goto-summary t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2748 ["Keywords" message-goto-keywords t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2749 ["Newsgroups" message-goto-newsgroups t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2750 ["Fetch Newsgroups" message-insert-newsgroups t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2751 ["Followup-To" message-goto-followup-to t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2752 ;; ["Followup-To (with note in body)" message-cross-post-followup-to t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2753 ["Crosspost / Followup-To..." message-cross-post-followup-to t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2754 ["Distribution" message-goto-distribution t] |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2755 ["Expires" message-insert-expires t ] |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2756 ["X-No-Archive" message-add-archive-header t ] |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2757 "----" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2758 ;; (typical) mailing-lists stuff |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2759 ["Fetch To" message-insert-to |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2760 ,@(if (featurep 'xemacs) '(t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2761 '(:help "Insert a To header that points to the author."))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2762 ["Fetch To and Cc" message-insert-wide-reply |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2763 ,@(if (featurep 'xemacs) '(t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2764 '(:help |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2765 "Insert To and Cc headers as if you were doing a wide reply."))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2766 "----" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2767 ["Send to list only" message-to-list-only t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2768 ["Mail-Followup-To" message-goto-mail-followup-to t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2769 ["Unsubscribed list post" message-generate-unsubscribed-mail-followup-to |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2770 ,@(if (featurep 'xemacs) '(t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2771 '(:help "Insert a reasonable `Mail-Followup-To:' header."))] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2772 ["Reduce To: to Cc:" message-reduce-to-to-cc t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2773 "----" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2774 ["Sort Headers" message-sort-headers t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2775 ["Encode non-ASCII domain names" message-idna-to-ascii-rhs t] |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2776 ;; We hide `message-hidden-headers' by narrowing the buffer. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2777 ["Show Hidden Headers" widen t] |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2778 ["Goto Body" message-goto-body t] |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2779 ["Goto Signature" message-goto-signature t])) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2780 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2781 (defvar message-tool-bar-map nil) |
17493 | 2782 |
86154 | 2783 (defvar facemenu-add-face-function) |
2784 (defvar facemenu-remove-face-function) | |
17493 | 2785 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2786 ;;; Forbidden properties |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2787 ;; |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2788 ;; We use `after-change-functions' to keep special text properties |
107157
6a11e3b311d8
Change a custom default to ease the mail->message transition.
Glenn Morris <rgm@gnu.org>
parents:
106892
diff
changeset
|
2789 ;; that interfere with the normal function of message mode out of the |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2790 ;; buffer. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2791 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2792 (defcustom message-strip-special-text-properties t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2793 "Strip special properties from the message buffer. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2794 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2795 Emacs has a number of special text properties which can break message |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2796 composing in various ways. If this option is set, message will strip |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2797 these properties from the message composition buffer. However, some |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2798 packages requires these properties to be present in order to work. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2799 If you use one of these packages, turn this option off, and hope the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2800 message composition doesn't break too bad." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
2801 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2802 :group 'message-various |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2803 :link '(custom-manual "(message)Various Message Variables") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2804 :type 'boolean) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2805 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2806 (defconst message-forbidden-properties |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2807 ;; No reason this should be clutter up customize. We make it a |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2808 ;; property list (rather than a list of property symbols), to be |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2809 ;; directly useful for `remove-text-properties'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2810 '(field nil read-only nil invisible nil intangible nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2811 mouse-face nil modification-hooks nil insert-in-front-hooks nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2812 insert-behind-hooks nil point-entered nil point-left nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2813 ;; Other special properties: |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2814 ;; category, face, display: probably doesn't do any harm. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2815 ;; fontified: is used by font-lock. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2816 ;; syntax-table, local-map: I dunno. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2817 ;; We need to add XEmacs names to the list. |
58835
9bdd97960431
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-716
Miles Bader <miles@gnu.org>
parents:
57856
diff
changeset
|
2818 "Property list of with properties forbidden in message buffers. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2819 The values of the properties are ignored, only the property names are used.") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2820 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2821 (defun message-tamago-not-in-use-p (pos) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2822 "Return t when tamago version 4 is not in use at the cursor position. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2823 Tamago version 4 is a popular input method for writing Japanese text. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2824 It uses the properties `intangible', `invisible', `modification-hooks' |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2825 and `read-only' when translating ascii or kana text to kanji text. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2826 These properties are essential to work, so we should never strip them." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2827 (not (and (boundp 'egg-modefull-mode) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2828 (symbol-value 'egg-modefull-mode) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2829 (or (memq (get-text-property pos 'intangible) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2830 '(its-part-1 its-part-2)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2831 (get-text-property pos 'egg-end) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2832 (get-text-property pos 'egg-lang) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2833 (get-text-property pos 'egg-start))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2834 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2835 (defsubst message-mail-alias-type-p (type) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2836 (if (atom message-mail-alias-type) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2837 (eq message-mail-alias-type type) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2838 (memq type message-mail-alias-type))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2839 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2840 (defun message-strip-forbidden-properties (begin end &optional old-length) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2841 "Strip forbidden properties between BEGIN and END, ignoring the third arg. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2842 This function is intended to be called from `after-change-functions'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2843 See also `message-forbidden-properties'." |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2844 (when (and (message-mail-alias-type-p 'ecomplete) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2845 (memq this-command message-self-insert-commands)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2846 (message-display-abbrev)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2847 (when (and message-strip-special-text-properties |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2848 (message-tamago-not-in-use-p begin)) |
58835
9bdd97960431
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-716
Miles Bader <miles@gnu.org>
parents:
57856
diff
changeset
|
2849 (let ((buffer-read-only nil) |
9bdd97960431
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-716
Miles Bader <miles@gnu.org>
parents:
57856
diff
changeset
|
2850 (inhibit-read-only t)) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2851 (remove-text-properties begin end message-forbidden-properties)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2852 |
17493 | 2853 ;;;###autoload |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2854 (define-derived-mode message-mode text-mode "Message" |
17493 | 2855 "Major mode for editing mail and news to be sent. |
35147 | 2856 Like Text Mode but with these additional commands:\\<message-mode-map> |
2857 C-c C-s `message-send' (send the message) C-c C-c `message-send-and-exit' | |
2858 C-c C-d Postpone sending the message C-c C-k Kill the message | |
17493 | 2859 C-c C-f move to a header field (and create it if there isn't): |
2860 C-c C-f C-t move to To C-c C-f C-s move to Subject | |
2861 C-c C-f C-c move to Cc C-c C-f C-b move to Bcc | |
2862 C-c C-f C-w move to Fcc C-c C-f C-r move to Reply-To | |
2863 C-c C-f C-u move to Summary C-c C-f C-n move to Newsgroups | |
2864 C-c C-f C-k move to Keywords C-c C-f C-d move to Distribution | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2865 C-c C-f C-o move to From (\"Originator\") |
17493 | 2866 C-c C-f C-f move to Followup-To |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2867 C-c C-f C-m move to Mail-Followup-To |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2868 C-c C-f C-e move to Expires |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2869 C-c C-f C-i cycle through Importance values |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2870 C-c C-f s change subject and append \"(was: <Old Subject>)\" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2871 C-c C-f x crossposting with FollowUp-To header and note in body |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2872 C-c C-f t replace To: header with contents of Cc: or Bcc: |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2873 C-c C-f a Insert X-No-Archive: header and a note in the body |
35147 | 2874 C-c C-t `message-insert-to' (add a To header to a news followup) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2875 C-c C-l `message-to-list-only' (removes all but list address in to/cc) |
35147 | 2876 C-c C-n `message-insert-newsgroups' (add a Newsgroup header to a news reply) |
2877 C-c C-b `message-goto-body' (move to beginning of message text). | |
2878 C-c C-i `message-goto-signature' (move to the beginning of the signature). | |
2879 C-c C-w `message-insert-signature' (insert `message-signature-file' file). | |
2880 C-c C-y `message-yank-original' (insert current message, if any). | |
2881 C-c C-q `message-fill-yanked-message' (fill what was yanked). | |
2882 C-c C-e `message-elide-region' (elide the text between point and mark). | |
2883 C-c C-v `message-delete-not-region' (remove the text outside the region). | |
2884 C-c C-z `message-kill-to-signature' (kill the text up to the signature). | |
2885 C-c C-r `message-caesar-buffer-body' (rot13 the message body). | |
2886 C-c C-a `mml-attach-file' (attach a file as MIME). | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2887 C-c C-u `message-insert-or-toggle-importance' (insert or cycle importance). |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2888 C-c M-n `message-insert-disposition-notification-to' (request receipt). |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2889 C-c M-m `message-mark-inserted-region' (mark region with enclosing tags). |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2890 C-c M-f `message-mark-insert-file' (insert file marked with enclosing tags). |
35147 | 2891 M-RET `message-newline-and-reformat' (break the line and reformat)." |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2892 (setq local-abbrev-table text-mode-abbrev-table) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2893 (set (make-local-variable 'message-reply-buffer) nil) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2894 (set (make-local-variable 'message-inserted-headers) nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2895 (set (make-local-variable 'message-send-actions) nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2896 (set (make-local-variable 'message-exit-actions) nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2897 (set (make-local-variable 'message-kill-actions) nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2898 (set (make-local-variable 'message-postpone-actions) nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2899 (set (make-local-variable 'message-draft-article) nil) |
17493 | 2900 (setq buffer-offer-save t) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2901 (set (make-local-variable 'facemenu-add-face-function) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2902 (lambda (face end) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2903 (let ((face-fun (cdr (assq face message-face-alist)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2904 (if face-fun |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2905 (funcall face-fun (point) end) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2906 (error "Face %s not configured for %s mode" face mode-name))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2907 "")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2908 (set (make-local-variable 'facemenu-remove-face-function) t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2909 (set (make-local-variable 'message-reply-headers) nil) |
17493 | 2910 (make-local-variable 'message-newsreader) |
2911 (make-local-variable 'message-mailer) | |
2912 (make-local-variable 'message-post-method) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2913 (set (make-local-variable 'message-sent-message-via) nil) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2914 (set (make-local-variable 'message-checksum) nil) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2915 (set (make-local-variable 'message-mime-part) 0) |
33436
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2916 (message-setup-fill-variables) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2917 (when message-fill-column |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2918 (setq fill-column message-fill-column) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2919 (turn-on-auto-fill)) |
34766 | 2920 ;; Allow using comment commands to add/remove quoting. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2921 ;; (set (make-local-variable 'comment-start) message-yank-prefix) |
54287
5284e720208b
(message-mode): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54277
diff
changeset
|
2922 (when message-yank-prefix |
5284e720208b
(message-mode): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54277
diff
changeset
|
2923 (set (make-local-variable 'comment-start) message-yank-prefix) |
5284e720208b
(message-mode): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54277
diff
changeset
|
2924 (set (make-local-variable 'comment-start-skip) |
5284e720208b
(message-mode): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54277
diff
changeset
|
2925 (concat "^" (regexp-quote message-yank-prefix) "[ \t]*"))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2926 (if (featurep 'xemacs) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2927 (message-setup-toolbar) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2928 (set (make-local-variable 'font-lock-defaults) |
32964
352449d35643
(message-mode-menu): Add some :help strings.
Dave Love <fx@gnu.org>
parents:
31716
diff
changeset
|
2929 '(message-font-lock-keywords t)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2930 (if (boundp 'tool-bar-map) |
70051
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
2931 (set (make-local-variable 'tool-bar-map) (message-make-tool-bar)))) |
17493 | 2932 (easy-menu-add message-mode-menu message-mode-map) |
2933 (easy-menu-add message-mode-field-menu message-mode-map) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2934 (gnus-make-local-hook 'after-change-functions) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2935 ;; Mmmm... Forbidden properties... |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2936 (add-hook 'after-change-functions 'message-strip-forbidden-properties |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2937 nil 'local) |
17493 | 2938 ;; Allow mail alias things. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2939 (cond |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2940 ((message-mail-alias-type-p 'abbrev) |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
2941 (if (fboundp 'mail-abbrevs-setup) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
2942 (mail-abbrevs-setup) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2943 (if (fboundp 'mail-aliases-setup) ; warning avoidance |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2944 (mail-aliases-setup)))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2945 ((message-mail-alias-type-p 'ecomplete) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
2946 (ecomplete-setup))) |
44075
7782e54757bb
* mail-source.el (make-source-make-complex-temp-name): Use
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
43075
diff
changeset
|
2947 (unless buffer-file-name |
7782e54757bb
* mail-source.el (make-source-make-complex-temp-name): Use
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
43075
diff
changeset
|
2948 (message-set-auto-save-file-name)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2949 (unless (buffer-base-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2950 ;; Don't enable multibyte on an indirect buffer. Maybe enabling |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2951 ;; multibyte is not necessary at all. -- zsh |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2952 (mm-enable-multibyte)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2953 (set (make-local-variable 'indent-tabs-mode) nil) ;No tabs for indentation. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2954 (mml-mode)) |
17493 | 2955 |
33436
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2956 (defun message-setup-fill-variables () |
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2957 "Setup message fill variables." |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2958 (set (make-local-variable 'fill-paragraph-function) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2959 'message-fill-paragraph) |
33436
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2960 (make-local-variable 'paragraph-separate) |
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2961 (make-local-variable 'paragraph-start) |
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2962 (make-local-variable 'adaptive-fill-regexp) |
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2963 (unless (boundp 'adaptive-fill-first-line-regexp) |
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2964 (setq adaptive-fill-first-line-regexp nil)) |
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2965 (make-local-variable 'adaptive-fill-first-line-regexp) |
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2966 (let ((quote-prefix-regexp |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2967 ;; User should change message-cite-prefix-regexp if |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2968 ;; message-yank-prefix is set to an abnormal value. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2969 (concat "\\(" message-cite-prefix-regexp "\\)[ \t]*"))) |
33436
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2970 (setq paragraph-start |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2971 (concat |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2972 (regexp-quote mail-header-separator) "$\\|" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2973 "[ \t]*$\\|" ; blank lines |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2974 "-- $\\|" ; signature delimiter |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2975 "---+$\\|" ; delimiters for forwarded messages |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2976 page-delimiter "$\\|" ; spoiler warnings |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2977 ".*wrote:$\\|" ; attribution lines |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2978 quote-prefix-regexp "$\\|" ; empty lines in quoted text |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2979 ; mml tags |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2980 "<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)")) |
33436
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2981 (setq paragraph-separate paragraph-start) |
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2982 (setq adaptive-fill-regexp |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2983 (concat quote-prefix-regexp "\\|" adaptive-fill-regexp)) |
33436
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
2984 (setq adaptive-fill-first-line-regexp |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2985 (concat quote-prefix-regexp "\\|" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2986 adaptive-fill-first-line-regexp))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2987 (make-local-variable 'auto-fill-inhibit-regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2988 ;;(setq auto-fill-inhibit-regexp "^[A-Z][^: \n\t]+:") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2989 (setq auto-fill-inhibit-regexp nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2990 (make-local-variable 'normal-auto-fill-function) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2991 (setq normal-auto-fill-function 'message-do-auto-fill) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2992 ;; KLUDGE: auto fill might already be turned on in `text-mode-hook'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2993 ;; In that case, ensure that it uses the right function. The real |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2994 ;; solution would be not to use `define-derived-mode', and run |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2995 ;; `text-mode-hook' ourself at the end of the mode. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2996 ;; -- Per Abrahamsen <abraham@dina.kvl.dk> Date: 2001-10-19. |
85766
68503cda7180
(message-check-news-body-syntax): Avoid mm-string-as-multibyte.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85712
diff
changeset
|
2997 ;; This kludge is unneeded in Emacs>=21 since define-derived-mode is |
68503cda7180
(message-check-news-body-syntax): Avoid mm-string-as-multibyte.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85712
diff
changeset
|
2998 ;; now careful to run parent hooks after the body. --Stef |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
2999 (when auto-fill-function |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3000 (setq auto-fill-function normal-auto-fill-function))) |
33436
a324254af725
From Emerick Rogul <emerick@csa.bu.edu>.
Dave Love <fx@gnu.org>
parents:
33400
diff
changeset
|
3001 |
17493 | 3002 |
3003 | |
3004 ;;; | |
3005 ;;; Message mode commands | |
3006 ;;; | |
3007 | |
3008 ;;; Movement commands | |
3009 | |
3010 (defun message-goto-to () | |
3011 "Move point to the To header." | |
3012 (interactive) | |
3013 (message-position-on-field "To")) | |
3014 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3015 (defun message-goto-from () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3016 "Move point to the From header." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3017 (interactive) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3018 (message-position-on-field "From")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3019 |
17493 | 3020 (defun message-goto-subject () |
3021 "Move point to the Subject header." | |
3022 (interactive) | |
3023 (message-position-on-field "Subject")) | |
3024 | |
3025 (defun message-goto-cc () | |
3026 "Move point to the Cc header." | |
3027 (interactive) | |
3028 (message-position-on-field "Cc" "To")) | |
3029 | |
3030 (defun message-goto-bcc () | |
3031 "Move point to the Bcc header." | |
3032 (interactive) | |
3033 (message-position-on-field "Bcc" "Cc" "To")) | |
3034 | |
3035 (defun message-goto-fcc () | |
3036 "Move point to the Fcc header." | |
3037 (interactive) | |
3038 (message-position-on-field "Fcc" "To" "Newsgroups")) | |
3039 | |
3040 (defun message-goto-reply-to () | |
3041 "Move point to the Reply-To header." | |
3042 (interactive) | |
3043 (message-position-on-field "Reply-To" "Subject")) | |
3044 | |
3045 (defun message-goto-newsgroups () | |
3046 "Move point to the Newsgroups header." | |
3047 (interactive) | |
3048 (message-position-on-field "Newsgroups")) | |
3049 | |
3050 (defun message-goto-distribution () | |
3051 "Move point to the Distribution header." | |
3052 (interactive) | |
3053 (message-position-on-field "Distribution")) | |
3054 | |
3055 (defun message-goto-followup-to () | |
3056 "Move point to the Followup-To header." | |
3057 (interactive) | |
3058 (message-position-on-field "Followup-To" "Newsgroups")) | |
3059 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3060 (defun message-goto-mail-followup-to () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3061 "Move point to the Mail-Followup-To header." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3062 (interactive) |
57581
645f020dcc8a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-626
Miles Bader <miles@gnu.org>
parents:
57561
diff
changeset
|
3063 (message-position-on-field "Mail-Followup-To" "To")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3064 |
17493 | 3065 (defun message-goto-keywords () |
3066 "Move point to the Keywords header." | |
3067 (interactive) | |
3068 (message-position-on-field "Keywords" "Subject")) | |
3069 | |
3070 (defun message-goto-summary () | |
3071 "Move point to the Summary header." | |
3072 (interactive) | |
3073 (message-position-on-field "Summary" "Subject")) | |
3074 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3075 (defun message-goto-body (&optional interactivep) |
17493 | 3076 "Move point to the beginning of the message body." |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3077 (interactive (list t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3078 (when (and interactivep |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3079 (looking-at "[ \t]*\n")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3080 (expand-abbrev)) |
17493 | 3081 (goto-char (point-min)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3082 (or (search-forward (concat "\n" mail-header-separator "\n") nil t) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3083 (search-forward-regexp "[^:]+:\\([^\n]\\|\n[ \t]\\)+\n\n" nil t))) |
17493 | 3084 |
70245
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
3085 (defun message-in-body-p () |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
3086 "Return t if point is in the message body." |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
3087 (let ((body (save-excursion (message-goto-body) (point)))) |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
3088 (>= (point) body))) |
322c5c5027dc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-249
Miles Bader <miles@gnu.org>
parents:
70051
diff
changeset
|
3089 |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3090 (defun message-goto-eoh () |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3091 "Move point to the end of the headers." |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3092 (interactive) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3093 (message-goto-body) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3094 (forward-line -1)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3095 |
17493 | 3096 (defun message-goto-signature () |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3097 "Move point to the beginning of the message signature. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3098 If there is no signature in the article, go to the end and |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3099 return nil." |
17493 | 3100 (interactive) |
3101 (goto-char (point-min)) | |
3102 (if (re-search-forward message-signature-separator nil t) | |
3103 (forward-line 1) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3104 (goto-char (point-max)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3105 nil)) |
17493 | 3106 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3107 (defun message-generate-unsubscribed-mail-followup-to (&optional include-cc) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3108 "Insert a reasonable MFT header in a post to an unsubscribed list. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3109 When making original posts to a mailing list you are not subscribed to, |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3110 you have to type in a MFT header by hand. The contents, usually, are |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3111 the addresses of the list and your own address. This function inserts |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3112 such a header automatically. It fetches the contents of the To: header |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3113 in the current mail buffer, and appends the current `user-mail-address'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3114 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3115 If the optional argument INCLUDE-CC is non-nil, the addresses in the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3116 Cc: header are also put into the MFT." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3117 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3118 (interactive "P") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3119 (let* (cc tos) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3120 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3121 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3122 (message-remove-header "Mail-Followup-To") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3123 (setq cc (and include-cc (message-fetch-field "Cc"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3124 (setq tos (if cc |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3125 (concat (message-fetch-field "To") "," cc) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3126 (message-fetch-field "To")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3127 (message-goto-mail-followup-to) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3128 (insert (concat tos ", " user-mail-address)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3129 |
17493 | 3130 |
3131 | |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
3132 (defun message-insert-to (&optional force) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
3133 "Insert a To header that points to the author of the article being replied to. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3134 If the original author requested not to be sent mail, don't insert unless the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3135 prefix FORCE is given." |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
3136 (interactive "P") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3137 (let* ((mct (message-fetch-reply-field "mail-copies-to")) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3138 (dont (and mct (or (equal (downcase mct) "never") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3139 (equal (downcase mct) "nobody")))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3140 (to (or (message-fetch-reply-field "mail-reply-to") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3141 (message-fetch-reply-field "reply-to") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3142 (message-fetch-reply-field "from")))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3143 (when (and dont to) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3144 (message |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3145 (if force |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3146 "Ignoring the user request not to have copies sent via mail" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3147 "Complying with the user request not to have copies sent via mail"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3148 (when (and force (not to)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3149 (error "No mail address in the article")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3150 (when (and to (or force (not dont))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3151 (message-carefully-insert-headers (list (cons 'To to)))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3152 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3153 (defun message-insert-wide-reply () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3154 "Insert To and Cc headers as if you were doing a wide reply." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3155 (interactive) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3156 (let ((headers (message-with-reply-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3157 (message-get-reply-headers t)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3158 (message-carefully-insert-headers headers))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3159 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3160 (defcustom message-header-synonyms |
69944
a87e26272828
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-210
Miles Bader <miles@gnu.org>
parents:
69572
diff
changeset
|
3161 '((To Cc Bcc) |
a87e26272828
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-210
Miles Bader <miles@gnu.org>
parents:
69572
diff
changeset
|
3162 (Original-To)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3163 "List of lists of header synonyms. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3164 E.g., if this list contains a member list with elements `Cc' and `To', |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3165 then `message-carefully-insert-headers' will not insert a `To' header |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3166 when the message is already `Cc'ed to the recipient." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
3167 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3168 :group 'message-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3169 :link '(custom-manual "(message)Message Headers") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3170 :type '(repeat sexp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3171 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3172 (defun message-carefully-insert-headers (headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3173 "Insert the HEADERS, an alist, into the message buffer. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3174 Does not insert the headers when they are already present there |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3175 or in the synonym headers, defined by `message-header-synonyms'." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3176 ;; FIXME: Should compare only the address and not the full name. Comparison |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3177 ;; should be done case-folded (and with `string=' rather than |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3178 ;; `string-match'). |
57581
645f020dcc8a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-626
Miles Bader <miles@gnu.org>
parents:
57561
diff
changeset
|
3179 ;; (mail-strip-quoted-names "Foo Bar <foo@bar>, bla@fasel (Bla Fasel)") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3180 (dolist (header headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3181 (let* ((header-name (symbol-name (car header))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3182 (new-header (cdr header)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3183 (synonyms (loop for synonym in message-header-synonyms |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3184 when (memq (car header) synonym) return synonym)) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3185 (old-header |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3186 (loop for synonym in synonyms |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3187 for old-header = (mail-fetch-field (symbol-name synonym)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3188 when (and old-header (string-match new-header old-header)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3189 return synonym))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3190 (if old-header |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3191 (message "already have `%s' in `%s'" new-header old-header) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3192 (when (and (message-position-on-field header-name) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3193 (setq old-header (mail-fetch-field header-name)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3194 (not (string-match "\\` *\\'" old-header))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3195 (insert ", ")) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3196 (insert new-header))))) |
17493 | 3197 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3198 (defun message-widen-reply () |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3199 "Widen the reply to include maximum recipients." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3200 (interactive) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3201 (let ((follow-to |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
3202 (and (bufferp message-reply-buffer) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3203 (buffer-name message-reply-buffer) |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
3204 (with-current-buffer message-reply-buffer |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3205 (message-get-reply-headers t))))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3206 (save-excursion |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3207 (save-restriction |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3208 (message-narrow-to-headers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3209 (dolist (elem follow-to) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3210 (message-remove-header (symbol-name (car elem))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3211 (goto-char (point-min)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3212 (insert (symbol-name (car elem)) ": " |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3213 (cdr elem) "\n")))))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3214 |
17493 | 3215 (defun message-insert-newsgroups () |
3216 "Insert the Newsgroups header from the article being replied to." | |
3217 (interactive) | |
3218 (when (and (message-position-on-field "Newsgroups") | |
3219 (mail-fetch-field "newsgroups") | |
3220 (not (string-match "\\` *\\'" (mail-fetch-field "newsgroups")))) | |
3221 (insert ",")) | |
3222 (insert (or (message-fetch-reply-field "newsgroups") ""))) | |
3223 | |
3224 | |
3225 | |
3226 ;;; Various commands | |
3227 | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3228 (defun message-delete-not-region (beg end) |
35147 | 3229 "Delete everything in the body of the current message outside of the region." |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3230 (interactive "r") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3231 (let (citeprefix) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3232 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3233 (goto-char beg) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3234 ;; snarf citation prefix, if appropriate |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3235 (unless (eq (point) (progn (beginning-of-line) (point))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3236 (when (looking-at message-cite-prefix-regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3237 (setq citeprefix (match-string 0)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3238 (goto-char end) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3239 (delete-region (point) (if (not (message-goto-signature)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3240 (point) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3241 (forward-line -2) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3242 (point))) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3243 (insert "\n") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3244 (goto-char beg) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3245 (delete-region beg (progn (message-goto-body) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3246 (forward-line 2) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3247 (point))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3248 (when citeprefix |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3249 (insert citeprefix)))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3250 (when (message-goto-signature) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3251 (forward-line -2))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3252 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3253 (defun message-kill-to-signature (&optional arg) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3254 "Kill all text up to the signature. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3255 If a numberic argument or prefix arg is given, leave that number |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3256 of lines before the signature intact." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3257 (interactive "P") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3258 (save-excursion |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3259 (save-restriction |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3260 (let ((point (point))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3261 (narrow-to-region point (point-max)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3262 (message-goto-signature) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3263 (unless (eobp) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3264 (if (and arg (numberp arg)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3265 (forward-line (- -1 arg)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3266 (end-of-line -1))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3267 (unless (= point (point)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3268 (kill-region point (point)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3269 (unless (bolp) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3270 (insert "\n"))))))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3271 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3272 (defun message-newline-and-reformat (&optional arg not-break) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3273 "Insert four newlines, and then reformat if inside quoted text. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3274 Prefix arg means justify as well." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3275 (interactive (list (if current-prefix-arg 'full))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3276 (let (quoted point beg end leading-space bolp fill-paragraph-function) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3277 (setq point (point)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3278 (beginning-of-line) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3279 (setq beg (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3280 (setq bolp (= beg point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3281 ;; Find first line of the paragraph. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3282 (if not-break |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3283 (while (and (not (eobp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3284 (not (looking-at message-cite-prefix-regexp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3285 (looking-at paragraph-start)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3286 (forward-line 1))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3287 ;; Find the prefix |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3288 (when (looking-at message-cite-prefix-regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3289 (setq quoted (match-string 0)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3290 (goto-char (match-end 0)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3291 (looking-at "[ \t]*") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3292 (setq leading-space (match-string 0))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3293 (if (and quoted |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3294 (not not-break) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3295 (not bolp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3296 (< (- point beg) (length quoted))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3297 ;; break inside the cite prefix. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3298 (setq quoted nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3299 end nil)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3300 (if quoted |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3301 (progn |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3302 (forward-line 1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3303 (while (and (not (eobp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3304 (not (looking-at paragraph-separate)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3305 (looking-at message-cite-prefix-regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3306 (equal quoted (match-string 0))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3307 (goto-char (match-end 0)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3308 (looking-at "[ \t]*") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3309 (if (> (length leading-space) (length (match-string 0))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3310 (setq leading-space (match-string 0))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3311 (forward-line 1)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3312 (setq end (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3313 (goto-char beg) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3314 (while (and (if (bobp) nil (forward-line -1) t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3315 (not (looking-at paragraph-start)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3316 (looking-at message-cite-prefix-regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3317 (equal quoted (match-string 0))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3318 (setq beg (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3319 (goto-char (match-end 0)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3320 (looking-at "[ \t]*") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3321 (if (> (length leading-space) (length (match-string 0))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3322 (setq leading-space (match-string 0))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3323 (while (and (not (eobp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3324 (not (looking-at paragraph-separate)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3325 (not (looking-at message-cite-prefix-regexp))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3326 (forward-line 1)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3327 (setq end (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3328 (goto-char beg) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3329 (while (and (if (bobp) nil (forward-line -1) t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3330 (not (looking-at paragraph-start)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3331 (not (looking-at message-cite-prefix-regexp))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3332 (setq beg (point)))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3333 (goto-char point) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3334 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3335 (narrow-to-region beg end) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3336 (if not-break |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3337 (setq point nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3338 (if bolp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3339 (newline) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3340 (newline) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3341 (newline)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3342 (setq point (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3343 ;; (newline 2) doesn't mark both newline's as hard, so call |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3344 ;; newline twice. -jas |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3345 (newline) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3346 (newline) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3347 (delete-region (point) (re-search-forward "[ \t]*")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3348 (when (and quoted (not bolp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3349 (insert quoted leading-space))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3350 (undo-boundary) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3351 (if quoted |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3352 (let* ((adaptive-fill-regexp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3353 (regexp-quote (concat quoted leading-space))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3354 (adaptive-fill-first-line-regexp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3355 adaptive-fill-regexp )) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3356 (fill-paragraph arg)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3357 (fill-paragraph arg)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3358 (if point (goto-char point))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3359 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3360 (defun message-fill-paragraph (&optional arg) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3361 "Message specific function to fill a paragraph. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3362 This function is used as the value of `fill-paragraph-function' in |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3363 Message buffers and is not meant to be called directly." |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3364 (interactive (list (if current-prefix-arg 'full))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3365 (if (if (boundp 'filladapt-mode) filladapt-mode) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3366 nil |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3367 (if (message-point-in-header-p) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3368 (message-fill-field) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3369 (message-newline-and-reformat arg t)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3370 t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3371 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3372 (defun message-point-in-header-p () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3373 "Return t if point is in the header." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3374 (save-excursion |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3375 (not (re-search-backward |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3376 (concat "^" (regexp-quote mail-header-separator) "\n") nil t)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3377 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3378 (defun message-do-auto-fill () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3379 "Like `do-auto-fill', but don't fill in message header." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3380 (unless (message-point-in-header-p) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3381 (do-auto-fill))) |
49034
b6e082e00b00
(message-split-line): New function.
Kim F. Storm <storm@cua.dk>
parents:
48588
diff
changeset
|
3382 |
17493 | 3383 (defun message-insert-signature (&optional force) |
35147 | 3384 "Insert a signature. See documentation for variable `message-signature'." |
17493 | 3385 (interactive (list 0)) |
3386 (let* ((signature | |
3387 (cond | |
3388 ((and (null message-signature) | |
3389 (eq force 0)) | |
3390 (save-excursion | |
3391 (goto-char (point-max)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3392 (not (re-search-backward message-signature-separator nil t)))) |
17493 | 3393 ((and (null message-signature) |
3394 force) | |
3395 t) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3396 ((functionp message-signature) |
17493 | 3397 (funcall message-signature)) |
3398 ((listp message-signature) | |
3399 (eval message-signature)) | |
3400 (t message-signature))) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3401 signature-file) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3402 (setq signature |
17493 | 3403 (cond ((stringp signature) |
3404 signature) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3405 ((and (eq t signature) message-signature-file) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3406 (setq signature-file |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3407 (if (and message-signature-directory |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3408 ;; don't actually use the signature directory |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3409 ;; if message-signature-file contains a path. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3410 (not (file-name-directory |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3411 message-signature-file))) |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
3412 (expand-file-name message-signature-file |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
3413 message-signature-directory) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3414 message-signature-file)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3415 (file-exists-p signature-file)))) |
17493 | 3416 (when signature |
3417 (goto-char (point-max)) | |
3418 ;; Insert the signature. | |
3419 (unless (bolp) | |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3420 (insert "\n")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3421 (when message-signature-insert-empty-line |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3422 (insert "\n")) |
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3423 (insert "-- \n") |
17493 | 3424 (if (eq signature t) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3425 (insert-file-contents signature-file) |
17493 | 3426 (insert signature)) |
3427 (goto-char (point-max)) | |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3428 (or (bolp) (insert "\n"))))) |
17493 | 3429 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3430 (defun message-insert-importance-high () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3431 "Insert header to mark message as important." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3432 (interactive) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3433 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3434 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3435 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3436 (message-remove-header "Importance")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3437 (message-goto-eoh) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3438 (insert "Importance: high\n"))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3439 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3440 (defun message-insert-importance-low () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3441 "Insert header to mark message as unimportant." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3442 (interactive) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3443 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3444 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3445 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3446 (message-remove-header "Importance")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3447 (message-goto-eoh) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3448 (insert "Importance: low\n"))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3449 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3450 (defun message-insert-or-toggle-importance () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3451 "Insert a \"Importance: high\" header, or cycle through the header values. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3452 The three allowed values according to RFC 1327 are `high', `normal' |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3453 and `low'." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3454 (interactive) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3455 (save-excursion |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
3456 (let ((new "high") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3457 cur) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3458 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3459 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3460 (when (setq cur (message-fetch-field "Importance")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3461 (message-remove-header "Importance") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3462 (setq new (cond ((string= cur "high") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3463 "low") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3464 ((string= cur "low") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3465 "normal") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3466 (t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3467 "high"))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3468 (message-goto-eoh) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3469 (insert (format "Importance: %s\n" new))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3470 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3471 (defun message-insert-disposition-notification-to () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3472 "Request a disposition notification (return receipt) to this message. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3473 Note that this should not be used in newsgroups." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3474 (interactive) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3475 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3476 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3477 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3478 (message-remove-header "Disposition-Notification-To")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3479 (message-goto-eoh) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3480 (insert (format "Disposition-Notification-To: %s\n" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3481 (or (message-field-value "Reply-to") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3482 (message-field-value "From") |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3483 (message-make-from)))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3484 |
17493 | 3485 (defun message-elide-region (b e) |
35147 | 3486 "Elide the text in the region. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3487 An ellipsis (from `message-elide-ellipsis') will be inserted where the |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3488 text was killed." |
17493 | 3489 (interactive "r") |
3490 (kill-region b e) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3491 (insert message-elide-ellipsis)) |
17493 | 3492 |
3493 (defvar message-caesar-translation-table nil) | |
3494 | |
3495 (defun message-caesar-region (b e &optional n) | |
35147 | 3496 "Caesar rotate region B to E by N, default 13, for decrypting netnews." |
17493 | 3497 (interactive |
3498 (list | |
3499 (min (point) (or (mark t) (point))) | |
3500 (max (point) (or (mark t) (point))) | |
3501 (when current-prefix-arg | |
3502 (prefix-numeric-value current-prefix-arg)))) | |
3503 | |
3504 (setq n (if (numberp n) (mod n 26) 13)) ;canonize N | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3505 (unless (or (zerop n) ; no action needed for a rot of 0 |
17493 | 3506 (= b e)) ; no region to rotate |
3507 ;; We build the table, if necessary. | |
3508 (when (or (not message-caesar-translation-table) | |
3509 (/= (aref message-caesar-translation-table ?a) (+ ?a n))) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3510 (setq message-caesar-translation-table |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3511 (message-make-caesar-translation-table n))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3512 (translate-region b e message-caesar-translation-table))) |
17493 | 3513 |
3514 (defun message-make-caesar-translation-table (n) | |
3515 "Create a rot table with offset N." | |
3516 (let ((i -1) | |
3517 (table (make-string 256 0))) | |
3518 (while (< (incf i) 256) | |
3519 (aset table i i)) | |
3520 (concat | |
3521 (substring table 0 ?A) | |
3522 (substring table (+ ?A n) (+ ?A n (- 26 n))) | |
3523 (substring table ?A (+ ?A n)) | |
3524 (substring table (+ ?A 26) ?a) | |
3525 (substring table (+ ?a n) (+ ?a n (- 26 n))) | |
3526 (substring table ?a (+ ?a n)) | |
3527 (substring table (+ ?a 26) 255)))) | |
3528 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3529 (defun message-caesar-buffer-body (&optional rotnum wide) |
35147 | 3530 "Caesar rotate all letters in the current buffer by 13 places. |
3531 Used to encode/decode possibly offensive messages (commonly in rec.humor). | |
17493 | 3532 With prefix arg, specifies the number of places to rotate each letter forward. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3533 Mail and USENET news headers are not rotated unless WIDE is non-nil." |
17493 | 3534 (interactive (if current-prefix-arg |
3535 (list (prefix-numeric-value current-prefix-arg)) | |
3536 (list nil))) | |
3537 (save-excursion | |
3538 (save-restriction | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3539 (when (and (not wide) (message-goto-body)) |
17493 | 3540 (narrow-to-region (point) (point-max))) |
3541 (message-caesar-region (point-min) (point-max) rotnum)))) | |
3542 | |
3543 (defun message-pipe-buffer-body (program) | |
3544 "Pipe the message body in the current buffer through PROGRAM." | |
3545 (save-excursion | |
3546 (save-restriction | |
3547 (when (message-goto-body) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3548 (narrow-to-region (point) (point-max))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3549 (shell-command-on-region |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3550 (point-min) (point-max) program nil t)))) |
17493 | 3551 |
3552 (defun message-rename-buffer (&optional enter-string) | |
3553 "Rename the *message* buffer to \"*message* RECIPIENT\". | |
3554 If the function is run with a prefix, it will ask for a new buffer | |
3555 name, rather than giving an automatic name." | |
3556 (interactive "Pbuffer name: ") | |
3557 (save-excursion | |
3558 (save-restriction | |
3559 (goto-char (point-min)) | |
3560 (narrow-to-region (point) | |
3561 (search-forward mail-header-separator nil 'end)) | |
3562 (let* ((mail-to (or | |
3563 (if (message-news-p) (message-fetch-field "Newsgroups") | |
3564 (message-fetch-field "To")) | |
3565 "")) | |
3566 (mail-trimmed-to | |
3567 (if (string-match "," mail-to) | |
3568 (concat (substring mail-to 0 (match-beginning 0)) ", ...") | |
3569 mail-to)) | |
3570 (name-default (concat "*message* " mail-trimmed-to)) | |
3571 (name (if enter-string | |
3572 (read-string "New buffer name: " name-default) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3573 name-default))) |
17493 | 3574 (rename-buffer name t))))) |
3575 | |
3576 (defun message-fill-yanked-message (&optional justifyp) | |
3577 "Fill the paragraphs of a message yanked into this one. | |
3578 Numeric argument means justify as well." | |
3579 (interactive "P") | |
3580 (save-excursion | |
3581 (goto-char (point-min)) | |
3582 (search-forward (concat "\n" mail-header-separator "\n") nil t) | |
3583 (let ((fill-prefix message-yank-prefix)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3584 (fill-individual-paragraphs (point) (point-max) justifyp)))) |
17493 | 3585 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3586 (defun message-indent-citation (&optional start end yank-only) |
17493 | 3587 "Modify text just inserted from a message to be cited. |
3588 The inserted text should be the region. | |
3589 When this function returns, the region is again around the modified text. | |
3590 | |
3591 Normally, indent each nonblank line `message-indentation-spaces' spaces. | |
3592 However, if `message-yank-prefix' is non-nil, insert that prefix on each line." | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3593 (unless start (setq start (point))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3594 (unless yank-only |
17493 | 3595 ;; Remove unwanted headers. |
3596 (when message-ignored-cited-headers | |
3597 (let (all-removed) | |
3598 (save-restriction | |
3599 (narrow-to-region | |
3600 (goto-char start) | |
3601 (if (search-forward "\n\n" nil t) | |
3602 (1- (point)) | |
3603 (point))) | |
3604 (message-remove-header message-ignored-cited-headers t) | |
3605 (when (= (point-min) (point-max)) | |
3606 (setq all-removed t)) | |
3607 (goto-char (point-max))) | |
3608 (if all-removed | |
3609 (goto-char start) | |
3610 (forward-line 1)))) | |
3611 ;; Delete blank lines at the start of the buffer. | |
3612 (while (and (point-min) | |
3613 (eolp) | |
3614 (not (eobp))) | |
3615 (message-delete-line)) | |
3616 ;; Delete blank lines at the end of the buffer. | |
3617 (goto-char (point-max)) | |
3618 (unless (eolp) | |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3619 (insert "\n")) |
17493 | 3620 (while (and (zerop (forward-line -1)) |
3621 (looking-at "$")) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3622 (message-delete-line))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3623 ;; Do the indentation. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3624 (if (null message-yank-prefix) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3625 (indent-rigidly start (or end (mark t)) message-indentation-spaces) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3626 (save-excursion |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3627 (goto-char start) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3628 (while (< (point) (or end (mark t))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3629 (cond ((looking-at ">") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3630 (insert message-yank-cited-prefix)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3631 ((looking-at "^$") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3632 (insert message-yank-empty-prefix)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3633 (t |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3634 (insert message-yank-prefix))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3635 (forward-line 1)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3636 (goto-char start)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3637 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3638 (defun message-remove-blank-cited-lines (&optional remove) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3639 "Remove cited lines containing only blanks. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3640 If REMOVE is non-nil, remove newlines, too. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3641 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3642 To use this automatically, you may add this function to |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3643 `gnus-message-setup-hook'." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3644 (interactive "P") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3645 (let ((citexp |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3646 (concat |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3647 "^\\(" |
85809 | 3648 (when (boundp 'message-yank-cited-prefix) |
3649 (concat message-yank-cited-prefix "\\|")) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3650 message-yank-prefix |
85809 | 3651 "\\)+ *\n" |
3652 ))) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3653 (gnus-message 8 "removing `%s'" citexp) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3654 (save-excursion |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3655 (message-goto-body) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3656 (while (re-search-forward citexp nil t) |
85809 | 3657 (replace-match (if remove "" "\n")))))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3658 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3659 (defvar message-cite-reply-above nil |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3660 "If non-nil, start own text above the quote. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3661 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3662 Note: Top posting is bad netiquette. Don't use it unless you |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3663 really must. You probably want to set variable only for specific |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3664 groups, e.g. using `gnus-posting-styles': |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3665 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3666 (eval (set (make-local-variable 'message-cite-reply-above) t)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3667 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3668 This variable has no effect in news postings.") |
17493 | 3669 |
3670 (defun message-yank-original (&optional arg) | |
3671 "Insert the message being replied to, if any. | |
3672 Puts point before the text and mark after. | |
3673 Normally indents each nonblank line ARG spaces (default 3). However, | |
3674 if `message-yank-prefix' is non-nil, insert that prefix on each line. | |
3675 | |
3676 This function uses `message-cite-function' to do the actual citing. | |
3677 | |
3678 Just \\[universal-argument] as argument means don't indent, insert no | |
3679 prefix, and don't delete any headers." | |
3680 (interactive "P") | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3681 (let ((modified (buffer-modified-p)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3682 body-text) |
17493 | 3683 (when (and message-reply-buffer |
3684 message-cite-function) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3685 (when message-cite-reply-above |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3686 (if (and (not (message-news-p)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3687 (or (eq message-cite-reply-above 'is-evil) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3688 (y-or-n-p "\ |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3689 Top posting is bad netiquette. Please don't top post unless you really must. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3690 Really top post? "))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3691 (save-excursion |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3692 (setq body-text |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3693 (buffer-substring (message-goto-body) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3694 (point-max))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3695 (delete-region (message-goto-body) (point-max))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3696 (set (make-local-variable 'message-cite-reply-above) nil))) |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
3697 (if (bufferp message-reply-buffer) |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
3698 (delete-windows-on message-reply-buffer t)) |
64712
4db92b217e85
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-507
Miles Bader <miles@gnu.org>
parents:
64085
diff
changeset
|
3699 (push-mark (save-excursion |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
3700 (cond |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
3701 ((bufferp message-reply-buffer) |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
3702 (insert-buffer-substring message-reply-buffer)) |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
3703 ((and (consp message-reply-buffer) |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
3704 (functionp (car message-reply-buffer))) |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
3705 (apply (car message-reply-buffer) |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
3706 (cdr message-reply-buffer)))) |
77114 | 3707 (unless (bolp) |
3708 (insert ?\n)) | |
64712
4db92b217e85
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-507
Miles Bader <miles@gnu.org>
parents:
64085
diff
changeset
|
3709 (point))) |
35453
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
35147
diff
changeset
|
3710 (unless arg |
77114 | 3711 (funcall message-cite-function) |
3712 (unless (eq (char-before (mark t)) ?\n) | |
3713 (let ((pt (point))) | |
3714 (goto-char (mark t)) | |
3715 (insert-before-markers ?\n) | |
3716 (goto-char pt)))) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3717 (when message-cite-reply-above |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3718 (message-goto-body) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3719 (insert body-text) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3720 (insert (if (bolp) "\n" "\n\n")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3721 (message-goto-body)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3722 ;; Add a `message-setup-very-last-hook' here? |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3723 ;; Add `gnus-article-highlight-citation' here? |
17493 | 3724 (unless modified |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3725 (setq message-checksum (message-checksum)))))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3726 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3727 (defun message-yank-buffer (buffer) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3728 "Insert BUFFER into the current buffer and quote it." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3729 (interactive "bYank buffer: ") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3730 (let ((message-reply-buffer (get-buffer buffer))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3731 (save-window-excursion |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3732 (message-yank-original)))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3733 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3734 (defun message-buffers () |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3735 "Return a list of active message buffers." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3736 (let (buffers) |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
3737 (save-current-buffer |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3738 (dolist (buffer (buffer-list t)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3739 (set-buffer buffer) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3740 (when (and (eq major-mode 'message-mode) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3741 (null message-sent-message-via)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3742 (push (buffer-name buffer) buffers)))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3743 (nreverse buffers))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3744 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3745 (defun message-cite-original-1 (strip-signature) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3746 "Cite an original message. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3747 If STRIP-SIGNATURE is non-nil, strips off the signature from the |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3748 original message. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3749 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3750 This function uses `mail-citation-hook' if that is non-nil." |
22656
e3dc0aa099e5
(message-cite-original): If mail-citation-hook
Richard M. Stallman <rms@gnu.org>
parents:
22378
diff
changeset
|
3751 (if (and (boundp 'mail-citation-hook) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3752 mail-citation-hook) |
22656
e3dc0aa099e5
(message-cite-original): If mail-citation-hook
Richard M. Stallman <rms@gnu.org>
parents:
22378
diff
changeset
|
3753 (run-hooks 'mail-citation-hook) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3754 (let* ((start (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3755 (end (mark t)) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3756 (x-no-archive nil) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3757 (functions |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3758 (when message-indent-citation-function |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3759 (if (listp message-indent-citation-function) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3760 message-indent-citation-function |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3761 (list message-indent-citation-function)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3762 ;; This function may be called by `gnus-summary-yank-message' and |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3763 ;; may insert a different article from the original. So, we will |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3764 ;; modify the value of `message-reply-headers' with that article. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3765 (message-reply-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3766 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3767 (narrow-to-region start end) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3768 (message-narrow-to-head-1) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3769 (setq x-no-archive (message-fetch-field "x-no-archive")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3770 (vector 0 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3771 (or (message-fetch-field "subject") "none") |
73007 | 3772 (or (message-fetch-field "from") "nobody") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3773 (message-fetch-field "date") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3774 (message-fetch-field "message-id" t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3775 (message-fetch-field "references") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3776 0 0 "")))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3777 (mml-quote-region start end) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3778 (when strip-signature |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3779 ;; Allow undoing. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3780 (undo-boundary) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3781 (goto-char end) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3782 (when (re-search-backward message-signature-separator start t) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3783 ;; Also peel off any blank lines before the signature. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3784 (forward-line -1) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3785 (while (looking-at "^[ \t]*$") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3786 (forward-line -1)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3787 (forward-line 1) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3788 (delete-region (point) end) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3789 (unless (search-backward "\n\n" start t) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3790 ;; Insert a blank line if it is peeled off. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3791 (insert "\n")))) |
22656
e3dc0aa099e5
(message-cite-original): If mail-citation-hook
Richard M. Stallman <rms@gnu.org>
parents:
22378
diff
changeset
|
3792 (goto-char start) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3793 (mapc 'funcall functions) |
22656
e3dc0aa099e5
(message-cite-original): If mail-citation-hook
Richard M. Stallman <rms@gnu.org>
parents:
22378
diff
changeset
|
3794 (when message-citation-line-function |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3795 (unless (bolp) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3796 (insert "\n")) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3797 (funcall message-citation-line-function)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3798 (when (and x-no-archive |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3799 (not message-cite-articles-with-x-no-archive) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3800 (string-match "yes" x-no-archive)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3801 (undo-boundary) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3802 (delete-region (point) (mark t)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3803 (insert "> [Quoted text removed due to X-No-Archive]\n") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3804 (push-mark) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3805 (forward-line -1))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3806 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3807 (defun message-cite-original () |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3808 "Cite function in the standard Message manner." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3809 (message-cite-original-1 nil)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3810 |
87026
9a6b88cec251
(gnus-extract-address-components): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents:
86393
diff
changeset
|
3811 (defvar gnus-extract-address-components) |
9a6b88cec251
(gnus-extract-address-components): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents:
86393
diff
changeset
|
3812 |
87245
6207f5a83057
(Info-goto-node, format-spec): Autoload.
Glenn Morris <rgm@gnu.org>
parents:
87191
diff
changeset
|
3813 (autoload 'format-spec "format-spec") |
6207f5a83057
(Info-goto-node, format-spec): Autoload.
Glenn Morris <rgm@gnu.org>
parents:
87191
diff
changeset
|
3814 |
85974 | 3815 (defun message-insert-formatted-citation-line (&optional from date) |
3816 "Function that inserts a formatted citation line. | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3817 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3818 See `message-citation-line-format'." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3819 ;; The optional args are for testing/debugging. They will disappear later. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3820 ;; Example: |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3821 ;; (with-temp-buffer |
85974 | 3822 ;; (message-insert-formatted-citation-line |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3823 ;; "John Doe <john.doe@example.invalid>" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3824 ;; (current-time)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3825 ;; (buffer-string)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3826 (when (or message-reply-headers (and from date)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3827 (unless from |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3828 (setq from (mail-header-from message-reply-headers))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3829 (let* ((data (condition-case () |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3830 (funcall (if (boundp gnus-extract-address-components) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3831 gnus-extract-address-components |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3832 'mail-extract-address-components) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3833 from) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3834 (error nil))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3835 (name (car data)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3836 (fname name) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3837 (lname name) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3838 (net (car (cdr data))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3839 (name-or-net (or (car data) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3840 (car (cdr data)) from)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3841 (replydate |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3842 (or |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3843 date |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3844 ;; We need Gnus functionality if the user wants date or time from |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3845 ;; the original article: |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3846 (when (string-match "%[^fnNFL]" message-citation-line-format) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3847 (autoload 'gnus-date-get-time "gnus-util") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3848 (gnus-date-get-time (mail-header-date message-reply-headers))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3849 (flist |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3850 (let ((i ?A) lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3851 (when (stringp name) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3852 ;; Guess first name and last name: |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3853 (cond ((string-match |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3854 "\\`\\(\\w\\|[-.]\\)+ \\(\\w\\|[-.]\\)+\\'" name) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3855 (setq fname (nth 0 (split-string name "[ \t]+")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3856 lname (nth 1 (split-string name "[ \t]+")))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3857 ((string-match |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3858 "\\`\\(\\w\\|[-.]\\)+, \\(\\w\\|[-.]\\)+\\'" name) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3859 (setq fname (nth 1 (split-string name "[ \t,]+")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3860 lname (nth 0 (split-string name "[ \t,]+")))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3861 ((string-match |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3862 "\\`\\(\\w\\|[-.]\\)+\\'" name) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3863 (setq fname name |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3864 lname "")))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3865 ;; The following letters are not used in `format-time-string': |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3866 (push ?E lst) (push "<E>" lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3867 (push ?F lst) (push fname lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3868 ;; We might want to use "" instead of "<X>" later. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3869 (push ?J lst) (push "<J>" lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3870 (push ?K lst) (push "<K>" lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3871 (push ?L lst) (push lname lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3872 (push ?N lst) (push name-or-net lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3873 (push ?O lst) (push "<O>" lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3874 (push ?P lst) (push "<P>" lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3875 (push ?Q lst) (push "<Q>" lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3876 (push ?f lst) (push from lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3877 (push ?i lst) (push "<i>" lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3878 (push ?n lst) (push net lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3879 (push ?o lst) (push "<o>" lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3880 (push ?q lst) (push "<q>" lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3881 (push ?t lst) (push "<t>" lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3882 (push ?v lst) (push "<v>" lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3883 ;; Delegate the rest to `format-time-string': |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3884 (while (<= i ?z) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3885 (when (and (not (memq i lst)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3886 ;; Skip (Z,a) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3887 (or (<= i ?Z) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3888 (>= i ?a))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3889 (push i lst) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3890 (push (condition-case nil |
105078
40ab4c53d7a6
Fix typos in condition-case handlers.
Glenn Morris <rgm@gnu.org>
parents:
104789
diff
changeset
|
3891 (format-time-string (format "%%%c" i) replydate) |
40ab4c53d7a6
Fix typos in condition-case handlers.
Glenn Morris <rgm@gnu.org>
parents:
104789
diff
changeset
|
3892 (error (format ">%c<" i))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3893 lst)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3894 (setq i (1+ i))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3895 (reverse lst))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3896 (spec (apply 'format-spec-make flist))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3897 (insert (format-spec message-citation-line-format spec))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3898 (newline))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3899 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3900 (defun message-cite-original-without-signature () |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3901 "Cite function in the standard Message manner. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3902 This function strips off the signature from the original message." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3903 (message-cite-original-1 t)) |
17493 | 3904 |
3905 (defun message-insert-citation-line () | |
35147 | 3906 "Insert a simple citation line." |
17493 | 3907 (when message-reply-headers |
67032
ebf472d3ae22
(message-insert-citation-line): Use newlines.
Chong Yidong <cyd@stupidchicken.com>
parents:
67030
diff
changeset
|
3908 (insert (mail-header-from message-reply-headers) " writes:") |
ebf472d3ae22
(message-insert-citation-line): Use newlines.
Chong Yidong <cyd@stupidchicken.com>
parents:
67030
diff
changeset
|
3909 (newline) |
ebf472d3ae22
(message-insert-citation-line): Use newlines.
Chong Yidong <cyd@stupidchicken.com>
parents:
67030
diff
changeset
|
3910 (newline))) |
17493 | 3911 |
3912 (defun message-position-on-field (header &rest afters) | |
3913 (let ((case-fold-search t)) | |
3914 (save-restriction | |
3915 (narrow-to-region | |
3916 (goto-char (point-min)) | |
3917 (progn | |
3918 (re-search-forward | |
3919 (concat "^" (regexp-quote mail-header-separator) "$")) | |
3920 (match-beginning 0))) | |
3921 (goto-char (point-min)) | |
3922 (if (re-search-forward (concat "^" (regexp-quote header) ":") nil t) | |
3923 (progn | |
3924 (re-search-forward "^[^ \t]" nil 'move) | |
3925 (beginning-of-line) | |
3926 (skip-chars-backward "\n") | |
3927 t) | |
3928 (while (and afters | |
3929 (not (re-search-forward | |
3930 (concat "^" (regexp-quote (car afters)) ":") | |
3931 nil t))) | |
3932 (pop afters)) | |
3933 (when afters | |
3934 (re-search-forward "^[^ \t]" nil 'move) | |
3935 (beginning-of-line)) | |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
3936 (insert header ": \n") |
17493 | 3937 (forward-char -1) |
3938 nil)))) | |
3939 | |
3940 (defun message-remove-signature () | |
3941 "Remove the signature from the text between point and mark. | |
3942 The text will also be indented the normal way." | |
3943 (save-excursion | |
3944 (let ((start (point)) | |
3945 mark) | |
3946 (if (not (re-search-forward message-signature-separator (mark t) t)) | |
3947 ;; No signature here, so we just indent the cited text. | |
3948 (message-indent-citation) | |
3949 ;; Find the last non-empty line. | |
3950 (forward-line -1) | |
3951 (while (looking-at "[ \t]*$") | |
3952 (forward-line -1)) | |
3953 (forward-line 1) | |
3954 (setq mark (set-marker (make-marker) (point))) | |
3955 (goto-char start) | |
3956 (message-indent-citation) | |
3957 ;; Enable undoing the deletion. | |
3958 (undo-boundary) | |
3959 (delete-region mark (mark t)) | |
3960 (set-marker mark nil))))) | |
3961 | |
3962 | |
3963 | |
3964 ;;; | |
3965 ;;; Sending messages | |
3966 ;;; | |
3967 | |
3968 (defun message-send-and-exit (&optional arg) | |
3969 "Send message like `message-send', then, if no errors, exit from mail buffer." | |
3970 (interactive "P") | |
3971 (let ((buf (current-buffer)) | |
3972 (actions message-exit-actions)) | |
3973 (when (and (message-send arg) | |
3974 (buffer-name buf)) | |
3975 (if message-kill-buffer-on-exit | |
3976 (kill-buffer buf) | |
3977 (bury-buffer buf) | |
3978 (when (eq buf (current-buffer)) | |
3979 (message-bury buf))) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3980 (message-do-actions actions) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3981 t))) |
17493 | 3982 |
3983 (defun message-dont-send () | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3984 "Don't send the message you have been editing. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3985 Instead, just auto-save the buffer and then bury it." |
17493 | 3986 (interactive) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3987 (set-buffer-modified-p t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
3988 (save-buffer) |
17493 | 3989 (let ((actions message-postpone-actions)) |
3990 (message-bury (current-buffer)) | |
3991 (message-do-actions actions))) | |
3992 | |
3993 (defun message-kill-buffer () | |
3994 "Kill the current buffer." | |
3995 (interactive) | |
3996 (when (or (not (buffer-modified-p)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
3997 (not message-kill-buffer-query) |
17493 | 3998 (yes-or-no-p "Message modified; kill anyway? ")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
3999 (let ((actions message-kill-actions) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4000 (draft-article message-draft-article) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4001 (auto-save-file-name buffer-auto-save-file-name) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4002 (file-name buffer-file-name) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4003 (modified (buffer-modified-p))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4004 (setq buffer-file-name nil) |
17493 | 4005 (kill-buffer (current-buffer)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4006 (when (and (or (and auto-save-file-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4007 (file-exists-p auto-save-file-name)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4008 (and file-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4009 (file-exists-p file-name))) |
64735
bfabe4ff7114
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-512
Miles Bader <miles@gnu.org>
parents:
64712
diff
changeset
|
4010 (progn |
bfabe4ff7114
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-512
Miles Bader <miles@gnu.org>
parents:
64712
diff
changeset
|
4011 ;; If the message buffer has lived in a dedicated window, |
bfabe4ff7114
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-512
Miles Bader <miles@gnu.org>
parents:
64712
diff
changeset
|
4012 ;; `kill-buffer' has killed the frame. Thus the |
bfabe4ff7114
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-512
Miles Bader <miles@gnu.org>
parents:
64712
diff
changeset
|
4013 ;; `yes-or-no-p' may show up in a lowered frame. Make sure |
bfabe4ff7114
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-512
Miles Bader <miles@gnu.org>
parents:
64712
diff
changeset
|
4014 ;; that the user can see the question by raising the |
bfabe4ff7114
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-512
Miles Bader <miles@gnu.org>
parents:
64712
diff
changeset
|
4015 ;; current frame: |
bfabe4ff7114
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-512
Miles Bader <miles@gnu.org>
parents:
64712
diff
changeset
|
4016 (raise-frame) |
bfabe4ff7114
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-512
Miles Bader <miles@gnu.org>
parents:
64712
diff
changeset
|
4017 (yes-or-no-p (format "Remove the backup file%s? " |
bfabe4ff7114
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-512
Miles Bader <miles@gnu.org>
parents:
64712
diff
changeset
|
4018 (if modified " too" ""))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4019 (ignore-errors |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4020 (delete-file auto-save-file-name)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4021 (let ((message-draft-article draft-article)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4022 (message-disassociate-draft))) |
17493 | 4023 (message-do-actions actions)))) |
4024 | |
4025 (defun message-bury (buffer) | |
35147 | 4026 "Bury this mail BUFFER." |
17493 | 4027 (let ((newbuf (other-buffer buffer))) |
4028 (bury-buffer buffer) | |
64735
bfabe4ff7114
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-512
Miles Bader <miles@gnu.org>
parents:
64712
diff
changeset
|
4029 (if (and (window-dedicated-p (selected-window)) |
17493 | 4030 (not (null (delq (selected-frame) (visible-frame-list))))) |
4031 (delete-frame (selected-frame)) | |
4032 (switch-to-buffer newbuf)))) | |
4033 | |
4034 (defun message-send (&optional arg) | |
4035 "Send the message in the current buffer. | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4036 If `message-interactive' is non-nil, wait for success indication or |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4037 error messages, and inform user. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4038 Otherwise any failure is reported in a message back to the user from |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4039 the mailer. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4040 The usage of ARG is defined by the instance that called Message. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4041 It should typically alter the sending method in some way or other." |
17493 | 4042 (interactive "P") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4043 ;; Make it possible to undo the coming changes. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4044 (undo-boundary) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4045 (let ((inhibit-read-only t)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4046 (put-text-property (point-min) (point-max) 'read-only nil)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4047 (message-fix-before-sending) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4048 (run-hooks 'message-send-hook) |
97972 | 4049 (when message-confirm-send |
4050 (or (y-or-n-p "Send message? ") | |
4051 (keyboard-quit))) | |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
4052 (message message-sending-message) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4053 (let ((alist message-send-method-alist) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4054 (success t) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4055 elem sent dont-barf-on-no-method |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4056 (message-options message-options)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4057 (message-options-set-recipient) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4058 (while (and success |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4059 (setq elem (pop alist))) |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
4060 (when (funcall (cadr elem)) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
4061 (when (and (or (not (memq (car elem) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
4062 message-sent-message-via)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4063 (message-fetch-field "supersedes") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4064 (if (or (message-gnksa-enable-p 'multiple-copies) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4065 (not (eq (car elem) 'news))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4066 (y-or-n-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4067 (format |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4068 "Already sent message via %s; resend? " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4069 (car elem))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4070 (error "Denied posting -- multiple copies"))) |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
4071 (setq success (funcall (caddr elem) arg))) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
4072 (setq sent t)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4073 (unless (or sent |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4074 (not success) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4075 (let ((fcc (message-fetch-field "Fcc")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4076 (gcc (message-fetch-field "Gcc"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4077 (when (or fcc gcc) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4078 (or (eq message-allow-no-recipients 'always) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4079 (and (not (eq message-allow-no-recipients 'never)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4080 (setq dont-barf-on-no-method |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4081 (gnus-y-or-n-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4082 (format "No receiver, perform %s anyway? " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4083 (cond ((and fcc gcc) "Fcc and Gcc") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4084 (fcc "Fcc") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4085 (t "Gcc")))))))))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4086 (error "No methods specified to send by")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4087 (when (or dont-barf-on-no-method |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4088 (and success sent)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4089 (message-do-fcc) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4090 (save-excursion |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4091 (run-hooks 'message-sent-hook)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4092 (message "Sending...done") |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4093 ;; Do ecomplete address snarfing. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4094 (when (message-mail-alias-type-p 'ecomplete) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4095 (message-put-addresses-in-ecomplete)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4096 ;; Mark the buffer as unmodified and delete auto-save. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4097 (set-buffer-modified-p nil) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4098 (delete-auto-save-file-if-necessary t) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4099 (message-disassociate-draft) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4100 ;; Delete other mail buffers and stuff. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4101 (message-do-send-housekeeping) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4102 (message-do-actions message-send-actions) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4103 ;; Return success. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4104 t))) |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
4105 |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
4106 (defun message-send-via-mail (arg) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4107 "Send the current message via mail." |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
4108 (message-send-mail arg)) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
4109 |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
4110 (defun message-send-via-news (arg) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
4111 "Send the current message via news." |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
4112 (funcall message-send-news-function arg)) |
17493 | 4113 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4114 (defmacro message-check (type &rest forms) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4115 "Eval FORMS if TYPE is to be checked." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4116 `(or (message-check-element ,type) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4117 (save-excursion |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4118 ,@forms))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4119 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4120 (put 'message-check 'lisp-indent-function 1) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4121 (put 'message-check 'edebug-form-spec '(form body)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4122 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4123 (defun message-text-with-property (prop &optional start end reverse) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4124 "Return a list of start and end positions where the text has PROP. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4125 START and END bound the search, they default to `point-min' and |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4126 `point-max' respectively. If REVERSE is non-nil, find text which does |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4127 not have PROP." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4128 (unless start |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4129 (setq start (point-min))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4130 (unless end |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4131 (setq end (point-max))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4132 (let (next regions) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4133 (if reverse |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4134 (while (and start |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4135 (setq start (text-property-any start end prop nil))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4136 (setq next (next-single-property-change start prop nil end)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4137 (push (cons start (or next end)) regions) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4138 (setq start next)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4139 (while (and start |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4140 (or (get-text-property start prop) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4141 (and (setq start (next-single-property-change |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4142 start prop nil end)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4143 (get-text-property start prop)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4144 (setq next (text-property-any start end prop nil)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4145 (push (cons start (or next end)) regions) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4146 (setq start next))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4147 (nreverse regions))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4148 |
95451 | 4149 (defcustom message-bogus-addresses |
4150 ;; '("noreply" "nospam" "invalid") | |
4151 '("noreply" "nospam" "invalid" "@@" "[^[:ascii:]].*@" "[ \t]") | |
4152 "List of regexps of potentially bogus mail addresses. | |
4153 See `message-check-recipients' how to setup checking. | |
4154 | |
4155 This list should make it possible to catch typos or warn about | |
4156 spam-trap addresses. It doesn't aim to verify strict RFC | |
4157 conformance." | |
92336
5f827896103e
Change defcustom :version from 23.0 to 23.1.
Glenn Morris <rgm@gnu.org>
parents:
92147
diff
changeset
|
4158 :version "23.1" ;; No Gnus |
85809 | 4159 :group 'message-headers |
95451 | 4160 :type '(choice |
4161 (const :tag "None" nil) | |
4162 (list | |
4163 (set :inline t | |
4164 (const "noreply") | |
4165 (const "nospam") | |
4166 (const "invalid") | |
4167 (const :tag "duplicate @" "@@") | |
4168 (const :tag "non-ascii local part" "[^[:ascii:]].*@") | |
4169 ;; Already caught by `message-valid-fqdn-regexp' | |
4170 ;; (const :tag "`_' in domain part" "@.*_") | |
4171 (const :tag "whitespace" "[ \t]")) | |
4172 (repeat :inline t | |
4173 :tag "Other" | |
4174 (regexp))))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4175 |
17493 | 4176 (defun message-fix-before-sending () |
4177 "Do various things to make the message nice before sending it." | |
4178 ;; Make sure there's a newline at the end of the message. | |
4179 (goto-char (point-max)) | |
4180 (unless (bolp) | |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4181 (insert "\n")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4182 ;; Make the hidden headers visible. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4183 (widen) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4184 ;; Sort headers before sending the message. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4185 (message-sort-headers) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4186 ;; Make invisible text visible. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4187 ;; It doesn't seem as if this is useful, since the invisible property |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4188 ;; is clobbered by an after-change hook anyhow. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4189 (message-check 'invisible-text |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4190 (let ((regions (message-text-with-property 'invisible)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4191 from to) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4192 (when regions |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4193 (while regions |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4194 (setq from (caar regions) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4195 to (cdar regions) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4196 regions (cdr regions)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4197 (put-text-property from to 'invisible nil) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4198 (message-overlay-put (message-make-overlay from to) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4199 'face 'highlight)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4200 (unless (yes-or-no-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4201 "Invisible text found and made visible; continue sending? ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4202 (error "Invisible text found and made visible"))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4203 (message-check 'illegible-text |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4204 (let (char found choice) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4205 (message-goto-body) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4206 (while (progn |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4207 (skip-chars-forward mm-7bit-chars) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4208 (when (get-text-property (point) 'no-illegible-text) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4209 ;; There is a signed or encrypted raw message part |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4210 ;; that is considered to be safe. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4211 (goto-char (or (next-single-property-change |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4212 (point) 'no-illegible-text) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4213 (point-max)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4214 (setq char (char-after))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4215 (when (or (< (mm-char-int char) 128) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4216 (and (mm-multibyte-p) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4217 (memq (char-charset char) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4218 '(eight-bit-control eight-bit-graphic |
100993 | 4219 ;; Emacs 23, Bug#1770: |
4220 eight-bit | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4221 control-1)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4222 (not (get-text-property |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4223 (point) 'untranslated-utf-8)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4224 (message-overlay-put (message-make-overlay (point) (1+ (point))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4225 'face 'highlight) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4226 (setq found t)) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4227 (forward-char)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4228 (when found |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4229 (setq choice |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4230 (gnus-multiple-choice |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4231 "Non-printable characters found. Continue sending?" |
74021 | 4232 `((?d "Remove non-printable characters and send") |
4233 (?r ,(format | |
4234 "Replace non-printable characters with \"%s\" and send" | |
4235 message-replacement-char)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4236 (?i "Ignore non-printable characters and send") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4237 (?e "Continue editing")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4238 (if (eq choice ?e) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4239 (error "Non-printable characters")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4240 (message-goto-body) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4241 (skip-chars-forward mm-7bit-chars) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4242 (while (not (eobp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4243 (when (let ((char (char-after))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4244 (or (< (mm-char-int char) 128) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4245 (and (mm-multibyte-p) |
69135
12d289b6e5de
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-118
Miles Bader <miles@gnu.org>
parents:
68521
diff
changeset
|
4246 ;; FIXME: Wrong for Emacs 23 (unicode) and for |
100993 | 4247 ;; things like undecodable utf-8 (in Emacs 21?). |
4248 ;; Should at least use find-coding-systems-region. | |
4249 ;; -- fx | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4250 (memq (char-charset char) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4251 '(eight-bit-control eight-bit-graphic |
100993 | 4252 ;; Emacs 23, Bug#1770: |
4253 eight-bit | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4254 control-1)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4255 (not (get-text-property |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4256 (point) 'untranslated-utf-8))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4257 (if (eq choice ?i) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4258 (message-kill-all-overlays) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4259 (delete-char 1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4260 (when (eq choice ?r) |
74021 | 4261 (insert message-replacement-char)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4262 (forward-char) |
85809 | 4263 (skip-chars-forward mm-7bit-chars))))) |
4264 (message-check 'bogus-recipient | |
95086 | 4265 ;; Warn before sending a mail to an invalid address. |
85809 | 4266 (message-check-recipients))) |
4267 | |
4268 (defun message-bogus-recipient-p (recipients) | |
4269 "Check if a mail address in RECIPIENTS looks bogus. | |
4270 | |
4271 RECIPIENTS is a mail header. Return a list of potentially bogus | |
4272 addresses. If none is found, return nil. | |
4273 | |
95451 | 4274 An address might be bogus if the domain part is not fully |
4275 qualified, see `message-valid-fqdn-regexp', or if there's a | |
4276 matching entry in `message-bogus-addresses'." | |
85809 | 4277 ;; FIXME: How about "foo@subdomain", when the MTA adds ".domain.tld"? |
4278 (let (found) | |
4279 (mapc (lambda (address) | |
4280 (setq address (cadr address)) | |
4281 (when | |
4282 (or (not | |
4283 (or | |
4284 (not (string-match "@" address)) | |
4285 (string-match | |
4286 (concat ".@.*\\(" | |
4287 message-valid-fqdn-regexp "\\)\\'") address))) | |
95451 | 4288 (and message-bogus-addresses |
4289 (let ((re | |
4290 (if (listp message-bogus-addresses) | |
4291 (mapconcat 'identity | |
4292 message-bogus-addresses | |
4293 "\\|") | |
4294 message-bogus-addresses))) | |
4295 (string-match re address)))) | |
4296 (push address found))) | |
85809 | 4297 ;; |
4298 (mail-extract-address-components recipients t)) | |
4299 found)) | |
4300 | |
4301 (defun message-check-recipients () | |
4302 "Warn before composing or sending a mail to an invalid address. | |
4303 | |
4304 This function could be useful in `message-setup-hook'." | |
4305 (interactive) | |
4306 (save-restriction | |
4307 (message-narrow-to-headers) | |
4308 (dolist (hdr '("To" "Cc" "Bcc")) | |
4309 (let ((addr (message-fetch-field hdr))) | |
4310 (when (stringp addr) | |
4311 (dolist (bog (message-bogus-recipient-p addr)) | |
4312 (and bog | |
4313 (not (y-or-n-p | |
4314 (format | |
4315 "Address `%s' might be bogus. Continue? " bog))) | |
105167
e14dfafc8256
* gnus-art.el (gnus-article-encrypt-body):
Juanma Barranquero <lekktu@gmail.com>
parents:
105078
diff
changeset
|
4316 (error "Bogus address")))))))) |
17493 | 4317 |
95086 | 4318 (custom-add-option 'message-setup-hook 'message-check-recipients) |
4319 | |
17493 | 4320 (defun message-add-action (action &rest types) |
4321 "Add ACTION to be performed when doing an exit of type TYPES." | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4322 (while types |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4323 (add-to-list (intern (format "message-%s-actions" (pop types))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4324 action))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4325 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4326 (defun message-delete-action (action &rest types) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4327 "Delete ACTION from lists of actions performed when doing an exit of type TYPES." |
17493 | 4328 (let (var) |
4329 (while types | |
4330 (set (setq var (intern (format "message-%s-actions" (pop types)))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4331 (delq action (symbol-value var)))))) |
17493 | 4332 |
4333 (defun message-do-actions (actions) | |
4334 "Perform all actions in ACTIONS." | |
4335 ;; Now perform actions on successful sending. | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4336 (dolist (action actions) |
17493 | 4337 (ignore-errors |
4338 (cond | |
4339 ;; A simple function. | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4340 ((functionp action) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4341 (funcall action)) |
17493 | 4342 ;; Something to be evaled. |
4343 (t | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4344 (eval action)))))) |
17493 | 4345 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4346 (defun message-send-mail-partially () |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4347 "Send mail as message/partial." |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
4348 ;; replace the header delimiter with a blank line |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
4349 (goto-char (point-min)) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
4350 (re-search-forward |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
4351 (concat "^" (regexp-quote mail-header-separator) "\n")) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4352 (replace-match "\n") |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
4353 (run-hooks 'message-send-mail-hook) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4354 (let ((p (goto-char (point-min))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4355 (tembuf (message-generate-new-buffer-clone-locals " message temp")) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4356 (curbuf (current-buffer)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4357 (id (message-make-message-id)) (n 1) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4358 plist total header required-mail-headers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4359 (while (not (eobp)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4360 (if (< (point-max) (+ p message-send-mail-partially-limit)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4361 (goto-char (point-max)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4362 (goto-char (+ p message-send-mail-partially-limit)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4363 (beginning-of-line) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4364 (if (<= (point) p) (forward-line 1))) ;; In case of bad message. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4365 (push p plist) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4366 (setq p (point))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4367 (setq total (length plist)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4368 (push (point-max) plist) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4369 (setq plist (nreverse plist)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4370 (unwind-protect |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4371 (save-excursion |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4372 (setq p (pop plist)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4373 (while plist |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4374 (set-buffer curbuf) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4375 (copy-to-buffer tembuf p (car plist)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4376 (set-buffer tembuf) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4377 (goto-char (point-min)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4378 (if header |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4379 (progn |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4380 (goto-char (point-min)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4381 (narrow-to-region (point) (point)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4382 (insert header)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4383 (message-goto-eoh) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4384 (setq header (buffer-substring (point-min) (point))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4385 (goto-char (point-min)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4386 (narrow-to-region (point) (point)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4387 (insert header) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4388 (message-remove-header "Mime-Version") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4389 (message-remove-header "Content-Type") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4390 (message-remove-header "Content-Transfer-Encoding") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4391 (message-remove-header "Message-ID") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4392 (message-remove-header "Lines") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4393 (goto-char (point-max)) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4394 (insert "Mime-Version: 1.0\n") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4395 (setq header (buffer-string))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4396 (goto-char (point-max)) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4397 (insert (format "Content-Type: message/partial; id=\"%s\"; number=%d; total=%d\n\n" |
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4398 id n total)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4399 (forward-char -1) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4400 (let ((mail-header-separator "")) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4401 (when (memq 'Message-ID message-required-mail-headers) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4402 (insert "Message-ID: " (message-make-message-id) "\n")) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4403 (when (memq 'Lines message-required-mail-headers) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4404 (insert "Lines: " (message-make-lines) "\n")) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4405 (message-goto-subject) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4406 (end-of-line) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4407 (insert (format " (%d/%d)" n total)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4408 (widen) |
99777
b1be79c8e945
(message-send-mail): Just set the buffer to unibyte
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
98398
diff
changeset
|
4409 (funcall (or message-send-mail-real-function |
b1be79c8e945
(message-send-mail): Just set the buffer to unibyte
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
98398
diff
changeset
|
4410 message-send-mail-function))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4411 (setq n (+ n 1)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4412 (setq p (pop plist)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4413 (erase-buffer))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4414 (kill-buffer tembuf)))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4415 |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4416 (declare-function hashcash-wait-async "hashcash" (&optional buffer)) |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4417 |
17493 | 4418 (defun message-send-mail (&optional arg) |
4419 (require 'mail-utils) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4420 (let* ((tembuf (message-generate-new-buffer-clone-locals " message temp")) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4421 (case-fold-search nil) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4422 (news (message-news-p)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4423 (mailbuf (current-buffer)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4424 (message-this-is-mail t) |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4425 ;; gnus-setup-posting-charset is autoloaded in mml.el (FIXME |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4426 ;; maybe it should not be), which this file requires. Hence |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4427 ;; the fboundp test is always true. Loading it from gnus-msg |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4428 ;; loads many Gnus files (Bug#5642). If |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4429 ;; gnus-group-posting-charset-alist hasn't been customized, |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4430 ;; this is just going to return nil anyway. FIXME it would |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4431 ;; be good to improve this further, because even if g-g-p-c-a |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4432 ;; has been customized, that is likely to just be for news. |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4433 ;; Eg either move the definition from gnus-msg, or separate out |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4434 ;; the mail and news parts. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4435 (message-posting-charset |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4436 (if (and (fboundp 'gnus-setup-posting-charset) |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4437 (boundp 'gnus-group-posting-charset-alist)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4438 (gnus-setup-posting-charset nil) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4439 message-posting-charset)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4440 (headers message-required-mail-headers)) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4441 (when (and message-generate-hashcash |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4442 (not (eq message-generate-hashcash 'opportunistic))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4443 (message "Generating hashcash...") |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4444 (require 'hashcash) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4445 ;; Wait for calculations already started to finish... |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4446 (hashcash-wait-async) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4447 ;; ...and do calculations not already done. mail-add-payment |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4448 ;; will leave existing X-Hashcash headers alone. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4449 (mail-add-payment) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4450 (message "Generating hashcash...done")) |
17493 | 4451 (save-restriction |
4452 (message-narrow-to-headers) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4453 ;; Generate the Mail-Followup-To header if the header is not there... |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4454 (if (and (message-subscribed-p) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4455 (not (mail-fetch-field "mail-followup-to"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4456 (setq headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4457 (cons |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4458 (cons "Mail-Followup-To" (message-make-mail-followup-to)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4459 message-required-mail-headers)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4460 ;; otherwise, delete the MFT header if the field is empty |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4461 (when (equal "" (mail-fetch-field "mail-followup-to")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4462 (message-remove-header "^Mail-Followup-To:"))) |
17493 | 4463 ;; Insert some headers. |
4464 (let ((message-deletable-headers | |
4465 (if news nil message-deletable-headers))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4466 (message-generate-headers headers)) |
71379 | 4467 ;; Check continuation headers. |
4468 (message-check 'continuation-headers | |
4469 (goto-char (point-min)) | |
4470 (while (re-search-forward "^[^ \t\n][^ \t\n:]*[ \t\n]" nil t) | |
4471 (goto-char (match-beginning 0)) | |
4472 (if (y-or-n-p "Fix continuation lines? ") | |
4473 (insert " ") | |
4474 (forward-line 1) | |
4475 (unless (y-or-n-p "Send anyway? ") | |
4476 (error "Failed to send the message"))))) | |
17493 | 4477 ;; Let the user do all of the above. |
4478 (run-hooks 'message-header-hook)) | |
4479 (unwind-protect | |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
4480 (with-current-buffer tembuf |
17493 | 4481 (erase-buffer) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4482 ;; Avoid copying text props (except hard newlines). |
33748
2827e4066e08
* message.el (message-send-mail): Use buffer-substring-no-properties.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
33436
diff
changeset
|
4483 (insert (with-current-buffer mailbuf |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4484 (mml-buffer-substring-no-properties-except-hard-newlines |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4485 (point-min) (point-max)))) |
17493 | 4486 ;; Remove some headers. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4487 (message-encode-message-body) |
17493 | 4488 (save-restriction |
4489 (message-narrow-to-headers) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4490 ;; We (re)generate the Lines header. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4491 (when (memq 'Lines message-required-mail-headers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4492 (message-generate-headers '(Lines))) |
17493 | 4493 ;; Remove some headers. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4494 (message-remove-header message-ignored-mail-headers t) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4495 (let ((mail-parse-charset message-default-charset)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4496 (mail-encode-encoded-word-buffer))) |
17493 | 4497 (goto-char (point-max)) |
4498 ;; require one newline at the end. | |
4499 (or (= (preceding-char) ?\n) | |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4500 (insert ?\n)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4501 (message-cleanup-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4502 ;; FIXME: we're inserting the courtesy copy after encoding. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4503 ;; This is wrong if the courtesy copy string contains |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4504 ;; non-ASCII characters. -- jh |
35147 | 4505 (when |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4506 (save-restriction |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4507 (message-narrow-to-headers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4508 (and news |
17493 | 4509 (or (message-fetch-field "cc") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4510 (message-fetch-field "bcc") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4511 (message-fetch-field "to")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4512 (let ((content-type (message-fetch-field |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4513 "content-type"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4514 (and |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4515 (or |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4516 (not content-type) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4517 (string= "text/plain" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4518 (car |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4519 (mail-header-parse-content-type |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4520 content-type)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4521 (not |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4522 (string= "base64" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4523 (message-fetch-field |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4524 "content-transfer-encoding"))))))) |
17493 | 4525 (message-insert-courtesy-copy)) |
99777
b1be79c8e945
(message-send-mail): Just set the buffer to unibyte
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
98398
diff
changeset
|
4526 ;; Let's make sure we encoded all the body. |
b1be79c8e945
(message-send-mail): Just set the buffer to unibyte
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
98398
diff
changeset
|
4527 (assert (save-excursion |
b1be79c8e945
(message-send-mail): Just set the buffer to unibyte
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
98398
diff
changeset
|
4528 (goto-char (point-min)) |
b1be79c8e945
(message-send-mail): Just set the buffer to unibyte
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
98398
diff
changeset
|
4529 (not (re-search-forward "[^\000-\377]" nil t)))) |
b1be79c8e945
(message-send-mail): Just set the buffer to unibyte
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
98398
diff
changeset
|
4530 (mm-disable-multibyte) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4531 (if (or (not message-send-mail-partially-limit) |
56947
a1a3a7ab3bad
(message-tokenize-header, message-send-mail-with-qmail):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56927
diff
changeset
|
4532 (< (buffer-size) message-send-mail-partially-limit) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4533 (not (message-y-or-n-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4534 "The message size is too large, split? " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4535 t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4536 "\ |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4537 The message size, " |
56947
a1a3a7ab3bad
(message-tokenize-header, message-send-mail-with-qmail):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56927
diff
changeset
|
4538 (/ (buffer-size) 1000) "KB, is too large. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4539 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4540 Some mail gateways (MTA's) bounce large messages. To avoid the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4541 problem, answer `y', and the message will be split into several |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4542 smaller pieces, the size of each is about " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4543 (/ message-send-mail-partially-limit 1000) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4544 "KB except the last |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4545 one. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4546 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4547 However, some mail readers (MUA's) can't read split messages, i.e., |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4548 mails in message/partially format. Answer `n', and the message will be |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4549 sent in one piece. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4550 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4551 The size limit is controlled by `message-send-mail-partially-limit'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4552 If you always want Gnus to send messages in one piece, set |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4553 `message-send-mail-partially-limit' to nil. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4554 "))) |
99777
b1be79c8e945
(message-send-mail): Just set the buffer to unibyte
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
98398
diff
changeset
|
4555 (progn |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4556 (message "Sending via mail...") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4557 (funcall (or message-send-mail-real-function |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4558 message-send-mail-function))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4559 (message-send-mail-partially))) |
17493 | 4560 (kill-buffer tembuf)) |
4561 (set-buffer mailbuf) | |
4562 (push 'mail message-sent-message-via))) | |
4563 | |
4564 (defun message-send-mail-with-sendmail () | |
4565 "Send off the prepared buffer with sendmail." | |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4566 (require 'sendmail) |
17493 | 4567 (let ((errbuf (if message-interactive |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4568 (message-generate-new-buffer-clone-locals |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4569 " sendmail errors") |
17493 | 4570 0)) |
4571 resend-to-addresses delimline) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4572 (unwind-protect |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4573 (progn |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4574 (let ((case-fold-search t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4575 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4576 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4577 (setq resend-to-addresses (message-fetch-field "resent-to"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4578 ;; Change header-delimiter to be what sendmail expects. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4579 (goto-char (point-min)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4580 (re-search-forward |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4581 (concat "^" (regexp-quote mail-header-separator) "\n")) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4582 (replace-match "\n") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4583 (backward-char 1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4584 (setq delimline (point-marker)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4585 (run-hooks 'message-send-mail-hook) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4586 ;; Insert an extra newline if we need it to work around |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4587 ;; Sun's bug that swallows newlines. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4588 (goto-char (1+ delimline)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4589 (when (eval message-mailer-swallows-blank-line) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4590 (newline)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4591 (when message-interactive |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4592 (with-current-buffer errbuf |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4593 (erase-buffer)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4594 (let* ((default-directory "/") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4595 (coding-system-for-write message-send-coding-system) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4596 (cpr (apply |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4597 'call-process-region |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4598 (append |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4599 (list (point-min) (point-max) |
72636
cbdca6c6638d
* message.el (message-send-mail-with-sendmail): Look for sendmail in
Chong Yidong <cyd@stupidchicken.com>
parents:
71398
diff
changeset
|
4600 (cond ((boundp 'sendmail-program) |
cbdca6c6638d
* message.el (message-send-mail-with-sendmail): Look for sendmail in
Chong Yidong <cyd@stupidchicken.com>
parents:
71398
diff
changeset
|
4601 sendmail-program) |
cbdca6c6638d
* message.el (message-send-mail-with-sendmail): Look for sendmail in
Chong Yidong <cyd@stupidchicken.com>
parents:
71398
diff
changeset
|
4602 ((file-exists-p "/usr/sbin/sendmail") |
cbdca6c6638d
* message.el (message-send-mail-with-sendmail): Look for sendmail in
Chong Yidong <cyd@stupidchicken.com>
parents:
71398
diff
changeset
|
4603 "/usr/sbin/sendmail") |
cbdca6c6638d
* message.el (message-send-mail-with-sendmail): Look for sendmail in
Chong Yidong <cyd@stupidchicken.com>
parents:
71398
diff
changeset
|
4604 ((file-exists-p "/usr/lib/sendmail") |
cbdca6c6638d
* message.el (message-send-mail-with-sendmail): Look for sendmail in
Chong Yidong <cyd@stupidchicken.com>
parents:
71398
diff
changeset
|
4605 "/usr/lib/sendmail") |
cbdca6c6638d
* message.el (message-send-mail-with-sendmail): Look for sendmail in
Chong Yidong <cyd@stupidchicken.com>
parents:
71398
diff
changeset
|
4606 ((file-exists-p "/usr/ucblib/sendmail") |
cbdca6c6638d
* message.el (message-send-mail-with-sendmail): Look for sendmail in
Chong Yidong <cyd@stupidchicken.com>
parents:
71398
diff
changeset
|
4607 "/usr/ucblib/sendmail") |
cbdca6c6638d
* message.el (message-send-mail-with-sendmail): Look for sendmail in
Chong Yidong <cyd@stupidchicken.com>
parents:
71398
diff
changeset
|
4608 (t "fakemail")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4609 nil errbuf nil "-oi") |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4610 message-sendmail-extra-arguments |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4611 ;; Always specify who from, |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4612 ;; since some systems have broken sendmails. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4613 ;; But some systems are more broken with -f, so |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4614 ;; we'll let users override this. |
106118
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
4615 (and (null message-sendmail-f-is-evil) |
8542a4738a96
* message.el (message-from-style, message-interactive)
Chong Yidong <cyd@stupidchicken.com>
parents:
105167
diff
changeset
|
4616 (list "-f" (message-sendmail-envelope-from))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4617 ;; These mean "report errors by mail" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4618 ;; and "deliver in background". |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4619 (if (null message-interactive) '("-oem" "-odb")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4620 ;; Get the addresses from the message |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4621 ;; unless this is a resend. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4622 ;; We must not do that for a resend |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4623 ;; because we would find the original addresses. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4624 ;; For a resend, include the specific addresses. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4625 (if resend-to-addresses |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4626 (list resend-to-addresses) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4627 '("-t")))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4628 (unless (or (null cpr) (and (numberp cpr) (zerop cpr))) |
96596
fe7840feb64b
(message-send-mail-with-sendmail): Display the error message.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
96376
diff
changeset
|
4629 (if errbuf (pop-to-buffer errbuf)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4630 (error "Sending...failed with exit value %d" cpr))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4631 (when message-interactive |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
4632 (with-current-buffer errbuf |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4633 (goto-char (point-min)) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4634 (while (re-search-forward "\n+ *" nil t) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4635 (replace-match "; ")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4636 (if (not (zerop (buffer-size))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4637 (error "Sending...failed to %s" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4638 (buffer-string)))))) |
17493 | 4639 (when (bufferp errbuf) |
4640 (kill-buffer errbuf))))) | |
4641 | |
4642 (defun message-send-mail-with-qmail () | |
4643 "Pass the prepared message buffer to qmail-inject. | |
4644 Refer to the documentation for the variable `message-send-mail-function' | |
4645 to find out how to use this." | |
4646 ;; replace the header delimiter with a blank line | |
4647 (goto-char (point-min)) | |
4648 (re-search-forward | |
4649 (concat "^" (regexp-quote mail-header-separator) "\n")) | |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4650 (replace-match "\n") |
17493 | 4651 (run-hooks 'message-send-mail-hook) |
4652 ;; send the message | |
4653 (case | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4654 (let ((coding-system-for-write message-send-coding-system)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4655 (apply |
56947
a1a3a7ab3bad
(message-tokenize-header, message-send-mail-with-qmail):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56927
diff
changeset
|
4656 'call-process-region (point-min) (point-max) |
a1a3a7ab3bad
(message-tokenize-header, message-send-mail-with-qmail):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56927
diff
changeset
|
4657 message-qmail-inject-program nil nil nil |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
95820
diff
changeset
|
4658 ;; qmail-inject's default behavior is to look for addresses on the |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4659 ;; command line; if there're none, it scans the headers. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4660 ;; yes, it does The Right Thing w.r.t. Resent-To and it's kin. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4661 ;; |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4662 ;; in general, ALL of qmail-inject's defaults are perfect for simply |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4663 ;; reading a formatted (i. e., at least a To: or Resent-To header) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4664 ;; message from stdin. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4665 ;; |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4666 ;; qmail also has the advantage of not having been raped by |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4667 ;; various vendors, so we don't have to allow for that, either -- |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4668 ;; compare this with message-send-mail-with-sendmail and weep |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4669 ;; for sendmail's lost innocence. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4670 ;; |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4671 ;; all this is way cool coz it lets us keep the arguments entirely |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4672 ;; free for -inject-arguments -- a big win for the user and for us |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4673 ;; since we don't have to play that double-guessing game and the user |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4674 ;; gets full control (no gestapo'ish -f's, for instance). --sj |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4675 (if (functionp message-qmail-inject-args) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4676 (funcall message-qmail-inject-args) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
4677 message-qmail-inject-args))) |
17493 | 4678 ;; qmail-inject doesn't say anything on it's stdout/stderr, |
4679 ;; we have to look at the retval instead | |
4680 (0 nil) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4681 (100 (error "qmail-inject reported permanent failure")) |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
4682 (111 (error "qmail-inject reported transient failure")) |
17493 | 4683 ;; should never happen |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
4684 (t (error "qmail-inject reported unknown failure")))) |
17493 | 4685 |
4686 (defun message-send-mail-with-mh () | |
4687 "Send the prepared message buffer with mh." | |
4688 (let ((mh-previous-window-config nil) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4689 (name (mh-new-draft-name))) |
17493 | 4690 (setq buffer-file-name name) |
4691 ;; MH wants to generate these headers itself. | |
4692 (when message-mh-deletable-headers | |
4693 (let ((headers message-mh-deletable-headers)) | |
4694 (while headers | |
4695 (goto-char (point-min)) | |
4696 (and (re-search-forward | |
4697 (concat "^" (symbol-name (car headers)) ": *") nil t) | |
4698 (message-delete-line)) | |
4699 (pop headers)))) | |
4700 (run-hooks 'message-send-mail-hook) | |
4701 ;; Pass it on to mh. | |
4702 (mh-send-letter))) | |
4703 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4704 (defun message-smtpmail-send-it () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4705 "Send the prepared message buffer with `smtpmail-send-it'. |
107211 | 4706 The only difference from `smtpmail-send-it' is that this command |
4707 evaluates `message-send-mail-hook' just before sending a message. | |
4708 It is useful if your ISP requires the POP-before-SMTP | |
4709 authentication. See the Gnus manual for details." | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4710 (run-hooks 'message-send-mail-hook) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4711 (smtpmail-send-it)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4712 |
86254
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
4713 (defun message-send-mail-with-mailclient () |
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
4714 "Send the prepared message buffer with `mailclient-send-it'. |
107211 | 4715 The only difference from `mailclient-send-it' is that this |
4716 command evaluates `message-send-mail-hook' just before sending a message." | |
86254
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
4717 (run-hooks 'message-send-mail-hook) |
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
4718 (mailclient-send-it)) |
0d061e2dce73
(message-send-mail-function): New function.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
86154
diff
changeset
|
4719 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4720 (defun message-canlock-generate () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4721 "Return a string that is non-trivial to guess. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4722 Do not use this for anything important, it is cryptographically weak." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4723 (require 'sha1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4724 (let (sha1-maximum-internal-length) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4725 (sha1 (concat (message-unique-id) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4726 (format "%x%x%x" (random) (random t) (random)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4727 (prin1-to-string (recent-keys)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4728 (prin1-to-string (garbage-collect)))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4729 |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4730 (defvar canlock-password) |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4731 (defvar canlock-password-for-verify) |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4732 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4733 (defun message-canlock-password () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4734 "The password used by message for cancel locks. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4735 This is the value of `canlock-password', if that option is non-nil. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4736 Otherwise, generate and save a value for `canlock-password' first." |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4737 (require 'canlock) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4738 (unless canlock-password |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4739 (customize-save-variable 'canlock-password (message-canlock-generate)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4740 (setq canlock-password-for-verify canlock-password)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4741 canlock-password) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4742 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4743 (defun message-insert-canlock () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4744 (when message-insert-canlock |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4745 (message-canlock-password) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4746 (canlock-insert-header))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4747 |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4748 (autoload 'nnheader-get-report "nnheader") |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4749 |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4750 (declare-function gnus-setup-posting-charset "gnus-msg" (group)) |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4751 |
17493 | 4752 (defun message-send-news (&optional arg) |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
4753 (require 'gnus-msg) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4754 (let* ((tembuf (message-generate-new-buffer-clone-locals " *message temp*")) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4755 (case-fold-search nil) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4756 (method (if (functionp message-post-method) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4757 (funcall message-post-method arg) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4758 message-post-method)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4759 (newsgroups-field (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4760 (message-narrow-to-headers-or-head) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4761 (message-fetch-field "Newsgroups"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4762 (followup-field (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4763 (message-narrow-to-headers-or-head) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4764 (message-fetch-field "Followup-To"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4765 ;; BUG: We really need to get the charset for each name in the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4766 ;; Newsgroups and Followup-To lines to allow crossposting |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4767 ;; between group namess with incompatible character sets. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4768 ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2001-10-08. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4769 (group-field-charset |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4770 (gnus-group-name-charset method newsgroups-field)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4771 (followup-field-charset |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4772 (gnus-group-name-charset method (or followup-field ""))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4773 (rfc2047-header-encoding-alist |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4774 (append (when group-field-charset |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4775 (list (cons "Newsgroups" group-field-charset))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4776 (when followup-field-charset |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4777 (list (cons "Followup-To" followup-field-charset))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4778 rfc2047-header-encoding-alist)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4779 (messbuf (current-buffer)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4780 (message-syntax-checks |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4781 (if (and arg |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4782 (listp message-syntax-checks)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4783 (cons '(existing-newsgroups . disabled) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4784 message-syntax-checks) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4785 message-syntax-checks)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4786 (message-this-is-news t) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4787 (message-posting-charset |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4788 (gnus-setup-posting-charset newsgroups-field)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4789 result) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4790 (if (not (message-check-news-body-syntax)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4791 nil |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4792 (save-restriction |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4793 (message-narrow-to-headers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4794 ;; Insert some headers. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4795 (message-generate-headers message-required-news-headers) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4796 (message-insert-canlock) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4797 ;; Let the user do all of the above. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4798 (run-hooks 'message-header-hook)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4799 ;; Note: This check will be disabled by the ".*" default value for |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4800 ;; gnus-group-name-charset-group-alist. -- Pa 2001-10-07. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4801 (when (and group-field-charset |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4802 (listp message-syntax-checks)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4803 (setq message-syntax-checks |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4804 (cons '(valid-newsgroups . disabled) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4805 message-syntax-checks))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4806 (message-cleanup-headers) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4807 (if (not (let ((message-post-method method)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4808 (message-check-news-syntax))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4809 nil |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4810 (unwind-protect |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
4811 (with-current-buffer tembuf |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4812 (buffer-disable-undo) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4813 (erase-buffer) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4814 ;; Avoid copying text props (except hard newlines). |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4815 (insert |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4816 (with-current-buffer messbuf |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4817 (mml-buffer-substring-no-properties-except-hard-newlines |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4818 (point-min) (point-max)))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4819 (message-encode-message-body) |
17493 | 4820 ;; Remove some headers. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4821 (save-restriction |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4822 (message-narrow-to-headers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4823 ;; We (re)generate the Lines header. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4824 (when (memq 'Lines message-required-mail-headers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4825 (message-generate-headers '(Lines))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4826 ;; Remove some headers. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4827 (message-remove-header message-ignored-news-headers t) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4828 (let ((mail-parse-charset message-default-charset)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4829 (mail-encode-encoded-word-buffer))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4830 (goto-char (point-max)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4831 ;; require one newline at the end. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4832 (or (= (preceding-char) ?\n) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4833 (insert ?\n)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4834 (let ((case-fold-search t)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4835 ;; Remove the delimiter. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4836 (goto-char (point-min)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4837 (re-search-forward |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4838 (concat "^" (regexp-quote mail-header-separator) "\n")) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4839 (replace-match "\n") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4840 (backward-char 1)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4841 (run-hooks 'message-send-news-hook) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4842 (gnus-open-server method) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4843 (message "Sending news via %s..." (gnus-server-string method)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4844 (setq result (let ((mail-header-separator "")) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4845 (gnus-request-post method)))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4846 (kill-buffer tembuf)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4847 (set-buffer messbuf) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4848 (if result |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4849 (push 'news message-sent-message-via) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4850 (message "Couldn't send message via news: %s" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4851 (nnheader-get-report (car method))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4852 nil))))) |
17493 | 4853 |
4854 ;;; | |
4855 ;;; Header generation & syntax checking. | |
4856 ;;; | |
4857 | |
4858 (defun message-check-element (type) | |
35147 | 4859 "Return non-nil if this TYPE is not to be checked." |
17493 | 4860 (if (eq message-syntax-checks 'dont-check-for-anything-just-trust-me) |
4861 t | |
4862 (let ((able (assq type message-syntax-checks))) | |
4863 (and (consp able) | |
4864 (eq (cdr able) 'disabled))))) | |
4865 | |
4866 (defun message-check-news-syntax () | |
4867 "Check the syntax of the message." | |
4868 (save-excursion | |
4869 (save-restriction | |
4870 (widen) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4871 ;; We narrow to the headers and check them first. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4872 (save-excursion |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4873 (save-restriction |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4874 (message-narrow-to-headers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4875 (message-check-news-header-syntax)))))) |
17493 | 4876 |
4877 (defun message-check-news-header-syntax () | |
4878 (and | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4879 ;; Check Newsgroups header. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4880 (message-check 'newsgroups |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4881 (let ((group (message-fetch-field "newsgroups"))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4882 (or |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4883 (and group |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4884 (not (string-match "\\`[ \t]*\\'" group))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4885 (ignore |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4886 (message |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4887 "The newsgroups field is empty or missing. Posting is denied."))))) |
17493 | 4888 ;; Check the Subject header. |
4889 (message-check 'subject | |
4890 (let* ((case-fold-search t) | |
4891 (subject (message-fetch-field "subject"))) | |
4892 (or | |
4893 (and subject | |
4894 (not (string-match "\\`[ \t]*\\'" subject))) | |
4895 (ignore | |
4896 (message | |
4897 "The subject field is empty or missing. Posting is denied."))))) | |
4898 ;; Check for commands in Subject. | |
4899 (message-check 'subject-cmsg | |
4900 (if (string-match "^cmsg " (message-fetch-field "subject")) | |
4901 (y-or-n-p | |
4902 "The control code \"cmsg\" is in the subject. Really post? ") | |
4903 t)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4904 ;; Check long header lines. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4905 (message-check 'long-header-lines |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4906 (let ((start (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4907 (header nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4908 (length 0) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4909 found) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4910 (while (and (not found) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4911 (re-search-forward "^\\([^ \t:]+\\): " nil t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4912 (if (> (- (point) (match-beginning 0)) 998) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4913 (setq found t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4914 length (- (point) (match-beginning 0))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4915 (setq header (match-string-no-properties 1))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4916 (setq start (match-beginning 0)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4917 (forward-line 1)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4918 (if found |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4919 (y-or-n-p (format "Your %s header is too long (%d). Really post? " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4920 header length)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4921 t))) |
17493 | 4922 ;; Check for multiple identical headers. |
4923 (message-check 'multiple-headers | |
4924 (let (found) | |
4925 (while (and (not found) | |
4926 (re-search-forward "^[^ \t:]+: " nil t)) | |
4927 (save-excursion | |
4928 (or (re-search-forward | |
4929 (concat "^" | |
4930 (regexp-quote | |
4931 (setq found | |
4932 (buffer-substring | |
4933 (match-beginning 0) (- (match-end 0) 2)))) | |
4934 ":") | |
4935 nil t) | |
4936 (setq found nil)))) | |
4937 (if found | |
4938 (y-or-n-p (format "Multiple %s headers. Really post? " found)) | |
4939 t))) | |
4940 ;; Check for Version and Sendsys. | |
4941 (message-check 'sendsys | |
4942 (if (re-search-forward "^Sendsys:\\|^Version:" nil t) | |
4943 (y-or-n-p | |
4944 (format "The article contains a %s command. Really post? " | |
4945 (buffer-substring (match-beginning 0) | |
4946 (1- (match-end 0))))) | |
4947 t)) | |
4948 ;; See whether we can shorten Followup-To. | |
4949 (message-check 'shorten-followup-to | |
4950 (let ((newsgroups (message-fetch-field "newsgroups")) | |
4951 (followup-to (message-fetch-field "followup-to")) | |
4952 to) | |
4953 (when (and newsgroups | |
4954 (string-match "," newsgroups) | |
4955 (not followup-to) | |
4956 (not | |
4957 (zerop | |
4958 (length | |
4959 (setq to (completing-read | |
65682
c16795de963a
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents:
65342
diff
changeset
|
4960 "Followups to (default no Followup-To header): " |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4961 (mapcar #'list |
17493 | 4962 (cons "poster" |
4963 (message-tokenize-header | |
4964 newsgroups))))))))) | |
4965 (goto-char (point-min)) | |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
4966 (insert "Followup-To: " to "\n")) |
17493 | 4967 t)) |
4968 ;; Check "Shoot me". | |
4969 (message-check 'shoot | |
4970 (if (re-search-forward | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
4971 "Message-ID.*.i-did-not-set--mail-host-address--so-tickle-me" nil t) |
17493 | 4972 (y-or-n-p "You appear to have a misconfigured system. Really post? ") |
4973 t)) | |
4974 ;; Check for Approved. | |
4975 (message-check 'approved | |
4976 (if (re-search-forward "^Approved:" nil t) | |
4977 (y-or-n-p "The article contains an Approved header. Really post? ") | |
4978 t)) | |
4979 ;; Check the Message-ID header. | |
4980 (message-check 'message-id | |
4981 (let* ((case-fold-search t) | |
4982 (message-id (message-fetch-field "message-id" t))) | |
4983 (or (not message-id) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4984 ;; Is there an @ in the ID? |
17493 | 4985 (and (string-match "@" message-id) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4986 ;; Is there a dot in the ID? |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4987 (string-match "@[^.]*\\." message-id) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4988 ;; Does the ID end with a dot? |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
4989 (not (string-match "\\.>" message-id))) |
17493 | 4990 (y-or-n-p |
4991 (format "The Message-ID looks strange: \"%s\". Really post? " | |
4992 message-id))))) | |
4993 ;; Check the Newsgroups & Followup-To headers. | |
4994 (message-check 'existing-newsgroups | |
4995 (let* ((case-fold-search t) | |
4996 (newsgroups (message-fetch-field "newsgroups")) | |
4997 (followup-to (message-fetch-field "followup-to")) | |
4998 (groups (message-tokenize-header | |
4999 (if followup-to | |
5000 (concat newsgroups "," followup-to) | |
5001 newsgroups))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5002 (post-method (if (functionp message-post-method) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5003 (funcall message-post-method) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5004 message-post-method)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5005 ;; KLUDGE to handle nnvirtual groups. Doing this right |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5006 ;; would probably involve a new nnoo function. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5007 ;; -- Per Abrahamsen <abraham@dina.kvl.dk>, 2001-10-17. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5008 (method (if (and (consp post-method) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5009 (eq (car post-method) 'nnvirtual) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5010 gnus-message-group-art) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5011 (let ((group (car (nnvirtual-find-group-art |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5012 (car gnus-message-group-art) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5013 (cdr gnus-message-group-art))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5014 (gnus-find-method-for-group group)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5015 post-method)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5016 (known-groups |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5017 (mapcar (lambda (n) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5018 (gnus-group-name-decode |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5019 (gnus-group-real-name n) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5020 (gnus-group-name-charset method n))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5021 (gnus-groups-from-server method))) |
17493 | 5022 errors) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5023 (while groups |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5024 (when (and (not (equal (car groups) "poster")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5025 (not (member (car groups) known-groups)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5026 (not (member (car groups) errors))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5027 (push (car groups) errors)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5028 (pop groups)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5029 (cond |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5030 ;; Gnus is not running. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5031 ((or (not (and (boundp 'gnus-active-hashtb) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5032 gnus-active-hashtb)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5033 (not (boundp 'gnus-read-active-file))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5034 t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5035 ;; We don't have all the group names. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5036 ((and (or (not gnus-read-active-file) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5037 (eq gnus-read-active-file 'some)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5038 errors) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5039 (y-or-n-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5040 (format |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5041 "Really use %s possibly unknown group%s: %s? " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5042 (if (= (length errors) 1) "this" "these") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5043 (if (= (length errors) 1) "" "s") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5044 (mapconcat 'identity errors ", ")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5045 ;; There were no errors. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5046 ((not errors) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5047 t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5048 ;; There are unknown groups. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5049 (t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5050 (y-or-n-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5051 (format |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5052 "Really post to %s unknown group%s: %s? " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5053 (if (= (length errors) 1) "this" "these") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5054 (if (= (length errors) 1) "" "s") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5055 (mapconcat 'identity errors ", "))))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5056 ;; Check continuation headers. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5057 (message-check 'continuation-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5058 (goto-char (point-min)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5059 (let ((do-posting t)) |
71379 | 5060 (while (re-search-forward "^[^ \t\n][^ \t\n:]*[ \t\n]" nil t) |
5061 (goto-char (match-beginning 0)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5062 (if (y-or-n-p "Fix continuation lines? ") |
71379 | 5063 (insert " ") |
5064 (forward-line 1) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5065 (unless (y-or-n-p "Send anyway? ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5066 (setq do-posting nil)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5067 do-posting)) |
17493 | 5068 ;; Check the Newsgroups & Followup-To headers for syntax errors. |
5069 (message-check 'valid-newsgroups | |
5070 (let ((case-fold-search t) | |
5071 (headers '("Newsgroups" "Followup-To")) | |
5072 header error) | |
5073 (while (and headers (not error)) | |
5074 (when (setq header (mail-fetch-field (car headers))) | |
5075 (if (or | |
5076 (not | |
5077 (string-match | |
5078 "\\`\\([-+_&.a-zA-Z0-9]+\\)?\\(,[-+_&.a-zA-Z0-9]+\\)*\\'" | |
5079 header)) | |
5080 (memq | |
5081 nil (mapcar | |
5082 (lambda (g) | |
5083 (not (string-match "\\.\\'\\|\\.\\." g))) | |
5084 (message-tokenize-header header ",")))) | |
5085 (setq error t))) | |
5086 (unless error | |
5087 (pop headers))) | |
5088 (if (not error) | |
5089 t | |
5090 (y-or-n-p | |
5091 (format "The %s header looks odd: \"%s\". Really post? " | |
5092 (car headers) header))))) | |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5093 (message-check 'repeated-newsgroups |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5094 (let ((case-fold-search t) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5095 (headers '("Newsgroups" "Followup-To")) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5096 header error groups group) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5097 (while (and headers |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5098 (not error)) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5099 (when (setq header (mail-fetch-field (pop headers))) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5100 (setq groups (message-tokenize-header header ",")) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5101 (while (setq group (pop groups)) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5102 (when (member group groups) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5103 (setq error group |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5104 groups nil))))) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5105 (if (not error) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5106 t |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5107 (y-or-n-p |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5108 (format "Group %s is repeated in headers. Really post? " error))))) |
17493 | 5109 ;; Check the From header. |
5110 (message-check 'from | |
5111 (let* ((case-fold-search t) | |
5112 (from (message-fetch-field "from")) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5113 ad) |
17493 | 5114 (cond |
5115 ((not from) | |
5116 (message "There is no From line. Posting is denied.") | |
5117 nil) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5118 ((or (not (string-match |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5119 "@[^\\.]*\\." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5120 (setq ad (nth 1 (mail-extract-address-components |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5121 from))))) ;larsi@ifi |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5122 (string-match "\\.\\." ad) ;larsi@ifi..uio |
17493 | 5123 (string-match "@\\." ad) ;larsi@.ifi.uio |
5124 (string-match "\\.$" ad) ;larsi@ifi.uio. | |
5125 (not (string-match "^[^@]+@[^@]+$" ad)) ;larsi.ifi.uio | |
5126 (string-match "(.*).*(.*)" from)) ;(lars) (lars) | |
5127 (message | |
5128 "Denied posting -- the From looks strange: \"%s\"." from) | |
5129 nil) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5130 ((let ((addresses (rfc822-addresses from))) |
106746 | 5131 ;; `rfc822-addresses' returns a string if parsing fails. |
5132 (while (and (consp addresses) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5133 (not (eq (string-to-char (car addresses)) ?\())) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5134 (setq addresses (cdr addresses))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5135 addresses) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5136 (message |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5137 "Denied posting -- bad From address: \"%s\"." from) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5138 nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5139 (t t)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5140 ;; Check the Reply-To header. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5141 (message-check 'reply-to |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5142 (let* ((case-fold-search t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5143 (reply-to (message-fetch-field "reply-to")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5144 ad) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5145 (cond |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5146 ((not reply-to) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5147 t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5148 ((string-match "," reply-to) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5149 (y-or-n-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5150 (format "Multiple Reply-To addresses: \"%s\". Really post? " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5151 reply-to))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5152 ((or (not (string-match |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5153 "@[^\\.]*\\." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5154 (setq ad (nth 1 (mail-extract-address-components |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5155 reply-to))))) ;larsi@ifi |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5156 (string-match "\\.\\." ad) ;larsi@ifi..uio |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5157 (string-match "@\\." ad) ;larsi@.ifi.uio |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5158 (string-match "\\.$" ad) ;larsi@ifi.uio. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5159 (not (string-match "^[^@]+@[^@]+$" ad)) ;larsi.ifi.uio |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5160 (string-match "(.*).*(.*)" reply-to)) ;(lars) (lars) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5161 (y-or-n-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5162 (format |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5163 "The Reply-To looks strange: \"%s\". Really post? " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5164 reply-to))) |
17493 | 5165 (t t)))))) |
5166 | |
5167 (defun message-check-news-body-syntax () | |
5168 (and | |
5169 ;; Check for long lines. | |
5170 (message-check 'long-lines | |
5171 (goto-char (point-min)) | |
5172 (re-search-forward | |
5173 (concat "^" (regexp-quote mail-header-separator) "$")) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5174 (forward-line 1) |
17493 | 5175 (while (and |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5176 (or (looking-at |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5177 "<#\\(/\\)?\\(multipart\\|part\\|external\\|mml\\)") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5178 (let ((p (point))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5179 (end-of-line) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5180 (< (- (point) p) 80))) |
17493 | 5181 (zerop (forward-line 1)))) |
5182 (or (bolp) | |
5183 (eobp) | |
5184 (y-or-n-p | |
5185 "You have lines longer than 79 characters. Really post? "))) | |
5186 ;; Check whether the article is empty. | |
5187 (message-check 'empty | |
5188 (goto-char (point-min)) | |
5189 (re-search-forward | |
5190 (concat "^" (regexp-quote mail-header-separator) "$")) | |
5191 (forward-line 1) | |
5192 (let ((b (point))) | |
5193 (goto-char (point-max)) | |
5194 (re-search-backward message-signature-separator nil t) | |
5195 (beginning-of-line) | |
5196 (or (re-search-backward "[^ \n\t]" b t) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5197 (if (message-gnksa-enable-p 'empty-article) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5198 (y-or-n-p "Empty article. Really post? ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5199 (message "Denied posting -- Empty article.") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5200 nil)))) |
17493 | 5201 ;; Check for control characters. |
5202 (message-check 'control-chars | |
57321
3381cb76bac3
* gnus-group.el (gnus-update-group-mark-positions):
Juri Linkov <juri@jurta.org>
parents:
57243
diff
changeset
|
5203 (if (re-search-forward |
85766
68503cda7180
(message-check-news-body-syntax): Avoid mm-string-as-multibyte.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85712
diff
changeset
|
5204 (mm-string-to-multibyte "[\000-\007\013\015-\032\034-\037\200-\237]") |
57321
3381cb76bac3
* gnus-group.el (gnus-update-group-mark-positions):
Juri Linkov <juri@jurta.org>
parents:
57243
diff
changeset
|
5205 nil t) |
17493 | 5206 (y-or-n-p |
5207 "The article contains control characters. Really post? ") | |
5208 t)) | |
5209 ;; Check excessive size. | |
5210 (message-check 'size | |
5211 (if (> (buffer-size) 60000) | |
5212 (y-or-n-p | |
5213 (format "The article is %d octets long. Really post? " | |
5214 (buffer-size))) | |
5215 t)) | |
5216 ;; Check whether any new text has been added. | |
5217 (message-check 'new-text | |
5218 (or | |
5219 (not message-checksum) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5220 (not (eq (message-checksum) message-checksum)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5221 (if (message-gnksa-enable-p 'quoted-text-only) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5222 (y-or-n-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5223 "It looks like no new text has been added. Really post? ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5224 (message "Denied posting -- no new text has been added.") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5225 nil))) |
17493 | 5226 ;; Check the length of the signature. |
5227 (message-check 'signature | |
100993 | 5228 (let (sig-start sig-end) |
5229 (goto-char (point-max)) | |
5230 (if (not (re-search-backward message-signature-separator nil t)) | |
5231 t | |
5232 (setq sig-start (1+ (point-at-eol))) | |
5233 (setq sig-end | |
5234 (if (re-search-forward | |
5235 "<#/?\\(multipart\\|part\\|external\\|mml\\)" nil t) | |
5236 (- (point-at-bol) 1) | |
5237 (point-max))) | |
5238 (if (>= (count-lines sig-start sig-end) 5) | |
5239 (if (message-gnksa-enable-p 'signature) | |
5240 (y-or-n-p | |
5241 (format "Signature is excessively long (%d lines). Really post? " | |
5242 (count-lines sig-start sig-end))) | |
5243 (message "Denied posting -- Excessive signature.") | |
5244 nil) | |
5245 t)))) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5246 ;; Ensure that text follows last quoted portion. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5247 (message-check 'quoting-style |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5248 (goto-char (point-max)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5249 (let ((no-problem t)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5250 (when (search-backward-regexp "^>[^\n]*\n" nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5251 (setq no-problem (search-forward-regexp "^[ \t]*[^>\n]" nil t))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5252 (if no-problem |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5253 t |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5254 (if (message-gnksa-enable-p 'quoted-text-only) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5255 (y-or-n-p "Your text should follow quoted text. Really post? ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5256 ;; Ensure that |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5257 (goto-char (point-min)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5258 (re-search-forward |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5259 (concat "^" (regexp-quote mail-header-separator) "$")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5260 (if (search-forward-regexp "^[ \t]*[^>\n]" nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5261 (y-or-n-p "Your text should follow quoted text. Really post? ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5262 (message "Denied posting -- only quoted text.") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5263 nil))))))) |
17493 | 5264 |
5265 (defun message-checksum () | |
5266 "Return a \"checksum\" for the current buffer." | |
5267 (let ((sum 0)) | |
5268 (save-excursion | |
5269 (goto-char (point-min)) | |
5270 (re-search-forward | |
5271 (concat "^" (regexp-quote mail-header-separator) "$")) | |
5272 (while (not (eobp)) | |
5273 (when (not (looking-at "[ \t\n]")) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5274 (setq sum (logxor (ash sum 1) (if (natnump sum) 0 1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5275 (char-after)))) |
17493 | 5276 (forward-char 1))) |
5277 sum)) | |
5278 | |
5279 (defun message-do-fcc () | |
5280 "Process Fcc headers in the current buffer." | |
5281 (let ((case-fold-search t) | |
5282 (buf (current-buffer)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5283 list file |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5284 (mml-externalize-attachments message-fcc-externalize-attachments)) |
17493 | 5285 (save-excursion |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5286 (save-restriction |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5287 (message-narrow-to-headers) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5288 (setq file (message-fetch-field "fcc" t))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5289 (when file |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5290 (set-buffer (get-buffer-create " *message temp*")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5291 (erase-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5292 (insert-buffer-substring buf) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5293 (message-encode-message-body) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5294 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5295 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5296 (while (setq file (message-fetch-field "fcc" t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5297 (push file list) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5298 (message-remove-header "fcc" nil t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5299 (let ((mail-parse-charset message-default-charset) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5300 (rfc2047-header-encoding-alist |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5301 (cons '("Newsgroups" . default) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5302 rfc2047-header-encoding-alist))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5303 (mail-encode-encoded-word-buffer))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5304 (goto-char (point-min)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5305 (when (re-search-forward |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5306 (concat "^" (regexp-quote mail-header-separator) "$") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5307 nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5308 (replace-match "" t t )) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5309 ;; Process FCC operations. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5310 (while list |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5311 (setq file (pop list)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5312 (if (string-match "^[ \t]*|[ \t]*\\(.*\\)[ \t]*$" file) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5313 ;; Pipe the article to the program in question. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5314 (call-process-region (point-min) (point-max) shell-file-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5315 nil nil nil shell-command-switch |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5316 (match-string 1 file)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5317 ;; Save the article. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5318 (setq file (expand-file-name file)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5319 (unless (file-exists-p (file-name-directory file)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5320 (make-directory (file-name-directory file) t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5321 (if (and message-fcc-handler-function |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5322 (not (eq message-fcc-handler-function 'rmail-output))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5323 (funcall message-fcc-handler-function file) |
102061 | 5324 ;; FIXME this option, rmail-output (also used if |
5325 ;; message-fcc-handler-function is nil) is not | |
5326 ;; documented anywhere AFAICS. It should work in Emacs | |
5327 ;; 23; I suspect it does not work in Emacs 22. | |
5328 ;; FIXME I don't see the need for the two different cases here. | |
5329 ;; mail-use-rfc822 makes no difference (in Emacs 23),and | |
5330 ;; the third argument just controls \"Wrote file\" message. | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5331 (if (and (file-readable-p file) (mail-file-babyl-p file)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5332 (rmail-output file 1 nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5333 (let ((mail-use-rfc822 t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5334 (rmail-output file 1 t t)))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5335 (kill-buffer (current-buffer)))))) |
17493 | 5336 |
5337 (defun message-output (filename) | |
35147 | 5338 "Append this article to Unix/babyl mail file FILENAME." |
17493 | 5339 (if (and (file-readable-p filename) |
5340 (mail-file-babyl-p filename)) | |
5341 (gnus-output-to-rmail filename t) | |
5342 (gnus-output-to-mail filename t))) | |
5343 | |
5344 (defun message-cleanup-headers () | |
5345 "Do various automatic cleanups of the headers." | |
5346 ;; Remove empty lines in the header. | |
5347 (save-restriction | |
5348 (message-narrow-to-headers) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5349 ;; Remove blank lines. |
17493 | 5350 (while (re-search-forward "^[ \t]*\n" nil t) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5351 (replace-match "" t t)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5352 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5353 ;; Correct Newsgroups and Followup-To headers: Change sequence of |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5354 ;; spaces to comma and eliminate spaces around commas. Eliminate |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5355 ;; embedded line breaks. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5356 (goto-char (point-min)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5357 (while (re-search-forward "^\\(Newsgroups\\|Followup-To\\): +" nil t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5358 (save-restriction |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5359 (narrow-to-region |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5360 (point) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5361 (if (re-search-forward "^[^ \t]" nil t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5362 (match-beginning 0) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5363 (forward-line 1) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5364 (point))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5365 (goto-char (point-min)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5366 (while (re-search-forward "\n[ \t]+" nil t) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5367 (replace-match " " t t)) ;No line breaks (too confusing) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5368 (goto-char (point-min)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5369 (while (re-search-forward "[ \t\n]*,[ \t\n]*\\|[ \t]+" nil t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5370 (replace-match "," t t)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5371 (goto-char (point-min)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5372 ;; Remove trailing commas. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5373 (when (re-search-forward ",+$" nil t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5374 (replace-match "" t t)))))) |
17493 | 5375 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5376 (defun message-make-date (&optional now) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5377 "Make a valid data header. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5378 If NOW, use that time instead." |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5379 (let ((system-time-locale "C")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5380 (format-time-string "%a, %d %b %Y %T %z" now))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5381 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5382 (defun message-insert-expires (days) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5383 "Insert the Expires header. Expiry in DAYS days." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5384 (interactive "NExpire article in how many days? ") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5385 (save-excursion |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5386 (message-position-on-field "Expires" "X-Draft-From") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5387 (insert (message-make-expires-date days)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5388 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5389 (defun message-make-expires-date (days) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5390 "Make date string for the Expires header. Expiry in DAYS days. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5391 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5392 In posting styles use `(\"Expires\" (make-expires-date 30))'." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5393 (let* ((cur (decode-time (current-time))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5394 (nday (+ days (nth 3 cur)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5395 (setf (nth 3 cur) nday) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5396 (message-make-date (apply 'encode-time cur)))) |
17493 | 5397 |
5398 (defun message-make-message-id () | |
5399 "Make a unique Message-ID." | |
5400 (concat "<" (message-unique-id) | |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5401 (let ((psubject (save-excursion (message-fetch-field "subject"))) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5402 (psupersedes |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5403 (save-excursion (message-fetch-field "supersedes")))) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5404 (if (or |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5405 (and message-reply-headers |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5406 (mail-header-references message-reply-headers) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5407 (mail-header-subject message-reply-headers) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5408 psubject |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5409 (not (string= |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5410 (message-strip-subject-re |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5411 (mail-header-subject message-reply-headers)) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5412 (message-strip-subject-re psubject)))) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5413 (and psupersedes |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5414 (string-match "_-_@" psupersedes))) |
17493 | 5415 "_-_" "")) |
5416 "@" (message-make-fqdn) ">")) | |
5417 | |
5418 (defvar message-unique-id-char nil) | |
5419 | |
5420 ;; If you ever change this function, make sure the new version | |
5421 ;; cannot generate IDs that the old version could. | |
5422 ;; You might for example insert a "." somewhere (not next to another dot | |
5423 ;; or string boundary), or modify the "fsf" string. | |
5424 (defun message-unique-id () | |
5425 ;; Don't use microseconds from (current-time), they may be unsupported. | |
5426 ;; Instead we use this randomly inited counter. | |
5427 (setq message-unique-id-char | |
5428 (% (1+ (or message-unique-id-char (logand (random t) (1- (lsh 1 20))))) | |
5429 ;; (current-time) returns 16-bit ints, | |
5430 ;; and 2^16*25 just fits into 4 digits i base 36. | |
5431 (* 25 25))) | |
5432 (let ((tm (current-time))) | |
5433 (concat | |
97142 | 5434 (if (or (memq system-type '(ms-dos emx)) |
69572
b4faac2800dd
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-163
Miles Bader <miles@gnu.org>
parents:
69135
diff
changeset
|
5435 ;; message-number-base36 doesn't handle bigints. |
b4faac2800dd
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-163
Miles Bader <miles@gnu.org>
parents:
69135
diff
changeset
|
5436 (floatp (user-uid))) |
17493 | 5437 (let ((user (downcase (user-login-name)))) |
5438 (while (string-match "[^a-z0-9_]" user) | |
5439 (aset user (match-beginning 0) ?_)) | |
5440 user) | |
5441 (message-number-base36 (user-uid) -1)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5442 (message-number-base36 (+ (car tm) |
17493 | 5443 (lsh (% message-unique-id-char 25) 16)) 4) |
5444 (message-number-base36 (+ (nth 1 tm) | |
5445 (lsh (/ message-unique-id-char 25) 16)) 4) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5446 ;; Append a given name, because while the generated ID is unique |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5447 ;; to this newsreader, other newsreaders might otherwise generate |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5448 ;; the same ID via another algorithm. |
17493 | 5449 ".fsf"))) |
5450 | |
5451 (defun message-number-base36 (num len) | |
5452 (if (if (< len 0) | |
5453 (<= num 0) | |
5454 (= len 0)) | |
5455 "" | |
5456 (concat (message-number-base36 (/ num 36) (1- len)) | |
5457 (char-to-string (aref "zyxwvutsrqponmlkjihgfedcba9876543210" | |
5458 (% num 36)))))) | |
5459 | |
5460 (defun message-make-organization () | |
5461 "Make an Organization header." | |
5462 (let* ((organization | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5463 (when message-user-organization |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5464 (if (functionp message-user-organization) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5465 (funcall message-user-organization) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5466 message-user-organization)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5467 (with-temp-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5468 (mm-enable-multibyte) |
17493 | 5469 (cond ((stringp organization) |
5470 (insert organization)) | |
5471 ((and (eq t organization) | |
5472 message-user-organization-file | |
5473 (file-exists-p message-user-organization-file)) | |
5474 (insert-file-contents message-user-organization-file))) | |
5475 (goto-char (point-min)) | |
5476 (while (re-search-forward "[\t\n]+" nil t) | |
5477 (replace-match "" t t)) | |
5478 (unless (zerop (buffer-size)) | |
5479 (buffer-string))))) | |
5480 | |
5481 (defun message-make-lines () | |
5482 "Count the number of lines and return numeric string." | |
5483 (save-excursion | |
5484 (save-restriction | |
5485 (widen) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5486 (message-goto-body) |
17493 | 5487 (int-to-string (count-lines (point) (point-max)))))) |
5488 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5489 (defun message-make-references () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5490 "Return the References header for this message." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5491 (when message-reply-headers |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
5492 (let ((message-id (mail-header-id message-reply-headers)) |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
5493 (references (mail-header-references message-reply-headers))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5494 (if (or references message-id) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5495 (concat (or references "") (and references " ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5496 (or message-id "")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5497 nil)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5498 |
17493 | 5499 (defun message-make-in-reply-to () |
5500 "Return the In-Reply-To header for this message." | |
5501 (when message-reply-headers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5502 (let ((from (mail-header-from message-reply-headers)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5503 (date (mail-header-date message-reply-headers)) |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
5504 (msg-id (mail-header-id message-reply-headers))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5505 (when from |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5506 (let ((name (mail-extract-address-components from))) |
76267 | 5507 (concat |
5508 msg-id (if msg-id " (") | |
5509 (if (car name) | |
5510 (if (string-match "[^\000-\177]" (car name)) | |
5511 ;; Quote a string containing non-ASCII characters. | |
5512 ;; It will make the RFC2047 encoder cause an error | |
5513 ;; if there are special characters. | |
93394
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5514 (mm-with-multibyte-buffer |
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5515 (insert (car name)) |
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5516 (goto-char (point-min)) |
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5517 (while (search-forward "\"" nil t) |
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5518 (when (prog2 |
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5519 (backward-char) |
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5520 (zerop (% (skip-chars-backward "\\\\") 2)) |
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5521 (goto-char (match-beginning 0))) |
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5522 (insert "\\")) |
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5523 (forward-char)) |
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5524 ;; Those quotes will be removed by the RFC2047 encoder. |
789028492ded
(message-make-in-reply-to): Use mm-with-multibyte-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93386
diff
changeset
|
5525 (concat "\"" (buffer-string) "\"")) |
76267 | 5526 (car name)) |
5527 (nth 1 name)) | |
5528 "'s message of \"" | |
5529 (if (or (not date) (string= date "")) | |
5530 "(unknown date)" date) | |
5531 "\"" (if msg-id ")"))))))) | |
17493 | 5532 |
5533 (defun message-make-distribution () | |
5534 "Make a Distribution header." | |
5535 (let ((orig-distribution (message-fetch-reply-field "distribution"))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5536 (cond ((functionp message-distribution-function) |
17493 | 5537 (funcall message-distribution-function)) |
5538 (t orig-distribution)))) | |
5539 | |
5540 (defun message-make-expires () | |
5541 "Return an Expires header based on `message-expires'." | |
5542 (let ((current (current-time)) | |
5543 (future (* 1.0 message-expires 60 60 24))) | |
5544 ;; Add the future to current. | |
5545 (setcar current (+ (car current) (round (/ future (expt 2 16))))) | |
5546 (setcar (cdr current) (+ (nth 1 current) (% (round future) (expt 2 16)))) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5547 (message-make-date current))) |
17493 | 5548 |
5549 (defun message-make-path () | |
5550 "Return uucp path." | |
5551 (let ((login-name (user-login-name))) | |
5552 (cond ((null message-user-path) | |
5553 (concat (system-name) "!" login-name)) | |
5554 ((stringp message-user-path) | |
5555 ;; Support GENERICPATH. Suggested by vixie@decwrl.dec.com. | |
5556 (concat message-user-path "!" login-name)) | |
5557 (t login-name)))) | |
5558 | |
85888 | 5559 (defun message-make-from (&optional name address) |
17493 | 5560 "Make a From header." |
5561 (let* ((style message-from-style) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5562 (login (or address (message-make-address))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5563 (fullname (or name |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5564 (and (boundp 'user-full-name) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5565 user-full-name) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5566 (user-full-name)))) |
17493 | 5567 (when (string= fullname "&") |
5568 (setq fullname (user-login-name))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5569 (with-temp-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5570 (mm-enable-multibyte) |
17493 | 5571 (cond |
5572 ((or (null style) | |
5573 (equal fullname "")) | |
5574 (insert login)) | |
5575 ((or (eq style 'angles) | |
5576 (and (not (eq style 'parens)) | |
5577 ;; Use angles if no quoting is needed, or if parens would | |
5578 ;; need quoting too. | |
5579 (or (not (string-match "[^- !#-'*+/-9=?A-Z^-~]" fullname)) | |
5580 (let ((tmp (concat fullname nil))) | |
5581 (while (string-match "([^()]*)" tmp) | |
5582 (aset tmp (match-beginning 0) ?-) | |
5583 (aset tmp (1- (match-end 0)) ?-)) | |
5584 (string-match "[\\()]" tmp))))) | |
5585 (insert fullname) | |
5586 (goto-char (point-min)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5587 ;; Look for a character that cannot appear unquoted |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5588 ;; according to RFC 822. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5589 (when (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]" nil 1) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5590 ;; Quote fullname, escaping specials. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5591 (goto-char (point-min)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5592 (insert "\"") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5593 (while (re-search-forward "[\"\\]" nil 1) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5594 (replace-match "\\\\\\&" t)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5595 (insert "\"")) |
17493 | 5596 (insert " <" login ">")) |
5597 (t ; 'parens or default | |
5598 (insert login " (") | |
5599 (let ((fullname-start (point))) | |
5600 (insert fullname) | |
5601 (goto-char fullname-start) | |
5602 ;; RFC 822 says \ and nonmatching parentheses | |
5603 ;; must be escaped in comments. | |
5604 ;; Escape every instance of ()\ ... | |
5605 (while (re-search-forward "[()\\]" nil 1) | |
5606 (replace-match "\\\\\\&" t)) | |
5607 ;; ... then undo escaping of matching parentheses, | |
5608 ;; including matching nested parentheses. | |
5609 (goto-char fullname-start) | |
5610 (while (re-search-forward | |
5611 "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" | |
5612 nil 1) | |
5613 (replace-match "\\1(\\3)" t) | |
5614 (goto-char fullname-start))) | |
5615 (insert ")"))) | |
5616 (buffer-string)))) | |
5617 | |
5618 (defun message-make-sender () | |
5619 "Return the \"real\" user address. | |
5620 This function tries to ignore all user modifications, and | |
5621 give as trustworthy answer as possible." | |
5622 (concat (user-login-name) "@" (system-name))) | |
5623 | |
5624 (defun message-make-address () | |
5625 "Make the address of the user." | |
5626 (or (message-user-mail-address) | |
5627 (concat (user-login-name) "@" (message-make-domain)))) | |
5628 | |
5629 (defun message-user-mail-address () | |
5630 "Return the pertinent part of `user-mail-address'." | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5631 (when (and user-mail-address |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5632 (string-match "@.*\\." user-mail-address)) |
17493 | 5633 (if (string-match " " user-mail-address) |
5634 (nth 1 (mail-extract-address-components user-mail-address)) | |
5635 user-mail-address))) | |
5636 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5637 (defun message-sendmail-envelope-from () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5638 "Return the envelope from." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5639 (cond ((eq message-sendmail-envelope-from 'header) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5640 (nth 1 (mail-extract-address-components |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5641 (message-fetch-field "from")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5642 ((stringp message-sendmail-envelope-from) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5643 message-sendmail-envelope-from) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5644 (t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5645 (message-make-address)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5646 |
17493 | 5647 (defun message-make-fqdn () |
5648 "Return user's fully qualified domain name." | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5649 (let* ((system-name (system-name)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5650 (user-mail (message-user-mail-address)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5651 (user-domain |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5652 (if (and user-mail |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5653 (string-match "@\\(.*\\)\\'" user-mail)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5654 (match-string 1 user-mail))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5655 (case-fold-search t)) |
17493 | 5656 (cond |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5657 ((and message-user-fqdn |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5658 (stringp message-user-fqdn) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5659 (string-match message-valid-fqdn-regexp message-user-fqdn) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5660 (not (string-match message-bogus-system-names message-user-fqdn))) |
74984 | 5661 ;; `message-user-fqdn' seems to be valid |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5662 message-user-fqdn) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5663 ((and (string-match message-valid-fqdn-regexp system-name) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5664 (not (string-match message-bogus-system-names system-name))) |
17493 | 5665 ;; `system-name' returned the right result. |
5666 system-name) | |
5667 ;; Try `mail-host-address'. | |
5668 ((and (boundp 'mail-host-address) | |
5669 (stringp mail-host-address) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5670 (string-match message-valid-fqdn-regexp mail-host-address) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5671 (not (string-match message-bogus-system-names mail-host-address))) |
17493 | 5672 mail-host-address) |
5673 ;; We try `user-mail-address' as a backup. | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5674 ((and user-domain |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5675 (stringp user-domain) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5676 (string-match message-valid-fqdn-regexp user-domain) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5677 (not (string-match message-bogus-system-names user-domain))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5678 user-domain) |
17493 | 5679 ;; Default to this bogus thing. |
5680 (t | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5681 (concat system-name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5682 ".i-did-not-set--mail-host-address--so-tickle-me"))))) |
17493 | 5683 |
5684 (defun message-make-host-name () | |
5685 "Return the name of the host." | |
5686 (let ((fqdn (message-make-fqdn))) | |
5687 (string-match "^[^.]+\\." fqdn) | |
5688 (substring fqdn 0 (1- (match-end 0))))) | |
5689 | |
5690 (defun message-make-domain () | |
5691 "Return the domain name." | |
5692 (or mail-host-address | |
5693 (message-make-fqdn))) | |
5694 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5695 (defun message-to-list-only () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5696 "Send a message to the list only. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5697 Remove all addresses but the list address from To and Cc headers." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5698 (interactive) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5699 (let ((listaddr (message-make-mail-followup-to t))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5700 (when listaddr |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5701 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5702 (message-remove-header "to") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5703 (message-remove-header "cc") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5704 (message-position-on-field "To" "X-Draft-From") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5705 (insert listaddr))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5706 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5707 (defun message-make-mail-followup-to (&optional only-show-subscribed) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5708 "Return the Mail-Followup-To header. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5709 If passed the optional argument ONLY-SHOW-SUBSCRIBED only return the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5710 subscribed address (and not the additional To and Cc header contents)." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5711 (let* ((case-fold-search t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5712 (to (message-fetch-field "To")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5713 (cc (message-fetch-field "cc")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5714 (msg-recipients (concat to (and to cc ", ") cc)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5715 (recipients |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5716 (mapcar 'mail-strip-quoted-names |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5717 (message-tokenize-header msg-recipients))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5718 (file-regexps |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5719 (if message-subscribed-address-file |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5720 (let (begin end item re) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5721 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5722 (with-temp-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5723 (insert-file-contents message-subscribed-address-file) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5724 (while (not (eobp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5725 (setq begin (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5726 (forward-line 1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5727 (setq end (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5728 (if (bolp) (setq end (1- end))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5729 (setq item (regexp-quote (buffer-substring begin end))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5730 (if re (setq re (concat re "\\|" item)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5731 (setq re (concat "\\`\\(" item)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5732 (and re (list (concat re "\\)\\'")))))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5733 (mft-regexps (apply 'append message-subscribed-regexps |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5734 (mapcar 'regexp-quote |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5735 message-subscribed-addresses) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5736 file-regexps |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5737 (mapcar 'funcall |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5738 message-subscribed-address-functions)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5739 (save-match-data |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
5740 (let ((list |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5741 (loop for recipient in recipients |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5742 when (loop for regexp in mft-regexps |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5743 when (string-match regexp recipient) return t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5744 return recipient))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5745 (when list |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5746 (if only-show-subscribed |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5747 list |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5748 msg-recipients)))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5749 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5750 (defun message-idna-to-ascii-rhs-1 (header) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5751 "Interactively potentially IDNA encode domain names in HEADER." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5752 (let ((field (message-fetch-field header)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5753 rhs ace address) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5754 (when field |
65719
5265a4059126
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-564
Miles Bader <miles@gnu.org>
parents:
65682
diff
changeset
|
5755 (dolist (rhs |
65846
a4e8d78ae3fb
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-574
Miles Bader <miles@gnu.org>
parents:
65742
diff
changeset
|
5756 (mm-delete-duplicates |
65719
5265a4059126
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-564
Miles Bader <miles@gnu.org>
parents:
65682
diff
changeset
|
5757 (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) "")) |
100197
3076f8588570
(message-idna-to-ascii-rhs-1): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
100142
diff
changeset
|
5758 (mapcar 'downcase |
65719
5265a4059126
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-564
Miles Bader <miles@gnu.org>
parents:
65682
diff
changeset
|
5759 (mapcar |
98398 | 5760 'cadr |
5761 (mail-extract-address-components field t)))))) | |
100197
3076f8588570
(message-idna-to-ascii-rhs-1): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
100142
diff
changeset
|
5762 ;; Note that `rhs' will be "" if the address does not have |
3076f8588570
(message-idna-to-ascii-rhs-1): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
100142
diff
changeset
|
5763 ;; the domain part, i.e., if it is a local user's address. |
3076f8588570
(message-idna-to-ascii-rhs-1): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
100142
diff
changeset
|
5764 (setq ace (if (string-match "\\`[[:ascii:]]*\\'" rhs) |
87097 | 5765 rhs |
5766 (downcase (idna-to-ascii rhs)))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5767 (when (and (not (equal rhs ace)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5768 (or (not (eq message-use-idna 'ask)) |
65719
5265a4059126
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-564
Miles Bader <miles@gnu.org>
parents:
65682
diff
changeset
|
5769 (y-or-n-p (format "Replace %s with %s in %s:? " |
5265a4059126
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-564
Miles Bader <miles@gnu.org>
parents:
65682
diff
changeset
|
5770 rhs ace header)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5771 (goto-char (point-min)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5772 (while (re-search-forward (concat "^" header ":") nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5773 (message-narrow-to-field) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5774 (while (search-forward (concat "@" rhs) nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5775 (replace-match (concat "@" ace) t t)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5776 (goto-char (point-max)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5777 (widen))))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5778 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5779 (defun message-idna-to-ascii-rhs () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5780 "Possibly IDNA encode non-ASCII domain names in From:, To: and Cc: headers. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5781 See `message-idna-encode'." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5782 (interactive) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5783 (when message-use-idna |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5784 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5785 (save-restriction |
100197
3076f8588570
(message-idna-to-ascii-rhs-1): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
100142
diff
changeset
|
5786 ;; `message-narrow-to-head' that recognizes only the first empty |
3076f8588570
(message-idna-to-ascii-rhs-1): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
100142
diff
changeset
|
5787 ;; line as the message header separator used to be used here. |
3076f8588570
(message-idna-to-ascii-rhs-1): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
100142
diff
changeset
|
5788 ;; However, since there is the "--text follows this line--" line |
3076f8588570
(message-idna-to-ascii-rhs-1): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
100142
diff
changeset
|
5789 ;; normally, it failed in narrowing to the headers and potentially |
3076f8588570
(message-idna-to-ascii-rhs-1): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
100142
diff
changeset
|
5790 ;; caused the IDNA encoding on lines that look like headers in |
3076f8588570
(message-idna-to-ascii-rhs-1): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
100142
diff
changeset
|
5791 ;; the message body. |
100137
f3e7e60dc941
(message-idna-to-ascii-rhs): Use message-narrow-to-headers-or-head rather than
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
99777
diff
changeset
|
5792 (message-narrow-to-headers-or-head) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5793 (message-idna-to-ascii-rhs-1 "From") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5794 (message-idna-to-ascii-rhs-1 "To") |
65719
5265a4059126
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-564
Miles Bader <miles@gnu.org>
parents:
65682
diff
changeset
|
5795 (message-idna-to-ascii-rhs-1 "Reply-To") |
5265a4059126
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-564
Miles Bader <miles@gnu.org>
parents:
65682
diff
changeset
|
5796 (message-idna-to-ascii-rhs-1 "Mail-Reply-To") |
5265a4059126
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-564
Miles Bader <miles@gnu.org>
parents:
65682
diff
changeset
|
5797 (message-idna-to-ascii-rhs-1 "Mail-Followup-To") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5798 (message-idna-to-ascii-rhs-1 "Cc"))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5799 |
17493 | 5800 (defun message-generate-headers (headers) |
5801 "Prepare article HEADERS. | |
5802 Headers already prepared in the buffer are not modified." | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5803 (setq headers (append headers message-required-headers)) |
17493 | 5804 (save-restriction |
5805 (message-narrow-to-headers) | |
5806 (let* ((Date (message-make-date)) | |
5807 (Message-ID (message-make-message-id)) | |
5808 (Organization (message-make-organization)) | |
5809 (From (message-make-from)) | |
5810 (Path (message-make-path)) | |
5811 (Subject nil) | |
5812 (Newsgroups nil) | |
5813 (In-Reply-To (message-make-in-reply-to)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5814 (References (message-make-references)) |
17493 | 5815 (To nil) |
5816 (Distribution (message-make-distribution)) | |
5817 (Lines (message-make-lines)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5818 (User-Agent message-newsreader) |
17493 | 5819 (Expires (message-make-expires)) |
5820 (case-fold-search t) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5821 (optionalp nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5822 header value elem header-string) |
17493 | 5823 ;; First we remove any old generated headers. |
5824 (let ((headers message-deletable-headers)) | |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5825 (unless (buffer-modified-p) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
5826 (setq headers (delq 'Message-ID (copy-sequence headers)))) |
17493 | 5827 (while headers |
5828 (goto-char (point-min)) | |
5829 (and (re-search-forward | |
5830 (concat "^" (symbol-name (car headers)) ": *") nil t) | |
5831 (get-text-property (1+ (match-beginning 0)) 'message-deletable) | |
5832 (message-delete-line)) | |
5833 (pop headers))) | |
5834 ;; Go through all the required headers and see if they are in the | |
5835 ;; articles already. If they are not, or are empty, they are | |
5836 ;; inserted automatically - except for Subject, Newsgroups and | |
5837 ;; Distribution. | |
5838 (while headers | |
5839 (goto-char (point-min)) | |
5840 (setq elem (pop headers)) | |
5841 (if (consp elem) | |
5842 (if (eq (car elem) 'optional) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5843 (setq header (cdr elem) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5844 optionalp t) |
17493 | 5845 (setq header (car elem))) |
5846 (setq header elem)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5847 (setq header-string (if (stringp header) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5848 header |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5849 (symbol-name header))) |
17493 | 5850 (when (or (not (re-search-forward |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5851 (concat "^" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5852 (regexp-quote (downcase header-string)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5853 ":") |
17493 | 5854 nil t)) |
5855 (progn | |
5856 ;; The header was found. We insert a space after the | |
5857 ;; colon, if there is none. | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5858 (if (/= (char-after) ? ) (insert " ") (forward-char 1)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5859 ;; Find out whether the header is empty. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5860 (looking-at "[ \t]*\n[^ \t]"))) |
17493 | 5861 ;; So we find out what value we should insert. |
5862 (setq value | |
5863 (cond | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5864 ((and (consp elem) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5865 (eq (car elem) 'optional) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5866 (not (member header-string message-inserted-headers))) |
17493 | 5867 ;; This is an optional header. If the cdr of this |
5868 ;; is something that is nil, then we do not insert | |
5869 ;; this header. | |
5870 (setq header (cdr elem)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5871 (or (and (functionp (cdr elem)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5872 (funcall (cdr elem))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5873 (and (boundp (cdr elem)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5874 (symbol-value (cdr elem))))) |
17493 | 5875 ((consp elem) |
5876 ;; The element is a cons. Either the cdr is a | |
5877 ;; string to be inserted verbatim, or it is a | |
5878 ;; function, and we insert the value returned from | |
5879 ;; this function. | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5880 (or (and (stringp (cdr elem)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5881 (cdr elem)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5882 (and (functionp (cdr elem)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5883 (funcall (cdr elem))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5884 ((and (boundp header) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5885 (symbol-value header)) |
17493 | 5886 ;; The element is a symbol. We insert the value |
5887 ;; of this symbol, if any. | |
5888 (symbol-value header)) | |
66808
a93385a3e7a2
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-646
Miles Bader <miles@gnu.org>
parents:
66573
diff
changeset
|
5889 ((not (message-check-element |
a93385a3e7a2
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-646
Miles Bader <miles@gnu.org>
parents:
66573
diff
changeset
|
5890 (intern (downcase (symbol-name header))))) |
17493 | 5891 ;; We couldn't generate a value for this header, |
5892 ;; so we just ask the user. | |
5893 (read-from-minibuffer | |
5894 (format "Empty header for %s; enter value: " header))))) | |
5895 ;; Finally insert the header. | |
5896 (when (and value | |
5897 (not (equal value ""))) | |
5898 (save-excursion | |
5899 (if (bolp) | |
5900 (progn | |
5901 ;; This header didn't exist, so we insert it. | |
5902 (goto-char (point-max)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5903 (let ((formatter |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5904 (cdr (assq header message-header-format-alist)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5905 (if formatter |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5906 (funcall formatter header value) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5907 (insert header-string ": " value)) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5908 (goto-char (message-fill-field)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5909 ;; We check whether the value was ended by a |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5910 ;; newline. If not, we insert one. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5911 (unless (bolp) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
5912 (insert "\n")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5913 (forward-line -1))) |
17493 | 5914 ;; The value of this header was empty, so we clear |
5915 ;; totally and insert the new value. | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5916 (delete-region (point) (point-at-eol)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5917 ;; If the header is optional, and the header was |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5918 ;; empty, we can't insert it anyway. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5919 (unless optionalp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5920 (push header-string message-inserted-headers) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5921 (insert value) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5922 (message-fill-field))) |
17493 | 5923 ;; Add the deletable property to the headers that require it. |
5924 (and (memq header message-deletable-headers) | |
5925 (progn (beginning-of-line) (looking-at "[^:]+: ")) | |
5926 (add-text-properties | |
5927 (point) (match-end 0) | |
5928 '(message-deletable t face italic) (current-buffer))))))) | |
5929 ;; Insert new Sender if the From is strange. | |
5930 (let ((from (message-fetch-field "from")) | |
5931 (sender (message-fetch-field "sender")) | |
5932 (secure-sender (message-make-sender))) | |
5933 (when (and from | |
5934 (not (message-check-element 'sender)) | |
5935 (not (string= | |
5936 (downcase | |
5937 (cadr (mail-extract-address-components from))) | |
5938 (downcase secure-sender))) | |
5939 (or (null sender) | |
5940 (not | |
5941 (string= | |
5942 (downcase | |
5943 (cadr (mail-extract-address-components sender))) | |
5944 (downcase secure-sender))))) | |
5945 (goto-char (point-min)) | |
5946 ;; Rename any old Sender headers to Original-Sender. | |
5947 (when (re-search-forward "^\\(Original-\\)*Sender:" nil t) | |
5948 (beginning-of-line) | |
5949 (insert "Original-") | |
5950 (beginning-of-line)) | |
5951 (when (or (message-news-p) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
5952 (string-match "@.+\\.." secure-sender)) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
5953 (insert "Sender: " secure-sender "\n")))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5954 ;; Check for IDNA |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
5955 (message-idna-to-ascii-rhs)))) |
17493 | 5956 |
5957 (defun message-insert-courtesy-copy () | |
5958 "Insert a courtesy message in mail copies of combined messages." | |
5959 (let (newsgroups) | |
5960 (save-excursion | |
5961 (save-restriction | |
5962 (message-narrow-to-headers) | |
5963 (when (setq newsgroups (message-fetch-field "newsgroups")) | |
5964 (goto-char (point-max)) | |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
5965 (insert "Posted-To: " newsgroups "\n"))) |
17493 | 5966 (forward-line 1) |
5967 (when message-courtesy-message | |
5968 (cond | |
5969 ((string-match "%s" message-courtesy-message) | |
5970 (insert (format message-courtesy-message newsgroups))) | |
5971 (t | |
5972 (insert message-courtesy-message))))))) | |
5973 | |
5974 ;;; | |
5975 ;;; Setting up a message buffer | |
5976 ;;; | |
5977 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5978 (defun message-skip-to-next-address () |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5979 (let ((end (save-excursion |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5980 (message-next-header) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5981 (point))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5982 quoted char) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5983 (when (looking-at ",") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5984 (forward-char 1)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5985 (while (and (not (= (point) end)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5986 (or (not (eq char ?,)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5987 quoted)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5988 (skip-chars-forward "^,\"" (point-max)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5989 (when (eq (setq char (following-char)) ?\") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5990 (setq quoted (not quoted))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5991 (unless (= (point) end) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5992 (forward-char 1))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5993 (skip-chars-forward " \t\n"))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5994 |
17493 | 5995 (defun message-fill-address (header value) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5996 (insert (capitalize (symbol-name header)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5997 ": " |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5998 (if (consp value) (car value) value) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
5999 "\n") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6000 (message-fill-field-address)) |
17493 | 6001 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6002 (defun message-split-line () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6003 "Split current line, moving portion beyond point vertically down. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6004 If the current line has `message-yank-prefix', insert it on the new line." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6005 (interactive "*") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6006 (condition-case nil |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
6007 (split-line message-yank-prefix) ;; Emacs 22.1+ supports arg. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6008 (error |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6009 (split-line)))) |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
6010 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6011 (defun message-insert-header (header value) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6012 (insert (capitalize (symbol-name header)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6013 ": " |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6014 (if (consp value) (car value) value))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6015 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6016 (defun message-field-name () |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6017 (save-excursion |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6018 (goto-char (point-min)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6019 (when (looking-at "\\([^:]+\\):") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6020 (intern (capitalize (match-string 1)))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6021 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6022 (defun message-fill-field () |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6023 (save-excursion |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6024 (save-restriction |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6025 (message-narrow-to-field) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6026 (let ((field-name (message-field-name))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6027 (funcall (or (cadr (assq field-name message-field-fillers)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6028 'message-fill-field-general))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6029 (point-max)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6030 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6031 (defun message-fill-field-address () |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6032 (while (not (eobp)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6033 (message-skip-to-next-address) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6034 (let (last) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6035 (if (and (> (current-column) 78) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6036 last) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6037 (progn |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6038 (save-excursion |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6039 (goto-char last) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6040 (insert "\n\t")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6041 (setq last (1+ (point)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6042 (setq last (1+ (point))))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6043 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6044 (defun message-fill-field-general () |
17493 | 6045 (let ((begin (point)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6046 (fill-column 78) |
17493 | 6047 (fill-prefix "\t")) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6048 (while (and (search-forward "\n" nil t) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6049 (not (eobp))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6050 (replace-match " " t t)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6051 (fill-region-as-paragraph begin (point-max)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6052 ;; Tapdance around looong Message-IDs. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6053 (forward-line -1) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6054 (when (looking-at "[ \t]*$") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6055 (message-delete-line)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6056 (goto-char begin) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6057 (search-forward ":" nil t) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6058 (when (looking-at "\n[ \t]+") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6059 (replace-match " " t t)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6060 (goto-char (point-max)))) |
17493 | 6061 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6062 (defun message-shorten-1 (list cut surplus) |
35147 | 6063 "Cut SURPLUS elements out of LIST, beginning with CUTth one." |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6064 (setcdr (nthcdr (- cut 2) list) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6065 (nthcdr (+ (- cut 2) surplus 1) list))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6066 |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6067 (defun message-shorten-references (header references) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6068 "Trim REFERENCES to be 21 Message-ID long or less, and fold them. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6069 When sending via news, also check that the REFERENCES are less |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6070 than 988 characters long, and if they are not, trim them until |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6071 they are." |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6072 (let ((maxcount 21) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6073 (count 0) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6074 (cut 2) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6075 refs) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6076 (with-temp-buffer |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6077 (insert references) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6078 (goto-char (point-min)) |
93386 | 6079 ;; Cons a list of valid references. GNKSA says we must not include MIDs |
6080 ;; with whitespace or missing brackets (7.a "Does not propagate broken | |
6081 ;; Message-IDs in original References"). | |
6082 (while (re-search-forward "<[^ <]+@[^ <]+>" nil t) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6083 (push (match-string 0) refs)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6084 (setq refs (nreverse refs) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6085 count (length refs))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6086 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6087 ;; If the list has more than MAXCOUNT elements, trim it by |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6088 ;; removing the CUTth element and the required number of |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6089 ;; elements that follow. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6090 (when (> count maxcount) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6091 (let ((surplus (- count maxcount))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6092 (message-shorten-1 refs cut surplus) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6093 (decf count surplus))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6094 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6095 ;; When sending via news, make sure the total folded length will |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6096 ;; be less than 998 characters. This is to cater to broken INN |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6097 ;; 2.3 which counts the total number of characters in a header |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6098 ;; rather than the physical line length of each line, as it should. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6099 ;; |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6100 ;; This hack should be removed when it's believed than INN 2.3 is |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6101 ;; no longer widely used. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6102 ;; |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6103 ;; At this point the headers have not been generated, thus we use |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6104 ;; message-this-is-news directly. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6105 (when message-this-is-news |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6106 (while (< 998 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6107 (with-temp-buffer |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6108 (message-insert-header |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6109 header (mapconcat #'identity refs " ")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6110 (buffer-size))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6111 (message-shorten-1 refs cut 1))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6112 ;; Finally, collect the references back into a string and insert |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6113 ;; it into the buffer. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6114 (message-insert-header header (mapconcat #'identity refs " ")))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6115 |
17493 | 6116 (defun message-position-point () |
6117 "Move point to where the user probably wants to find it." | |
6118 (message-narrow-to-headers) | |
6119 (cond | |
6120 ((re-search-forward "^[^:]+:[ \t]*$" nil t) | |
6121 (search-backward ":" ) | |
6122 (widen) | |
6123 (forward-char 1) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6124 (if (eq (char-after) ? ) |
17493 | 6125 (forward-char 1) |
6126 (insert " "))) | |
6127 (t | |
6128 (goto-char (point-max)) | |
6129 (widen) | |
6130 (forward-line 1) | |
6131 (unless (looking-at "$") | |
6132 (forward-line 2))) | |
6133 (sit-for 0))) | |
6134 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6135 (defcustom message-beginning-of-line t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6136 "Whether \\<message-mode-map>\\[message-beginning-of-line]\ |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6137 goes to beginning of header values." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
6138 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6139 :group 'message-buffers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6140 :link '(custom-manual "(message)Movement") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6141 :type 'boolean) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6142 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6143 (defun message-beginning-of-line (&optional n) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6144 "Move point to beginning of header value or to beginning of line. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6145 The prefix argument N is passed directly to `beginning-of-line'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6146 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6147 This command is identical to `beginning-of-line' if point is |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6148 outside the message header or if the option `message-beginning-of-line' |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6149 is nil. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6150 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6151 If point is in the message header and on a (non-continued) header |
59756
b53453586872
(message-beginning-of-line): Change the behavior when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58835
diff
changeset
|
6152 line, move point to the beginning of the header value or the beginning of line, |
b53453586872
(message-beginning-of-line): Change the behavior when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58835
diff
changeset
|
6153 whichever is closer. If point is already at beginning of line, move point to |
b53453586872
(message-beginning-of-line): Change the behavior when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58835
diff
changeset
|
6154 beginning of header value. Therefore, repeated calls will toggle point |
b53453586872
(message-beginning-of-line): Change the behavior when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58835
diff
changeset
|
6155 between beginning of field and beginning of line." |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6156 (interactive "p") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6157 (let ((zrs 'zmacs-region-stays)) |
87941
d77b6e5ee8af
* sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87649
diff
changeset
|
6158 (when (and (featurep 'xemacs) (interactive-p) (boundp zrs)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6159 (set zrs t))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6160 (if (and message-beginning-of-line |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6161 (message-point-in-header-p)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6162 (let* ((here (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6163 (bol (progn (beginning-of-line n) (point))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6164 (eol (point-at-eol)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6165 (eoh (re-search-forward ": *" eol t))) |
59756
b53453586872
(message-beginning-of-line): Change the behavior when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58835
diff
changeset
|
6166 (goto-char |
b53453586872
(message-beginning-of-line): Change the behavior when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58835
diff
changeset
|
6167 (if (and eoh (or (< eoh here) (= bol here))) |
b53453586872
(message-beginning-of-line): Change the behavior when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58835
diff
changeset
|
6168 eoh bol))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6169 (beginning-of-line n))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6170 |
17493 | 6171 (defun message-buffer-name (type &optional to group) |
6172 "Return a new (unique) buffer name based on TYPE and TO." | |
6173 (cond | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6174 ;; Generate a new buffer name The Message Way. |
76650 | 6175 ((memq message-generate-new-buffers '(unique t)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6176 (generate-new-buffer-name |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6177 (concat "*" type |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6178 (if to |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6179 (concat " to " |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6180 (or (car (mail-extract-address-components to)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6181 to) "") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6182 "") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6183 (if (and group (not (string= group ""))) (concat " on " group) "") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6184 "*"))) |
17493 | 6185 ;; Check whether `message-generate-new-buffers' is a function, |
6186 ;; and if so, call it. | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6187 ((functionp message-generate-new-buffers) |
17493 | 6188 (funcall message-generate-new-buffers type to group)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6189 ((eq message-generate-new-buffers 'unsent) |
17493 | 6190 (generate-new-buffer-name |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6191 (concat "*unsent " type |
17493 | 6192 (if to |
6193 (concat " to " | |
6194 (or (car (mail-extract-address-components to)) | |
6195 to) "") | |
6196 "") | |
6197 (if (and group (not (string= group ""))) (concat " on " group) "") | |
6198 "*"))) | |
76650 | 6199 ;; Search for the existing message buffer with the specified name. |
17493 | 6200 (t |
76650 | 6201 (let* ((new (if (eq message-generate-new-buffers 'standard) |
6202 (generate-new-buffer-name (concat "*" type " message*")) | |
6203 (let ((message-generate-new-buffers 'unique)) | |
6204 (message-buffer-name type to group)))) | |
6205 (regexp (concat "\\`" | |
6206 (regexp-quote | |
6207 (if (string-match "<[0-9]+>\\'" new) | |
6208 (substring new 0 (match-beginning 0)) | |
6209 new)) | |
6210 "\\(?:<\\([0-9]+\\)>\\)?\\'")) | |
6211 (case-fold-search nil)) | |
6212 (or (cdar | |
6213 (last | |
6214 (sort | |
6215 (delq nil | |
6216 (mapcar | |
6217 (lambda (b) | |
6218 (when (and (string-match regexp (setq b (buffer-name b))) | |
6219 (eq (with-current-buffer b major-mode) | |
6220 'message-mode)) | |
6221 (cons (string-to-number (or (match-string 1 b) "1")) | |
6222 b))) | |
6223 (buffer-list))) | |
6224 'car-less-than-car))) | |
6225 new))))) | |
17493 | 6226 |
77819
20662529a1ae
(message-pop-to-buffer): Add switch-function argument.
Chong Yidong <cyd@stupidchicken.com>
parents:
77114
diff
changeset
|
6227 (defun message-pop-to-buffer (name &optional switch-function) |
17493 | 6228 "Pop to buffer NAME, and warn if it already exists and is modified." |
6229 (let ((buffer (get-buffer name))) | |
6230 (if (and buffer | |
6231 (buffer-name buffer)) | |
76650 | 6232 (let ((window (get-buffer-window buffer 0))) |
6233 (if window | |
6234 ;; Raise the frame already displaying the message buffer. | |
6235 (progn | |
6236 (gnus-select-frame-set-input-focus (window-frame window)) | |
6237 (select-window window)) | |
77819
20662529a1ae
(message-pop-to-buffer): Add switch-function argument.
Chong Yidong <cyd@stupidchicken.com>
parents:
77114
diff
changeset
|
6238 (funcall (or switch-function 'pop-to-buffer) buffer) |
20662529a1ae
(message-pop-to-buffer): Add switch-function argument.
Chong Yidong <cyd@stupidchicken.com>
parents:
77114
diff
changeset
|
6239 (set-buffer buffer)) |
17493 | 6240 (when (and (buffer-modified-p) |
76650 | 6241 (not (prog1 |
6242 (y-or-n-p | |
6243 "Message already being composed; erase? ") | |
6244 (message nil)))) | |
17493 | 6245 (error "Message being composed"))) |
77819
20662529a1ae
(message-pop-to-buffer): Add switch-function argument.
Chong Yidong <cyd@stupidchicken.com>
parents:
77114
diff
changeset
|
6246 (funcall (or switch-function 'pop-to-buffer) name) |
20662529a1ae
(message-pop-to-buffer): Add switch-function argument.
Chong Yidong <cyd@stupidchicken.com>
parents:
77114
diff
changeset
|
6247 (set-buffer name)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6248 (erase-buffer) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6249 (message-mode))) |
17493 | 6250 |
6251 (defun message-do-send-housekeeping () | |
6252 "Kill old message buffers." | |
6253 ;; We might have sent this buffer already. Delete it from the | |
6254 ;; list of buffers. | |
6255 (setq message-buffer-list (delq (current-buffer) message-buffer-list)) | |
6256 (while (and message-max-buffers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6257 message-buffer-list |
17493 | 6258 (>= (length message-buffer-list) message-max-buffers)) |
6259 ;; Kill the oldest buffer -- unless it has been changed. | |
6260 (let ((buffer (pop message-buffer-list))) | |
6261 (when (and (buffer-name buffer) | |
6262 (not (buffer-modified-p buffer))) | |
6263 (kill-buffer buffer)))) | |
6264 ;; Rename the buffer. | |
6265 (if message-send-rename-function | |
6266 (funcall message-send-rename-function) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6267 ;; Note: mail-abbrevs of XEmacs renames buffer name behind Gnus. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6268 (when (string-match |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6269 "\\`\\*\\(sent \\|unsent \\)?\\(.+\\)\\*[^\\*]*\\|\\`mail to " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6270 (buffer-name)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6271 (let ((name (match-string 2 (buffer-name))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6272 to group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6273 (if (not (or (null name) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6274 (string-equal name "mail") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6275 (string-equal name "posting"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6276 (setq name (concat "*sent " name "*")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6277 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6278 (setq to (message-fetch-field "to")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6279 (setq group (message-fetch-field "newsgroups")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6280 (widen) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6281 (setq name |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6282 (cond |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6283 (to (concat "*sent mail to " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6284 (or (car (mail-extract-address-components to)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6285 to) "*")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6286 ((and group (not (string= group ""))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6287 (concat "*sent posting on " group "*")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6288 (t "*sent mail*")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6289 (unless (string-equal name (buffer-name)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6290 (rename-buffer name t))))) |
17493 | 6291 ;; Push the current buffer onto the list. |
6292 (when message-max-buffers | |
6293 (setq message-buffer-list | |
6294 (nconc message-buffer-list (list (current-buffer)))))) | |
6295 | |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6296 (defun message-mail-user-agent () |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6297 (let ((mua (cond |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6298 ((not message-mail-user-agent) nil) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6299 ((eq message-mail-user-agent t) mail-user-agent) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6300 (t message-mail-user-agent)))) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6301 (if (memq mua '(message-user-agent gnus-user-agent)) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6302 nil |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6303 mua))) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6304 |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6305 ;; YANK-ACTION, if non-nil, can be a buffer or a yank action of the |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6306 ;; form (FUNCTION . ARGS). |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6307 (defun message-setup (headers &optional yank-action actions |
76650 | 6308 continue switch-function) |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6309 (let ((mua (message-mail-user-agent)) |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6310 subject to field) |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6311 (if (not (and message-this-is-mail mua)) |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6312 (message-setup-1 headers yank-action actions) |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6313 (setq headers (copy-sequence headers)) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6314 (setq field (assq 'Subject headers)) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6315 (when field |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6316 (setq subject (cdr field)) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6317 (setq headers (delq field headers))) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6318 (setq field (assq 'To headers)) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6319 (when field |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6320 (setq to (cdr field)) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6321 (setq headers (delq field headers))) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6322 (let ((mail-user-agent mua)) |
35147 | 6323 (compose-mail to subject |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6324 (mapcar (lambda (item) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6325 (cons |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6326 (format "%s" (car item)) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6327 (cdr item))) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6328 headers) |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6329 continue switch-function |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6330 (if (bufferp yank-action) |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6331 (list 'insert-buffer yank-action) |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6332 yank-action) |
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6333 actions))))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49034
diff
changeset
|
6334 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6335 (defun message-headers-to-generate (headers included-headers excluded-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6336 "Return a list that includes all headers from HEADERS. |
73487 | 6337 If INCLUDED-HEADERS is a list, just include those headers. If it is |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6338 t, include all headers. In any case, headers from EXCLUDED-HEADERS |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6339 are not included." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6340 (let ((result nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6341 header-name) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6342 (dolist (header headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6343 (setq header-name (cond |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6344 ((and (consp header) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6345 (eq (car header) 'optional)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6346 ;; On the form (optional . Header) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6347 (cdr header)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6348 ((consp header) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6349 ;; On the form (Header . function) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6350 (car header)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6351 (t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6352 ;; Just a Header. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6353 header))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6354 (when (and (not (memq header-name excluded-headers)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6355 (or (eq included-headers t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6356 (memq header-name included-headers))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6357 (push header result))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6358 (nreverse result))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6359 |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6360 (defun message-setup-1 (headers &optional yank-action actions) |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
6361 (dolist (action actions) |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
6362 (condition-case nil |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
6363 (add-to-list 'message-send-actions |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
6364 `(apply ',(car action) ',(cdr action))))) |
106892
2bef3a4193f8
* message.el (message-setup-1): Prefer to save message-reply-buffer as a buffer.
Chong Yidong <cyd@stupidchicken.com>
parents:
106890
diff
changeset
|
6365 (setq message-reply-buffer |
2bef3a4193f8
* message.el (message-setup-1): Prefer to save message-reply-buffer as a buffer.
Chong Yidong <cyd@stupidchicken.com>
parents:
106890
diff
changeset
|
6366 (if (and (consp yank-action) |
2bef3a4193f8
* message.el (message-setup-1): Prefer to save message-reply-buffer as a buffer.
Chong Yidong <cyd@stupidchicken.com>
parents:
106890
diff
changeset
|
6367 (eq (car yank-action) 'insert-buffer)) |
2bef3a4193f8
* message.el (message-setup-1): Prefer to save message-reply-buffer as a buffer.
Chong Yidong <cyd@stupidchicken.com>
parents:
106890
diff
changeset
|
6368 (nth 1 yank-action) |
2bef3a4193f8
* message.el (message-setup-1): Prefer to save message-reply-buffer as a buffer.
Chong Yidong <cyd@stupidchicken.com>
parents:
106890
diff
changeset
|
6369 yank-action)) |
17493 | 6370 (goto-char (point-min)) |
6371 ;; Insert all the headers. | |
6372 (mail-header-format | |
6373 (let ((h headers) | |
6374 (alist message-header-format-alist)) | |
6375 (while h | |
6376 (unless (assq (caar h) message-header-format-alist) | |
6377 (push (list (caar h)) alist)) | |
6378 (pop h)) | |
6379 alist) | |
6380 headers) | |
6381 (delete-region (point) (progn (forward-line -1) (point))) | |
6382 (when message-default-headers | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6383 (insert message-default-headers) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
6384 (or (bolp) (insert ?\n))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6385 (insert mail-header-separator "\n") |
17493 | 6386 (forward-line -1) |
6387 (when (message-news-p) | |
6388 (when message-default-news-headers | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6389 (insert message-default-news-headers) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
6390 (or (bolp) (insert ?\n))) |
17493 | 6391 (when message-generate-headers-first |
6392 (message-generate-headers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6393 (message-headers-to-generate |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6394 (append message-required-news-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6395 message-required-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6396 message-generate-headers-first |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6397 '(Lines Subject))))) |
17493 | 6398 (when (message-mail-p) |
6399 (when message-default-mail-headers | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6400 (insert message-default-mail-headers) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
6401 (or (bolp) (insert ?\n))) |
17493 | 6402 (when message-generate-headers-first |
6403 (message-generate-headers | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6404 (message-headers-to-generate |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6405 (append message-required-mail-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6406 message-required-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6407 message-generate-headers-first |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6408 '(Lines Subject))))) |
17493 | 6409 (run-hooks 'message-signature-setup-hook) |
6410 (message-insert-signature) | |
6411 (save-restriction | |
6412 (message-narrow-to-headers) | |
6413 (run-hooks 'message-header-setup-hook)) | |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
6414 (setq buffer-undo-list nil) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6415 (when message-generate-hashcash |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6416 ;; Generate hashcash headers for recipients already known |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6417 (mail-add-payment-async)) |
93386 | 6418 ;; Gnus posting styles are applied via buffer-local `message-setup-hook' |
6419 ;; values. | |
17493 | 6420 (run-hooks 'message-setup-hook) |
68521
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
6421 ;; Do this last to give it precedence over posting styles, etc. |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
6422 (when (message-mail-p) |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
6423 (save-restriction |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
6424 (message-narrow-to-headers) |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
6425 (if message-alternative-emails |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
6426 (message-use-alternative-email-as-from)))) |
17493 | 6427 (message-position-point) |
93386 | 6428 ;; Allow correct handling of `message-checksum' in `message-yank-original': |
6429 (set-buffer-modified-p nil) | |
17493 | 6430 (undo-boundary)) |
6431 | |
6432 (defun message-set-auto-save-file-name () | |
6433 "Associate the message buffer with a file in the drafts directory." | |
23379
cfa9bc8ed327
(message-auto-save-directory): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
23096
diff
changeset
|
6434 (when message-auto-save-directory |
34057
98bd49d8cf7d
(message-auto-save-directory): Use
Dave Love <fx@gnu.org>
parents:
33982
diff
changeset
|
6435 (unless (file-directory-p |
98bd49d8cf7d
(message-auto-save-directory): Use
Dave Love <fx@gnu.org>
parents:
33982
diff
changeset
|
6436 (directory-file-name message-auto-save-directory)) |
48376
285ddf07e772
* message.el (message-set-auto-save-file-name): Use
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
47947
diff
changeset
|
6437 (make-directory message-auto-save-directory t)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6438 (if (gnus-alive-p) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6439 (setq message-draft-article |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6440 (nndraft-request-associate-buffer "drafts")) |
98344 | 6441 |
6442 ;; If Gnus were alive, draft messages would be saved in the drafts folder. | |
6443 ;; But Gnus is not alive, so arrange to save the draft message in a | |
6444 ;; regular file in message-auto-save-directory. Append a unique | |
6445 ;; time-based suffix to the filename to allow multiple drafts to be saved | |
6446 ;; simultaneously without overwriting each other (which mimics the | |
6447 ;; functionality of the Gnus drafts folder). | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6448 (setq buffer-file-name (expand-file-name |
98344 | 6449 (concat |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6450 (if (memq system-type |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6451 '(ms-dos ms-windows windows-nt |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6452 cygwin cygwin32 win32 w32 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6453 mswindows)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6454 "message" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6455 "*message*") |
98344 | 6456 (format-time-string "-%Y%m%d-%H%M%S")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6457 message-auto-save-directory)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6458 (setq buffer-auto-save-file-name (make-auto-save-file-name))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6459 (clear-visited-file-modtime) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6460 (setq buffer-file-coding-system message-draft-coding-system))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6461 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6462 (defun message-disassociate-draft () |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6463 "Disassociate the message buffer from the drafts directory." |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6464 (when message-draft-article |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6465 (nndraft-request-expire-articles |
95580 | 6466 (list message-draft-article) "drafts" nil t))) |
17493 | 6467 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6468 (defun message-insert-headers () |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6469 "Generate the headers for the article." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6470 (interactive) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6471 (save-excursion |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6472 (save-restriction |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6473 (message-narrow-to-headers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6474 (when (message-news-p) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6475 (message-generate-headers |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6476 (delq 'Lines |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6477 (delq 'Subject |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6478 (copy-sequence message-required-news-headers))))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6479 (when (message-mail-p) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6480 (message-generate-headers |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6481 (delq 'Lines |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6482 (delq 'Subject |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6483 (copy-sequence message-required-mail-headers)))))))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6484 |
17493 | 6485 |
6486 | |
6487 ;;; | |
6488 ;;; Commands for interfacing with message | |
6489 ;;; | |
6490 | |
6491 ;;;###autoload | |
6492 (defun message-mail (&optional to subject | |
6493 other-headers continue switch-function | |
6494 yank-action send-actions) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6495 "Start editing a mail message to be sent. |
76650 | 6496 OTHER-HEADERS is an alist of header/value pairs. CONTINUE says whether |
6497 to continue editing a message already being composed. SWITCH-FUNCTION | |
6498 is a function used to switch to and display the mail buffer." | |
17493 | 6499 (interactive) |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6500 (let ((message-this-is-mail t)) |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6501 (unless (message-mail-user-agent) |
77819
20662529a1ae
(message-pop-to-buffer): Add switch-function argument.
Chong Yidong <cyd@stupidchicken.com>
parents:
77114
diff
changeset
|
6502 (message-pop-to-buffer |
76650 | 6503 ;; Search for the existing message buffer if `continue' is non-nil. |
6504 (let ((message-generate-new-buffers | |
6505 (when (or (not continue) | |
6506 (eq message-generate-new-buffers 'standard) | |
6507 (functionp message-generate-new-buffers)) | |
6508 message-generate-new-buffers))) | |
77819
20662529a1ae
(message-pop-to-buffer): Add switch-function argument.
Chong Yidong <cyd@stupidchicken.com>
parents:
77114
diff
changeset
|
6509 (message-buffer-name "mail" to)) |
20662529a1ae
(message-pop-to-buffer): Add switch-function argument.
Chong Yidong <cyd@stupidchicken.com>
parents:
77114
diff
changeset
|
6510 switch-function)) |
17493 | 6511 (message-setup |
6512 (nconc | |
6513 `((To . ,(or to "")) (Subject . ,(or subject ""))) | |
34859
596342378358
* message.el (message-mail): Support yank-action.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34858
diff
changeset
|
6514 (when other-headers other-headers)) |
106890
2ed4eab78ca3
* message.el (message-mail): Just pass yank-action on to message-setup.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
6515 yank-action send-actions continue switch-function) |
34859
596342378358
* message.el (message-mail): Support yank-action.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34858
diff
changeset
|
6516 ;; FIXME: Should return nil if failure. |
596342378358
* message.el (message-mail): Support yank-action.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34858
diff
changeset
|
6517 t)) |
17493 | 6518 |
6519 ;;;###autoload | |
6520 (defun message-news (&optional newsgroups subject) | |
6521 "Start editing a news article to be sent." | |
6522 (interactive) | |
6523 (let ((message-this-is-news t)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6524 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups)) |
17493 | 6525 (message-setup `((Newsgroups . ,(or newsgroups "")) |
6526 (Subject . ,(or subject "")))))) | |
6527 | |
93386 | 6528 (defun message-alter-recipients-discard-bogus-full-name (addrcell) |
6529 "Discard mail address in full names. | |
6530 When the full name in reply headers contains the mail | |
6531 address (e.g. \"foo@bar <foo@bar>\"), discard full name. | |
6532 ADDRCELL is a cons cell where the car is the mail address and the | |
6533 cdr is the complete address (full name and mail address)." | |
6534 (if (string-match (concat (regexp-quote (car addrcell)) ".*" | |
6535 (regexp-quote (car addrcell))) | |
6536 (cdr addrcell)) | |
6537 (cons (car addrcell) (car addrcell)) | |
6538 addrcell)) | |
6539 | |
6540 (defcustom message-alter-recipients-function nil | |
6541 "Function called to allow alteration of reply header structures. | |
6542 It is called in `message-get-reply-headers' for each recipient. | |
6543 The function is called with one parameter, a cons cell ..." | |
6544 :type '(choice (const :tag "None" nil) | |
6545 (const :tag "Discard bogus full name" | |
6546 message-alter-recipients-discard-bogus-full-name) | |
6547 function) | |
6548 :version "23.1" ;; No Gnus | |
6549 :group 'message-headers) | |
6550 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6551 (defun message-get-reply-headers (wide &optional to-address address-headers) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6552 (let (follow-to mct never-mct to cc author mft recipients extra) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6553 ;; Find all relevant headers we need. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6554 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6555 (message-narrow-to-headers-or-head) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6556 ;; Gmane renames "To". Look at "Original-To", too, if it is present in |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6557 ;; message-header-synonyms. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6558 (setq to (or (message-fetch-field "to") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6559 (and (loop for synonym in message-header-synonyms |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6560 when (memq 'Original-To synonym) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6561 return t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6562 (message-fetch-field "original-to"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6563 cc (message-fetch-field "cc") |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6564 extra (when message-extra-wide-headers |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6565 (mapconcat 'identity |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6566 (mapcar 'message-fetch-field |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6567 message-extra-wide-headers) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6568 ", ")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6569 mct (message-fetch-field "mail-copies-to") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6570 author (or (message-fetch-field "mail-reply-to") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6571 (message-fetch-field "reply-to") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6572 (message-fetch-field "from") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6573 "") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6574 mft (and message-use-mail-followup-to |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6575 (message-fetch-field "mail-followup-to")))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6576 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6577 ;; Handle special values of Mail-Copies-To. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6578 (when mct |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6579 (cond ((or (equal (downcase mct) "never") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6580 (equal (downcase mct) "nobody")) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6581 (setq never-mct t) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6582 (setq mct nil)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6583 ((or (equal (downcase mct) "always") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6584 (equal (downcase mct) "poster")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6585 (setq mct author)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6586 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6587 (save-match-data |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6588 ;; Build (textual) list of new recipient addresses. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6589 (cond |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6590 ((not wide) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6591 (setq recipients (concat ", " author))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6592 (address-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6593 (dolist (header address-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6594 (let ((value (message-fetch-field header))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6595 (when value |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6596 (setq recipients (concat recipients ", " value)))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6597 ((and mft |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6598 (string-match "[^ \t,]" mft) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6599 (or (not (eq message-use-mail-followup-to 'ask)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6600 (message-y-or-n-p "Obey Mail-Followup-To? " t "\ |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6601 You should normally obey the Mail-Followup-To: header. In this |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6602 article, it has the value of |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6603 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6604 " mft " |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6605 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6606 which directs your response to " (if (string-match "," mft) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6607 "the specified addresses" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6608 "that address only") ". |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6609 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6610 Most commonly, Mail-Followup-To is used by a mailing list poster to |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6611 express that responses should be sent to just the list, and not the |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6612 poster as well. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6613 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6614 If a message is posted to several mailing lists, Mail-Followup-To may |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6615 also be used to direct the following discussion to one list only, |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6616 because discussions that are spread over several lists tend to be |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6617 fragmented and very difficult to follow. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6618 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6619 Also, some source/announcement lists are not intended for discussion; |
60356
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6620 responses here are directed to other addresses. |
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6621 |
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6622 You may customize the variable `message-use-mail-followup-to', if you |
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6623 want to get rid of this query permanently."))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6624 (setq recipients (concat ", " mft))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6625 (to-address |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6626 (setq recipients (concat ", " to-address)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6627 ;; If the author explicitly asked for a copy, we don't deny it to them. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6628 (if mct (setq recipients (concat recipients ", " mct)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6629 (t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6630 (setq recipients (if never-mct "" (concat ", " author))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6631 (if to (setq recipients (concat recipients ", " to))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6632 (if cc (setq recipients (concat recipients ", " cc))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6633 (if extra (setq recipients (concat recipients ", " extra))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6634 (if mct (setq recipients (concat recipients ", " mct))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6635 (if (>= (length recipients) 2) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6636 ;; Strip the leading ", ". |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6637 (setq recipients (substring recipients 2))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6638 ;; Squeeze whitespace. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6639 (while (string-match "[ \t][ \t]+" recipients) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6640 (setq recipients (replace-match " " t t recipients))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6641 ;; Remove addresses that match `rmail-dont-reply-to-names'. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6642 (let ((rmail-dont-reply-to-names (message-dont-reply-to-names))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6643 (setq recipients (rmail-dont-reply-to recipients))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6644 ;; Perhaps "Mail-Copies-To: never" removed the only address? |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6645 (if (string-equal recipients "") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6646 (setq recipients author)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6647 ;; Convert string to a list of (("foo@bar" . "Name <Foo@BAR>") ...). |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6648 (setq recipients |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6649 (mapcar |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6650 (lambda (addr) |
93386 | 6651 (if message-alter-recipients-function |
6652 (funcall message-alter-recipients-function | |
6653 (cons (downcase (mail-strip-quoted-names addr)) | |
6654 addr)) | |
6655 (cons (downcase (mail-strip-quoted-names addr)) addr))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6656 (message-tokenize-header recipients))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6657 ;; Remove first duplicates. (Why not all duplicates? Is this a bug?) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6658 (let ((s recipients)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6659 (while s |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6660 (setq recipients (delq (assoc (car (pop s)) s) recipients)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6661 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6662 ;; Remove hierarchical lists that are contained within each other, |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6663 ;; if message-hierarchical-addresses is defined. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6664 (when message-hierarchical-addresses |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6665 (let ((plain-addrs (mapcar 'car recipients)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6666 subaddrs recip) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6667 (while plain-addrs |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6668 (setq subaddrs (assoc (car plain-addrs) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6669 message-hierarchical-addresses) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6670 plain-addrs (cdr plain-addrs)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6671 (when subaddrs |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6672 (setq subaddrs (cdr subaddrs)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6673 (while subaddrs |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6674 (setq recip (assoc (car subaddrs) recipients) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6675 subaddrs (cdr subaddrs)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6676 (if recip |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6677 (setq recipients (delq recip recipients)))))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6678 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6679 ;; Build the header alist. Allow the user to be asked whether |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6680 ;; or not to reply to all recipients in a wide reply. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6681 (setq follow-to (list (cons 'To (cdr (pop recipients))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6682 (when (and recipients |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6683 (or (not message-wide-reply-confirm-recipients) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6684 (y-or-n-p "Reply to all recipients? "))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6685 (setq recipients (mapconcat |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6686 (lambda (addr) (cdr addr)) recipients ", ")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6687 (if (string-match "^ +" recipients) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6688 (setq recipients (substring recipients (match-end 0)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6689 (push (cons 'Cc recipients) follow-to))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6690 follow-to)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6691 |
74021 | 6692 (defcustom message-simplify-subject-functions |
6693 '(message-strip-list-identifiers | |
6694 message-strip-subject-re | |
6695 message-strip-subject-trailing-was | |
6696 message-strip-subject-encoded-words) | |
6697 "List of functions taking a string argument that simplify subjects. | |
6698 The functions are applied when replying to a message. | |
6699 | |
6700 Useful functions to put in this list include: | |
6701 `message-strip-list-identifiers', `message-strip-subject-re', | |
6702 `message-strip-subject-trailing-was', and | |
6703 `message-strip-subject-encoded-words'." | |
6704 :version "22.1" ;; Gnus 5.10.9 | |
6705 :group 'message-various | |
6706 :type '(repeat function)) | |
6707 | |
6708 (defun message-simplify-subject (subject &optional functions) | |
6709 "Return simplified SUBJECT." | |
6710 (unless functions | |
6711 ;; Simplify fully: | |
6712 (setq functions message-simplify-subject-functions)) | |
6713 (when (and (memq 'message-strip-list-identifiers functions) | |
6714 gnus-list-identifiers) | |
6715 (setq subject (message-strip-list-identifiers subject))) | |
6716 (when (memq 'message-strip-subject-re functions) | |
6717 (setq subject (concat "Re: " (message-strip-subject-re subject)))) | |
6718 (when (and (memq 'message-strip-subject-trailing-was functions) | |
6719 message-subject-trailing-was-query) | |
6720 (setq subject (message-strip-subject-trailing-was subject))) | |
6721 (when (memq 'message-strip-subject-encoded-words functions) | |
6722 (setq subject (message-strip-subject-encoded-words subject))) | |
6723 subject) | |
6724 | |
17493 | 6725 ;;;###autoload |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6726 (defun message-reply (&optional to-address wide) |
17493 | 6727 "Start editing a reply to the article in the current buffer." |
6728 (interactive) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6729 (require 'gnus-sum) ; for gnus-list-identifiers |
17493 | 6730 (let ((cur (current-buffer)) |
6731 from subject date reply-to to cc | |
6732 references message-id follow-to | |
6733 (inhibit-point-motion-hooks t) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6734 (message-this-is-mail t) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6735 gnus-warning) |
17493 | 6736 (save-restriction |
34752
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
6737 (message-narrow-to-head-1) |
17493 | 6738 ;; Allow customizations to have their say. |
6739 (if (not wide) | |
6740 ;; This is a regular reply. | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6741 (when (functionp message-reply-to-function) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6742 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6743 (setq follow-to (funcall message-reply-to-function)))) |
17493 | 6744 ;; This is a followup. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6745 (when (functionp message-wide-reply-to-function) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6746 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6747 (setq follow-to |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6748 (funcall message-wide-reply-to-function))))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6749 (setq message-id (message-fetch-field "message-id" t) |
17493 | 6750 references (message-fetch-field "references") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6751 date (message-fetch-field "date") |
73007 | 6752 from (or (message-fetch-field "from") "nobody") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6753 subject (or (message-fetch-field "subject") "none")) |
74021 | 6754 |
6755 ;; Strip list identifiers, "Re: ", and "was:" | |
6756 (setq subject (message-simplify-subject subject)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6757 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6758 (when (and (setq gnus-warning (message-fetch-field "gnus-warning")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6759 (string-match "<[^>]+>" gnus-warning)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6760 (setq message-id (match-string 0 gnus-warning))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6761 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6762 (unless follow-to |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6763 (setq follow-to (message-get-reply-headers wide to-address)))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6764 |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6765 (unless (message-mail-user-agent) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6766 (message-pop-to-buffer |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6767 (message-buffer-name |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6768 (if wide "wide reply" "reply") from |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
6769 (if wide to-address nil)))) |
17493 | 6770 |
6771 (setq message-reply-headers | |
6772 (vector 0 subject from date message-id references 0 0 "")) | |
6773 | |
6774 (message-setup | |
6775 `((Subject . ,subject) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6776 ,@follow-to) |
17493 | 6777 cur))) |
6778 | |
6779 ;;;###autoload | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6780 (defun message-wide-reply (&optional to-address) |
17493 | 6781 "Make a \"wide\" reply to the message in the current buffer." |
6782 (interactive) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
6783 (message-reply to-address t)) |
17493 | 6784 |
6785 ;;;###autoload | |
6786 (defun message-followup (&optional to-newsgroups) | |
6787 "Follow up to the message in the current buffer. | |
6788 If TO-NEWSGROUPS, use that as the new Newsgroups line." | |
6789 (interactive) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6790 (require 'gnus-sum) ; for gnus-list-identifiers |
17493 | 6791 (let ((cur (current-buffer)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6792 from subject date reply-to mrt mct |
17493 | 6793 references message-id follow-to |
6794 (inhibit-point-motion-hooks t) | |
6795 (message-this-is-news t) | |
6796 followup-to distribution newsgroups gnus-warning posted-to) | |
6797 (save-restriction | |
6798 (narrow-to-region | |
6799 (goto-char (point-min)) | |
6800 (if (search-forward "\n\n" nil t) | |
6801 (1- (point)) | |
6802 (point-max))) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6803 (when (functionp message-followup-to-function) |
17493 | 6804 (setq follow-to |
6805 (funcall message-followup-to-function))) | |
6806 (setq from (message-fetch-field "from") | |
6807 date (message-fetch-field "date") | |
6808 subject (or (message-fetch-field "subject") "none") | |
6809 references (message-fetch-field "references") | |
6810 message-id (message-fetch-field "message-id" t) | |
6811 followup-to (message-fetch-field "followup-to") | |
6812 newsgroups (message-fetch-field "newsgroups") | |
6813 posted-to (message-fetch-field "posted-to") | |
6814 reply-to (message-fetch-field "reply-to") | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6815 mrt (message-fetch-field "mail-reply-to") |
17493 | 6816 distribution (message-fetch-field "distribution") |
6817 mct (message-fetch-field "mail-copies-to")) | |
6818 (when (and (setq gnus-warning (message-fetch-field "gnus-warning")) | |
6819 (string-match "<[^>]+>" gnus-warning)) | |
6820 (setq message-id (match-string 0 gnus-warning))) | |
6821 ;; Remove bogus distribution. | |
6822 (when (and (stringp distribution) | |
6823 (let ((case-fold-search t)) | |
6824 (string-match "world" distribution))) | |
6825 (setq distribution nil)) | |
74021 | 6826 ;; Strip list identifiers, "Re: ", and "was:" |
6827 (setq subject (message-simplify-subject subject)) | |
17493 | 6828 (widen)) |
6829 | |
6830 (message-pop-to-buffer (message-buffer-name "followup" from newsgroups)) | |
6831 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6832 (setq message-reply-headers |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6833 (vector 0 subject from date message-id references 0 0 "")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6834 |
17493 | 6835 (message-setup |
6836 `((Subject . ,subject) | |
6837 ,@(cond | |
6838 (to-newsgroups | |
6839 (list (cons 'Newsgroups to-newsgroups))) | |
6840 (follow-to follow-to) | |
6841 ((and followup-to message-use-followup-to) | |
6842 (list | |
6843 (cond | |
6844 ((equal (downcase followup-to) "poster") | |
6845 (if (or (eq message-use-followup-to 'use) | |
6846 (message-y-or-n-p "Obey Followup-To: poster? " t "\ | |
6847 You should normally obey the Followup-To: header. | |
6848 | |
6849 `Followup-To: poster' sends your response via e-mail instead of news. | |
6850 | |
6851 A typical situation where `Followup-To: poster' is used is when the poster | |
60356
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6852 does not read the newsgroup, so he wouldn't see any replies sent to it. |
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6853 |
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6854 You may customize the variable `message-use-followup-to', if you |
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6855 want to get rid of this query permanently.")) |
17493 | 6856 (progn |
6857 (setq message-this-is-news nil) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6858 (cons 'To (or mrt reply-to from ""))) |
17493 | 6859 (cons 'Newsgroups newsgroups))) |
6860 (t | |
6861 (if (or (equal followup-to newsgroups) | |
6862 (not (eq message-use-followup-to 'ask)) | |
6863 (message-y-or-n-p | |
6864 (concat "Obey Followup-To: " followup-to "? ") t "\ | |
6865 You should normally obey the Followup-To: header. | |
6866 | |
6867 `Followup-To: " followup-to "' | |
6868 directs your response to " (if (string-match "," followup-to) | |
6869 "the specified newsgroups" | |
6870 "that newsgroup only") ". | |
6871 | |
6872 If a message is posted to several newsgroups, Followup-To is often | |
6873 used to direct the following discussion to one newsgroup only, | |
6874 because discussions that are spread over several newsgroup tend to | |
6875 be fragmented and very difficult to follow. | |
6876 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6877 Also, some source/announcement newsgroups are not intended for discussion; |
60356
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6878 responses here are directed to other newsgroups. |
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6879 |
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6880 You may customize the variable `message-use-followup-to', if you |
3f394ef46f57
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-151
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
6881 want to get rid of this query permanently.")) |
17493 | 6882 (cons 'Newsgroups followup-to) |
6883 (cons 'Newsgroups newsgroups)))))) | |
6884 (posted-to | |
6885 `((Newsgroups . ,posted-to))) | |
6886 (t | |
6887 `((Newsgroups . ,newsgroups)))) | |
6888 ,@(and distribution (list (cons 'Distribution distribution))) | |
6889 ,@(when (and mct | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6890 (not (or (equal (downcase mct) "never") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6891 (equal (downcase mct) "nobody")))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6892 (list (cons 'Cc (if (or (equal (downcase mct) "always") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6893 (equal (downcase mct) "poster")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6894 (or mrt reply-to from "") |
17493 | 6895 mct))))) |
6896 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6897 cur))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6898 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6899 (defun message-is-yours-p () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6900 "Non-nil means current article is yours. |
63398
2f37f6737221
(message-is-yours-p): Fix quoting.
Juanma Barranquero <lekktu@gmail.com>
parents:
62755
diff
changeset
|
6901 If you have added 'cancel-messages to `message-shoot-gnksa-feet', all articles |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6902 are yours except those that have Cancel-Lock header not belonging to you. |
63398
2f37f6737221
(message-is-yours-p): Fix quoting.
Juanma Barranquero <lekktu@gmail.com>
parents:
62755
diff
changeset
|
6903 Instead of shooting GNKSA feet, you should modify `message-alternative-emails' |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6904 regexp to match all of yours addresses." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6905 ;; Canlock-logic as suggested by Per Abrahamsen |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6906 ;; <abraham@dina.kvl.dk> |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6907 ;; |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6908 ;; IF article has cancel-lock THEN |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6909 ;; IF we can verify it THEN |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6910 ;; issue cancel |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6911 ;; ELSE |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6912 ;; error: cancellock: article is not yours |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6913 ;; ELSE |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6914 ;; Use old rules, comparing sender... |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6915 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6916 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6917 (message-narrow-to-head-1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6918 (if (message-fetch-field "Cancel-Lock") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6919 (if (null (canlock-verify)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6920 t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6921 (error "Failed to verify Cancel-lock: This article is not yours")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6922 (let (sender from) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6923 (or |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6924 (message-gnksa-enable-p 'cancel-messages) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6925 (and (setq sender (message-fetch-field "sender")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6926 (string-equal (downcase sender) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6927 (downcase (message-make-sender)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6928 ;; Email address in From field equals to our address |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6929 (and (setq from (message-fetch-field "from")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6930 (string-equal |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6931 (downcase (car (mail-header-parse-address from))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6932 (downcase (car (mail-header-parse-address |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6933 (message-make-from)))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6934 ;; Email address in From field matches |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6935 ;; 'message-alternative-emails' regexp |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6936 (and from |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6937 message-alternative-emails |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6938 (string-match |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6939 message-alternative-emails |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
6940 (car (mail-header-parse-address from)))))))))) |
17493 | 6941 |
6942 ;;;###autoload | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6943 (defun message-cancel-news (&optional arg) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6944 "Cancel an article you posted. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6945 If ARG, allow editing of the cancellation message." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6946 (interactive "P") |
17493 | 6947 (unless (message-news-p) |
6948 (error "This is not a news article; canceling is impossible")) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6949 (let (from newsgroups message-id distribution buf) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6950 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6951 ;; Get header info from original article. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6952 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6953 (message-narrow-to-head-1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6954 (setq from (message-fetch-field "from") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6955 newsgroups (message-fetch-field "newsgroups") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6956 message-id (message-fetch-field "message-id" t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6957 distribution (message-fetch-field "distribution"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6958 ;; Make sure that this article was written by the user. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6959 (unless (message-is-yours-p) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6960 (error "This article is not yours")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6961 (when (yes-or-no-p "Do you really want to cancel this article? ") |
17493 | 6962 ;; Make control message. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6963 (if arg |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6964 (message-news) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6965 (setq buf (set-buffer (get-buffer-create " *message cancel*")))) |
17493 | 6966 (erase-buffer) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
6967 (insert "Newsgroups: " newsgroups "\n" |
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
6968 "From: " from "\n" |
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
6969 "Subject: cmsg cancel " message-id "\n" |
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
6970 "Control: cancel " message-id "\n" |
17493 | 6971 (if distribution |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
6972 (concat "Distribution: " distribution "\n") |
17493 | 6973 "") |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
6974 mail-header-separator "\n" |
17493 | 6975 message-cancel-message) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6976 (run-hooks 'message-cancel-hook) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6977 (unless arg |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6978 (message "Canceling your article...") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6979 (if (let ((message-syntax-checks |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6980 'dont-check-for-anything-just-trust-me)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6981 (funcall message-send-news-function)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6982 (message "Canceling your article...done")) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6983 (kill-buffer buf)))))) |
17493 | 6984 |
6985 ;;;###autoload | |
6986 (defun message-supersede () | |
6987 "Start composing a message to supersede the current message. | |
6988 This is done simply by taking the old article and adding a Supersedes | |
6989 header line with the old Message-ID." | |
6990 (interactive) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6991 (let ((cur (current-buffer))) |
17493 | 6992 ;; Check whether the user owns the article that is to be superseded. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
6993 (unless (message-is-yours-p) |
17493 | 6994 (error "This article is not yours")) |
6995 ;; Get a normal message buffer. | |
6996 (message-pop-to-buffer (message-buffer-name "supersede")) | |
6997 (insert-buffer-substring cur) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
6998 (mime-to-mml) |
34752
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
6999 (message-narrow-to-head-1) |
17493 | 7000 ;; Remove unwanted headers. |
7001 (when message-ignored-supersedes-headers | |
7002 (message-remove-header message-ignored-supersedes-headers t)) | |
7003 (goto-char (point-min)) | |
7004 (if (not (re-search-forward "^Message-ID: " nil t)) | |
7005 (error "No Message-ID in this article") | |
7006 (replace-match "Supersedes: " t t)) | |
7007 (goto-char (point-max)) | |
7008 (insert mail-header-separator) | |
7009 (widen) | |
7010 (forward-line 1))) | |
7011 | |
7012 ;;;###autoload | |
7013 (defun message-recover () | |
7014 "Reread contents of current buffer from its last auto-save file." | |
7015 (interactive) | |
7016 (let ((file-name (make-auto-save-file-name))) | |
7017 (cond ((save-window-excursion | |
97142 | 7018 (with-output-to-temp-buffer "*Directory*" |
7019 (with-current-buffer standard-output | |
7020 (fundamental-mode)) ; for Emacs 20.4+ | |
7021 (buffer-disable-undo standard-output) | |
7022 (let ((default-directory "/")) | |
7023 (call-process | |
7024 "ls" nil standard-output nil "-l" file-name))) | |
17493 | 7025 (yes-or-no-p (format "Recover auto save file %s? " file-name))) |
7026 (let ((buffer-read-only nil)) | |
7027 (erase-buffer) | |
7028 (insert-file-contents file-name nil))) | |
7029 (t (error "message-recover cancelled"))))) | |
7030 | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7031 ;;; Washing Subject: |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7032 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7033 (defun message-wash-subject (subject) |
35147 | 7034 "Remove junk like \"Re:\", \"(fwd)\", etc. added to subject string SUBJECT. |
7035 Previous forwarders, replyers, etc. may add it." | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7036 (with-temp-buffer |
41494
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
36856
diff
changeset
|
7037 (insert subject) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7038 (goto-char (point-min)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7039 ;; strip Re/Fwd stuff off the beginning |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7040 (while (re-search-forward |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7041 "\\([Rr][Ee]:\\|[Ff][Ww][Dd]\\(\\[[0-9]*\\]\\)?:\\|[Ff][Ww]:\\)" nil t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7042 (replace-match "")) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7043 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7044 ;; and gnus-style forwards [foo@bar.com] subject |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7045 (goto-char (point-min)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7046 (while (re-search-forward "\\[[^ \t]*\\(@\\|\\.\\)[^ \t]*\\]" nil t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7047 (replace-match "")) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7048 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7049 ;; and off the end |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7050 (goto-char (point-max)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7051 (while (re-search-backward "([Ff][Ww][Dd])" nil t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7052 (replace-match "")) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7053 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7054 ;; and finally, any whitespace that was left-over |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7055 (goto-char (point-min)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7056 (while (re-search-forward "^[ \t]+" nil t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7057 (replace-match "")) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7058 (goto-char (point-max)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7059 (while (re-search-backward "[ \t]+$" nil t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7060 (replace-match "")) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7061 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7062 (buffer-string))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7063 |
17493 | 7064 ;;; Forwarding messages. |
7065 | |
36856
e11fd97820c0
2001-03-17 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
36036
diff
changeset
|
7066 (defvar message-forward-decoded-p nil |
e11fd97820c0
2001-03-17 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
36036
diff
changeset
|
7067 "Non-nil means the original message is decoded.") |
e11fd97820c0
2001-03-17 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
36036
diff
changeset
|
7068 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7069 (defun message-forward-subject-name-subject (subject) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7070 "Generate a SUBJECT for a forwarded message. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7071 The form is: [Source] Subject, where if the original message was mail, |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7072 Source is the name of the sender, and if the original message was |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7073 news, Source is the list of newsgroups is was posted to." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7074 (let* ((group (message-fetch-field "newsgroups")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7075 (from (message-fetch-field "from")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7076 (prefix |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7077 (if group |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7078 (gnus-group-decoded-name group) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7079 (or (and from (or |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7080 (car (gnus-extract-address-components from)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7081 (cadr (gnus-extract-address-components from)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7082 "(nowhere)")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7083 (concat "[" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7084 (if message-forward-decoded-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7085 prefix |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7086 (mail-decode-encoded-word-string prefix)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7087 "] " subject))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7088 |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7089 (defun message-forward-subject-author-subject (subject) |
35147 | 7090 "Generate a SUBJECT for a forwarded message. |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7091 The form is: [Source] Subject, where if the original message was mail, |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7092 Source is the sender, and if the original message was news, Source is |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7093 the list of newsgroups is was posted to." |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7094 (let* ((group (message-fetch-field "newsgroups")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7095 (prefix |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7096 (if group |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7097 (gnus-group-decoded-name group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7098 (or (message-fetch-field "from") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7099 "(nowhere)")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7100 (concat "[" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7101 (if message-forward-decoded-p |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7102 prefix |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7103 (mail-decode-encoded-word-string prefix)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7104 "] " subject))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7105 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7106 (defun message-forward-subject-fwd (subject) |
35147 | 7107 "Generate a SUBJECT for a forwarded message. |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7108 The form is: Fwd: Subject, where Subject is the original subject of |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7109 the message." |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7110 (if (string-match "^Fwd: " subject) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7111 subject |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7112 (concat "Fwd: " subject))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7113 |
36856
e11fd97820c0
2001-03-17 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
36036
diff
changeset
|
7114 (defun message-make-forward-subject () |
17493 | 7115 "Return a Subject header suitable for the message in the current buffer." |
7116 (save-excursion | |
7117 (save-restriction | |
34752
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
7118 (message-narrow-to-head-1) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7119 (let ((funcs message-make-forward-subject-function) |
34752
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
7120 (subject (message-fetch-field "Subject"))) |
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
7121 (setq subject |
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
7122 (if subject |
36856
e11fd97820c0
2001-03-17 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
36036
diff
changeset
|
7123 (if message-forward-decoded-p |
35957
a35d9c07d074
2001-02-07 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
35453
diff
changeset
|
7124 subject |
a35d9c07d074
2001-02-07 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
35453
diff
changeset
|
7125 (mail-decode-encoded-word-string subject)) |
34752
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
7126 "")) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7127 (when message-wash-forwarded-subjects |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7128 (setq subject (message-wash-subject subject))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7129 ;; Make sure funcs is a list. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7130 (and funcs |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7131 (not (listp funcs)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7132 (setq funcs (list funcs))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7133 ;; Apply funcs in order, passing subject generated by previous |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7134 ;; func to the next one. |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7135 (dolist (func funcs) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7136 (when (functionp func) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7137 (setq subject (funcall func subject)))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7138 subject)))) |
17493 | 7139 |
86154 | 7140 (defvar gnus-article-decoded-p) |
36856
e11fd97820c0
2001-03-17 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
36036
diff
changeset
|
7141 |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7142 |
17493 | 7143 ;;;###autoload |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7144 (defun message-forward (&optional news digest) |
17493 | 7145 "Forward the current message via mail. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7146 Optional NEWS will use news to forward instead of mail. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7147 Optional DIGEST will use digest to forward." |
17493 | 7148 (interactive "P") |
36856
e11fd97820c0
2001-03-17 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
36036
diff
changeset
|
7149 (let* ((cur (current-buffer)) |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7150 (message-forward-decoded-p |
36856
e11fd97820c0
2001-03-17 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
36036
diff
changeset
|
7151 (if (local-variable-p 'gnus-article-decoded-p (current-buffer)) |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7152 gnus-article-decoded-p ;; In an article buffer. |
36856
e11fd97820c0
2001-03-17 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
36036
diff
changeset
|
7153 message-forward-decoded-p)) |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7154 (subject (message-make-forward-subject))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7155 (if news |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7156 (message-news nil subject) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7157 (message-mail nil subject)) |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7158 (message-forward-make-body cur digest))) |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7159 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7160 (defun message-forward-make-body-plain (forward-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7161 (insert |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
7162 "\n-------------------- Start of forwarded message --------------------\n") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7163 (let ((b (point)) e) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7164 (insert |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7165 (with-temp-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7166 (mm-disable-multibyte) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7167 (insert |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7168 (with-current-buffer forward-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7169 (mm-with-unibyte-current-buffer (buffer-string)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7170 (mm-enable-multibyte) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7171 (mime-to-mml) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7172 (goto-char (point-min)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7173 (when (looking-at "From ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7174 (replace-match "X-From-Line: ")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7175 (buffer-string))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7176 (setq e (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7177 (insert |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
7178 "\n-------------------- End of forwarded message --------------------\n") |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7179 (message-remove-ignored-headers b e))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7180 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7181 (defun message-remove-ignored-headers (b e) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7182 (when message-forward-ignored-headers |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7183 (save-restriction |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7184 (narrow-to-region b e) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7185 (goto-char b) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7186 (narrow-to-region (point) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7187 (or (search-forward "\n\n" nil t) (point))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7188 (let ((ignored (if (stringp message-forward-ignored-headers) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7189 (list message-forward-ignored-headers) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7190 message-forward-ignored-headers))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7191 (dolist (elem ignored) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7192 (message-remove-header elem t)))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7193 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7194 (defun message-forward-make-body-mime (forward-buffer) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7195 (let ((b (point))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7196 (insert "\n\n<#part type=message/rfc822 disposition=inline raw=t>\n") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7197 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7198 (narrow-to-region (point) (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7199 (mml-insert-buffer forward-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7200 (goto-char (point-min)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7201 (when (looking-at "From ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7202 (replace-match "X-From-Line: ")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7203 (goto-char (point-max))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7204 (insert "<#/part>\n") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7205 ;; Consider there is no illegible text. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7206 (add-text-properties |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7207 b (point) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7208 `(no-illegible-text t rear-nonsticky t start-open t)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7209 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7210 (defun message-forward-make-body-mml (forward-buffer) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
7211 (insert "\n\n<#mml type=message/rfc822 disposition=inline>\n") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7212 (let ((b (point)) e) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7213 (if (not message-forward-decoded-p) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7214 (insert |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7215 (with-temp-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7216 (mm-disable-multibyte) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7217 (insert |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7218 (with-current-buffer forward-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7219 (mm-with-unibyte-current-buffer (buffer-string)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7220 (mm-enable-multibyte) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7221 (mime-to-mml) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7222 (goto-char (point-min)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7223 (when (looking-at "From ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7224 (replace-match "X-From-Line: ")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7225 (buffer-string))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7226 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7227 (narrow-to-region (point) (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7228 (mml-insert-buffer forward-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7229 (goto-char (point-min)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7230 (when (looking-at "From ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7231 (replace-match "X-From-Line: ")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7232 (goto-char (point-max)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7233 (setq e (point)) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
7234 (insert "<#/mml>\n") |
58835
9bdd97960431
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-716
Miles Bader <miles@gnu.org>
parents:
57856
diff
changeset
|
7235 (when (and (not message-forward-decoded-p) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7236 message-forward-ignored-headers) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7237 (message-remove-ignored-headers b e)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7238 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7239 (defun message-forward-make-body-digest-plain (forward-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7240 (insert |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
7241 "\n-------------------- Start of forwarded message --------------------\n") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7242 (let ((b (point)) e) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7243 (mml-insert-buffer forward-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7244 (setq e (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7245 (insert |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
7246 "\n-------------------- End of forwarded message --------------------\n"))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7247 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7248 (defun message-forward-make-body-digest-mime (forward-buffer) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
7249 (insert "\n<#multipart type=digest>\n") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7250 (let ((b (point)) e) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7251 (insert-buffer-substring forward-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7252 (setq e (point)) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
7253 (insert "<#/multipart>\n") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7254 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7255 (narrow-to-region b e) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7256 (goto-char b) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7257 (narrow-to-region (point) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7258 (or (search-forward "\n\n" nil t) (point))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7259 (delete-region (point-min) (point-max))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7260 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7261 (defun message-forward-make-body-digest (forward-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7262 (if message-forward-as-mime |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7263 (message-forward-make-body-digest-mime forward-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7264 (message-forward-make-body-digest-plain forward-buffer))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7265 |
95820
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
7266 (autoload 'mm-uu-dissect-text-parts "mm-uu") |
645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
Glenn Morris <rgm@gnu.org>
parents:
95580
diff
changeset
|
7267 (autoload 'mm-uu-dissect "mm-uu") |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7268 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7269 (defun message-signed-or-encrypted-p (&optional dont-emulate-mime handles) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7270 "Say whether the current buffer contains signed or encrypted message. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7271 If DONT-EMULATE-MIME is nil, this function does the MIME emulation on |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7272 messages that don't conform to PGP/MIME described in RFC2015. HANDLES |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7273 is for the internal use." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7274 (unless handles |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7275 (let ((mm-decrypt-option 'never) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7276 (mm-verify-option 'never)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7277 (if (setq handles (mm-dissect-buffer nil t)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7278 (unless dont-emulate-mime |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7279 (mm-uu-dissect-text-parts handles)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7280 (unless dont-emulate-mime |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7281 (setq handles (mm-uu-dissect)))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7282 ;; Check text/plain message in which there is a signed or encrypted |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7283 ;; body that has been encoded by B or Q. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7284 (unless (or handles dont-emulate-mime) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7285 (let ((cur (current-buffer)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7286 (mm-decrypt-option 'never) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7287 (mm-verify-option 'never)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7288 (with-temp-buffer |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7289 (insert-buffer-substring cur) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7290 (when (setq handles (mm-dissect-buffer t t)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7291 (if (and (prog1 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7292 (bufferp (car handles)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7293 (mm-destroy-parts handles)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7294 (equal (mm-handle-media-type handles) "text/plain")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7295 (progn |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7296 (mm-decode-content-transfer-encoding |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7297 (mm-handle-encoding handles)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7298 (setq handles (mm-uu-dissect))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7299 (setq handles nil)))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7300 (when handles |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7301 (prog1 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7302 (catch 'found |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7303 (dolist (handle (if (stringp (car handles)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7304 (if (member (car handles) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7305 '("multipart/signed" |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7306 "multipart/encrypted")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7307 (throw 'found t) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7308 (cdr handles)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7309 (list handles))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7310 (if (stringp (car handle)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7311 (when (message-signed-or-encrypted-p dont-emulate-mime handle) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7312 (throw 'found t)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7313 (when (and (bufferp (car handle)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7314 (equal (mm-handle-media-type handle) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7315 "message/rfc822")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7316 (with-current-buffer (mm-handle-buffer handle) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7317 (when (message-signed-or-encrypted-p dont-emulate-mime) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7318 (throw 'found t))))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7319 (mm-destroy-parts handles)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7320 |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7321 ;;;###autoload |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7322 (defun message-forward-make-body (forward-buffer &optional digest) |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7323 ;; Put point where we want it before inserting the forwarded |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7324 ;; message. |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7325 (if message-forward-before-signature |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7326 (message-goto-body) |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7327 (goto-char (point-max))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7328 (if digest |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7329 (message-forward-make-body-digest forward-buffer) |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7330 (if message-forward-as-mime |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7331 (if (and message-forward-show-mml |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7332 (not (and (eq message-forward-show-mml 'best) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7333 ;; Use the raw form in the body if it contains |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7334 ;; signed or encrypted message so as not to be |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7335 ;; destroyed by re-encoding. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7336 (with-current-buffer forward-buffer |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7337 (condition-case nil |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7338 (message-signed-or-encrypted-p) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7339 (error t)))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7340 (message-forward-make-body-mml forward-buffer) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7341 (message-forward-make-body-mime forward-buffer)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7342 (message-forward-make-body-plain forward-buffer))) |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7343 (message-position-point)) |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7344 |
101896
97a01032d9d2
(rmail-msg-restore-non-pruned-header): Remove unneeded autoload of
Glenn Morris <rgm@gnu.org>
parents:
100993
diff
changeset
|
7345 (declare-function rmail-toggle-header "rmail" (&optional arg)) |
97a01032d9d2
(rmail-msg-restore-non-pruned-header): Remove unneeded autoload of
Glenn Morris <rgm@gnu.org>
parents:
100993
diff
changeset
|
7346 |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7347 ;;;###autoload |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7348 (defun message-forward-rmail-make-body (forward-buffer) |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7349 (save-window-excursion |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7350 (set-buffer forward-buffer) |
43075
e14b8be37d7d
* message.el (message-forward-rmail-make-body): Directly use
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
42475
diff
changeset
|
7351 (if (rmail-msg-is-pruned) |
101896
97a01032d9d2
(rmail-msg-restore-non-pruned-header): Remove unneeded autoload of
Glenn Morris <rgm@gnu.org>
parents:
100993
diff
changeset
|
7352 (if (fboundp 'rmail-msg-restore-non-pruned-header) |
97a01032d9d2
(rmail-msg-restore-non-pruned-header): Remove unneeded autoload of
Glenn Morris <rgm@gnu.org>
parents:
100993
diff
changeset
|
7353 (rmail-msg-restore-non-pruned-header) ; Emacs 22 |
97a01032d9d2
(rmail-msg-restore-non-pruned-header): Remove unneeded autoload of
Glenn Morris <rgm@gnu.org>
parents:
100993
diff
changeset
|
7354 (rmail-toggle-header 0)))) ; Emacs 23 |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7355 (message-forward-make-body forward-buffer)) |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7356 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7357 ;; Fixme: Should have defcustom. |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7358 ;;;###autoload |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7359 (defun message-insinuate-rmail () |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7360 "Let RMAIL use message to forward." |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7361 (interactive) |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7362 (setq rmail-enable-mime-composing t) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49034
diff
changeset
|
7363 (setq rmail-insert-mime-forwarded-message-function |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7364 'message-forward-rmail-make-body)) |
17493 | 7365 |
7366 ;;;###autoload | |
7367 (defun message-resend (address) | |
7368 "Resend the current article to ADDRESS." | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7369 (interactive |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7370 (list (message-read-from-minibuffer "Resend message to: "))) |
17493 | 7371 (message "Resending message to %s..." address) |
7372 (save-excursion | |
7373 (let ((cur (current-buffer)) | |
7374 beg) | |
7375 ;; We first set up a normal mail buffer. | |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7376 (unless (message-mail-user-agent) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7377 (set-buffer (get-buffer-create " *message resend*")) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7378 (erase-buffer)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7379 (let ((message-this-is-mail t) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7380 message-generate-hashcash |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7381 message-setup-hook) |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7382 (message-setup `((To . ,address)))) |
17493 | 7383 ;; Insert our usual headers. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7384 (message-generate-headers '(From Date To Message-ID)) |
17493 | 7385 (message-narrow-to-headers) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7386 ;; Remove X-Draft-From header etc. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7387 (message-remove-header message-ignored-mail-headers t) |
17493 | 7388 ;; Rename them all to "Resent-*". |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7389 (goto-char (point-min)) |
17493 | 7390 (while (re-search-forward "^[A-Za-z]" nil t) |
7391 (forward-char -1) | |
7392 (insert "Resent-")) | |
7393 (widen) | |
7394 (forward-line) | |
7395 (delete-region (point) (point-max)) | |
7396 (setq beg (point)) | |
7397 ;; Insert the message to be resent. | |
7398 (insert-buffer-substring cur) | |
7399 (goto-char (point-min)) | |
7400 (search-forward "\n\n") | |
7401 (forward-char -1) | |
7402 (save-restriction | |
7403 (narrow-to-region beg (point)) | |
7404 (message-remove-header message-ignored-resent-headers t) | |
7405 (goto-char (point-max))) | |
7406 (insert mail-header-separator) | |
7407 ;; Rename all old ("Also-")Resent headers. | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7408 (while (re-search-backward "^\\(Also-\\)*Resent-" beg t) |
17493 | 7409 (beginning-of-line) |
7410 (insert "Also-")) | |
7411 ;; Quote any "From " lines at the beginning. | |
7412 (goto-char beg) | |
7413 (when (looking-at "From ") | |
7414 (replace-match "X-From-Line: ")) | |
7415 ;; Send it. | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7416 (let ((message-inhibit-body-encoding t) |
61126
c0aa521e0ca7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-220
Miles Bader <miles@gnu.org>
parents:
60655
diff
changeset
|
7417 message-required-mail-headers |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7418 message-generate-hashcash |
61126
c0aa521e0ca7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-220
Miles Bader <miles@gnu.org>
parents:
60655
diff
changeset
|
7419 rfc2047-encode-encoded-words) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7420 (message-send-mail)) |
17493 | 7421 (kill-buffer (current-buffer))) |
7422 (message "Resending message to %s...done" address))) | |
7423 | |
7424 ;;;###autoload | |
7425 (defun message-bounce () | |
7426 "Re-mail the current message. | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7427 This only makes sense if the current message is a bounce message that |
17493 | 7428 contains some mail you have written which has been bounced back to |
7429 you." | |
7430 (interactive) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7431 (let ((handles (mm-dissect-buffer t)) |
17493 | 7432 boundary) |
7433 (message-pop-to-buffer (message-buffer-name "bounce")) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7434 (if (stringp (car handles)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7435 ;; This is a MIME bounce. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7436 (mm-insert-part (car (last handles))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7437 ;; This is a non-MIME bounce, so we try to remove things |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7438 ;; manually. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7439 (mm-insert-part handles) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7440 (undo-boundary) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7441 (goto-char (point-min)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7442 (re-search-forward "\n\n+" nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7443 (setq boundary (point)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7444 ;; We remove everything before the bounced mail. |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7445 (if (or (re-search-forward message-unsent-separator nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7446 (progn |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7447 (search-forward "\n\n" nil 'move) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7448 (re-search-backward "^Return-Path:.*\n" boundary t))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7449 (progn |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7450 (forward-line 1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7451 (delete-region (point-min) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7452 (if (re-search-forward "^[^ \n\t]+:" nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7453 (match-beginning 0) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7454 (point)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7455 (goto-char boundary) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7456 (when (re-search-backward "^.?From .*\n" nil t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7457 (delete-region (match-beginning 0) (match-end 0))))) |
78369 | 7458 (mime-to-mml) |
17493 | 7459 (save-restriction |
34752
f04f551e94ce
* message.el (message-narrow-to-head-1): New function.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34485
diff
changeset
|
7460 (message-narrow-to-head-1) |
17493 | 7461 (message-remove-header message-ignored-bounced-headers t) |
7462 (goto-char (point-max)) | |
7463 (insert mail-header-separator)) | |
7464 (message-position-point))) | |
7465 | |
7466 ;;; | |
7467 ;;; Interactive entry points for new message buffers. | |
7468 ;;; | |
7469 | |
7470 ;;;###autoload | |
7471 (defun message-mail-other-window (&optional to subject) | |
7472 "Like `message-mail' command, but display mail buffer in another window." | |
7473 (interactive) | |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7474 (unless (message-mail-user-agent) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7475 (let ((pop-up-windows t) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7476 (special-display-buffer-names nil) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7477 (special-display-regexps nil) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7478 (same-window-buffer-names nil) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7479 (same-window-regexps nil)) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7480 (message-pop-to-buffer (message-buffer-name "mail" to)))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7481 (let ((message-this-is-mail t)) |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7482 (message-setup `((To . ,(or to "")) (Subject . ,(or subject ""))) |
76650 | 7483 nil nil nil 'switch-to-buffer-other-window))) |
17493 | 7484 |
7485 ;;;###autoload | |
7486 (defun message-mail-other-frame (&optional to subject) | |
7487 "Like `message-mail' command, but display mail buffer in another frame." | |
7488 (interactive) | |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7489 (unless (message-mail-user-agent) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7490 (let ((pop-up-frames t) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7491 (special-display-buffer-names nil) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7492 (special-display-regexps nil) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7493 (same-window-buffer-names nil) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7494 (same-window-regexps nil)) |
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7495 (message-pop-to-buffer (message-buffer-name "mail" to)))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7496 (let ((message-this-is-mail t)) |
34797
b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34766
diff
changeset
|
7497 (message-setup `((To . ,(or to "")) (Subject . ,(or subject ""))) |
76650 | 7498 nil nil nil 'switch-to-buffer-other-frame))) |
17493 | 7499 |
7500 ;;;###autoload | |
7501 (defun message-news-other-window (&optional newsgroups subject) | |
7502 "Start editing a news article to be sent." | |
7503 (interactive) | |
7504 (let ((pop-up-windows t) | |
7505 (special-display-buffer-names nil) | |
7506 (special-display-regexps nil) | |
7507 (same-window-buffer-names nil) | |
7508 (same-window-regexps nil)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7509 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7510 (let ((message-this-is-news t)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7511 (message-setup `((Newsgroups . ,(or newsgroups "")) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7512 (Subject . ,(or subject "")))))) |
17493 | 7513 |
7514 ;;;###autoload | |
7515 (defun message-news-other-frame (&optional newsgroups subject) | |
7516 "Start editing a news article to be sent." | |
7517 (interactive) | |
7518 (let ((pop-up-frames t) | |
7519 (special-display-buffer-names nil) | |
7520 (special-display-regexps nil) | |
7521 (same-window-buffer-names nil) | |
7522 (same-window-regexps nil)) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7523 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7524 (let ((message-this-is-news t)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7525 (message-setup `((Newsgroups . ,(or newsgroups "")) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7526 (Subject . ,(or subject "")))))) |
17493 | 7527 |
7528 ;;; underline.el | |
7529 | |
7530 ;; This code should be moved to underline.el (from which it is stolen). | |
7531 | |
7532 ;;;###autoload | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7533 (defun message-bold-region (start end) |
17493 | 7534 "Bold all nonblank characters in the region. |
7535 Works by overstriking characters. | |
7536 Called from program, takes two arguments START and END | |
7537 which specify the range to operate on." | |
7538 (interactive "r") | |
7539 (save-excursion | |
7540 (let ((end1 (make-marker))) | |
7541 (move-marker end1 (max start end)) | |
7542 (goto-char (min start end)) | |
7543 (while (< (point) end1) | |
7544 (or (looking-at "[_\^@- ]") | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7545 (insert (char-after) "\b")) |
17493 | 7546 (forward-char 1))))) |
7547 | |
7548 ;;;###autoload | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7549 (defun message-unbold-region (start end) |
17493 | 7550 "Remove all boldness (overstruck characters) in the region. |
7551 Called from program, takes two arguments START and END | |
7552 which specify the range to operate on." | |
7553 (interactive "r") | |
7554 (save-excursion | |
7555 (let ((end1 (make-marker))) | |
7556 (move-marker end1 (max start end)) | |
7557 (goto-char (min start end)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7558 (while (search-forward "\b" end1 t) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7559 (if (eq (char-after) (char-after (- (point) 2))) |
17493 | 7560 (delete-char -2)))))) |
7561 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7562 (defun message-exchange-point-and-mark () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7563 "Exchange point and mark, but don't activate region if it was inactive." |
106715
428005d3198e
Fix last change to message-exchange-point-and-mark.
Chong Yidong <cyd@stupidchicken.com>
parents:
106693
diff
changeset
|
7564 (goto-char (prog1 (mark t) |
428005d3198e
Fix last change to message-exchange-point-and-mark.
Chong Yidong <cyd@stupidchicken.com>
parents:
106693
diff
changeset
|
7565 (set-marker (mark-marker) (point))))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7566 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7567 (defalias 'message-make-overlay 'make-overlay) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7568 (defalias 'message-delete-overlay 'delete-overlay) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7569 (defalias 'message-overlay-put 'overlay-put) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7570 (defun message-kill-all-overlays () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7571 (if (featurep 'xemacs) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7572 (map-extents (lambda (extent ignore) (delete-extent extent))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7573 (mapcar #'delete-overlay (overlays-in (point-min) (point-max))))) |
17493 | 7574 |
7575 ;; Support for toolbar | |
86154 | 7576 (defvar tool-bar-mode) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7577 |
70051
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7578 ;; Note: The :set function in the `message-tool-bar*' variables will only |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7579 ;; affect _new_ message buffers. We might add a function that walks thru all |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7580 ;; message-mode buffers and force the update. |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7581 (defun message-tool-bar-update (&optional symbol value) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7582 "Update message mode toolbar. |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7583 Setter function for custom variables." |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7584 (setq-default message-tool-bar-map nil) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7585 (when symbol |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7586 ;; When used as ":set" function: |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7587 (set-default symbol value))) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7588 |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7589 (defcustom message-tool-bar (if (eq gmm-tool-bar-style 'gnome) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7590 'message-tool-bar-gnome |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7591 'message-tool-bar-retro) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7592 "Specifies the message mode tool bar. |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7593 |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7594 It can be either a list or a symbol refering to a list. See |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7595 `gmm-tool-bar-from-list' for the format of the list. The |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7596 default key map is `message-mode-map'. |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7597 |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7598 Pre-defined symbols include `message-tool-bar-gnome' and |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7599 `message-tool-bar-retro'." |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7600 :type '(repeat gmm-tool-bar-list-item) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7601 :type '(choice (const :tag "GNOME style" message-tool-bar-gnome) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7602 (const :tag "Retro look" message-tool-bar-retro) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7603 (repeat :tag "User defined list" gmm-tool-bar-item) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7604 (symbol)) |
92336
5f827896103e
Change defcustom :version from 23.0 to 23.1.
Glenn Morris <rgm@gnu.org>
parents:
92147
diff
changeset
|
7605 :version "23.1" ;; No Gnus |
70051
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7606 :initialize 'custom-initialize-default |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7607 :set 'message-tool-bar-update |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7608 :group 'message) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7609 |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7610 (defcustom message-tool-bar-gnome |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7611 '((ispell-message "spell" nil |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7612 :visible (or (not (boundp 'flyspell-mode)) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7613 (not flyspell-mode))) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7614 (flyspell-buffer "spell" t |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7615 :visible (and (boundp 'flyspell-mode) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7616 flyspell-mode) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7617 :help "Flyspell whole buffer") |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7618 (gmm-ignore "separator") |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7619 (message-send-and-exit "mail/send") |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7620 (message-dont-send "mail/save-draft") |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7621 (message-kill-buffer "close") ;; stock_cancel |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7622 (mml-attach-file "attach" mml-mode-map) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7623 (mml-preview "mail/preview" mml-mode-map) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7624 (mml-secure-message-sign-encrypt "lock" mml-mode-map :visible nil) |
70051
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7625 (message-insert-importance-high "important" nil :visible nil) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7626 (message-insert-importance-low "unimportant" nil :visible nil) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7627 (message-insert-disposition-notification-to "receipt" nil :visible nil) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7628 (gmm-customize-mode "preferences" t :help "Edit mode preferences") |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7629 (message-info "help" t :help "Message manual")) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7630 "List of items for the message tool bar (GNOME style). |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7631 |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7632 See `gmm-tool-bar-from-list' for details on the format of the list." |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7633 :type '(repeat gmm-tool-bar-item) |
92336
5f827896103e
Change defcustom :version from 23.0 to 23.1.
Glenn Morris <rgm@gnu.org>
parents:
92147
diff
changeset
|
7634 :version "23.1" ;; No Gnus |
70051
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7635 :initialize 'custom-initialize-default |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7636 :set 'message-tool-bar-update |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7637 :group 'message) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7638 |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7639 (defcustom message-tool-bar-retro |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7640 '(;; Old Emacs 21 icon for consistency. |
79475
609b256953a6
(message-tool-bar-retro): Update for rename mail_send.xpm->mail-send.xpm.
Glenn Morris <rgm@gnu.org>
parents:
79313
diff
changeset
|
7641 (message-send-and-exit "gnus/mail-send") |
70051
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7642 (message-kill-buffer "close") |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7643 (message-dont-send "cancel") |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7644 (mml-attach-file "attach" mml-mode-map) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7645 (ispell-message "spell") |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7646 (mml-preview "preview" mml-mode-map) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7647 (message-insert-importance-high "gnus/important") |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7648 (message-insert-importance-low "gnus/unimportant") |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7649 (message-insert-disposition-notification-to "gnus/receipt")) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7650 "List of items for the message tool bar (retro style). |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7651 |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7652 See `gmm-tool-bar-from-list' for details on the format of the list." |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7653 :type '(repeat gmm-tool-bar-item) |
92336
5f827896103e
Change defcustom :version from 23.0 to 23.1.
Glenn Morris <rgm@gnu.org>
parents:
92147
diff
changeset
|
7654 :version "23.1" ;; No Gnus |
70051
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7655 :initialize 'custom-initialize-default |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7656 :set 'message-tool-bar-update |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7657 :group 'message) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7658 |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7659 (defcustom message-tool-bar-zap-list |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7660 '(new-file open-file dired kill-buffer write-file |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7661 print-buffer customize help) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7662 "List of icon items from the global tool bar. |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7663 These items are not displayed on the message mode tool bar. |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7664 |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7665 See `gmm-tool-bar-from-list' for the format of the list." |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7666 :type 'gmm-tool-bar-zap-list |
92336
5f827896103e
Change defcustom :version from 23.0 to 23.1.
Glenn Morris <rgm@gnu.org>
parents:
92147
diff
changeset
|
7667 :version "23.1" ;; No Gnus |
70051
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7668 :initialize 'custom-initialize-default |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7669 :set 'message-tool-bar-update |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7670 :group 'message) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7671 |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7672 (defvar image-load-path) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7673 |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7674 (defun message-make-tool-bar (&optional force) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7675 "Make a message mode tool bar from `message-tool-bar-list'. |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7676 When FORCE, rebuild the tool bar." |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7677 (when (and (not (featurep 'xemacs)) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7678 (boundp 'tool-bar-mode) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7679 tool-bar-mode |
70051
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7680 (or (not message-tool-bar-map) force)) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7681 (setq message-tool-bar-map |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7682 (let* ((load-path |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7683 (gmm-image-load-path-for-library "message" |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7684 "mail/save-draft.xpm" |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7685 nil t)) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7686 (image-load-path (cons (car load-path) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7687 (when (boundp 'image-load-path) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7688 image-load-path)))) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7689 (gmm-tool-bar-from-list message-tool-bar |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7690 message-tool-bar-zap-list |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7691 'message-mode-map)))) |
700b1f9b81e2
[ Merge Gnome tool bars from Gnus trunk ]
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69944
diff
changeset
|
7692 message-tool-bar-map) |
17493 | 7693 |
7694 ;;; Group name completion. | |
7695 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7696 (defcustom message-newgroups-header-regexp |
17493 | 7697 "^\\(Newsgroups\\|Followup-To\\|Posted-To\\|Gcc\\):" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7698 "Regexp that match headers that lists groups." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7699 :group 'message |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7700 :type 'regexp) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7701 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7702 (defcustom message-completion-alist |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7703 (list (cons message-newgroups-header-regexp 'message-expand-group) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7704 '("^\\(Resent-\\)?\\(To\\|B?Cc\\):" . message-expand-name) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7705 '("^\\(Reply-To\\|From\\|Mail-Followup-To\\|Mail-Copies-To\\):" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7706 . message-expand-name) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7707 '("^\\(Disposition-Notification-To\\|Return-Receipt-To\\):" |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7708 . message-expand-name)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7709 "Alist of (RE . FUN). Use FUN for completion on header lines matching RE." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
7710 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7711 :group 'message |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7712 :type '(alist :key-type regexp :value-type function)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7713 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7714 (defcustom message-expand-name-databases |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7715 (list 'bbdb 'eudc) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7716 "List of databases to try for name completion (`message-expand-name'). |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7717 Each element is a symbol and can be `bbdb' or `eudc'." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7718 :group 'message |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7719 :type '(set (const bbdb) (const eudc))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7720 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7721 (defcustom message-tab-body-function nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7722 "*Function to execute when `message-tab' (TAB) is executed in the body. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7723 If nil, the function bound in `text-mode-map' or `global-map' is executed." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59756
diff
changeset
|
7724 :version "22.1" |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7725 :group 'message |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7726 :link '(custom-manual "(message)Various Commands") |
65342
c71b1b2d2d04
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-530
Miles Bader <miles@gnu.org>
parents:
64780
diff
changeset
|
7727 :type '(choice (const nil) |
c71b1b2d2d04
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-530
Miles Bader <miles@gnu.org>
parents:
64780
diff
changeset
|
7728 function)) |
17493 | 7729 |
87191
066a2efbc9c8
(declare-function): Add compatibility declaration.
Glenn Morris <rgm@gnu.org>
parents:
87097
diff
changeset
|
7730 (declare-function mail-abbrev-in-expansion-header-p "mailabbrev" ()) |
066a2efbc9c8
(declare-function): Add compatibility declaration.
Glenn Morris <rgm@gnu.org>
parents:
87097
diff
changeset
|
7731 |
17493 | 7732 (defun message-tab () |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7733 "Complete names according to `message-completion-alist'. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7734 Execute function specified by `message-tab-body-function' when not in |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7735 those headers." |
17493 | 7736 (interactive) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7737 (let ((alist message-completion-alist)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7738 (while (and alist |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7739 (let ((mail-abbrev-mode-regexp (caar alist))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7740 (not (mail-abbrev-in-expansion-header-p)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7741 (setq alist (cdr alist))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7742 (funcall (or (cdar alist) message-tab-body-function |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7743 (lookup-key text-mode-map "\t") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7744 (lookup-key global-map "\t") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7745 'indent-relative)))) |
17493 | 7746 |
66573
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
66299
diff
changeset
|
7747 (eval-and-compile |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
66299
diff
changeset
|
7748 (condition-case nil |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
66299
diff
changeset
|
7749 (with-temp-buffer |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
66299
diff
changeset
|
7750 (let ((standard-output (current-buffer))) |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
66299
diff
changeset
|
7751 (eval '(display-completion-list nil ""))) |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
66299
diff
changeset
|
7752 (defalias 'message-display-completion-list 'display-completion-list)) |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
66299
diff
changeset
|
7753 (error ;; Don't use `wrong-number-of-arguments' here because of XEmacs. |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
66299
diff
changeset
|
7754 (defun message-display-completion-list (completions &optional ignore) |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
66299
diff
changeset
|
7755 "Display the list of completions, COMPLETIONS, using `standard-output'." |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
66299
diff
changeset
|
7756 (display-completion-list completions))))) |
e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Miles Bader <miles@gnu.org>
parents:
66299
diff
changeset
|
7757 |
17493 | 7758 (defun message-expand-group () |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7759 "Expand the group name under point." |
17493 | 7760 (let* ((b (save-excursion |
7761 (save-restriction | |
7762 (narrow-to-region | |
7763 (save-excursion | |
7764 (beginning-of-line) | |
7765 (skip-chars-forward "^:") | |
7766 (1+ (point))) | |
7767 (point)) | |
7768 (skip-chars-backward "^, \t\n") (point)))) | |
7769 (completion-ignore-case t) | |
106372
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7770 (e (progn (skip-chars-forward "^,\t\n ") (point))) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7771 (hashtb (and (boundp 'gnus-active-hashtb) gnus-active-hashtb))) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7772 (message-completion-in-region e b hashtb))) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7773 |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7774 (defalias 'message-completion-in-region |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7775 (if (fboundp 'completion-in-region) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7776 'completion-in-region |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7777 (lambda (e b hashtb) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7778 (let* ((string (buffer-substring b e)) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7779 (completions (all-completions string hashtb)) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7780 comp) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7781 (delete-region b (point)) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7782 (cond |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7783 ((= (length completions) 1) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7784 (if (string= (car completions) string) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7785 (progn |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7786 (insert string) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7787 (message "Only matching group")) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7788 (insert (car completions)))) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7789 ((and (setq comp (try-completion string hashtb)) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7790 (not (string= comp string))) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7791 (insert comp)) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7792 (t |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7793 (insert string) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7794 (if (not comp) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7795 (message "No matching groups") |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7796 (save-selected-window |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7797 (pop-to-buffer "*Completions*") |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7798 (buffer-disable-undo) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7799 (let ((buffer-read-only nil)) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7800 (erase-buffer) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7801 (let ((standard-output (current-buffer))) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7802 (message-display-completion-list (sort completions 'string<) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7803 string)) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7804 (setq buffer-read-only nil) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7805 (goto-char (point-min)) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7806 (delete-region (point) |
9baad4abae40
(message-completion-in-region): New compatibility function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106358
diff
changeset
|
7807 (progn (forward-line 3) (point)))))))))))) |
17493 | 7808 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7809 (defun message-expand-name () |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7810 (cond ((and (memq 'eudc message-expand-name-databases) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7811 (boundp 'eudc-protocol) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7812 eudc-protocol) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7813 (eudc-expand-inline)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7814 ((and (memq 'bbdb message-expand-name-databases) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7815 (fboundp 'bbdb-complete-name)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7816 (bbdb-complete-name)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7817 (t |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7818 (expand-abbrev)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7819 |
17493 | 7820 ;;; Help stuff. |
7821 | |
7822 (defun message-talkative-question (ask question show &rest text) | |
19525
59026d8478f7
Require cl only at compile time.
Richard M. Stallman <rms@gnu.org>
parents:
19481
diff
changeset
|
7823 "Call FUNCTION with argument QUESTION; optionally display TEXT... args. |
59026d8478f7
Require cl only at compile time.
Richard M. Stallman <rms@gnu.org>
parents:
19481
diff
changeset
|
7824 If SHOW is non-nil, the arguments TEXT... are displayed in a temp buffer. |
17493 | 7825 The following arguments may contain lists of values." |
7826 (if (and show | |
7827 (setq text (message-flatten-list text))) | |
7828 (save-window-excursion | |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
7829 (with-output-to-temp-buffer " *MESSAGE information message*" |
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
7830 (with-current-buffer " *MESSAGE information message*" |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7831 (fundamental-mode) ; for Emacs 20.4+ |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7832 (mapc 'princ text) |
17493 | 7833 (goto-char (point-min)))) |
7834 (funcall ask question)) | |
7835 (funcall ask question))) | |
7836 | |
7837 (defun message-flatten-list (list) | |
7838 "Return a new, flat list that contains all elements of LIST. | |
7839 | |
7840 \(message-flatten-list '(1 (2 3 (4 5 (6))) 7)) | |
7841 => (1 2 3 4 5 6 7)" | |
7842 (cond ((consp list) | |
7843 (apply 'append (mapcar 'message-flatten-list list))) | |
7844 (list | |
7845 (list list)))) | |
7846 | |
7847 (defun message-generate-new-buffer-clone-locals (name &optional varstr) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7848 "Create and return a buffer with name based on NAME using `generate-new-buffer'. |
17493 | 7849 Then clone the local variables and values from the old buffer to the |
7850 new one, cloning only the locals having a substring matching the | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7851 regexp VARSTR." |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
7852 (let ((oldbuf (current-buffer))) |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
7853 (with-current-buffer (generate-new-buffer name) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7854 (message-clone-locals oldbuf varstr) |
17493 | 7855 (current-buffer)))) |
7856 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7857 (defun message-clone-locals (buffer &optional varstr) |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
7858 "Clone the local variables from BUFFER to the current buffer." |
86339
6f4793ab0756
(message-send-mail-function): Fix error convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
86276
diff
changeset
|
7859 (let ((locals (with-current-buffer buffer (buffer-local-variables))) |
57243
c5e16264557d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-575
Miles Bader <miles@gnu.org>
parents:
57153
diff
changeset
|
7860 (regexp "^gnus\\|^nn\\|^message\\|^sendmail\\|^smtp\\|^user-mail-address")) |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
7861 (mapcar |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
7862 (lambda (local) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7863 (when (and (consp local) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
7864 (car local) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7865 (string-match regexp (symbol-name (car local))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7866 (or (null varstr) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7867 (string-match varstr (symbol-name (car local))))) |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
7868 (ignore-errors |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
7869 (set (make-local-variable (car local)) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
7870 (cdr local))))) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
7871 locals))) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19762
diff
changeset
|
7872 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7873 ;;; |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7874 ;;; MIME functions |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7875 ;;; |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7876 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7877 (defvar message-inhibit-body-encoding nil) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7878 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7879 (defun message-encode-message-body () |
35147 | 7880 (unless message-inhibit-body-encoding |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7881 (let ((mail-parse-charset (or mail-parse-charset |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7882 message-default-charset)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7883 (case-fold-search t) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7884 lines content-type-p) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7885 (message-goto-body) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7886 (save-restriction |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7887 (narrow-to-region (point) (point-max)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7888 (let ((new (mml-generate-mime))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7889 (when new |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7890 (delete-region (point-min) (point-max)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7891 (insert new) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7892 (goto-char (point-min)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7893 (if (eq (aref new 0) ?\n) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7894 (delete-char 1) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7895 (search-forward "\n\n") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7896 (setq lines (buffer-substring (point-min) (1- (point)))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7897 (delete-region (point-min) (point)))))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7898 (save-restriction |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7899 (message-narrow-to-headers-or-head) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7900 (message-remove-header "Mime-Version") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7901 (goto-char (point-max)) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
7902 (insert "MIME-Version: 1.0\n") |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7903 (when lines |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7904 (insert lines)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7905 (setq content-type-p |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7906 (or mml-boundary |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7907 (re-search-backward "^Content-Type:" nil t)))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7908 (save-restriction |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7909 (message-narrow-to-headers-or-head) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7910 (message-remove-first-header "Content-Type") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7911 (message-remove-first-header "Content-Transfer-Encoding")) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7912 ;; We always make sure that the message has a Content-Type |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7913 ;; header. This is because some broken MTAs and MUAs get |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7914 ;; awfully confused when confronted with a message with a |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7915 ;; MIME-Version header and without a Content-Type header. For |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7916 ;; instance, Solaris' /usr/bin/mail. |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7917 (unless content-type-p |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7918 (goto-char (point-min)) |
41511
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7919 ;; For unknown reason, MIME-Version doesn't exist. |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7920 (when (re-search-forward "^MIME-Version:" nil t) |
19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
41494
diff
changeset
|
7921 (forward-line 1) |
67030
572ca24101c2
message.el: Revert last changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
66966
diff
changeset
|
7922 (insert "Content-Type: text/plain; charset=us-ascii\n")))))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7923 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7924 (defun message-read-from-minibuffer (prompt &optional initial-contents) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7925 "Read from the minibuffer while providing abbrev expansion." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7926 (if (fboundp 'mail-abbrevs-setup) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7927 (let ((mail-abbrev-mode-regexp "") |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7928 (minibuffer-setup-hook 'mail-abbrevs-setup) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7929 (minibuffer-local-map message-minibuffer-local-map)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7930 (read-from-minibuffer prompt initial-contents)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7931 (let ((minibuffer-setup-hook 'mail-abbrev-minibuffer-setup-hook) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7932 (minibuffer-local-map message-minibuffer-local-map)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7933 (read-string prompt initial-contents)))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
7934 |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7935 (defun message-use-alternative-email-as-from () |
68521
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
7936 "Set From field of the outgoing message to the first matching |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
7937 address in `message-alternative-emails', looking at To, Cc and |
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
7938 From headers in the original article." |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7939 (require 'mail-utils) |
79313 | 7940 (let* ((fields '("To" "Cc" "From")) |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7941 (emails |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7942 (split-string |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7943 (mail-strip-quoted-names |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7944 (mapconcat 'message-fetch-reply-field fields ",")) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7945 "[ \f\t\n\r\v,]+")) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7946 email) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7947 (while emails |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7948 (if (string-match message-alternative-emails (car emails)) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7949 (setq email (car emails) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7950 emails nil)) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7951 (pop emails)) |
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7952 (unless (or (not email) (equal email user-mail-address)) |
68521
04c2548593f7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-33
Miles Bader <miles@gnu.org>
parents:
68230
diff
changeset
|
7953 (message-remove-header "From") |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7954 (goto-char (point-max)) |
79313 | 7955 (insert "From: " (let ((user-mail-address email)) (message-make-from)) |
7956 "\n")))) | |
32967
7625203dacf3
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32964
diff
changeset
|
7957 |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7958 (defun message-options-get (symbol) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7959 (cdr (assq symbol message-options))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7960 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7961 (defun message-options-set (symbol value) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7962 (let ((the-cons (assq symbol message-options))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7963 (if the-cons |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7964 (if value |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7965 (setcdr the-cons value) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7966 (setq message-options (delq the-cons message-options))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7967 (and value |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7968 (push (cons symbol value) message-options)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7969 value) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7970 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7971 (defun message-options-set-recipient () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7972 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7973 (message-narrow-to-headers-or-head) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7974 (message-options-set 'message-sender |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7975 (mail-strip-quoted-names |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7976 (message-fetch-field "from"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7977 (message-options-set 'message-recipients |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7978 (mail-strip-quoted-names |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7979 (let ((to (message-fetch-field "to")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7980 (cc (message-fetch-field "cc")) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7981 (bcc (message-fetch-field "bcc"))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7982 (concat |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7983 (or to "") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7984 (if (and to cc) ", ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7985 (or cc "") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7986 (if (and (or to cc) bcc) ", ") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7987 (or bcc ""))))))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7988 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7989 (defun message-hide-headers () |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7990 "Hide headers based on the `message-hidden-headers' variable." |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7991 (let ((regexps (if (stringp message-hidden-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7992 (list message-hidden-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7993 message-hidden-headers)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7994 (inhibit-point-motion-hooks t) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
7995 (after-change-functions nil) |
85766
68503cda7180
(message-check-news-body-syntax): Avoid mm-string-as-multibyte.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85712
diff
changeset
|
7996 (end-of-headers (point-min))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7997 (when regexps |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7998 (save-excursion |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
7999 (save-restriction |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8000 (message-narrow-to-headers) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8001 (goto-char (point-min)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8002 (while (not (eobp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8003 (if (not (message-hide-header-p regexps)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8004 (message-next-header) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8005 (let ((begin (point)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8006 header header-len) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8007 (message-next-header) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8008 (setq header (buffer-substring begin (point)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8009 header-len (- (point) begin)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8010 (delete-region begin (point)) |
85766
68503cda7180
(message-check-news-body-syntax): Avoid mm-string-as-multibyte.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85712
diff
changeset
|
8011 (goto-char end-of-headers) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8012 (insert header) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8013 (setq end-of-headers |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8014 (+ end-of-headers header-len)))))))) |
85766
68503cda7180
(message-check-news-body-syntax): Avoid mm-string-as-multibyte.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85712
diff
changeset
|
8015 (narrow-to-region end-of-headers (point-max)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8016 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8017 (defun message-hide-header-p (regexps) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8018 (let ((result nil) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8019 (reverse nil)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8020 (when (eq (car regexps) 'not) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8021 (setq reverse t) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8022 (pop regexps)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8023 (dolist (regexp regexps) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8024 (setq result (or result (looking-at regexp)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8025 (if reverse |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8026 (not result) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8027 result))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8028 |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
8029 (declare-function ecomplete-add-item "ecomplete" (type key text)) |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
8030 (declare-function ecomplete-save "ecomplete" ()) |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
8031 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8032 (defun message-put-addresses-in-ecomplete () |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
8033 (require 'ecomplete) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8034 (dolist (header '("to" "cc" "from" "reply-to")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8035 (let ((value (message-field-value header))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8036 (dolist (string (mail-header-parse-addresses value 'raw)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8037 (setq string |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8038 (gnus-replace-in-string |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8039 (gnus-replace-in-string string "^ +\\| +$" "") "\n" "")) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8040 (ecomplete-add-item 'mail (car (mail-header-parse-address string)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8041 string)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8042 (ecomplete-save)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8043 |
107427
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
8044 (autoload 'ecomplete-display-matches "ecomplete") |
ecbe0edc4f69
Stop message.el from loading about 40 libraries it doesn't always need.
Glenn Morris <rgm@gnu.org>
parents:
107235
diff
changeset
|
8045 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8046 (defun message-display-abbrev (&optional choose) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8047 "Display the next possible abbrev for the text before point." |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8048 (interactive (list t)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8049 (when (and (memq (char-after (point-at-bol)) '(?C ?T ?\t ? )) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8050 (message-point-in-header-p) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8051 (save-excursion |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8052 (beginning-of-line) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8053 (while (and (memq (char-after) '(?\t ? )) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8054 (zerop (forward-line -1)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8055 (looking-at "To:\\|Cc:"))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8056 (let* ((end (point)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8057 (start (save-excursion |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8058 (and (re-search-backward "[\n\t ]" nil t) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8059 (1+ (point))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8060 (word (when start (buffer-substring start end))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8061 (match (when (and word |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8062 (not (zerop (length word)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8063 (ecomplete-display-matches 'mail word choose)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8064 (when (and choose match) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8065 (delete-region start end) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8066 (insert match))))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
82221
diff
changeset
|
8067 |
92694 | 8068 ;; To send pre-formatted letters like the example below, you can use |
8069 ;; `message-send-form-letter': | |
8070 ;; --8<---------------cut here---------------start------------->8--- | |
8071 ;; To: alice@invalid.invalid | |
8072 ;; Subject: Verification of your contact information | |
8073 ;; From: Contact verification <admin@foo.invalid> | |
8074 ;; --text follows this line-- | |
8075 ;; Hi Alice, | |
8076 ;; please verify that your contact information is still valid: | |
8077 ;; Alice A, A avenue 11, 1111 A town, Austria | |
8078 ;; ----------next form letter message follows this line---------- | |
8079 ;; To: bob@invalid.invalid | |
8080 ;; Subject: Verification of your contact information | |
8081 ;; From: Contact verification <admin@foo.invalid> | |
8082 ;; --text follows this line-- | |
8083 ;; Hi Bob, | |
8084 ;; please verify that your contact information is still valid: | |
8085 ;; Bob, B street 22, 22222 Be town, Belgium | |
8086 ;; ----------next form letter message follows this line---------- | |
8087 ;; To: charlie@invalid.invalid | |
8088 ;; Subject: Verification of your contact information | |
8089 ;; From: Contact verification <admin@foo.invalid> | |
8090 ;; --text follows this line-- | |
8091 ;; Hi Charlie, | |
8092 ;; please verify that your contact information is still valid: | |
8093 ;; Charlie Chaplin, C plaza 33, 33333 C town, Chile | |
8094 ;; --8<---------------cut here---------------end--------------->8--- | |
8095 | |
8096 ;; FIXME: What is the most common term (circular letter, form letter, serial | |
8097 ;; letter, standard letter) for such kind of letter? See also | |
8098 ;; <http://en.wikipedia.org/wiki/Form_letter> | |
8099 | |
8100 ;; FIXME: Maybe extent message-mode's font-lock support to recognize | |
8101 ;; `message-form-letter-separator', i.e. highlight each message like a single | |
8102 ;; message. | |
8103 | |
8104 (defcustom message-form-letter-separator | |
8105 "\n----------next form letter message follows this line----------\n" | |
8106 "Separator for `message-send-form-letter'." | |
8107 ;; :group 'message-form-letter | |
8108 :group 'message-various | |
8109 :version "23.1" ;; No Gnus | |
8110 :type 'string) | |
8111 | |
8112 (defcustom message-send-form-letter-delay 1 | |
8113 "Delay in seconds when sending a message with `message-send-form-letter'. | |
8114 Only used when `message-send-form-letter' is called with non-nil | |
8115 argument `force'." | |
8116 ;; :group 'message-form-letter | |
8117 :group 'message-various | |
8118 :version "23.1" ;; No Gnus | |
8119 :type 'integer) | |
8120 | |
8121 (defun message-send-form-letter (&optional force) | |
8122 "Sent all form letter messages from current buffer. | |
8123 Unless FORCE, prompt before sending. | |
8124 | |
8125 The messages are separated by `message-form-letter-separator'. | |
8126 Header and body are separated by `mail-header-separator'." | |
8127 (interactive "P") | |
8128 (let ((sent 0) (skipped 0) | |
8129 start end text | |
8130 buff | |
8131 to done) | |
8132 (goto-char (point-min)) | |
8133 (while (not done) | |
8134 (setq start (point) | |
8135 end (if (search-forward message-form-letter-separator nil t) | |
8136 (- (point) (length message-form-letter-separator) -1) | |
8137 (setq done t) | |
8138 (point-max))) | |
8139 (setq text | |
8140 (buffer-substring-no-properties start end)) | |
8141 (setq buff (generate-new-buffer "*mail - form letter*")) | |
8142 (with-current-buffer buff | |
8143 (insert text) | |
8144 (message-mode) | |
8145 (setq to (message-fetch-field "To")) | |
8146 (switch-to-buffer buff) | |
8147 (when force | |
8148 (sit-for message-send-form-letter-delay)) | |
8149 (if (or force | |
8150 (y-or-n-p (format "Send message to `%s'? " to))) | |
8151 (progn | |
8152 (setq sent (1+ sent)) | |
8153 (message-send-and-exit)) | |
8154 (message (format "Message to `%s' skipped." to)) | |
8155 (setq skipped (1+ skipped))) | |
8156 (when (buffer-live-p buff) | |
8157 (kill-buffer buff)))) | |
8158 (message "%s message(s) sent, %s skipped." sent skipped))) | |
8159 | |
93386 | 8160 (defun message-replace-header (header new-value &optional after force) |
8161 "Remove HEADER and insert the NEW-VALUE. | |
8162 If AFTER, insert after this header. If FORCE, insert new field | |
8163 even if NEW-VALUE is empty." | |
8164 ;; Similar to `nnheader-replace-header' but for message buffers. | |
8165 (save-excursion | |
8166 (save-restriction | |
8167 (message-narrow-to-headers) | |
8168 (message-remove-header header)) | |
8169 (when (or force (> (length new-value) 0)) | |
8170 (if after | |
8171 (message-position-on-field header after) | |
8172 (message-position-on-field header)) | |
8173 (insert new-value)))) | |
8174 | |
8175 (defcustom message-recipients-without-full-name | |
8176 (list "ding@gnus.org" | |
8177 "bugs@gnus.org" | |
8178 "emacs-devel@gnu.org" | |
8179 "emacs-pretest-bug@gnu.org" | |
8180 "bug-gnu-emacs@gnu.org") | |
8181 "Mail addresses that have no full name. | |
8182 Used in `message-simplify-recipients'." | |
8183 ;; Maybe the addresses could be extracted from | |
8184 ;; `gnus-parameter-to-list-alist'? | |
8185 :type '(choice (const :tag "None" nil) | |
8186 (repeat string)) | |
8187 :version "23.1" ;; No Gnus | |
8188 :group 'message-headers) | |
8189 | |
8190 (defun message-simplify-recipients () | |
8191 (interactive) | |
8192 (dolist (hdr '("Cc" "To")) | |
8193 (message-replace-header | |
8194 hdr | |
8195 (mapconcat | |
8196 (lambda (addrcomp) | |
8197 (if (and message-recipients-without-full-name | |
8198 (string-match | |
8199 (regexp-opt message-recipients-without-full-name) | |
8200 (cadr addrcomp))) | |
8201 (cadr addrcomp) | |
8202 (if (car addrcomp) | |
8203 (message-make-from (car addrcomp) (cadr addrcomp)) | |
8204 (cadr addrcomp)))) | |
8205 (when (message-fetch-field hdr) | |
8206 (mail-extract-address-components | |
8207 (message-fetch-field hdr) t)) | |
8208 ", ")))) | |
8209 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8210 (when (featurep 'xemacs) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8211 (require 'messagexmas) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8212 (message-xmas-redefine)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
54287
diff
changeset
|
8213 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
8214 (provide 'message) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23743
diff
changeset
|
8215 |
17493 | 8216 (run-hooks 'message-load-hook) |
8217 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
8218 ;; Local Variables: |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
8219 ;; coding: iso-8859-1 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
8220 ;; End: |
17493 | 8221 |
59756
b53453586872
(message-beginning-of-line): Change the behavior when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58835
diff
changeset
|
8222 ;; arch-tag: 94b32cac-4504-4b6c-8181-030ebf380ee0 |
17493 | 8223 ;;; message.el ends here |