annotate lisp/mail/uce.el @ 28773:9afdf8a67091

(PATH_LIST_SEPARATOR) [__MSDOS__ || WINDOWSNT]: Define to semi-colon. (FILENAME_EQ): New macro, for comparing file names. (add_member_decl, add_global_decl, add_member_defn): Use FILENAME_EQ. (process_file): Don't assume that fread always reads as many bytes as it was told to (DOS-style CR-LF text files fail this logic). (open_file): Allocate enough space for path->path plus the file name and the slash.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 02 May 2000 11:01:29 +0000
parents f68b71f7b9fd
children fa7a79afcbf7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 ;;; uce.el --- facilitate reply to unsolicited commercial email
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
3 ;; Copyright (C) 1996, 1998 Free Software Foundation, Inc.
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
5 ;; Author: stanislav shalunov <shalunov@mccme.ru>
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Created: 10 Dec 1996
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Keywords: uce, unsolicited commercial email
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; This program is free software; you can redistribute it and/or
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; modify it under the terms of the GNU General Public License as
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; published by the Free Software Foundation; either version 2, or (at
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; your option) any later version.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; This program is distributed in the hope that it will be useful, but
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; without any warranty; without even the implied warranty of
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; merchantability or fitness for a particular purpose. See the GNU
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; General Public License for more details.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ;; Boston, MA 02111-1307, USA.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ;; Code in this file provides semi-automatic means of replying to
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
29 ;; UCE's you might get. It works currently only with Rmail and Gnus.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
30 ;; If you would like to make it work with other mail readers,
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
31 ;; Rmail-specific section is marked below. If you want to play with
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
32 ;; code, please let me know about your changes so I can incorporate
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
33 ;; them. I'd appreciate it.
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;; Function uce-reply-to-uce, if called when current message in RMAIL
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 ;; buffer is a UCE, will setup *mail* buffer in the following way: it
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 ;; scans full headers of message for 1) normal return address of
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 ;; sender (From, Reply-To lines); and puts these addresses into To:
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 ;; header, it also puts abuse@offenders.host address there 2) mailhub
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 ;; that first saw this message; and puts address of its postmaster
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 ;; into To: header 3) finally, it looks at Message-Id and adds
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 ;; posmaster of that host to the list of addresses.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 ;; Then, we add "Errors-To: nobody@localhost" header, so that if some
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 ;; of these addresses are not actually correct, we will never see
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 ;; bounced mail. Also, mail-self-blind and mail-archive-file-name
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 ;; take no effect: the ideology is that we don't want to save junk or
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 ;; replies to junk.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 ;; Then we put template into buffer (customizable message that
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 ;; explains what has happened), customizable signature, and the
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 ;; original message with full headers and envelope for postmasters.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 ;; Then buffer is left for editing.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 ;; The reason that function uce-reply-to-uce is Rmail dependant is
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 ;; that we want full headers of the original message, nothing
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 ;; stripped. If we use normal means of inserting of the original
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 ;; message into *mail* buffer headers like Received: (not really
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 ;; headers, but envelope lines) will be stripped while they bear
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 ;; valuable for us and postmasters information. I do wish that there
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 ;; would be some way to write this function in some portable way, but
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 ;; I am not aware of any.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 ;;; Change log:
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 ;; Dec 10, 1996 -- posted draft version to gnu.sources.emacs
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 ;; Dec 11, 1996 -- fixed some typos, and Francesco Potorti`
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 ;; <F.Potorti@cnuce.cnr.it> pointed out that my use of defvar was
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 ;; weird, suggested fix, and added let form.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 ;; Dec 17, 1996 -- made scanning for host names little bit more clever
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 ;; (obviously bogus stuff like localhost is now ignored).
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
75 ;; Nov 11, 1997 -- incorporated changes from Mikael Djurfeldt
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
76 ;; <mdj@nada.kth.se> to make uce.el work with Gnus. Changed the text
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
77 ;; of message that is sent.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
78
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
79 ;; Dec 3, 1997 -- changes from Gareth Jones <gdj1@gdjones.demon.co.uk>
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
80 ;; handling Received headers following some line like `From:'.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
81
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 ;;; Setup:
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 ;; put in your ~./emacs the following line:
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 ;; (autoload 'uce-reply-to-uce "uce" "Reply to UCEs" t nil)
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
88 ;; If you want to use it with Gnus also use
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
89
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
90 ;; (setq uce-mail-reader 'gnus)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
91
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 ;; store this file (uce.el) somewhere in load-path and byte-compile it.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 ;;; Variables:
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 ;; uce-message-text is template that will be inserted into buffer. It
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 ;; has reasonable default. If you want to write some scarier one,
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 ;; please do so and send it to me. Please keep it polite.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 ;; uce-signature behaves just like mail-signature. If nil, nothing is
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 ;; inserted, if t, file ~/.signature is used, if a string, its
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 ;; contents are inserted into buffer.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 ;; uce-uce-separator is line that separates your message from the UCE
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 ;; that you enclose.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 ;; uce-subject-line will be used as subject of outgoing message. If
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 ;; nil, left blank.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 ;;; Code:
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 (require 'sendmail)
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
113 ;; Those sections of code which are dependent upon
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
114 ;; RMAIL are only evaluated if we have received a message with RMAIL...
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
115 ;;(require 'rmail)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
116
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
117 (defgroup uce nil
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
118 "Facilitate reply to unsolicited commercial email."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
119 :prefix "uce-"
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
120 :group 'mail)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
121
22462
198054d3498c Several fixes in doc string style.
Richard M. Stallman <rms@gnu.org>
parents: 22416
diff changeset
122 (defcustom uce-mail-reader 'rmail
198054d3498c Several fixes in doc string style.
Richard M. Stallman <rms@gnu.org>
parents: 22416
diff changeset
123 "A symbol indicating which mail reader you are using.
198054d3498c Several fixes in doc string style.
Richard M. Stallman <rms@gnu.org>
parents: 22416
diff changeset
124 Choose from: `gnus', `rmail'."
198054d3498c Several fixes in doc string style.
Richard M. Stallman <rms@gnu.org>
parents: 22416
diff changeset
125 :type '(choice (const gnus) (const rmail))
198054d3498c Several fixes in doc string style.
Richard M. Stallman <rms@gnu.org>
parents: 22416
diff changeset
126 :version "20.3"
198054d3498c Several fixes in doc string style.
Richard M. Stallman <rms@gnu.org>
parents: 22416
diff changeset
127 :group 'uce)
198054d3498c Several fixes in doc string style.
Richard M. Stallman <rms@gnu.org>
parents: 22416
diff changeset
128
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
129 (defcustom uce-setup-hook nil
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 "Hook to run after UCE rant message is composed.
22462
198054d3498c Several fixes in doc string style.
Richard M. Stallman <rms@gnu.org>
parents: 22416
diff changeset
131 This hook is run after `mail-setup-hook', which is run as well."
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
132 :type 'hook
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
133 :group 'uce)
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
135 (defcustom uce-message-text
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 "Recently, I have received an Unsolicited Commercial E-mail from you.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 I do not like UCE's and I would like to inform you that sending
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 unsolicited messages to someone while he or she may have to pay for
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 reading your message may be illegal. Anyway, it is highly annoying
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 and not welcome by anyone. It is rude, after all.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 If you think that this is a good way to advertise your products or
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 services you are mistaken. Spamming will only make people hate you, not
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 buy from you.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 If you have any list of people you send unsolicited commercial emails to,
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 REMOVE me from such list immediately. I suggest that you make this list
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 just empty.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
150 ----------------------------------------------------
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
151
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
152 If you are not an administrator of any site and still have received
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
153 this message then your email address is being abused by some spammer.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
154 They fake your address in From: or Reply-To: header. In this case,
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
155 you might want to show this message to your system administrator, and
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
156 ask him/her to investigate this matter.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
157
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 Note to the postmaster(s): I append the text of UCE in question to
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
159 this message; I would like to hear from you about action(s) taken.
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 This message has been sent to postmasters at the host that is
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
161 mentioned as original sender's host (I do realize that it may be
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
162 faked, but I think that if your domain name is being abused this way
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
163 you might want to learn about it, and take actions) and to the
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
164 postmaster whose host was used as mail relay for this message. If
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
165 message was sent not by your user, could you please compare time when
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
166 this message was sent (use time in Received: field of the envelope
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
167 rather than Date: field) with your sendmail logs and see what host was
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
168 using your sendmail at this moment of time.
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 Thank you."
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171
22462
198054d3498c Several fixes in doc string style.
Richard M. Stallman <rms@gnu.org>
parents: 22416
diff changeset
172 "This is the text that `uce-reply-to-uce' command will put in reply buffer.
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 Some of spamming programs in use will be set up to read all incoming
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 to spam address email, and will remove people who put the word `remove'
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 on beginning of some line from the spamming list. So, when you set it
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 up, it might be a good idea to actually use this feature.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
178 Value nil means insert no text by default, lets you type it in."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
179 :type 'string
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
180 :group 'uce)
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
182 (defcustom uce-uce-separator
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 "----- original unsolicited commercial email follows -----"
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 "Line that will begin quoting of the UCE.
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
185 Value nil means use no separator."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
186 :type '(choice (const nil) string)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
187 :group 'uce)
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
189 (defcustom uce-signature mail-signature
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 "Text to put as your signature after the note to UCE sender.
22462
198054d3498c Several fixes in doc string style.
Richard M. Stallman <rms@gnu.org>
parents: 22416
diff changeset
191 Value nil means none, t means insert `~/.signature' file (if it happens
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 to exist), if this variable is a string this string will be inserted
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
193 as your signature."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
194 :type '(choice (const nil) (const t) string)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
195 :group 'uce)
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
197 (defcustom uce-default-headers
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 "Errors-To: nobody@localhost\nPrecedence: bulk\n"
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
199 "Additional headers to use when responding to a UCE with \\[uce-reply-to-uce].
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
200 These are mostly meant for headers that prevent delivery errors reporting."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
201 :type 'string
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
202 :group 'uce)
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
204 (defcustom uce-subject-line
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 "Spam alert: unsolicited commercial e-mail"
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
206 "Subject of the message that will be sent in response to a UCE."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
207 :type 'string
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17450
diff changeset
208 :group 'uce)
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 (defun uce-reply-to-uce (&optional ignored)
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 "Send reply to UCE in Rmail.
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 UCE stands for unsolicited commercial email. Function will set up reply
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 buffer with default To: to the sender, his postmaster, his abuse@
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 address, and postmaster of the mail relay used."
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
215 (interactive)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
216 (let ((message-buffer
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
217 (cond ((eq uce-mail-reader 'gnus) "*Article*")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
218 ((eq uce-mail-reader 'rmail) "RMAIL")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
219 (t (error
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
220 "Variable uce-mail-reader set to unrecognized value")))))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
221 (or (get-buffer message-buffer)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
222 (error (concat "No buffer " message-buffer ", cannot find UCE")))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
223 (switch-to-buffer message-buffer)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
224 (let ((to (mail-strip-quoted-names (mail-fetch-field "from" t)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
225 (reply-to (mail-fetch-field "reply-to"))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
226 temp)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
227 ;; Initial setting of the list of recipients of our message; that's
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
228 ;; what they are pretending to be.
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 (if to
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
230 (setq to (format "%s" (mail-strip-quoted-names to)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
231 (setq to ""))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
232 (if reply-to
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
233 (setq to (format "%s, %s" to (mail-strip-quoted-names reply-to))))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
234 (let (first-at-sign end-of-hostname sender-host)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
235 (setq first-at-sign (string-match "@" to)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
236 end-of-hostname (string-match "[ ,>]" to first-at-sign)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
237 sender-host (substring to first-at-sign end-of-hostname))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
238 (if (string-match "\\." sender-host)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
239 (setq to (format "%s, postmaster%s, abuse%s"
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
240 to sender-host sender-host))))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
241 (setq mail-send-actions nil)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
242 (setq mail-reply-buffer nil)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
243 (cond ((eq uce-mail-reader 'gnus)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
244 (article-hide-headers -1)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
245 (copy-region-as-kill (point-min) (point-max))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
246 (article-hide-headers))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
247 ((eq uce-mail-reader 'rmail)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
248 (save-excursion
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
249 (save-restriction
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
250 (widen)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
251 (rmail-maybe-set-message-counters)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
252 (copy-region-as-kill (rmail-msgbeg rmail-current-message)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
253 (rmail-msgend rmail-current-message))))))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
254 (switch-to-buffer "*mail*")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
255 (erase-buffer)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
256 (setq temp (point))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
257 (yank)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
258 (goto-char temp)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
259 (if (eq uce-mail-reader 'rmail)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
260 (progn
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
261 (forward-line 2)
23458
f68b71f7b9fd (uce-reply-to-uce): Bind case-fold-search.
Richard M. Stallman <rms@gnu.org>
parents: 22462
diff changeset
262 (let ((case-fold-search t))
f68b71f7b9fd (uce-reply-to-uce): Bind case-fold-search.
Richard M. Stallman <rms@gnu.org>
parents: 22462
diff changeset
263 (while (looking-at "Summary-Line:\\|Mail-From:")
f68b71f7b9fd (uce-reply-to-uce): Bind case-fold-search.
Richard M. Stallman <rms@gnu.org>
parents: 22462
diff changeset
264 (forward-line 1)))
22416
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
265 (delete-region temp (point))))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
266 ;; Now find the mail hub that first accepted this message.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
267 ;; This should try to find the last Received: header.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
268 ;; Sometimes there may be other headers inbetween Received: headers.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
269 (cond ((eq uce-mail-reader 'gnus)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
270 ;; Does Gnus always have Lines: in the end?
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
271 (re-search-forward "^Lines:")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
272 (beginning-of-line))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
273 ((eq uce-mail-reader 'rmail)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
274 (beginning-of-buffer)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
275 (search-forward "*** EOOH ***\n")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
276 (beginning-of-line)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
277 (forward-line -1)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
278 (re-search-backward "^Received:")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
279 (beginning-of-line)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
280 ;; Is this always good? It's the only thing I saw when I checked
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
281 ;; a few messages.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
282 (let ((eol (save-excursion (end-of-line) (point))))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
283 ;;(if (not (re-search-forward ": \\(from\\|by\\) " eol t))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
284 (if (not (re-search-forward "\\(from\\|by\\) " eol t))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
285 (progn
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
286 (goto-char eol)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
287 (if (looking-at "[ \t\n]+\\(from\\|by\\) ")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
288 (goto-char (match-end 0))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
289 (error "Failed to extract hub address")))))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
290 (setq temp (point))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
291 (search-forward " ")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
292 (forward-char -1)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
293 ;; And add its postmaster to the list of addresses.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
294 (if (string-match "\\." (buffer-substring temp (point)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
295 (setq to (format "%s, postmaster@%s"
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
296 to (buffer-substring temp (point)))))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
297 ;; Also look at the message-id, it helps *very* often.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
298 (if (and (search-forward "\nMessage-Id: " nil t)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
299 ;; Not all Message-Id:'s have an `@' sign.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
300 (let ((bol (point))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
301 eol)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
302 (end-of-line)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
303 (setq eol (point))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
304 (goto-char bol)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
305 (search-forward "@" eol t)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
306 (progn
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
307 (setq temp (point))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
308 (search-forward ">")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
309 (forward-char -1)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
310 (if (string-match "\\." (buffer-substring temp (point)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
311 (setq to (format "%s, postmaster@%s"
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
312 to (buffer-substring temp (point)))))))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
313 (cond ((eq uce-mail-reader 'gnus)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
314 ;; Does Gnus always have Lines: in the end?
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
315 (re-search-forward "^Lines:")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
316 (beginning-of-line))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
317 ((eq uce-mail-reader 'rmail)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
318 (search-forward "\n*** EOOH ***\n")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
319 (forward-line -1)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
320 (setq temp (point))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
321 (search-forward "\n\n" nil t)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
322 (if (eq uce-mail-reader 'gnus)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
323 (forward-line -1))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
324 (delete-region temp (point))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
325 ;; End of Rmail dependent section.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
326 (auto-save-mode auto-save-default)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
327 (mail-mode)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
328 (goto-char (point-min))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
329 (insert "To: ")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
330 (save-excursion
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
331 (if to
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
332 (let ((fill-prefix "\t")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
333 (address-start (point)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
334 (insert to "\n")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
335 (fill-region-as-paragraph address-start (point)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
336 (newline))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
337 (insert "Subject: " uce-subject-line "\n")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
338 (if uce-default-headers
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
339 (insert uce-default-headers))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
340 (if mail-default-headers
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
341 (insert mail-default-headers))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
342 (if mail-default-reply-to
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
343 (insert "Reply-to: " mail-default-reply-to "\n"))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
344 (insert mail-header-separator "\n")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
345 ;; Insert all our text. Then go back to the place where we started.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
346 (if to (setq to (point)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
347 ;; Text of ranting.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
348 (if uce-message-text
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
349 (insert uce-message-text))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
350 ;; Signature.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
351 (cond ((eq uce-signature t)
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
352 (if (file-exists-p "~/.signature")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
353 (progn
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
354 (insert "\n\n-- \n")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
355 (insert-file "~/.signature")
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
356 ;; Function insert-file leaves point where it was,
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
357 ;; while we want to place signature in the ``middle''
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
358 ;; of the message.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
359 (exchange-point-and-mark))))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
360 (uce-signature
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
361 (insert "\n\n-- \n" uce-signature)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
362 ;; And text of the original message.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
363 (if uce-uce-separator
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
364 (insert "\n\n" uce-uce-separator "\n"))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
365 ;; If message doesn't end with a newline, insert it.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
366 (goto-char (point-max))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
367 (or (bolp) (newline)))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
368 ;; And go back to the beginning of text.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
369 (if to (goto-char to))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
370 (or to (set-buffer-modified-p nil))
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
371 ;; Run hooks before we leave buffer for editing. Reasonable usage
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
372 ;; might be to set up special key bindings, replace standart
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
373 ;; functions in mail-mode, etc.
a517da228cb9 (uce-message-text): Change the text of message that is sent.
Richard M. Stallman <rms@gnu.org>
parents: 21918
diff changeset
374 (run-hooks 'mail-setup-hook 'uce-setup-hook))))
17450
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376 (defun uce-insert-ranting (&optional ignored)
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
377 "Insert text of the usual reply to UCE into current buffer."
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 (interactive "P")
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 (insert uce-message-text))
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
380
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
381 (provide 'uce)
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382
bbf1df3de440 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 ;;; uce.el ends here