| Current Path : /usr/share/emacs/24.3/lisp/mail/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/mail/uce.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:46 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/uce.el
;;; in Emacs version 24.3.1
;;; 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=\203\n \202 \307=\203 \310\302!\205 \n\202 \311\312!\313\211 \203* \314\f!\204. \311\315!\210\316\f!\210\307=\203C \317 \211\204C \320\321!\210\322\323\324\325\"!\323\326!\313 @\211 A\203` \327\330\322A!\"\202a \331A@\203s \327\332A\322@!#A\313\211\211 B C D\333\334A\"D\333\335AD#CADCOB\333\336B\"\203\247 \327\337AB\211$A+\313\211EF\307=\203\273 \320\340!\210\341 \210\342ed\"\210 \203\310 \320\321!\210\316\343!\210\344 \210\345 \210eb\210\307=\203\363 \346\347!\210\350\351\313\325#\203\360 `\352\353!|\210\202\337 eb\210\306=\203\354\355!\210\356 \210\202
\307=\203
\346\347!\210\350\357!\210\354\360\361 \362#\204+\363\364!\203'\340\225b\210\202+\311\365!\210`\346\366!\210\367u\210\333\336
`{\"\203G\327\370A
`{#A\346\371\313\325#\203t\346\334\361 \325#\203t`\346\372!\210\367u\210\333\336
`{\"\203t\327\370A
`{#A\306=\203\220\354\355!\210\356 \210`\346\347\313\325#\210\367y\210
`|\210\373G!\210\374 \210eb\210\375c\210\212A\203\274\376` H IA\377\261\210\201S H`\"\210*\202\301\201T \210\201U J\377\261\210K\203\323Kc\210L\203\334Lc\210M\203\352\201V M\377\261\210N\377\261\210A\203\370`AO\203Oc\210P\325=\203)\201W \201X !\2036\201Y c\210\201Z \201X !\211 QA@)u\210\2026P\2036\201Y P\261\210R\203B\347R\377\261\210db\210n\204N\201T \210)A\203XAb\210A\204c\201[ \313!\210\201\\ \201] \201^ \"-\207" [uce-mail-reader gnus-original-article-buffer rmail-buffer pruned message-buffer temp gnus rmail boundp error "Variable uce-mail-reader set to unrecognized value" nil get-buffer "No mail buffer, cannot find UCE" switch-to-buffer 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 "@" "[ ,>]" "\\." "%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 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: " ">" auto-save-mode mail-mode "To: " " " "\n" 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 x uce-uce-separator 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 (#$ . 4442) 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 (#$ . 7482) "P"])
(provide 'uce)