Gecko [ 122.154.134.11 ]

Name	Size	Permission
binhex.elc	9.01 KB	-rw-r--r--
blessmail.el	2.51 KB	-rw-r--r--
emacsbug.elc	7.55 KB	-rw-r--r--
feedmail.elc	79.59 KB	-rw-r--r--
footnote.elc	21.09 KB	-rw-r--r--
hashcash.elc	10.81 KB	-rw-r--r--
mail-extr.elc	33.9 KB	-rw-r--r--
mail-hist.elc	13.74 KB	-rw-r--r--
mail-utils.elc	9.55 KB	-rw-r--r--
mailabbrev.elc	13.96 KB	-rw-r--r--
mailalias.elc	13.52 KB	-rw-r--r--
mailclient.elc	3.56 KB	-rw-r--r--
mailheader.elc	5.92 KB	-rw-r--r--
mailpost.elc	2.3 KB	-rw-r--r--
metamail.elc	4.44 KB	-rw-r--r--
mspools.elc	7.25 KB	-rw-r--r--
reporter.elc	9.65 KB	-rw-r--r--
rfc2368.elc	2.46 KB	-rw-r--r--
rfc822.elc	5.71 KB	-rw-r--r--
rmail-spam-filter.elc	13.24 KB	-rw-r--r--
rmail.elc	113.93 KB	-rw-r--r--
rmailedit.elc	8.83 KB	-rw-r--r--
rmailkwd.elc	5.12 KB	-rw-r--r--
rmailmm.elc	11.05 KB	-rw-r--r--
rmailmsc.elc	1.56 KB	-rw-r--r--
rmailout.elc	15.73 KB	-rw-r--r--
rmailsort.elc	6.33 KB	-rw-r--r--
rmailsum.elc	52.51 KB	-rw-r--r--
sendmail.elc	51.72 KB	-rw-r--r--
smtpmail.elc	21.58 KB	-rw-r--r--
supercite.elc	58.99 KB	-rw-r--r--
uce.elc	7.66 KB	-rw-r--r--
undigest.elc	7.88 KB	-rw-r--r--
unrmail.elc	4.69 KB	-rw-r--r--
uudecode.elc	6.19 KB	-rw-r--r--

Code Editor : uce.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:24 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mail/uce.el
;;; in Emacs version 23.1.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 '(#$ . 797) :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 '(#$ . 1021) :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." '(#$ . 1224) :type '(choice (const nil) 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 -----" '(#$ . 3513) :type '(choice (const nil) string) :group 'uce)
#@221 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 '(#$ . 3761) :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" '(#$ . 4115) :type '(choice (const nil) 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" '(#$ . 4431) :type 'string :group 'uce)
#@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@\211A\203`�\327\330\322A!\"\202a�\331A@\203s�\327\332A\322@!#A\313\211\211BCD\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`HIA\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�!\211QA@)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 (#$ . 4629) 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 (#$ . 7669) "P"])
(provide 'uce)

${this.title}

Code Editor : uce.elc