Customized.
This commit is contained in:
Stephen Eglen
parent
ccc3ce39b4
commit
0b5bb3ec88
6 changed files with 191 additions and 82 deletions
|
|
@ -57,18 +57,26 @@
|
|||
;;;; Code:
|
||||
|
||||
;;; User variables:
|
||||
(defgroup find-function nil
|
||||
"Find the definition of the elisp function near point."
|
||||
:prefix "find-function"
|
||||
:group 'lisp)
|
||||
|
||||
(defvar find-function-function 'function-at-point
|
||||
(defcustom find-function-function 'function-at-point
|
||||
"*The function used by `find-function' to select the function near
|
||||
point.
|
||||
|
||||
For example `function-at-point' or `function-called-at-point'.")
|
||||
For example `function-at-point' or `function-called-at-point'."
|
||||
:type 'function
|
||||
:group 'find-function)
|
||||
|
||||
(defvar find-function-source-path nil
|
||||
(defcustom find-function-source-path nil
|
||||
"The default list of directories where find-function searches.
|
||||
|
||||
If this variable is `nil' then find-function searches `load-path' by
|
||||
default.")
|
||||
default."
|
||||
:type '(repeat directory)
|
||||
:group 'find-function)
|
||||
|
||||
|
||||
;;; Functions:
|
||||
|
|
|
|||
|
|
@ -51,44 +51,59 @@
|
|||
|
||||
;; All these overrides should go *before* the (require 'crisp) statement.
|
||||
|
||||
(defgroup crisp nil
|
||||
"Emulator for CRiSP and Brief key bindings."
|
||||
:prefix "crisp-"
|
||||
:group 'emulations)
|
||||
|
||||
;; local variables
|
||||
|
||||
(defvar crisp-mode-map (copy-keymap (current-global-map))
|
||||
"Local keymap for CRiSP emulation mode.
|
||||
All the emulation bindings are done here instead of globally.")
|
||||
|
||||
(defvar crisp-mode-modeline-string " *CRiSP*"
|
||||
"String to display in the modeline when CRiSP emulation mode is enabled.")
|
||||
(defcustom crisp-mode-modeline-string " *CRiSP*"
|
||||
"String to display in the modeline when CRiSP emulation mode is enabled."
|
||||
:type 'string
|
||||
:group 'crisp)
|
||||
|
||||
(defvar crisp-mode-original-keymap (copy-keymap (current-global-map))
|
||||
"The original keymap before CRiSP emulation mode remaps anything.
|
||||
This keymap is restored when CRiSP emulation mode is disabled.")
|
||||
|
||||
(defvar crisp-mode-enabled nil
|
||||
(defcustom crisp-mode-enabled nil
|
||||
"Track status of CRiSP emulation mode.
|
||||
A value of nil means CRiSP mode is not enabled. A value of t
|
||||
indicates CRiSP mode is enabled.")
|
||||
indicates CRiSP mode is enabled."
|
||||
:type 'boolean
|
||||
:group 'crisp)
|
||||
|
||||
(defvar crisp-override-meta-x t
|
||||
(defcustom crisp-override-meta-x t
|
||||
"Controls overriding the normal Emacs M-x key binding in the CRiSP emulator.
|
||||
Normally the CRiSP emulator rebinds M-x to save-buffers-exit-emacs
|
||||
and provides the usual M-x functionality on the F10 key.
|
||||
|
||||
If this variable is nil when you start the CRiSP emulator, it
|
||||
does not alter the binding of M-x.")
|
||||
does not alter the binding of M-x."
|
||||
:type 'boolean
|
||||
:group 'crisp)
|
||||
|
||||
(defvar crisp-load-scroll-all t
|
||||
(defcustom crisp-load-scroll-all t
|
||||
"Controls loading of the Scroll All mode in the CRiSP emulator.
|
||||
Its Default behavior is to load and enable the Scroll All minor mode
|
||||
package when enabling the CRiSP emulator.
|
||||
|
||||
If this variable is nil when you start the CRiSP emulator, it
|
||||
does not load Scroll All.")
|
||||
does not load Scroll All."
|
||||
:type 'boolean
|
||||
:group 'crisp)
|
||||
|
||||
(defvar crisp-load-hook nil
|
||||
"Hooks to run after loadint the CRiSP emulator package.")
|
||||
(defcustom crisp-load-hook nil
|
||||
"Hooks to run after loadint the CRiSP emulator package."
|
||||
:type 'hook
|
||||
:group 'crisp)
|
||||
|
||||
(defvar crisp-version "crisp.el release 1.1/$Revision: 1.5 $"
|
||||
(defvar crisp-version "crisp.el release 1.1/$Revision: 1.6 $"
|
||||
"The release number and RCS version for the CRiSP emulator.")
|
||||
|
||||
(defvar crisp-last-last-command nil
|
||||
|
|
|
|||
|
|
@ -208,36 +208,51 @@
|
|||
;;; Code:
|
||||
|
||||
|
||||
(defgroup mail-extr nil
|
||||
"Extract full name and address from RFC 822 mail header."
|
||||
:prefix "mail-extr-"
|
||||
:group 'mail)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;
|
||||
;; User configuration variable definitions.
|
||||
;;
|
||||
|
||||
(defvar mail-extr-guess-middle-initial nil
|
||||
(defcustom mail-extr-guess-middle-initial nil
|
||||
"*Whether to try to guess middle initial from mail address.
|
||||
If true, then when we see an address like \"John Smith <jqs@host.com>\"
|
||||
we will assume that \"John Q. Smith\" is the fellow's name.")
|
||||
we will assume that \"John Q. Smith\" is the fellow's name."
|
||||
:type 'boolean
|
||||
:group 'mail-extr)
|
||||
|
||||
(defvar mail-extr-ignore-single-names t
|
||||
(defcustom mail-extr-ignore-single-names t
|
||||
"*Whether to ignore a name that is just a single word.
|
||||
If true, then when we see an address like \"Idiot <dumb@stupid.com>\"
|
||||
we will act as though we couldn't find a full name in the address.")
|
||||
we will act as though we couldn't find a full name in the address."
|
||||
:type 'boolean
|
||||
:group 'mail-extr)
|
||||
|
||||
;; Matches a leading title that is not part of the name (does not
|
||||
;; contribute to uniquely identifying the person).
|
||||
(defvar mail-extr-full-name-prefixes
|
||||
(defcustom mail-extr-full-name-prefixes
|
||||
(purecopy
|
||||
"\\(Prof\\|D[Rr]\\|Mrs?\\|Rev\\|Rabbi\\|SysOp\\|LCDR\\)\\.?[ \t\n]")
|
||||
"*Matches prefixes to the full name that identify a person's position.
|
||||
These are stripped from the full name because they do not contribute to
|
||||
uniquely identifying the person.")
|
||||
uniquely identifying the person."
|
||||
:type 'regexp
|
||||
:group 'mail-extr)
|
||||
|
||||
(defvar mail-extr-@-binds-tighter-than-! nil
|
||||
"*Whether the local mail transport agent looks at ! before @.")
|
||||
(defcustom mail-extr-@-binds-tighter-than-! nil
|
||||
"*Whether the local mail transport agent looks at ! before @."
|
||||
:type 'boolean
|
||||
:group 'mail-extr)
|
||||
|
||||
(defvar mail-extr-mangle-uucp nil
|
||||
(defcustom mail-extr-mangle-uucp nil
|
||||
"*Whether to throw away information in UUCP addresses
|
||||
by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".")
|
||||
by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
|
||||
:type 'boolean
|
||||
:group 'mail-extr)
|
||||
|
||||
;;----------------------------------------------------------------------
|
||||
;; what orderings are meaningful?????
|
||||
|
|
|
|||
|
|
@ -56,6 +56,11 @@
|
|||
;;; Code:
|
||||
(require 'ring)
|
||||
|
||||
(defgroup mail-hist nil
|
||||
"Headers and message body history for outgoing mail."
|
||||
:prefix "mail-hist-"
|
||||
:group 'mail)
|
||||
|
||||
;;;###autoload
|
||||
(defun mail-hist-define-keys ()
|
||||
"Define keys for accessing mail header history. For use in hooks."
|
||||
|
|
@ -72,13 +77,17 @@
|
|||
Used for knowing which history list to look in when the user asks for
|
||||
previous/next input.")
|
||||
|
||||
(defvar mail-hist-history-size (or kill-ring-max 1729)
|
||||
(defcustom mail-hist-history-size (or kill-ring-max 1729)
|
||||
"*The maximum number of elements in a mail field's history.
|
||||
Oldest elements are dumped first.")
|
||||
Oldest elements are dumped first."
|
||||
:type 'integer
|
||||
:group 'mail-hist)
|
||||
|
||||
;;;###autoload
|
||||
(defvar mail-hist-keep-history t
|
||||
"*Non-nil means keep a history for headers and text of outgoing mail.")
|
||||
(defcustom mail-hist-keep-history t
|
||||
"*Non-nil means keep a history for headers and text of outgoing mail."
|
||||
:type 'boolean
|
||||
:group 'mail-hist)
|
||||
|
||||
;; For handling repeated history requests
|
||||
(defvar mail-hist-access-count 0)
|
||||
|
|
@ -182,9 +191,11 @@ HEADER is a string without the colon."
|
|||
(setq header (downcase header))
|
||||
(cdr (assoc header mail-hist-header-ring-alist)))
|
||||
|
||||
(defvar mail-hist-text-size-limit nil
|
||||
(defcustom mail-hist-text-size-limit nil
|
||||
"*Don't store any header or body with more than this many characters.
|
||||
If the value is nil, that means no limit on text size.")
|
||||
If the value is nil, that means no limit on text size."
|
||||
:type '(choice (const nil) integer)
|
||||
:group 'mail-hist)
|
||||
|
||||
(defun mail-hist-text-too-long-p (text)
|
||||
"Return t if TEXT does not exceed mail-hist's size limit.
|
||||
|
|
|
|||
|
|
@ -28,9 +28,13 @@
|
|||
;; documented in the Emacs user's manual.
|
||||
|
||||
;;; Code:
|
||||
(defgroup sendmail nil
|
||||
"Mail sending commands for Emacs."
|
||||
:prefix "mail-"
|
||||
:group 'mail)
|
||||
|
||||
;;;###autoload
|
||||
(defvar mail-from-style 'angles "\
|
||||
(defcustom mail-from-style 'angles "\
|
||||
*Specifies how \"From:\" fields look.
|
||||
|
||||
If `nil', they contain just the return address like:
|
||||
|
|
@ -38,22 +42,30 @@ If `nil', they contain just the return address like:
|
|||
If `parens', they look like:
|
||||
king@grassland.com (Elvis Parsley)
|
||||
If `angles', they look like:
|
||||
Elvis Parsley <king@grassland.com>")
|
||||
Elvis Parsley <king@grassland.com>"
|
||||
:type '(choice (const nil) (const parens) (const angles))
|
||||
:group 'sendmail)
|
||||
|
||||
;;;###autoload
|
||||
(defvar mail-self-blind nil "\
|
||||
(defcustom mail-self-blind nil "\
|
||||
*Non-nil means insert BCC to self in messages to be sent.
|
||||
This is done when the message is initialized,
|
||||
so you can remove or alter the BCC field to override the default.")
|
||||
so you can remove or alter the BCC field to override the default."
|
||||
:type 'boolean
|
||||
:group 'sendmail)
|
||||
|
||||
;;;###autoload
|
||||
(defvar mail-interactive nil "\
|
||||
(defcustom mail-interactive nil "\
|
||||
*Non-nil means when sending a message wait for and display errors.
|
||||
nil means let mailer mail back a message to report errors.")
|
||||
nil means let mailer mail back a message to report errors."
|
||||
:type 'boolean
|
||||
:group 'sendmail)
|
||||
|
||||
;;;###autoload
|
||||
(defvar mail-yank-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^remailed\\|^received:\\|^message-id:\\|^summary-line:\\|^to:\\|^subject:\\|^in-reply-to:\\|^return-path:" "\
|
||||
*Delete these headers from old message when it's inserted in a reply.")
|
||||
(defcustom mail-yank-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^remailed\\|^received:\\|^message-id:\\|^summary-line:\\|^to:\\|^subject:\\|^in-reply-to:\\|^return-path:" "\
|
||||
*Delete these headers from old message when it's inserted in a reply."
|
||||
:type 'regexp
|
||||
:group 'sendmail)
|
||||
|
||||
;; Useful to set in site-init.el
|
||||
;;;###autoload
|
||||
|
|
@ -63,8 +75,10 @@ The headers should be delimited by a line whose contents
|
|||
match the variable `mail-header-separator'.")
|
||||
|
||||
;;;###autoload
|
||||
(defvar mail-header-separator "--text follows this line--" "\
|
||||
*Line used to separate headers from text in messages being composed.")
|
||||
(defcustom mail-header-separator "--text follows this line--" "\
|
||||
*Line used to separate headers from text in messages being composed."
|
||||
:type 'string
|
||||
:group 'sendmail)
|
||||
|
||||
;; Set up mail-header-separator for use as a category text property.
|
||||
(put 'mail-header-separator 'rear-nonsticky '(category))
|
||||
|
|
@ -76,33 +90,43 @@ match the variable `mail-header-separator'.")
|
|||
;;;(put 'mail-header-separator 'read-only t)
|
||||
|
||||
;;;###autoload
|
||||
(defvar mail-archive-file-name nil "\
|
||||
(defcustom mail-archive-file-name nil "\
|
||||
*Name of file to write all outgoing messages in, or nil for none.
|
||||
This can be an inbox file or an Rmail file.")
|
||||
This can be an inbox file or an Rmail file."
|
||||
:type '(choice file (const nil))
|
||||
:group 'sendmail)
|
||||
|
||||
;;;###autoload
|
||||
(defvar mail-default-reply-to nil
|
||||
(defcustom mail-default-reply-to nil
|
||||
"*Address to insert as default Reply-to field of outgoing messages.
|
||||
If nil, it will be initialized from the REPLYTO environment variable
|
||||
when you first send mail.")
|
||||
when you first send mail."
|
||||
:type '(choice (const nil) string)
|
||||
:group 'sendmail)
|
||||
|
||||
;;;###autoload
|
||||
(defvar mail-alias-file nil
|
||||
(defcustom mail-alias-file nil
|
||||
"*If non-nil, the name of a file to use instead of `/usr/lib/aliases'.
|
||||
This file defines aliases to be expanded by the mailer; this is a different
|
||||
feature from that of defining aliases in `.mailrc' to be expanded in Emacs.
|
||||
This variable has no effect unless your system uses sendmail as its mailer.")
|
||||
This variable has no effect unless your system uses sendmail as its mailer."
|
||||
:type '(choice (const nil) file)
|
||||
:group 'sendmail)
|
||||
|
||||
;;;###autoload
|
||||
(defvar mail-personal-alias-file "~/.mailrc"
|
||||
(defcustom mail-personal-alias-file "~/.mailrc"
|
||||
"*If non-nil, the name of the user's personal mail alias file.
|
||||
This file typically should be in same format as the `.mailrc' file used by
|
||||
the `Mail' or `mailx' program.
|
||||
This file need not actually exist.")
|
||||
This file need not actually exist."
|
||||
:type '(choice (const nil) file)
|
||||
:group 'sendmail)
|
||||
|
||||
(defvar mail-setup-hook nil
|
||||
(defcustom mail-setup-hook nil
|
||||
"Normal hook, run each time a new outgoing mail message is initialized.
|
||||
The function `mail-setup' runs this hook.")
|
||||
The function `mail-setup' runs this hook."
|
||||
:type 'hook
|
||||
:group 'sendmail)
|
||||
|
||||
(defvar mail-aliases t
|
||||
"Alist of mail address aliases,
|
||||
|
|
@ -115,12 +139,17 @@ The alias definitions in the file have this form:
|
|||
(defvar mail-alias-modtime nil
|
||||
"The modification time of your mail alias file when it was last examined.")
|
||||
|
||||
(defvar mail-yank-prefix nil
|
||||
(defcustom mail-yank-prefix nil
|
||||
"*Prefix insert on lines of yanked message being replied to.
|
||||
nil means use indentation.")
|
||||
(defvar mail-indentation-spaces 3
|
||||
nil means use indentation."
|
||||
:type '(choice (const nil) string)
|
||||
:group 'sendmail)
|
||||
|
||||
(defcustom mail-indentation-spaces 3
|
||||
"*Number of spaces to insert at the beginning of each cited line.
|
||||
Used by `mail-yank-original' via `mail-indent-citation'.")
|
||||
Used by `mail-yank-original' via `mail-indent-citation'."
|
||||
:type 'integer
|
||||
:group 'sendmail)
|
||||
(defvar mail-yank-hooks nil
|
||||
"Obsolete hook for modifying a citation just inserted in the mail buffer.
|
||||
Each hook function can find the citation between (point) and (mark t).
|
||||
|
|
@ -130,14 +159,16 @@ text as modified.
|
|||
This is a normal hook, misnamed for historical reasons.
|
||||
It is semi-obsolete and mail agents should no longer use it.")
|
||||
|
||||
(defvar mail-citation-hook nil
|
||||
(defcustom mail-citation-hook nil
|
||||
"*Hook for modifying a citation just inserted in the mail buffer.
|
||||
Each hook function can find the citation between (point) and (mark t).
|
||||
And each hook function should leave point and mark around the citation
|
||||
text as modified.
|
||||
|
||||
If this hook is entirely empty (nil), a default action is taken
|
||||
instead of no action.")
|
||||
instead of no action."
|
||||
:type 'hook
|
||||
:group 'sendmail)
|
||||
|
||||
(defvar mail-abbrevs-loaded nil)
|
||||
(defvar mail-mode-map nil)
|
||||
|
|
@ -154,12 +185,16 @@ removed from alias expansions."
|
|||
nil)
|
||||
|
||||
;;;###autoload
|
||||
(defvar mail-signature nil
|
||||
(defcustom mail-signature nil
|
||||
"*Text inserted at end of mail buffer when a message is initialized.
|
||||
If t, it means to insert the contents of the file `mail-signature-file'.")
|
||||
If t, it means to insert the contents of the file `mail-signature-file'."
|
||||
:type '(choice (const nil) (const t) string)
|
||||
:group 'sendmail)
|
||||
|
||||
(defvar mail-signature-file "~/.signature"
|
||||
"*File containing the text inserted at end of mail buffer.")
|
||||
(defcustom mail-signature-file "~/.signature"
|
||||
"*File containing the text inserted at end of mail buffer."
|
||||
:type 'file
|
||||
:group 'sendmail)
|
||||
|
||||
(defvar mail-reply-action nil)
|
||||
(defvar mail-send-actions nil
|
||||
|
|
@ -167,25 +202,31 @@ If t, it means to insert the contents of the file `mail-signature-file'.")
|
|||
(put 'mail-reply-action 'permanent-local t)
|
||||
(put 'mail-send-actions 'permanent-local t)
|
||||
|
||||
(defvar mail-default-headers nil
|
||||
(defcustom mail-default-headers nil
|
||||
"*A string containing header lines, to be inserted in outgoing messages.
|
||||
It is inserted before you edit the message,
|
||||
so you can edit or delete these lines.")
|
||||
so you can edit or delete these lines."
|
||||
:type '(choice (const nil) string)
|
||||
:group 'sendmail)
|
||||
|
||||
(defvar mail-bury-selects-summary t
|
||||
(defcustom mail-bury-selects-summary t
|
||||
"*If non-nil, try to show RMAIL summary buffer after returning from mail.
|
||||
The functions \\[mail-send-on-exit] or \\[mail-dont-send] select
|
||||
the RMAIL summary buffer before returning, if it exists and this variable
|
||||
is non-nil.")
|
||||
is non-nil."
|
||||
:type 'boolean
|
||||
:group 'sendmail)
|
||||
|
||||
;; I find that this happens so often, for innocent reasons,
|
||||
;; that it is not acceptable to bother the user about it -- rms.
|
||||
(defvar mail-send-nonascii t
|
||||
(defcustom mail-send-nonascii t
|
||||
"*Specify whether to allow sending non-ASCII characters in mail.
|
||||
If t, that means do allow it. nil means don't allow it.
|
||||
`query' means ask the user each time.
|
||||
Including non-ASCII characters in a mail message can be problematical
|
||||
for the recipient, who may not know how to decode them properly.")
|
||||
for the recipient, who may not know how to decode them properly."
|
||||
:type '(choice (const t) (const nil) (const query))
|
||||
:group 'sendmail)
|
||||
|
||||
;; Note: could use /usr/ucb/mail instead of sendmail;
|
||||
;; options -t, and -v if not interactive.
|
||||
|
|
@ -245,8 +286,10 @@ actually occur.")
|
|||
. font-lock-string-face))))
|
||||
"Additional expressions to highlight in Mail mode.")
|
||||
|
||||
(defvar mail-send-hook nil
|
||||
"Normal hook run before sending mail, in Mail mode.")
|
||||
(defcustom mail-send-hook nil
|
||||
"Normal hook run before sending mail, in Mail mode."
|
||||
:type 'hook
|
||||
:group 'sendmail)
|
||||
|
||||
(defun sendmail-sync-aliases ()
|
||||
(let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
|
||||
|
|
|
|||
|
|
@ -104,11 +104,18 @@
|
|||
(require 'sendmail)
|
||||
(require 'rmail)
|
||||
|
||||
(defvar uce-setup-hook nil
|
||||
"Hook to run after UCE rant message is composed.
|
||||
This hook is run after mail-setup-hook, which is run as well.")
|
||||
(defgroup uce nil
|
||||
"Facilitate reply to unsolicited commercial email."
|
||||
:prefix "uce-"
|
||||
:group 'mail)
|
||||
|
||||
(defvar uce-message-text
|
||||
(defcustom uce-setup-hook nil
|
||||
"Hook to run after UCE rant message is composed.
|
||||
This hook is run after mail-setup-hook, which is run as well."
|
||||
:type 'hook
|
||||
:group 'uce)
|
||||
|
||||
(defcustom uce-message-text
|
||||
"Recently, I have received an Unsolicited Commercial E-mail from you.
|
||||
I do not like UCE's and I would like to inform you that sending
|
||||
unsolicited messages to someone while he or she may have to pay for
|
||||
|
|
@ -141,27 +148,37 @@ 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.")
|
||||
Value nil means insert no text by default, lets you type it in."
|
||||
:type 'string
|
||||
:group 'uce)
|
||||
|
||||
(defvar uce-uce-separator
|
||||
(defcustom uce-uce-separator
|
||||
"----- original unsolicited commercial email follows -----"
|
||||
"Line that will begin quoting of the UCE.
|
||||
Value nil means use no separator.")
|
||||
Value nil means use no separator."
|
||||
:type '(choice (const nil) string)
|
||||
:group 'uce)
|
||||
|
||||
(defvar uce-signature mail-signature
|
||||
(defcustom uce-signature mail-signature
|
||||
"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.")
|
||||
as your signature."
|
||||
:type '(choice (const nil) (const t) string)
|
||||
:group 'uce)
|
||||
|
||||
(defvar uce-default-headers
|
||||
(defcustom uce-default-headers
|
||||
"Errors-To: nobody@localhost\nPrecedence: bulk\n"
|
||||
"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.")
|
||||
These are mostly meant for headers that prevent delivery errors reporting."
|
||||
:type 'string
|
||||
:group 'uce)
|
||||
|
||||
(defvar uce-subject-line
|
||||
(defcustom uce-subject-line
|
||||
"Spam alert: unsolicited commercial e-mail"
|
||||
"Subject of the message that will be sent in response to a UCE.")
|
||||
"Subject of the message that will be sent in response to a UCE."
|
||||
:type 'string
|
||||
:group 'uce)
|
||||
|
||||
(defun uce-reply-to-uce (&optional ignored)
|
||||
"Send reply to UCE in Rmail.
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue