mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-23 14:10:28 -08:00
* lisp/gnus: Remove redundant :group args
* lisp/gnus/spam-stat.el: * lisp/gnus/spam-report.el: * lisp/gnus/smime.el: * lisp/gnus/nnrss.el: * lisp/gnus/nnmairix.el: * lisp/gnus/nnimap.el: * lisp/gnus/nndiary.el: * lisp/gnus/mm-url.el: * lisp/gnus/mail-source.el: * lisp/gnus/gnus-win.el: * lisp/gnus/gnus-topic.el: * lisp/gnus/gnus-sieve.el: * lisp/gnus/gnus-search.el: * lisp/gnus/gnus-registry.el: * lisp/gnus/gnus-notifications.el: * lisp/gnus/gnus-gravatar.el: * lisp/gnus/gnus-eform.el: * lisp/gnus/gnus-dup.el: * lisp/gnus/gnus-diary.el: * lisp/gnus/gnus-demon.el: * lisp/gnus/gnus-delay.el: * lisp/gnus/gnus-cloud.el: * lisp/gnus/gnus-cite.el: * lisp/gnus/gnus-bookmark.el: * lisp/gnus/gmm-utils.el: * lisp/gnus/deuglify.el: * lisp/gnus/canlock.el: Remove redundant `:group` arguments
This commit is contained in:
Stefan Monnier
parent
f0ca9ad5dc
commit
acf4ec23d9
27 changed files with 130 additions and 327 deletions
|
|
@ -52,20 +52,17 @@
|
|||
(defcustom canlock-password nil
|
||||
"Password to use when signing a Cancel-Lock or a Cancel-Key header."
|
||||
:type '(radio (const :format "Not specified " nil)
|
||||
(string :tag "Password"))
|
||||
:group 'canlock)
|
||||
(string :tag "Password")))
|
||||
|
||||
(defcustom canlock-password-for-verify canlock-password
|
||||
"Password to use when verifying a Cancel-Lock or a Cancel-Key header."
|
||||
:type '(radio (const :format "Not specified " nil)
|
||||
(string :tag "Password"))
|
||||
:group 'canlock)
|
||||
(string :tag "Password")))
|
||||
|
||||
(defcustom canlock-force-insert-header nil
|
||||
"If non-nil, insert a Cancel-Lock or a Cancel-Key header even if the
|
||||
buffer does not look like a news message."
|
||||
:type 'boolean
|
||||
:group 'canlock)
|
||||
:type 'boolean)
|
||||
|
||||
(defun canlock-sha1 (message)
|
||||
"Make a SHA-1 digest of MESSAGE as a unibyte string of length 20 bytes."
|
||||
|
|
|
|||
|
|
@ -234,20 +234,17 @@
|
|||
(defcustom gnus-outlook-deuglify-unwrap-min 45
|
||||
"Minimum length of the cited line above the (possibly) wrapped line."
|
||||
:version "22.1"
|
||||
:type 'integer
|
||||
:group 'gnus-outlook-deuglify)
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-outlook-deuglify-unwrap-max 95
|
||||
"Maximum length of the cited line after unwrapping."
|
||||
:version "22.1"
|
||||
:type 'integer
|
||||
:group 'gnus-outlook-deuglify)
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-outlook-deuglify-cite-marks ">|#%"
|
||||
"Characters that indicate cited lines."
|
||||
:version "22.1"
|
||||
:type 'string
|
||||
:group 'gnus-outlook-deuglify)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-outlook-deuglify-unwrap-stop-chars nil ;; ".?!" or nil
|
||||
"Characters that, when at end of cited line, inhibit unwrapping.
|
||||
|
|
@ -255,44 +252,38 @@ When one of these characters is the last one on the cited line
|
|||
above the possibly wrapped line, it disallows unwrapping."
|
||||
:version "22.1"
|
||||
:type '(radio (const :format "None " nil)
|
||||
(string :value ".?!"))
|
||||
:group 'gnus-outlook-deuglify)
|
||||
(string :value ".?!")))
|
||||
|
||||
(defcustom gnus-outlook-deuglify-no-wrap-chars "`"
|
||||
"Characters that, when at beginning of line, inhibit unwrapping.
|
||||
When one of these characters is the first one in the possibly
|
||||
wrapped line, it disallows unwrapping."
|
||||
:version "22.1"
|
||||
:type 'string
|
||||
:group 'gnus-outlook-deuglify)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-outlook-deuglify-attrib-cut-regexp
|
||||
"\\(On \\|Am \\)?\\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),[^,]+, "
|
||||
"Regexp matching beginning of attribution line that should be cut off."
|
||||
:version "22.1"
|
||||
:type 'regexp
|
||||
:group 'gnus-outlook-deuglify)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-outlook-deuglify-attrib-verb-regexp
|
||||
"wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió"
|
||||
"Regular expression matching the verb used in an attribution line."
|
||||
:version "22.1"
|
||||
:type 'regexp
|
||||
:group 'gnus-outlook-deuglify)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-outlook-deuglify-attrib-end-regexp
|
||||
": *\\|\\.\\.\\."
|
||||
"Regular expression matching the end of an attribution line."
|
||||
:version "22.1"
|
||||
:type 'regexp
|
||||
:group 'gnus-outlook-deuglify)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-outlook-display-hook nil
|
||||
"A hook called after a deuglified article has been prepared.
|
||||
It is run after `gnus-article-prepare-hook'."
|
||||
:version "22.1"
|
||||
:type 'hook
|
||||
:group 'gnus-outlook-deuglify)
|
||||
:type 'hook)
|
||||
|
||||
;; Functions
|
||||
|
||||
|
|
|
|||
|
|
@ -42,8 +42,7 @@ The higher the number, the more messages will flash to say what
|
|||
it did. At zero, it will be totally mute; at five, it will
|
||||
display most important messages; and at ten, it will keep on
|
||||
jabbering all the time."
|
||||
:type 'integer
|
||||
:group 'gmm)
|
||||
:type 'integer)
|
||||
|
||||
;;;###autoload
|
||||
(defun gmm-regexp-concat (regexp)
|
||||
|
|
@ -175,8 +174,7 @@ ARGS are passed to `message'."
|
|||
'retro)
|
||||
"Preferred tool bar style."
|
||||
:type '(choice (const :tag "GNOME style" gnome)
|
||||
(const :tag "Retro look" retro))
|
||||
:group 'gmm)
|
||||
(const :tag "Retro look" retro)))
|
||||
|
||||
(defvar tool-bar-map)
|
||||
|
||||
|
|
|
|||
|
|
@ -78,22 +78,19 @@
|
|||
((file-exists-p "~/.gnus.bmk") "~/.gnus.bmk")
|
||||
(t (nnheader-concat gnus-directory "bookmarks.el")))
|
||||
"The default Gnus bookmarks file."
|
||||
:type 'string
|
||||
:group 'gnus-bookmark)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-bookmark-file-coding-system
|
||||
(if (mm-coding-system-p 'iso-2022-7bit)
|
||||
'iso-2022-7bit)
|
||||
"Coding system used for writing Gnus bookmark files."
|
||||
:type '(symbol :tag "Coding system")
|
||||
:group 'gnus-bookmark)
|
||||
:type '(symbol :tag "Coding system"))
|
||||
|
||||
(defcustom gnus-bookmark-sort-flag t
|
||||
"Non-nil means Gnus bookmarks are sorted by bookmark names.
|
||||
Otherwise they will be displayed in LIFO order (that is,
|
||||
most recently set ones come first, oldest ones come last)."
|
||||
:type 'boolean
|
||||
:group 'gnus-bookmark)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-bookmark-bmenu-toggle-infos t
|
||||
"Non-nil means show details when listing Gnus bookmarks.
|
||||
|
|
@ -102,19 +99,16 @@ This may result in truncated bookmark names. To disable this, put the
|
|||
following in your `.emacs' file:
|
||||
|
||||
\(setq gnus-bookmark-bmenu-toggle-infos nil)"
|
||||
:type 'boolean
|
||||
:group 'gnus-bookmark)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-bookmark-bmenu-file-column 30
|
||||
"Column at which to display details in a buffer listing Gnus bookmarks.
|
||||
You can toggle whether details are shown with \\<gnus-bookmark-bmenu-mode-map>\\[gnus-bookmark-bmenu-toggle-infos]."
|
||||
:type 'integer
|
||||
:group 'gnus-bookmark)
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-bookmark-use-annotations nil
|
||||
"If non-nil, ask for an annotation when setting a bookmark."
|
||||
:type 'boolean
|
||||
:group 'gnus-bookmark)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-bookmark-bookmark-inline-details '(author)
|
||||
"Details to be shown with `gnus-bookmark-bmenu-toggle-infos'.
|
||||
|
|
@ -125,8 +119,7 @@ The default value is \(subject)."
|
|||
(const :tag "Subject" subject)
|
||||
(const :tag "Date" date)
|
||||
(const :tag "Group" group)
|
||||
(const :tag "Message-id" message-id)))
|
||||
:group 'gnus-bookmark)
|
||||
(const :tag "Message-id" message-id))))
|
||||
|
||||
(defcustom gnus-bookmark-bookmark-details
|
||||
'(author subject date group annotation)
|
||||
|
|
@ -139,14 +132,12 @@ The default value is \(author subject date group annotation)."
|
|||
(const :tag "Date" date)
|
||||
(const :tag "Group" group)
|
||||
(const :tag "Message-id" message-id)
|
||||
(const :tag "Annotation" annotation)))
|
||||
:group 'gnus-bookmark)
|
||||
(const :tag "Annotation" annotation))))
|
||||
|
||||
(defface gnus-bookmark-menu-heading
|
||||
'((t (:inherit font-lock-type-face)))
|
||||
"Face used to highlight the heading in Gnus bookmark menu buffers."
|
||||
:version "23.1" ;; No Gnus
|
||||
:group 'gnus-bookmark)
|
||||
:version "23.1") ;; No Gnus
|
||||
|
||||
(defconst gnus-bookmark-end-of-version-stamp-marker
|
||||
"-*- End Of Bookmark File Format Version Stamp -*-\n"
|
||||
|
|
|
|||
|
|
@ -38,19 +38,16 @@
|
|||
|
||||
(defcustom gnus-cited-opened-text-button-line-format "%(%{[-]%}%)\n"
|
||||
"Format of opened cited text buttons."
|
||||
:group 'gnus-cite
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-cited-closed-text-button-line-format "%(%{[+]%}%)\n"
|
||||
"Format of closed cited text buttons."
|
||||
:group 'gnus-cite
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-cited-lines-visible nil
|
||||
"The number of lines of hidden cited text to remain visible.
|
||||
Or a pair (cons) of numbers which are the number of lines at the top
|
||||
and bottom of the text, respectively, to remain visible."
|
||||
:group 'gnus-cite
|
||||
:type '(choice (const :tag "none" nil)
|
||||
integer
|
||||
(cons :tag "Top and Bottom" integer integer)))
|
||||
|
|
@ -58,13 +55,11 @@ and bottom of the text, respectively, to remain visible."
|
|||
(defcustom gnus-cite-parse-max-size 25000
|
||||
"Maximum article size (in bytes) where parsing citations is allowed.
|
||||
Set it to nil to parse all articles."
|
||||
:group 'gnus-cite
|
||||
:type '(choice (const :tag "all" nil)
|
||||
integer))
|
||||
|
||||
(defcustom gnus-cite-max-prefix 20
|
||||
"Maximum possible length for a citation prefix."
|
||||
:group 'gnus-cite
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-supercite-regexp
|
||||
|
|
@ -72,18 +67,15 @@ Set it to nil to parse all articles."
|
|||
">>>>> +\"\\([^\"\n]+\\)\" +==")
|
||||
"Regexp matching normal Supercite attribution lines.
|
||||
The first grouping must match prefixes added by other packages."
|
||||
:group 'gnus-cite
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-supercite-secondary-regexp "^.*\"\\([^\"\n]+\\)\" +=="
|
||||
"Regexp matching mangled Supercite attribution lines.
|
||||
The first regexp group should match the Supercite attribution."
|
||||
:group 'gnus-cite
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-cite-minimum-match-count 2
|
||||
"Minimum number of identical prefixes before we believe it's a citation."
|
||||
:group 'gnus-cite
|
||||
:type 'integer)
|
||||
|
||||
;; Some Microsoft products put in a citation that extends to the
|
||||
|
|
@ -106,21 +98,18 @@ The first regexp group should match the Supercite attribution."
|
|||
(defcustom gnus-cite-attribution-prefix
|
||||
"In article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),\\|----- ?Original Message ?-----"
|
||||
"Regexp matching the beginning of an attribution line."
|
||||
:group 'gnus-cite
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-cite-attribution-suffix
|
||||
"\\(\\(wrote\\|writes\\|said\\|says\\|>\\)\\(:\\|\\.\\.\\.\\)\\|----- ?Original Message ?-----\\)[ \t]*$"
|
||||
"Regexp matching the end of an attribution line.
|
||||
The text matching the first grouping will be used as a button."
|
||||
:group 'gnus-cite
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-cite-unsightly-citation-regexp
|
||||
"^-----Original Message-----\nFrom: \\(.+\n\\)+\n"
|
||||
"Regexp matching Microsoft-type rest-of-message citations."
|
||||
:version "22.1"
|
||||
:group 'gnus-cite
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-cite-ignore-quoted-from t
|
||||
|
|
@ -128,18 +117,15 @@ The text matching the first grouping will be used as a button."
|
|||
Those lines may have been quoted by MTAs in order not to mix up with
|
||||
the envelope From line."
|
||||
:version "22.1"
|
||||
:group 'gnus-cite
|
||||
:type 'boolean)
|
||||
|
||||
(defface gnus-cite-attribution '((t (:italic t)))
|
||||
"Face used for attribution lines."
|
||||
:group 'gnus-cite)
|
||||
"Face used for attribution lines.")
|
||||
|
||||
(defcustom gnus-cite-attribution-face 'gnus-cite-attribution
|
||||
"Face used for attribution lines.
|
||||
It is merged with the face for the cited text belonging to the attribution."
|
||||
:version "22.1"
|
||||
:group 'gnus-cite
|
||||
:type 'face)
|
||||
|
||||
(defface gnus-cite-1 '((((class color)
|
||||
|
|
@ -150,8 +136,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(:foreground "MidnightBlue"))
|
||||
(t
|
||||
(:italic t)))
|
||||
"Citation face."
|
||||
:group 'gnus-cite)
|
||||
"Citation face.")
|
||||
|
||||
(defface gnus-cite-2 '((((class color)
|
||||
(background dark))
|
||||
|
|
@ -161,8 +146,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(:foreground "firebrick"))
|
||||
(t
|
||||
(:italic t)))
|
||||
"Citation face."
|
||||
:group 'gnus-cite)
|
||||
"Citation face.")
|
||||
|
||||
(defface gnus-cite-3 '((((class color)
|
||||
(background dark))
|
||||
|
|
@ -172,8 +156,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(:foreground "dark green"))
|
||||
(t
|
||||
(:italic t)))
|
||||
"Citation face."
|
||||
:group 'gnus-cite)
|
||||
"Citation face.")
|
||||
|
||||
(defface gnus-cite-4 '((((class color)
|
||||
(background dark))
|
||||
|
|
@ -183,8 +166,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(:foreground "OrangeRed"))
|
||||
(t
|
||||
(:italic t)))
|
||||
"Citation face."
|
||||
:group 'gnus-cite)
|
||||
"Citation face.")
|
||||
|
||||
(defface gnus-cite-5 '((((class color)
|
||||
(background dark))
|
||||
|
|
@ -194,8 +176,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(:foreground "dark khaki"))
|
||||
(t
|
||||
(:italic t)))
|
||||
"Citation face."
|
||||
:group 'gnus-cite)
|
||||
"Citation face.")
|
||||
|
||||
(defface gnus-cite-6 '((((class color)
|
||||
(background dark))
|
||||
|
|
@ -205,8 +186,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(:foreground "dark violet"))
|
||||
(t
|
||||
(:italic t)))
|
||||
"Citation face."
|
||||
:group 'gnus-cite)
|
||||
"Citation face.")
|
||||
|
||||
(defface gnus-cite-7 '((((class color)
|
||||
(background dark))
|
||||
|
|
@ -216,8 +196,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(:foreground "SteelBlue4"))
|
||||
(t
|
||||
(:italic t)))
|
||||
"Citation face."
|
||||
:group 'gnus-cite)
|
||||
"Citation face.")
|
||||
|
||||
(defface gnus-cite-8 '((((class color)
|
||||
(background dark))
|
||||
|
|
@ -227,8 +206,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(:foreground "magenta"))
|
||||
(t
|
||||
(:italic t)))
|
||||
"Citation face."
|
||||
:group 'gnus-cite)
|
||||
"Citation face.")
|
||||
|
||||
(defface gnus-cite-9 '((((class color)
|
||||
(background dark))
|
||||
|
|
@ -238,8 +216,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(:foreground "violet"))
|
||||
(t
|
||||
(:italic t)))
|
||||
"Citation face."
|
||||
:group 'gnus-cite)
|
||||
"Citation face.")
|
||||
|
||||
(defface gnus-cite-10 '((((class color)
|
||||
(background dark))
|
||||
|
|
@ -249,8 +226,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(:foreground "medium purple"))
|
||||
(t
|
||||
(:italic t)))
|
||||
"Citation face."
|
||||
:group 'gnus-cite)
|
||||
"Citation face.")
|
||||
|
||||
(defface gnus-cite-11 '((((class color)
|
||||
(background dark))
|
||||
|
|
@ -260,8 +236,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(:foreground "turquoise"))
|
||||
(t
|
||||
(:italic t)))
|
||||
"Citation face."
|
||||
:group 'gnus-cite)
|
||||
"Citation face.")
|
||||
|
||||
(defcustom gnus-cite-face-list
|
||||
'(gnus-cite-1 gnus-cite-2 gnus-cite-3 gnus-cite-4 gnus-cite-5 gnus-cite-6
|
||||
|
|
@ -271,7 +246,6 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
When there are citations from multiple articles in the same message,
|
||||
Gnus will try to give each citation from each article its own face.
|
||||
This should make it easier to see who wrote what."
|
||||
:group 'gnus-cite
|
||||
:type '(repeat face)
|
||||
:set (lambda (symbol value)
|
||||
(prog1
|
||||
|
|
@ -290,17 +264,14 @@ This should make it easier to see who wrote what."
|
|||
|
||||
(defcustom gnus-cite-hide-percentage 50
|
||||
"Only hide excess citation if above this percentage of the body."
|
||||
:group 'gnus-cite
|
||||
:type 'number)
|
||||
|
||||
(defcustom gnus-cite-hide-absolute 10
|
||||
"Only hide excess citation if above this number of lines in the body."
|
||||
:group 'gnus-cite
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-cite-blank-line-after-header t
|
||||
"If non-nil, put a blank line between the citation header and the button."
|
||||
:group 'gnus-cite
|
||||
:type 'boolean)
|
||||
|
||||
;; This has to go here because its default value depends on
|
||||
|
|
|
|||
|
|
@ -52,14 +52,12 @@ Each element may be either a string or a property list.
|
|||
The latter should have a :directory element whose value is a string,
|
||||
and a :match element whose value is a regular expression to match
|
||||
against the basename of files in said directory."
|
||||
:group 'gnus-cloud
|
||||
:type '(repeat (choice (string :tag "File")
|
||||
(plist :tag "Property list"))))
|
||||
|
||||
(defcustom gnus-cloud-storage-method (if (featurep 'epg) 'epg 'base64-gzip)
|
||||
"Storage method for cloud data, defaults to EPG if that's available."
|
||||
:version "26.1"
|
||||
:group 'gnus-cloud
|
||||
:type '(radio (const :tag "No encoding" nil)
|
||||
(const :tag "Base64" base64)
|
||||
(const :tag "Base64+gzip" base64-gzip)
|
||||
|
|
@ -68,7 +66,6 @@ against the basename of files in said directory."
|
|||
(defcustom gnus-cloud-interactive t
|
||||
"Whether Gnus Cloud changes should be confirmed."
|
||||
:version "26.1"
|
||||
:group 'gnus-cloud
|
||||
:type 'boolean)
|
||||
|
||||
(defvar gnus-cloud-group-name "Emacs-Cloud")
|
||||
|
|
@ -81,7 +78,6 @@ against the basename of files in said directory."
|
|||
"The IMAP select method used to store the cloud data.
|
||||
See also `gnus-server-set-cloud-method-server' for an
|
||||
easy interactive way to set this from the Server buffer."
|
||||
:group 'gnus-cloud
|
||||
:type '(radio (const :tag "Not set" nil)
|
||||
(string :tag "A Gnus server name as a string")))
|
||||
|
||||
|
|
|
|||
|
|
@ -44,24 +44,20 @@
|
|||
|
||||
(defcustom gnus-delay-group "delayed"
|
||||
"Group name for storing delayed articles."
|
||||
:type 'string
|
||||
:group 'gnus-delay)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-delay-header "X-Gnus-Delayed"
|
||||
"Header name for storing info about delayed articles."
|
||||
:type 'string
|
||||
:group 'gnus-delay)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-delay-default-delay "3d"
|
||||
"Default length of delay."
|
||||
:type 'string
|
||||
:group 'gnus-delay)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-delay-default-hour 8
|
||||
"If deadline is given as date, then assume this time of day."
|
||||
:version "22.1"
|
||||
:type 'integer
|
||||
:group 'gnus-delay)
|
||||
:type 'integer)
|
||||
|
||||
;;;###autoload
|
||||
(defun gnus-delay-article (delay)
|
||||
|
|
|
|||
|
|
@ -52,7 +52,6 @@ this number of `gnus-demon-timestep's.
|
|||
If IDLE is nil, don't care about idleness.
|
||||
If IDLE is a number and TIME is nil, then call once each time
|
||||
Emacs has been idle for IDLE `gnus-demon-timestep's."
|
||||
:group 'gnus-demon
|
||||
:type '(repeat (list function
|
||||
(choice :tag "Time"
|
||||
(const :tag "never" nil)
|
||||
|
|
@ -65,7 +64,6 @@ Emacs has been idle for IDLE `gnus-demon-timestep's."
|
|||
|
||||
(defcustom gnus-demon-timestep 60
|
||||
"Number of seconds in each demon timestep."
|
||||
:group 'gnus-demon
|
||||
:type 'integer)
|
||||
|
||||
;;; Internal variables.
|
||||
|
|
|
|||
|
|
@ -57,8 +57,7 @@
|
|||
(defcustom gnus-diary-time-format "%a, %b %e %y, %H:%M"
|
||||
"Time format to display appointments in nndiary summary buffers.
|
||||
Please refer to `format-time-string' for information on possible values."
|
||||
:type 'string
|
||||
:group 'gnus-diary)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-diary-delay-format-function 'gnus-diary-delay-format-english
|
||||
"Function called to format a diary delay string.
|
||||
|
|
@ -73,8 +72,7 @@ There are currently two built-in format functions:
|
|||
`gnus-diary-delay-format-french'"
|
||||
:type '(choice (const :tag "english" gnus-diary-delay-format-english)
|
||||
(const :tag "french" gnus-diary-delay-format-french)
|
||||
(symbol :tag "other"))
|
||||
:group 'gnus-diary)
|
||||
(symbol :tag "other")))
|
||||
|
||||
(defconst gnus-diary-version nndiary-version
|
||||
"Current Diary back end version.")
|
||||
|
|
|
|||
|
|
@ -40,17 +40,14 @@
|
|||
"If non-nil, save the duplicate list when shutting down Gnus.
|
||||
If nil, duplicate suppression will only work on duplicates
|
||||
seen in the same session."
|
||||
:group 'gnus-duplicate
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-duplicate-list-length 10000
|
||||
"The maximum number of duplicate Message-IDs to keep track of."
|
||||
:group 'gnus-duplicate
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-duplicate-file (nnheader-concat gnus-directory "suppression")
|
||||
"The name of the file to store the duplicate suppression list."
|
||||
:group 'gnus-duplicate
|
||||
:type 'file)
|
||||
|
||||
;;; Internal variables
|
||||
|
|
|
|||
|
|
@ -37,12 +37,10 @@
|
|||
|
||||
(defcustom gnus-edit-form-mode-hook nil
|
||||
"Hook run in `gnus-edit-form-mode' buffers."
|
||||
:group 'gnus-edit-form
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-edit-form-menu-hook nil
|
||||
"Hook run when creating menus in `gnus-edit-form-mode' buffers."
|
||||
:group 'gnus-edit-form
|
||||
:type 'hook)
|
||||
|
||||
;;; Internal variables
|
||||
|
|
|
|||
|
|
@ -38,21 +38,18 @@
|
|||
If nil, default to `gravatar-size'."
|
||||
:type '(choice (const :tag "Default" nil)
|
||||
(integer :tag "Pixels"))
|
||||
:version "24.1"
|
||||
:group 'gnus-gravatar)
|
||||
:version "24.1")
|
||||
|
||||
(defcustom gnus-gravatar-properties '(:ascent center :relief 1)
|
||||
"List of image properties applied to Gravatar images."
|
||||
:type 'plist
|
||||
:version "24.1"
|
||||
:group 'gnus-gravatar)
|
||||
:version "24.1")
|
||||
|
||||
(defcustom gnus-gravatar-too-ugly gnus-article-x-face-too-ugly
|
||||
"Regexp matching posters whose avatar shouldn't be shown automatically.
|
||||
If nil, show all avatars."
|
||||
:type '(choice regexp (const :tag "Allow all" nil))
|
||||
:version "24.1"
|
||||
:group 'gnus-gravatar)
|
||||
:version "24.1")
|
||||
|
||||
(defun gnus-gravatar-transform-address (header category &optional force)
|
||||
(gnus-with-article-headers
|
||||
|
|
|
|||
|
|
@ -47,26 +47,22 @@
|
|||
|
||||
(defcustom gnus-notifications-use-google-contacts t
|
||||
"Use Google Contacts to retrieve photo."
|
||||
:type 'boolean
|
||||
:group 'gnus-notifications)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-notifications-use-gravatar t
|
||||
"Use Gravatar to retrieve photo."
|
||||
:type 'boolean
|
||||
:group 'gnus-notifications)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-notifications-minimum-level 1
|
||||
"Minimum group level the message should have to be notified.
|
||||
Any message in a group that has a greater value than this will
|
||||
not get notifications."
|
||||
:type 'integer
|
||||
:group 'gnus-notifications)
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-notifications-timeout nil
|
||||
"Timeout used for notifications sent via `notifications-notify'."
|
||||
:type '(choice (const :tag "Server default" nil)
|
||||
(integer :tag "Milliseconds"))
|
||||
:group 'gnus-notifications)
|
||||
(integer :tag "Milliseconds")))
|
||||
|
||||
(defvar gnus-notifications-sent nil
|
||||
"Notifications already sent.")
|
||||
|
|
|
|||
|
|
@ -131,7 +131,6 @@ display.")
|
|||
|
||||
(defcustom gnus-registry-default-mark 'To-Do
|
||||
"The default mark. Should be a valid key for `gnus-registry-marks'."
|
||||
:group 'gnus-registry
|
||||
:type 'symbol)
|
||||
|
||||
(defcustom gnus-registry-unfollowed-addresses
|
||||
|
|
@ -141,7 +140,6 @@ The addresses are matched, they don't have to be fully qualified.
|
|||
In the messages, these addresses can be the sender or the
|
||||
recipients."
|
||||
:version "24.1"
|
||||
:group 'gnus-registry
|
||||
:type '(repeat regexp))
|
||||
|
||||
(defcustom gnus-registry-unfollowed-groups
|
||||
|
|
@ -153,12 +151,10 @@ message into a group that matches one of these, regardless of
|
|||
references.'
|
||||
|
||||
nnmairix groups are specifically excluded because they are ephemeral."
|
||||
:group 'gnus-registry
|
||||
:type '(repeat regexp))
|
||||
|
||||
(defcustom gnus-registry-install 'ask
|
||||
"Whether the registry should be installed."
|
||||
:group 'gnus-registry
|
||||
:type '(choice (const :tag "Never Install" nil)
|
||||
(const :tag "Always Install" t)
|
||||
(const :tag "Ask Me" ask)))
|
||||
|
|
@ -181,7 +177,6 @@ nnmairix groups are specifically excluded because they are ephemeral."
|
|||
"Whether the registry should track extra data about a message.
|
||||
The subject, recipients (To: and Cc:), and Sender (From:) headers
|
||||
are tracked this way by default."
|
||||
:group 'gnus-registry
|
||||
:type
|
||||
'(set :tag "Tracking choices"
|
||||
(const :tag "Track by subject (Subject: header)" subject)
|
||||
|
|
@ -205,7 +200,6 @@ This is the slowest strategy but also the most accurate one.
|
|||
When `first', the first element of G wins. This is fast and
|
||||
should be OK if your senders and subjects don't \"bleed\" across
|
||||
groups."
|
||||
:group 'gnus-registry
|
||||
:type
|
||||
'(choice :tag "Splitting strategy"
|
||||
(const :tag "Only use single choices, discard multiple matches" nil)
|
||||
|
|
@ -214,7 +208,6 @@ groups."
|
|||
|
||||
(defcustom gnus-registry-minimum-subject-length 5
|
||||
"The minimum length of a subject before it's considered trackable."
|
||||
:group 'gnus-registry
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-registry-extra-entries-precious '(mark)
|
||||
|
|
@ -225,20 +218,18 @@ considered precious.
|
|||
Before you save the Gnus registry, it's pruned. Any entries with
|
||||
keys in this list will not be pruned. All other entries go to
|
||||
the Bit Bucket."
|
||||
:group 'gnus-registry
|
||||
:type '(repeat symbol))
|
||||
|
||||
(defcustom gnus-registry-cache-file
|
||||
;; FIXME: Use `locate-user-emacs-file'!
|
||||
(nnheader-concat
|
||||
(or gnus-dribble-directory gnus-home-directory "~/")
|
||||
".gnus.registry.eieio")
|
||||
"File where the Gnus registry will be stored."
|
||||
:group 'gnus-registry
|
||||
:type 'file)
|
||||
|
||||
(defcustom gnus-registry-max-entries nil
|
||||
"Maximum number of entries in the registry, nil for unlimited."
|
||||
:group 'gnus-registry
|
||||
:type '(radio (const :format "Unlimited " nil)
|
||||
(integer :format "Maximum number: %v")))
|
||||
|
||||
|
|
@ -253,7 +244,6 @@ cut the registry back to \(- 50000 \(* 50000 0.1)) -> 45000
|
|||
entries. The pruning process is constrained by the presence of
|
||||
\"precious\" entries."
|
||||
:version "25.1"
|
||||
:group 'gnus-registry
|
||||
:type 'float)
|
||||
|
||||
(defcustom gnus-registry-default-sort-function
|
||||
|
|
@ -262,7 +252,6 @@ entries. The pruning process is constrained by the presence of
|
|||
Entries that sort to the front of the list are pruned first.
|
||||
This can slow pruning down. Set to nil to perform no sorting."
|
||||
:version "25.1"
|
||||
:group 'gnus-registry
|
||||
:type '(choice (const :tag "No sorting" nil) function))
|
||||
|
||||
(defun gnus-registry-sort-by-creation-time (l r)
|
||||
|
|
|
|||
|
|
@ -123,8 +123,7 @@ If this option is set to nil, search queries will be passed
|
|||
directly to the search engines without being parsed or
|
||||
transformed."
|
||||
:version "28.1"
|
||||
:type 'boolean
|
||||
:group 'gnus-search)
|
||||
:type 'boolean)
|
||||
|
||||
(define-obsolete-variable-alias 'nnir-ignored-newsgroups
|
||||
'gnus-search-ignored-newsgroups "28.1")
|
||||
|
|
@ -133,8 +132,7 @@ transformed."
|
|||
"A regexp to match newsgroups in the active file that should
|
||||
be skipped when searching."
|
||||
:version "24.1"
|
||||
:type 'regexp
|
||||
:group 'gnus-search)
|
||||
:type 'regexp)
|
||||
|
||||
(make-obsolete-variable
|
||||
'nnir-imap-default-search-key
|
||||
|
|
@ -146,14 +144,12 @@ transformed."
|
|||
(expand-file-name "~/Mail/swish++.conf")
|
||||
"Location of Swish++ configuration file.
|
||||
This variable can also be set per-server."
|
||||
:type 'file
|
||||
:group 'gnus-search)
|
||||
:type 'file)
|
||||
|
||||
(defcustom gnus-search-swish++-program "search"
|
||||
"Name of swish++ search executable.
|
||||
This variable can also be set per-server."
|
||||
:type 'string
|
||||
:group 'gnus-search)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-search-swish++-switches '()
|
||||
"A list of strings, to be given as additional arguments to swish++.
|
||||
|
|
@ -163,8 +159,7 @@ Instead, use this:
|
|||
(setq gnus-search-swish++-switches \\='(\"-i\" \"-w\"))
|
||||
|
||||
This variable can also be set per-server."
|
||||
:type '(repeat string)
|
||||
:group 'gnus-search)
|
||||
:type '(repeat string))
|
||||
|
||||
(defcustom gnus-search-swish++-remove-prefix (concat (getenv "HOME") "/Mail/")
|
||||
"The prefix to remove from each file name returned by swish++
|
||||
|
|
@ -172,30 +167,26 @@ in order to get a group name (albeit with / instead of .). This is a
|
|||
regular expression.
|
||||
|
||||
This variable can also be set per-server."
|
||||
:type 'regexp
|
||||
:group 'gnus-search)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-search-swish++-raw-queries-p nil
|
||||
"If t, all Swish++ engines will only accept raw search query
|
||||
strings."
|
||||
:type 'boolean
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-swish-e-config-file
|
||||
(expand-file-name "~/Mail/swish-e.conf")
|
||||
"Configuration file for swish-e.
|
||||
This variable can also be set per-server."
|
||||
:type 'file
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-swish-e-program "search"
|
||||
"Name of swish-e search executable.
|
||||
This variable can also be set per-server."
|
||||
:type 'string
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-swish-e-switches '()
|
||||
"A list of strings, to be given as additional arguments to swish-e.
|
||||
|
|
@ -206,8 +197,7 @@ Instead, use this:
|
|||
|
||||
This variable can also be set per-server."
|
||||
:type '(repeat string)
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-swish-e-remove-prefix (concat (getenv "HOME") "/Mail/")
|
||||
"The prefix to remove from each file name returned by swish-e
|
||||
|
|
@ -216,22 +206,19 @@ regular expression.
|
|||
|
||||
This variable can also be set per-server."
|
||||
:type 'regexp
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-swish-e-index-files '()
|
||||
"A list of index files to use with this Swish-e instance.
|
||||
This variable can also be set per-server."
|
||||
:type '(repeat file)
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-swish-e-raw-queries-p nil
|
||||
"If t, all Swish-e engines will only accept raw search query
|
||||
strings."
|
||||
:type 'boolean
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
;; Namazu engine, see <URL:http://www.namazu.org/>
|
||||
|
||||
|
|
@ -239,15 +226,13 @@ This variable can also be set per-server."
|
|||
"Name of Namazu search executable.
|
||||
This variable can also be set per-server."
|
||||
:type 'string
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-namazu-index-directory (expand-file-name "~/Mail/namazu/")
|
||||
"Index directory for Namazu.
|
||||
This variable can also be set per-server."
|
||||
:type 'directory
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-namazu-switches '()
|
||||
"A list of strings, to be given as additional arguments to namazu.
|
||||
|
|
@ -261,8 +246,7 @@ Instead, use this:
|
|||
|
||||
This variable can also be set per-server."
|
||||
:type '(repeat string)
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-namazu-remove-prefix (concat (getenv "HOME") "/Mail/")
|
||||
"The prefix to remove from each file name returned by Namazu
|
||||
|
|
@ -277,30 +261,26 @@ arrive at the correct group name, \"mail.misc\".
|
|||
|
||||
This variable can also be set per-server."
|
||||
:type 'directory
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-namazu-raw-queries-p nil
|
||||
"If t, all Namazu engines will only accept raw search query
|
||||
strings."
|
||||
:type 'boolean
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-notmuch-program "notmuch"
|
||||
"Name of notmuch search executable.
|
||||
This variable can also be set per-server."
|
||||
:type '(string)
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-notmuch-config-file
|
||||
(expand-file-name "~/.notmuch-config")
|
||||
"Configuration file for notmuch.
|
||||
This variable can also be set per-server."
|
||||
:type 'file
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-notmuch-switches '()
|
||||
"A list of strings, to be given as additional arguments to notmuch.
|
||||
|
|
@ -311,8 +291,7 @@ Instead, use this:
|
|||
|
||||
This variable can also be set per-server."
|
||||
:type '(repeat string)
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-notmuch-remove-prefix (concat (getenv "HOME") "/Mail/")
|
||||
"The prefix to remove from each file name returned by notmuch
|
||||
|
|
@ -321,37 +300,32 @@ regular expression.
|
|||
|
||||
This variable can also be set per-server."
|
||||
:type 'regexp
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-notmuch-raw-queries-p nil
|
||||
"If t, all Notmuch engines will only accept raw search query
|
||||
strings."
|
||||
:type 'boolean
|
||||
:version "28.1"
|
||||
:group 'gnus-search)
|
||||
:version "28.1")
|
||||
|
||||
(defcustom gnus-search-imap-raw-queries-p nil
|
||||
"If t, all IMAP engines will only accept raw search query
|
||||
strings."
|
||||
:version "28.1"
|
||||
:type 'boolean
|
||||
:group 'gnus-search)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-search-mairix-program "mairix"
|
||||
"Name of mairix search executable.
|
||||
This variable can also be set per-server."
|
||||
:version "28.1"
|
||||
:type 'string
|
||||
:group 'gnus-search)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-search-mairix-config-file
|
||||
(expand-file-name "~/.mairixrc")
|
||||
"Configuration file for mairix.
|
||||
This variable can also be set per-server."
|
||||
:version "28.1"
|
||||
:type 'file
|
||||
:group 'gnus-search)
|
||||
:type 'file)
|
||||
|
||||
(defcustom gnus-search-mairix-switches '()
|
||||
"A list of strings, to be given as additional arguments to mairix.
|
||||
|
|
@ -362,8 +336,7 @@ Instead, use this:
|
|||
|
||||
This variable can also be set per-server."
|
||||
:version "28.1"
|
||||
:type '(repeat string)
|
||||
:group 'gnus-search)
|
||||
:type '(repeat string))
|
||||
|
||||
(defcustom gnus-search-mairix-remove-prefix (concat (getenv "HOME") "/Mail/")
|
||||
"The prefix to remove from each file name returned by mairix
|
||||
|
|
@ -372,15 +345,13 @@ regular expression.
|
|||
|
||||
This variable can also be set per-server."
|
||||
:version "28.1"
|
||||
:type 'regexp
|
||||
:group 'gnus-search)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-search-mairix-raw-queries-p nil
|
||||
"If t, all Mairix engines will only accept raw search query
|
||||
strings."
|
||||
:version "28.1"
|
||||
:type 'boolean
|
||||
:group 'gnus-search)
|
||||
:type 'boolean)
|
||||
|
||||
;; Options for search language parsing.
|
||||
|
||||
|
|
@ -396,7 +367,6 @@ typing in search queries, ie \"subject\" could be entered as
|
|||
\"subject\" and \"since\".
|
||||
|
||||
Ambiguous abbreviations will raise an error."
|
||||
:group 'gnus-search
|
||||
:version "28.1"
|
||||
:type '(repeat string))
|
||||
|
||||
|
|
@ -405,7 +375,6 @@ Ambiguous abbreviations will raise an error."
|
|||
"A list of keywords whose value should be parsed as a date.
|
||||
See the docstring of `gnus-search-parse-query' for information on
|
||||
date parsing."
|
||||
:group 'gnus-search
|
||||
:version "26.1"
|
||||
:type '(repeat string))
|
||||
|
||||
|
|
@ -414,7 +383,6 @@ date parsing."
|
|||
Each list element should be a table or collection suitable to be
|
||||
returned by `completion-at-point-functions'. That usually means
|
||||
a list of strings, a hash table, or an alist."
|
||||
:group 'gnus-search
|
||||
:version "28.1"
|
||||
:type '(repeat sexp))
|
||||
|
||||
|
|
@ -939,7 +907,6 @@ quirks.")
|
|||
(defcustom gnus-search-default-engines '((nnimap . gnus-search-imap))
|
||||
"Alist of default search engines keyed by server method."
|
||||
:version "26.1"
|
||||
:group 'gnus-search
|
||||
:type `(repeat (cons (choice (const nnimap) (const nntp) (const nnspool)
|
||||
(const nneething) (const nndir) (const nnmbox)
|
||||
(const nnml) (const nnmh) (const nndraft)
|
||||
|
|
|
|||
|
|
@ -40,30 +40,25 @@
|
|||
|
||||
(defcustom gnus-sieve-file "~/.sieve"
|
||||
"Path to your Sieve script."
|
||||
:type 'file
|
||||
:group 'gnus-sieve)
|
||||
:type 'file)
|
||||
|
||||
(defcustom gnus-sieve-region-start "\n## Begin Gnus Sieve Script\n"
|
||||
"Line indicating the start of the autogenerated region in your Sieve script."
|
||||
:type 'string
|
||||
:group 'gnus-sieve)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-sieve-region-end "\n## End Gnus Sieve Script\n"
|
||||
"Line indicating the end of the autogenerated region in your Sieve script."
|
||||
:type 'string
|
||||
:group 'gnus-sieve)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-sieve-select-method nil
|
||||
"Which select method we generate the Sieve script for.
|
||||
For example: \"nnimap:mailbox\""
|
||||
;; FIXME? gnus-select-method?
|
||||
:type '(choice (const nil) string)
|
||||
:group 'gnus-sieve)
|
||||
:type '(choice (const nil) string))
|
||||
|
||||
(defcustom gnus-sieve-crosspost t
|
||||
"Whether the generated Sieve script should do crossposting."
|
||||
:type 'boolean
|
||||
:group 'gnus-sieve)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-sieve-update-shell-command "echo put %f | sieveshell %s"
|
||||
"Shell command to execute after updating your Sieve script. The following
|
||||
|
|
@ -71,8 +66,7 @@ formatting characters are recognized:
|
|||
|
||||
%f Script's file name (gnus-sieve-file)
|
||||
%s Server name (from gnus-sieve-select-method)"
|
||||
:type 'string
|
||||
:group 'gnus-sieve)
|
||||
:type 'string)
|
||||
|
||||
;;;###autoload
|
||||
(defun gnus-sieve-update ()
|
||||
|
|
|
|||
|
|
@ -43,8 +43,7 @@
|
|||
|
||||
(defcustom gnus-topic-mode-hook nil
|
||||
"Hook run in topic mode buffers."
|
||||
:type 'hook
|
||||
:group 'gnus-topic)
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-topic-line-format "%i[ %(%{%n%}%) -- %A ]%v\n"
|
||||
"Format of topic lines.
|
||||
|
|
@ -61,18 +60,15 @@ with some simple extensions.
|
|||
General format specifiers can also be used.
|
||||
See Info node `(gnus)Formatting Variables'."
|
||||
:link '(custom-manual "(gnus)Formatting Variables")
|
||||
:type 'string
|
||||
:group 'gnus-topic)
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-topic-indent-level 2
|
||||
"How much each subtopic should be indented."
|
||||
:type 'integer
|
||||
:group 'gnus-topic)
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-topic-display-empty-topics t
|
||||
"If non-nil, display the topic lines even of topics that have no unread articles."
|
||||
:type 'boolean
|
||||
:group 'gnus-topic)
|
||||
:type 'boolean)
|
||||
|
||||
;; Internal variables.
|
||||
|
||||
|
|
|
|||
|
|
@ -36,7 +36,6 @@
|
|||
|
||||
(defcustom gnus-use-full-window t
|
||||
"If non-nil, use the entire Emacs screen."
|
||||
:group 'gnus-windows
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-use-atomic-windows nil
|
||||
|
|
@ -46,17 +45,14 @@
|
|||
|
||||
(defcustom gnus-window-min-width 2
|
||||
"Minimum width of Gnus buffers."
|
||||
:group 'gnus-windows
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-window-min-height 1
|
||||
"Minimum height of Gnus buffers."
|
||||
:group 'gnus-windows
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-always-force-window-configuration nil
|
||||
"If non-nil, always force the Gnus window configurations."
|
||||
:group 'gnus-windows
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-use-frames-on-any-display nil
|
||||
|
|
@ -64,7 +60,6 @@
|
|||
When nil, only frames on the same display as the selected frame will be
|
||||
used to display Gnus windows."
|
||||
:version "22.1"
|
||||
:group 'gnus-windows
|
||||
:type 'boolean)
|
||||
|
||||
(defvar gnus-buffer-configuration
|
||||
|
|
@ -202,7 +197,6 @@ See the Gnus manual for an explanation of the syntax used.")
|
|||
(defcustom gnus-configure-windows-hook nil
|
||||
"A hook called when configuring windows."
|
||||
:version "22.1"
|
||||
:group 'gnus-windows
|
||||
:type 'hook)
|
||||
|
||||
;;; Internal variables.
|
||||
|
|
|
|||
|
|
@ -56,7 +56,6 @@
|
|||
"Where the mail backends will look for incoming mail.
|
||||
This variable is a list of mail source specifiers.
|
||||
See Info node `(gnus)Mail Source Specifiers'."
|
||||
:group 'mail-source
|
||||
:version "24.4"
|
||||
:link '(custom-manual "(gnus)Mail Source Specifiers")
|
||||
:type `(choice
|
||||
|
|
@ -230,33 +229,27 @@ Leave mails for this many days" :value 14)))))
|
|||
If nil, the user will be prompted when an error occurs. If non-nil,
|
||||
the error will be ignored."
|
||||
:version "22.1"
|
||||
:group 'mail-source
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom mail-source-primary-source nil
|
||||
"Primary source for incoming mail.
|
||||
If non-nil, this maildrop will be checked periodically for new mail."
|
||||
:group 'mail-source
|
||||
:type 'sexp)
|
||||
|
||||
(defcustom mail-source-flash t
|
||||
"If non-nil, flash periodically when mail is available."
|
||||
:group 'mail-source
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom mail-source-crash-box "~/.emacs-mail-crash-box"
|
||||
"File where mail will be stored while processing it."
|
||||
:group 'mail-source
|
||||
:type 'file)
|
||||
|
||||
(defcustom mail-source-directory message-directory
|
||||
"Directory where incoming mail source files (if any) will be stored."
|
||||
:group 'mail-source
|
||||
:type 'directory)
|
||||
|
||||
(defcustom mail-source-default-file-modes 384
|
||||
"Set the mode bits of all new mail files to this integer."
|
||||
:group 'mail-source
|
||||
:type 'integer)
|
||||
|
||||
(defcustom mail-source-delete-incoming
|
||||
|
|
@ -270,7 +263,6 @@ Removing of old files happens in `mail-source-callback', i.e. no
|
|||
old incoming files will be deleted unless you receive new mail.
|
||||
You may also set this variable to nil and call
|
||||
`mail-source-delete-old-incoming' interactively."
|
||||
:group 'mail-source
|
||||
:version "22.2" ;; No Gnus / Gnus 5.10.10 (default changed)
|
||||
:type '(choice (const :tag "immediately" t)
|
||||
(const :tag "never" nil)
|
||||
|
|
@ -281,28 +273,23 @@ You may also set this variable to nil and call
|
|||
This variable only applies when `mail-source-delete-incoming' is a positive
|
||||
number."
|
||||
:version "22.2" ;; No Gnus / Gnus 5.10.10 (default changed)
|
||||
:group 'mail-source
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom mail-source-incoming-file-prefix "Incoming"
|
||||
"Prefix for file name for storing incoming mail."
|
||||
:group 'mail-source
|
||||
:type 'string)
|
||||
|
||||
(defcustom mail-source-report-new-mail-interval 5
|
||||
"Interval in minutes between checks for new mail."
|
||||
:group 'mail-source
|
||||
:type 'number)
|
||||
|
||||
(defcustom mail-source-idle-time-delay 5
|
||||
"Number of idle seconds to wait before checking for new mail."
|
||||
:group 'mail-source
|
||||
:type 'number)
|
||||
|
||||
(defcustom mail-source-movemail-program "movemail"
|
||||
"If non-nil, name of program for fetching new mail."
|
||||
:version "26.2"
|
||||
:group 'mail-source
|
||||
:type '(choice (const nil) string))
|
||||
|
||||
;;; Internal variables.
|
||||
|
|
|
|||
|
|
@ -44,8 +44,7 @@
|
|||
(defcustom mm-url-use-external nil
|
||||
"If non-nil, use external grab program `mm-url-program'."
|
||||
:version "22.1"
|
||||
:type 'boolean
|
||||
:group 'mm-url)
|
||||
:type 'boolean)
|
||||
|
||||
(defvar mm-url-predefined-programs
|
||||
'((wget "wget" "--user-agent=mm-url" "-q" "-O" "-")
|
||||
|
|
@ -68,14 +67,12 @@ Likely values are `wget', `w3m', `lynx' and `curl'."
|
|||
(symbol :tag "w3m" w3m)
|
||||
(symbol :tag "lynx" lynx)
|
||||
(symbol :tag "curl" curl)
|
||||
(string :tag "other"))
|
||||
:group 'mm-url)
|
||||
(string :tag "other")))
|
||||
|
||||
(defcustom mm-url-arguments nil
|
||||
"The arguments for `mm-url-program'."
|
||||
:version "22.1"
|
||||
:type '(repeat string)
|
||||
:group 'mm-url)
|
||||
:type '(repeat string))
|
||||
|
||||
|
||||
;;; Internal variables
|
||||
|
|
|
|||
|
|
@ -149,7 +149,6 @@ In order to make this clear, here are some examples:
|
|||
|
||||
- (360 . minute): for an appointment at 18:30 and 15 seconds, this would
|
||||
pop up the appointment message at 12:30."
|
||||
:group 'nndiary
|
||||
:type '(repeat (cons :format "%v\n"
|
||||
(integer :format "%v")
|
||||
(choice :format "%[%v(s)%] before...\n"
|
||||
|
|
@ -163,8 +162,7 @@ In order to make this clear, here are some examples:
|
|||
|
||||
(defcustom nndiary-week-starts-on-monday nil
|
||||
"Whether a week starts on monday (otherwise, sunday)."
|
||||
:type 'boolean
|
||||
:group 'nndiary)
|
||||
:type 'boolean)
|
||||
|
||||
|
||||
(define-obsolete-variable-alias 'nndiary-request-create-group-hooks
|
||||
|
|
@ -172,7 +170,6 @@ In order to make this clear, here are some examples:
|
|||
(defcustom nndiary-request-create-group-functions nil
|
||||
"Hook run after `nndiary-request-create-group' is executed.
|
||||
The hook functions will be called with the full group name as argument."
|
||||
:group 'nndiary
|
||||
:type 'hook)
|
||||
|
||||
(define-obsolete-variable-alias 'nndiary-request-update-info-hooks
|
||||
|
|
@ -180,7 +177,6 @@ The hook functions will be called with the full group name as argument."
|
|||
(defcustom nndiary-request-update-info-functions nil
|
||||
"Hook run after `nndiary-request-update-info' is executed.
|
||||
The hook functions will be called with the full group name as argument."
|
||||
:group 'nndiary
|
||||
:type 'hook)
|
||||
|
||||
(define-obsolete-variable-alias 'nndiary-request-accept-article-hooks
|
||||
|
|
@ -189,12 +185,10 @@ The hook functions will be called with the full group name as argument."
|
|||
"Hook run before accepting an article.
|
||||
Executed near the beginning of `nndiary-request-accept-article'.
|
||||
The hook functions will be called with the article in the current buffer."
|
||||
:group 'nndiary
|
||||
:type 'hook)
|
||||
|
||||
(defcustom nndiary-check-directory-twice t
|
||||
"If t, check directories twice to avoid NFS failures."
|
||||
:group 'nndiary
|
||||
:type 'boolean)
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -143,8 +143,7 @@ textual parts.")
|
|||
(defcustom nnimap-request-articles-find-limit nil
|
||||
"Limit the number of articles to look for after moving an article."
|
||||
:type '(choice (const nil) integer)
|
||||
:version "24.4"
|
||||
:group 'nnimap)
|
||||
:version "24.4")
|
||||
|
||||
(define-obsolete-variable-alias
|
||||
'nnimap-split-download-body-default 'nnimap-split-download-body
|
||||
|
|
|
|||
|
|
@ -219,20 +219,17 @@ server will be this prefix plus a random number. You can delete
|
|||
unused nnmairix groups on the back end using
|
||||
`nnmairix-purge-old-groups'."
|
||||
:version "23.1"
|
||||
:type 'string
|
||||
:group 'nnmairix)
|
||||
:type 'string)
|
||||
|
||||
(defcustom nnmairix-mairix-output-buffer "*mairix output*"
|
||||
"Buffer used for mairix output."
|
||||
:version "23.1"
|
||||
:type 'string
|
||||
:group 'nnmairix)
|
||||
:type 'string)
|
||||
|
||||
(defcustom nnmairix-customize-query-buffer "*mairix query*"
|
||||
"Name of the buffer for customizing Mairix queries."
|
||||
:version "23.1"
|
||||
:type 'string
|
||||
:group 'nnmairix)
|
||||
:type 'string)
|
||||
|
||||
(defcustom nnmairix-mairix-update-options '("-F" "-Q")
|
||||
"Options when calling mairix for updating the database.
|
||||
|
|
@ -240,21 +237,18 @@ The default is \"-F\" and \"-Q\" for making updates faster. You
|
|||
should call mairix without these options from time to
|
||||
time (e.g. via cron job)."
|
||||
:version "23.1"
|
||||
:type '(repeat string)
|
||||
:group 'nnmairix)
|
||||
:type '(repeat string))
|
||||
|
||||
(defcustom nnmairix-mairix-search-options '("-Q")
|
||||
"Options when calling mairix for searching.
|
||||
The default is \"-Q\" for making searching faster."
|
||||
:version "23.1"
|
||||
:type '(repeat string)
|
||||
:group 'nnmairix)
|
||||
:type '(repeat string))
|
||||
|
||||
(defcustom nnmairix-mairix-synchronous-update nil
|
||||
"Set this to t if you want Emacs to wait for mairix updating the database."
|
||||
:version "23.1"
|
||||
:type 'boolean
|
||||
:group 'nnmairix)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom nnmairix-rename-files-for-nnml t
|
||||
"Rename nnml mail files so that they are consecutively numbered.
|
||||
|
|
@ -263,8 +257,7 @@ article numbers which will produce wrong article counts by
|
|||
Gnus. This option controls whether nnmairix should rename the
|
||||
files consecutively."
|
||||
:version "23.1"
|
||||
:type 'boolean
|
||||
:group 'nnmairix)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom nnmairix-widget-fields-list
|
||||
'(("from" "f" "From") ("to" "t" "To") ("cc" "c" "Cc")
|
||||
|
|
@ -288,16 +281,14 @@ nil for disabling this)."
|
|||
(const :tag "Subject" "subject")
|
||||
(const :tag "Message ID" "Message-ID"))
|
||||
(string :tag "Command")
|
||||
(string :tag "Description")))
|
||||
:group 'nnmairix)
|
||||
(string :tag "Description"))))
|
||||
|
||||
(defcustom nnmairix-widget-select-window-function
|
||||
(lambda () (select-window (get-largest-window)))
|
||||
"Function for selecting the window for customizing the mairix query.
|
||||
The default chooses the largest window in the current frame."
|
||||
:version "23.1"
|
||||
:type 'function
|
||||
:group 'nnmairix)
|
||||
:type 'function)
|
||||
|
||||
(defcustom nnmairix-propagate-marks-upon-close t
|
||||
"Flag if marks should be propagated upon closing a group.
|
||||
|
|
@ -308,8 +299,7 @@ call `nnmairix-propagate-marks'."
|
|||
:version "23.1"
|
||||
:type '(choice (const :tag "always" t)
|
||||
(const :tag "ask" ask)
|
||||
(const :tag "never" nil))
|
||||
:group 'nnmairix)
|
||||
(const :tag "never" nil)))
|
||||
|
||||
(defcustom nnmairix-propagate-marks-to-nnmairix-groups nil
|
||||
"Flag if marks from original articles should be seen in nnmairix groups.
|
||||
|
|
@ -319,8 +309,7 @@ e.g. an IMAP server (which stores the marks in the maildir file
|
|||
name). You may safely set this to t for testing - the worst that
|
||||
can happen are wrong marks in nnmairix groups."
|
||||
:version "23.1"
|
||||
:type 'boolean
|
||||
:group 'nnmairix)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom nnmairix-only-use-registry nil
|
||||
"Use only the registry for determining original group(s).
|
||||
|
|
@ -330,16 +319,14 @@ propagating marks). If set to nil, it will also try to determine
|
|||
the group from an additional mairix search which might be slow
|
||||
when propagating lots of marks."
|
||||
:version "23.1"
|
||||
:type 'boolean
|
||||
:group 'nnmairix)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom nnmairix-allowfast-default nil
|
||||
"Whether fast entering should be the default for nnmairix groups.
|
||||
You may set this to t to make entering the group faster, but note that
|
||||
this might lead to problems, especially when used with marks propagation."
|
||||
:version "23.1"
|
||||
:type 'boolean
|
||||
:group 'nnmairix)
|
||||
:type 'boolean)
|
||||
|
||||
;; ==== Other variables
|
||||
|
||||
|
|
|
|||
|
|
@ -100,7 +100,6 @@ Note that you have to regenerate all the nnrss groups if you change
|
|||
the value. Moreover, you should be patient even if you are made to
|
||||
read the same articles twice, that arises for the difference of the
|
||||
versions of xml.el."
|
||||
:group 'nnrss
|
||||
:type 'coding-system)
|
||||
|
||||
(defvar nnrss-compatible-encoding-alist
|
||||
|
|
|
|||
|
|
@ -135,8 +135,7 @@ certificates to be sent with every message to each address."
|
|||
:type '(repeat (list (string :tag "Mail address")
|
||||
(file :tag "File name")
|
||||
(repeat :tag "Additional certificate files"
|
||||
(file :tag "File name"))))
|
||||
:group 'smime)
|
||||
(file :tag "File name")))))
|
||||
|
||||
(defcustom smime-CA-directory nil
|
||||
"Directory containing certificates for CAs you trust.
|
||||
|
|
@ -148,16 +147,14 @@ $ ln -s ca.pem \\=`openssl x509 -noout -hash -in ca.pem\\=`.0
|
|||
where `ca.pem' is the file containing a PEM encoded X.509 CA
|
||||
certificate."
|
||||
:type '(choice (const :tag "none" nil)
|
||||
directory)
|
||||
:group 'smime)
|
||||
directory))
|
||||
|
||||
(defcustom smime-CA-file nil
|
||||
"Files containing certificates for CAs you trust.
|
||||
File should contain certificates in PEM format."
|
||||
:version "22.1"
|
||||
:type '(choice (const :tag "none" nil)
|
||||
file)
|
||||
:group 'smime)
|
||||
file))
|
||||
|
||||
(defcustom smime-certificate-directory "~/Mail/certs/"
|
||||
"Directory containing other people's certificates.
|
||||
|
|
@ -166,8 +163,7 @@ and the files themselves should be in PEM format."
|
|||
;The S/MIME library provide simple functionality for fetching
|
||||
;certificates into this directory, so there is no need to populate it
|
||||
;manually.
|
||||
:type 'directory
|
||||
:group 'smime)
|
||||
:type 'directory)
|
||||
|
||||
(defcustom smime-openssl-program
|
||||
(and (condition-case ()
|
||||
|
|
@ -176,8 +172,7 @@ and the files themselves should be in PEM format."
|
|||
"openssl")
|
||||
"Name of OpenSSL binary or nil if none."
|
||||
:type '(choice string
|
||||
(const :tag "none" nil))
|
||||
:group 'smime)
|
||||
(const :tag "none" nil)))
|
||||
|
||||
;; OpenSSL option to select the encryption cipher
|
||||
|
||||
|
|
@ -191,8 +186,7 @@ and the files themselves should be in PEM format."
|
|||
(const :tag "AES 128 bits" "-aes128")
|
||||
(const :tag "RC2 40 bits" "-rc2-40")
|
||||
(const :tag "RC2 64 bits" "-rc2-64")
|
||||
(const :tag "RC2 128 bits" "-rc2-128"))
|
||||
:group 'smime)
|
||||
(const :tag "RC2 128 bits" "-rc2-128")))
|
||||
|
||||
(defcustom smime-crl-check nil
|
||||
"Check revocation status of signers certificate using CRLs.
|
||||
|
|
@ -212,24 +206,21 @@ certificate with .r0 as file name extension.
|
|||
At least OpenSSL version 0.9.7 is required for this to work."
|
||||
:type '(choice (const :tag "No check" nil)
|
||||
(const :tag "Check certificate" "-crl_check")
|
||||
(const :tag "Check certificate chain" "-crl_check_all"))
|
||||
:group 'smime)
|
||||
(const :tag "Check certificate chain" "-crl_check_all")))
|
||||
|
||||
(defcustom smime-dns-server nil
|
||||
"DNS server to query certificates from.
|
||||
If nil, use system defaults."
|
||||
:version "22.1"
|
||||
:type '(choice (const :tag "System defaults")
|
||||
string)
|
||||
:group 'smime)
|
||||
string))
|
||||
|
||||
(defcustom smime-ldap-host-list nil
|
||||
"A list of LDAP hosts with S/MIME user certificates.
|
||||
If needed search base, binddn, passwd, etc. for the LDAP host
|
||||
must be set in `ldap-host-parameters-alist'."
|
||||
:type '(repeat (string :tag "Host name"))
|
||||
:version "23.1" ;; No Gnus
|
||||
:group 'smime)
|
||||
:version "23.1") ;; No Gnus
|
||||
|
||||
(defvar smime-details-buffer "*OpenSSL output*")
|
||||
|
||||
|
|
|
|||
|
|
@ -43,8 +43,7 @@ If you are using spam.el, consider setting gnus-spam-process-newsgroups
|
|||
or the gnus-group-spam-exit-processor-report-gmane group/topic parameter
|
||||
instead."
|
||||
:type '(radio (const nil)
|
||||
(regexp :value "^nntp\\+.*:gmane\\."))
|
||||
:group 'spam-report)
|
||||
(regexp :value "^nntp\\+.*:gmane\\.")))
|
||||
|
||||
(defcustom spam-report-gmane-use-article-number t
|
||||
"Whether the article number (faster!) or the header should be used.
|
||||
|
|
@ -52,8 +51,7 @@ instead."
|
|||
You must set this to nil if you don't read Gmane groups directly
|
||||
from news.gmane.org, e.g. when using local newsserver such as
|
||||
leafnode."
|
||||
:type 'boolean
|
||||
:group 'spam-report)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom spam-report-url-ping-function
|
||||
'spam-report-url-ping-plain
|
||||
|
|
@ -66,23 +64,20 @@ The function must accept the arguments `host' and `report'."
|
|||
spam-report-url-ping-mm-url)
|
||||
(const :tag "Store request URLs in `spam-report-requests-file'"
|
||||
spam-report-url-to-file)
|
||||
(function :tag "User defined function" nil))
|
||||
:group 'spam-report)
|
||||
(function :tag "User defined function" nil)))
|
||||
|
||||
(defcustom spam-report-requests-file
|
||||
(nnheader-concat gnus-directory "spam/" "spam-report-requests.url")
|
||||
;; Is there a convention for the extension of such a file?
|
||||
;; Should we use `spam-directory'?
|
||||
"File where spam report request are stored."
|
||||
:type 'file
|
||||
:group 'spam-report)
|
||||
:type 'file)
|
||||
|
||||
(defcustom spam-report-resend-to nil
|
||||
"Email address that spam articles are resent to when reporting.
|
||||
If not set, the user will be prompted to enter a value which will be
|
||||
saved for future use."
|
||||
:type '(choice (const :tag "Prompt" nil) string)
|
||||
:group 'spam-report)
|
||||
:type '(choice (const :tag "Prompt" nil) string))
|
||||
|
||||
(defvar spam-report-url-ping-temp-agent-function nil
|
||||
"Internal variable for `spam-report-agentize' and `spam-report-deagentize'.
|
||||
|
|
@ -232,8 +227,7 @@ the function specified by `spam-report-url-ping-function'."
|
|||
This is initialized based on `user-mail-address'."
|
||||
:type '(choice string
|
||||
(const :tag "Don't expose address" nil))
|
||||
:version "23.1" ;; No Gnus
|
||||
:group 'spam-report)
|
||||
:version "23.1") ;; No Gnus
|
||||
|
||||
(defvar spam-report-user-agent
|
||||
(if spam-report-user-mail-address
|
||||
|
|
|
|||
|
|
@ -135,42 +135,35 @@ whether a buffer contains spam or not."
|
|||
(defcustom spam-stat-file "~/.spam-stat.el"
|
||||
"File used to save and load the dictionary.
|
||||
See `spam-stat-to-hash-table' for the format of the file."
|
||||
:type 'file
|
||||
:group 'spam-stat)
|
||||
:type 'file)
|
||||
|
||||
(defcustom spam-stat-unknown-word-score 0.2
|
||||
"The score to use for unknown words.
|
||||
Also used for words that don't appear often enough."
|
||||
:type 'number
|
||||
:group 'spam-stat)
|
||||
:type 'number)
|
||||
|
||||
(defcustom spam-stat-max-word-length 15
|
||||
"Only words shorter than this will be considered."
|
||||
:type 'integer
|
||||
:group 'spam-stat)
|
||||
:type 'integer)
|
||||
|
||||
(defcustom spam-stat-max-buffer-length 10240
|
||||
"Only the beginning of buffers will be analyzed.
|
||||
This variable says how many characters this will be."
|
||||
:type 'integer
|
||||
:group 'spam-stat)
|
||||
:type 'integer)
|
||||
|
||||
(defcustom spam-stat-split-fancy-spam-group "mail.spam"
|
||||
"Name of the group where spam should be stored.
|
||||
If `spam-stat-split-fancy' is used in fancy splitting rules. Has
|
||||
no effect when spam-stat is invoked through spam.el."
|
||||
:type 'string
|
||||
:group 'spam-stat)
|
||||
:type 'string)
|
||||
|
||||
(defcustom spam-stat-split-fancy-spam-threshold 0.9
|
||||
"Spam score threshold in spam-stat-split-fancy."
|
||||
:type 'number
|
||||
:group 'spam-stat)
|
||||
:type 'number)
|
||||
|
||||
(defcustom spam-stat-washing-hook nil
|
||||
"Hook applied to each message before analysis."
|
||||
:type 'hook
|
||||
:group 'spam-stat)
|
||||
:type 'hook)
|
||||
|
||||
(defcustom spam-stat-score-buffer-user-functions nil
|
||||
"List of additional scoring functions.
|
||||
|
|
@ -187,8 +180,7 @@ Also be careful when defining such functions. If they take a long
|
|||
time, they will slow down your mail splitting. Thus, if the buffer is
|
||||
large, don't forget to use smaller regions, by wrapping your work in,
|
||||
say, `with-spam-stat-max-buffer-size'."
|
||||
:type '(repeat sexp)
|
||||
:group 'spam-stat)
|
||||
:type '(repeat sexp))
|
||||
|
||||
(defcustom spam-stat-process-directory-age 90
|
||||
"Max. age of files to be processed in directory, in days.
|
||||
|
|
@ -197,8 +189,7 @@ When using `spam-stat-process-spam-directory' or
|
|||
been touched in this many days will be considered. Without
|
||||
this filter, re-training spam-stat with several thousand messages
|
||||
will start to take a very long time."
|
||||
:type 'number
|
||||
:group 'spam-stat)
|
||||
:type 'number)
|
||||
|
||||
(defvar spam-stat-last-saved-at nil
|
||||
"Time stamp of last change of spam-stat-file on this run")
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue