;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:07 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/uce.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`uce.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require sendmail custom-declare-group uce nil "Facilitate reply to unsolicited commercial email." :prefix "uce-" :group mail] 8) #@84 A symbol indicating which mail reader you are using. Choose from: `gnus', `rmail'. (custom-declare-variable 'uce-mail-reader ''rmail '(#$ . 808) :type '(choice (const gnus) (const rmail)) :version "20.3" :group 'uce) #@113 Hook to run after UCE rant message is composed. This hook is run after `mail-setup-hook', which is run as well. (custom-declare-variable 'uce-setup-hook 'nil '(#$ . 1032) :type 'hook :group 'uce) #@411 This is the text that `uce-reply-to-uce' command will put in reply buffer. Some of spamming programs in use will be set up to read all incoming to spam address email, and will remove people who put the word `remove' on beginning of some line from the spamming list. So, when you set it up, it might be a good idea to actually use this feature. Value nil means insert no text by default, lets you type it in. (custom-declare-variable 'uce-message-text '"Recently, I have received an Unsolicited Commercial E-mail from you.\nI do not like UCE's and I would like to inform you that sending\nunsolicited messages to someone while he or she may have to pay for\nreading your message may be illegal. Anyway, it is highly annoying\nand not welcome by anyone. It is rude, after all.\n\nIf you think that this is a good way to advertise your products or\nservices you are mistaken. Spamming will only make people hate you, not\nbuy from you.\n\nIf you have any list of people you send unsolicited commercial emails to, \nREMOVE me from such list immediately. I suggest that you make this list \njust empty.\n\n ----------------------------------------------------\n\nIf you are not an administrator of any site and still have received\nthis message then your email address is being abused by some spammer.\nThey fake your address in From: or Reply-To: header. In this case,\nyou might want to show this message to your system administrator, and\nask him/her to investigate this matter.\n\nNote to the postmaster(s): I append the text of UCE in question to\nthis message; I would like to hear from you about action(s) taken.\nThis message has been sent to postmasters at the host that is\nmentioned as original sender's host (I do realize that it may be\nfaked, but I think that if your domain name is being abused this way\nyou might want to learn about it, and take actions) and to the\npostmaster whose host was used as mail relay for this message. If\nmessage was sent not by your user, could you please compare time when\nthis message was sent (use time in Received: field of the envelope\nrather than Date: field) with your sendmail logs and see what host was\nusing your sendmail at this moment of time.\n\nThank you." '(#$ . 1235) :type 'string :group 'uce) #@76 Line that will begin quoting of the UCE. Value nil means use no separator. (custom-declare-variable 'uce-uce-separator '"----- original unsolicited commercial email follows -----" '(#$ . 3505) :type '(choice (const nil) string) :group 'uce) #@223 Text to put as your signature after the note to UCE sender. Value nil means none, t means insert `~/.signature' file (if it happens to exist), if this variable is a string this string will be inserted as your signature. (custom-declare-variable 'uce-signature 'mail-signature '(#$ . 3753) :type '(choice (const nil) (const t) string) :group 'uce) #@153 Additional headers to use when responding to a UCE with \[uce-reply-to-uce]. These are mostly meant for headers that prevent delivery errors reporting. (custom-declare-variable 'uce-default-headers '"Errors-To: nobody@localhost\nPrecedence: bulk\n" '(#$ . 4109) :type 'string :group 'uce) #@64 Subject of the message that will be sent in response to a UCE. (custom-declare-variable 'uce-subject-line '"Spam alert: unsolicited commercial e-mail" '(#$ . 4404) :type 'string :group 'uce) #@216 Send reply to UCE in Rmail. UCE stands for unsolicited commercial email. Function will set up reply buffer with default To: to the sender, his postmaster, his abuse@ address, and postmaster of the mail relay used. (defalias 'uce-reply-to-uce #[(&optional ignored) "\306=\203\n \202\307=\203\310\202\311\312!\307=\205 \313 ?\314 !\204/\311\315 \316Q!\210\317 !\210\n\203;\320\321!\210\322\323\324\325\"!\323\326!\327\211@\203Y\330\331\322@!\"@\202\\\332@ \203j\330\333@\322 !#@\327\211\211ABC\334\335@\"C\334\336@C#B@CBOA\334\337A\"\203\236\330\340@A\211$@+\327D\327E\306=\203\263\341ed\"\210\202\314\307=\203\314\212\214~\210\342 \210\341\343F!\344F!\"\210*\n\203\324\320\345!\210\317\346!\210\347 \210`\350 \210\fb\210\307=\203\351y\210\325G\352\353!\203\373\321y\210\202\357)\f`|\210\306=\203\354\355!\210\356 \210\202#\307=\203#\357 \210\360\361!\210\356 \210\362y\210\363\364!\210\356 \210\212\327\210`)H\354\365H\325#\204PHb\210\352\366!\203L\345\225b\210\202P\311\367!\210)`\360\370!\210\362u\210\334\337\f`{\"\203m\330\371@\f`{#@\360\372\327\325#\203\253`\327HI\327\210`HIb\210\360\335H\325#*\203\253`\360\373!\210\362u\210\334\337\f`{\"\203\253\330\371@\f`{#@\306=\203\273\354\355!\210\356 \210\202\310\307=\203\310\360\374!\210\362y\210`\360\375\327\325#\210\306=\203\331\362y\210\f`|\210\376J!\210\377 \210eb\210\201Uc\210\212@\203\201V`KL@\201W\261\210\201XK`\"\210*\202\201Y \210\201ZM\201W\261\210N\203(Nc\210O\2031Oc\210P\203A\201[P\201W\261\210Q\201W\261\210@\203Q`@R\203ZRc\210S\325=\203\200\201\\\201]!\203\215\201^c\210\201_\201]!\210\201` \210\202\215S\203\215\201^S\261\210T\203\233\375T\201W\261\210db\210n\204\247\201Y \210)@\203\261@b\210@\204\274\201a\327!\210\201b\201c\201d\"-\207" [uce-mail-reader gnus-original-article-buffer full-header-p message-buffer temp reply-to gnus rmail "RMAIL" error "Variable uce-mail-reader set to unrecognized value" rmail-msg-is-pruned get-buffer "No buffer " ", cannot find UCE" switch-to-buffer rmail-toggle-header 1 mail-strip-quoted-names mail-fetch-field "from" t "reply-to" nil format "%s" "" "%s, %s" string-match "@" "[ ,>]" "\\." "%s, postmaster%s, abuse%s" copy-region-as-kill rmail-maybe-set-message-counters rmail-msgbeg rmail-msgend 0 "*mail*" erase-buffer yank 2 looking-at "Summary-Line:\\|Mail-From:" re-search-forward "^Lines:" beginning-of-line beginning-of-buffer search-forward "*** EOOH ***\n" -1 re-search-backward "^Received:" "\\(from\\|by\\) " "[ \n]+\\(from\\|by\\) " "Failed to extract hub address" " " "%s, postmaster@%s" "\nMessage-Id: " ">" "\n*** EOOH ***\n" "\n\n" auto-save-mode mail-mode to sender-host end-of-hostname first-at-sign mail-send-actions mail-reply-buffer rmail-current-message case-fold-search eol bol auto-save-default address-start fill-prefix uce-subject-line uce-default-headers mail-default-headers mail-default-reply-to mail-header-separator uce-message-text uce-signature uce-uce-separator "To: " " " "\n" fill-region-as-paragraph newline "Subject: " "Reply-to: " file-exists-p "~/.signature" "\n\n-- \n" insert-file exchange-point-and-mark set-buffer-modified-p run-hooks mail-setup-hook uce-setup-hook] 6 (#$ . 4602) nil]) #@60 Insert text of the usual reply to UCE into current buffer. (defalias 'uce-insert-ranting #[(&optional ignored) "c\207" [uce-message-text] 1 (#$ . 7918) "P"]) (provide 'uce)