Current File : //usr/local/share/emacs/27.2/lisp/mail/uce.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316\317\320\321\310\303& \210\312\322\304\323\316\324\310\303&\210\312\325\326\327\316\330\310\303&\210\312\331\332\333\316\334\310\303&\210\312\335\336\337\316\340\310\303&\210\312\341\342\343\316\344\310\303&\210\312\345\346\347\316\350\310\303&\207" [require sendmail custom-declare-group uce nil "Facilitate reply to unsolicited commercial email." :prefix "uce-" :group mail custom-declare-variable uce-mail-reader 'rmail "A symbol indicating which mail reader you are using.\nChoose from: `gnus', `rmail'." :type (choice (const gnus) (const rmail)) :version "20.3" uce-setup-hook "Hook to run after UCE rant message is composed.\nThis hook is run after `mail-setup-hook', which is run as well." hook 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." "This is the text that `uce-reply-to-uce' command will put in reply buffer.\nSome of spamming programs in use will be set up to read all incoming\nto spam address email, and will remove people who put the word `remove'\non beginning of some line from the spamming list. So, when you set it\nup, it might be a good idea to actually use this feature.\n\nValue nil means insert no text by default, lets you type it in." (choice (const nil) string) uce-uce-separator "----- original unsolicited commercial email follows -----" "Line that will begin quoting of the UCE.\nValue nil means use no separator." (choice (const nil) string) uce-signature mail-signature "Text to put as your signature after the note to UCE sender.\nValue nil means none, t means insert `~/.signature' file (if it happens\nto exist), if this variable is a string this string will be inserted\nas your signature." (choice (const nil) (const t) string) uce-default-headers "Errors-To: nobody@localhost\nPrecedence: bulk\n" "Additional headers to use when responding to a UCE with \\[uce-reply-to-uce].\nThese are mostly meant for headers that prevent delivery errors reporting." (choice (const nil) string) uce-subject-line "Spam alert: unsolicited commercial e-mail" "Subject of the message that will be sent in response to a UCE." string] 10)
#@243 Compose a reply to unsolicited commercial email (UCE).
Sets up a reply buffer addressed to: the sender, his postmaster,
his abuse@ address, and the postmaster of the mail relay used.
You might need to set `uce-mail-reader' before using this.
(defalias 'uce-reply-to-uce #[(&optional ignored) "\306\267\202 \202 \307\302!\205 \n\202 \310\311!\312\211 \203$ \313\f!\204( \310\314!\210\315\f!\210\316=\203= \317 \211\204= \320\321!\210\322\323\324\325\"!\323\326!\312 @\211 A\203Z \327\330\322A!\"\202[ \331A@\203m \327\332A\322@!#A\312\211\211 B C D\333\334A\"D\333\335AD#C\336ADC#B\333\337B\"\203\242 \327\340AB\211$A+\312\211EF\316=\203\266 \320\341!\210\342 \210\343ed\"\210 \203\303 \320\321!\210\315\344!\210\345 \210\346 \210eb\210\316=\203\356 \347\350!\210\351\352\312\325#\203\353 `\353\354!|\210\202\332 eb\210\355\267\202\356\357!\210\360 \210\202\347\350!\210\351\361!\210\356\362\363 \364#\204 \365\366!\203 \341\225b\210\202 \310\367!\210`\347\370!\210\371u\210\333\337
`{\"\203<\327\372A
`{#A\347\373\312\325#\203i\347\334\363 \325#\203i`\347\374!\210\371u\210\333\337
`{\"\203i\327\372A
`{#A\375=\203\205\356\357!\210\360 \210`\347\350\312\325#\210\371y\210
`|\210\376G!\210\377 \210eb\210\201R c\210\212A\203\267\201S ` H IA\201T \261\210\201U H`\"\210*\202\274\201V \210\201W J\201T \261\210K\203\320Kc\210L\203\331Lc\210M\203\351\201X M\201T \261\210N\201T \261\210A\203\371`AO\203Oc\210P\325=\203&\201Y \201Z !\2033\201[ c\210\201\\ \201Z !A@u\210\2023P\2033\201[ P\261\210Q\203A\350Q\201T \261\210db\210n\204M\201V \210)A\203WAb\210A\204b\201] \312!\210\201^ \201_ \201` \"-\207" [uce-mail-reader gnus-original-article-buffer rmail-buffer pruned message-buffer temp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (gnus 6 rmail 10)) boundp error "Variable uce-mail-reader set to unrecognized value" nil get-buffer "No mail buffer, cannot find UCE" switch-to-buffer rmail rmail-msg-is-pruned rmail-toggle-header 1 mail-strip-quoted-names mail-fetch-field "from" t "reply-to" format "%s" "" "%s, %s" string-match "@" "[ ,>]" substring "\\." "%s, postmaster%s, abuse%s" 0 rmail-maybe-set-message-counters copy-region-as-kill "*mail*" erase-buffer yank search-forward "\n\n" re-search-backward "^X-RMAIL" line-beginning-position 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (gnus 244 rmail 254)) re-search-forward "^Lines:" beginning-of-line "^Received:" "\\(from\\|by\\) " line-end-position move looking-at "[ \n]+\\(from\\|by\\) " "Failed to extract hub address" " " -1 "%s, postmaster@%s" "\nMessage-Id: " ">" gnus auto-save-mode mail-mode reply-to to sender-host end-of-hostname first-at-sign mail-send-actions mail-reply-buffer 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-contents set-buffer-modified-p run-hooks mail-setup-hook uce-setup-hook] 6 (#$ . 4299) 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 (#$ . 7550) "P"])
(provide 'uce)
Mini Shell