Remove obsolete leading * from defcustom, defface doc strings.
* lisp/cedet/ede/linux.el, lisp/cedet/ede/project-am.el: * lisp/cedet/ede/simple.el, lisp/cedet/semantic/bovine/c.el: * lisp/cedet/semantic/complete.el, lisp/cedet/semantic/db.el: * lisp/cedet/semantic/decorate/include.el: * lisp/cedet/semantic/decorate/mode.el, lisp/cedet/semantic/format.el: * lisp/cedet/semantic/ia.el, lisp/cedet/semantic/idle.el: * lisp/cedet/semantic/imenu.el, lisp/cedet/semantic/lex-spp.el: * lisp/cedet/semantic/mru-bookmark.el, lisp/cedet/semantic/sb.el: * lisp/cedet/srecode/fields.el, lisp/ecomplete.el: * lisp/gnus/gnus-agent.el, lisp/gnus/gnus-art.el: * lisp/gnus/gnus-async.el, lisp/gnus/gnus-cache.el: * lisp/gnus/gnus-cite.el, lisp/gnus/gnus-delay.el: * lisp/gnus/gnus-diary.el, lisp/gnus/gnus-dup.el: * lisp/gnus/gnus-fun.el, lisp/gnus/gnus-group.el: * lisp/gnus/gnus-kill.el, lisp/gnus/gnus-msg.el: * lisp/gnus/gnus-picon.el, lisp/gnus/gnus-salt.el: * lisp/gnus/gnus-score.el, lisp/gnus/gnus-start.el: * lisp/gnus/gnus-sum.el, lisp/gnus/gnus-topic.el: * lisp/gnus/gnus-util.el, lisp/gnus/gnus-uu.el, lisp/gnus/gnus-win.el: * lisp/gnus/gnus.el, lisp/gnus/mail-source.el, lisp/gnus/message.el: * lisp/gnus/mm-url.el, lisp/gnus/mm-uu.el, lisp/gnus/mml.el: * lisp/gnus/nndiary.el, lisp/gnus/nnir.el, lisp/gnus/nnmail.el: * lisp/gnus/smiley.el, lisp/gnus/smime.el, lisp/mail/mail-extr.el: * lisp/mh-e/mh-e.el, lisp/net/mailcap.el, lisp/net/pop3.el: * lisp/net/starttls.el, lisp/progmodes/cc-vars.el: * lisp/progmodes/cperl-mode.el, test/manual/cedet/tests/test.el: Remove obsolete leading * from defcustom, defface doc strings.
This commit is contained in:
Glenn Morris
parent
1c09423880
commit
f9af5eddc8
57 changed files with 647 additions and 647 deletions
|
|
@ -64,12 +64,12 @@
|
|||
|
||||
|
||||
(defcustom project-linux-compile-target-command (concat ede-make-command " -k -C %s SUBDIRS=%s")
|
||||
"*Default command used to compile a target."
|
||||
"Default command used to compile a target."
|
||||
:group 'project-linux
|
||||
:type 'string)
|
||||
|
||||
(defcustom project-linux-compile-project-command (concat ede-make-command " -k -C %s")
|
||||
"*Default command used to compile a project."
|
||||
"Default command used to compile a project."
|
||||
:group 'project-linux
|
||||
:type 'string)
|
||||
|
||||
|
|
|
|||
|
|
@ -53,17 +53,17 @@
|
|||
)
|
||||
|
||||
(defcustom project-am-compile-project-command nil
|
||||
"*Default command used to compile a project."
|
||||
"Default command used to compile a project."
|
||||
:group 'project-am
|
||||
:type '(choice (const nil) string))
|
||||
|
||||
(defcustom project-am-compile-target-command (concat ede-make-command " -k %s")
|
||||
"*Default command used to compile a project."
|
||||
"Default command used to compile a project."
|
||||
:group 'project-am
|
||||
:type 'string)
|
||||
|
||||
(defcustom project-am-debug-target-function 'gdb
|
||||
"*Default Emacs command used to debug a target."
|
||||
"Default Emacs command used to debug a target."
|
||||
:group 'project-am
|
||||
:type 'function) ; make this be a list some day
|
||||
|
||||
|
|
|
|||
|
|
@ -55,12 +55,12 @@
|
|||
t)
|
||||
|
||||
(defcustom ede-simple-save-directory "~/.ede"
|
||||
"*Directory where simple EDE project overlays are saved."
|
||||
"Directory where simple EDE project overlays are saved."
|
||||
:group 'ede
|
||||
:type 'directory)
|
||||
|
||||
(defcustom ede-simple-save-file-name "ProjSimple.ede"
|
||||
"*File name used for simple project wrappers."
|
||||
"File name used for simple project wrappers."
|
||||
:group 'ede
|
||||
:type 'string)
|
||||
|
||||
|
|
|
|||
|
|
@ -296,7 +296,7 @@ Return the defined symbol as a special spp lex token."
|
|||
;;; Conditional Skipping
|
||||
;;
|
||||
(defcustom semantic-c-obey-conditional-section-parsing-flag t
|
||||
"*Non-nil means to interpret preprocessor #if sections.
|
||||
"Non-nil means to interpret preprocessor #if sections.
|
||||
This implies that some blocks of code will not be parsed based on the
|
||||
values of the conditions in the #if blocks."
|
||||
:group 'c
|
||||
|
|
|
|||
|
|
@ -568,7 +568,7 @@ if INLINE, then completion is happening inline in a buffer."
|
|||
(:underline "yellow"))
|
||||
(((class color) (background light))
|
||||
(:underline "brown")))
|
||||
"*Face used to show the region being completed inline.
|
||||
"Face used to show the region being completed inline.
|
||||
The face is used in `semantic-complete-inline-tag-engine'."
|
||||
:group 'semantic-faces)
|
||||
|
||||
|
|
@ -1370,7 +1370,7 @@ This object type doesn't do focus, so will never have a focus object."
|
|||
;; Traditional displayor
|
||||
(defcustom semantic-completion-displayor-format-tag-function
|
||||
#'semantic-format-tag-name
|
||||
"*A Tag format function to use when showing completions."
|
||||
"A Tag format function to use when showing completions."
|
||||
:group 'semantic
|
||||
:type semantic-format-tag-custom-list)
|
||||
|
||||
|
|
@ -1871,7 +1871,7 @@ Use this to enable custom editing.")
|
|||
|
||||
(defcustom semantic-complete-inline-analyzer-displayor-class
|
||||
'semantic-displayor-traditional
|
||||
"*Class for displayor to use with inline completion."
|
||||
"Class for displayor to use with inline completion."
|
||||
:group 'semantic
|
||||
:type semantic-complete-inline-custom-type
|
||||
)
|
||||
|
|
@ -2075,7 +2075,7 @@ completion works."
|
|||
|
||||
(defcustom semantic-complete-inline-analyzer-idle-displayor-class
|
||||
'semantic-displayor-ghost
|
||||
"*Class for displayor to use with inline completion at idle time."
|
||||
"Class for displayor to use with inline completion at idle time."
|
||||
:group 'semantic
|
||||
:type semantic-complete-inline-custom-type
|
||||
)
|
||||
|
|
|
|||
|
|
@ -814,7 +814,7 @@ local variable."
|
|||
;; associated databases.
|
||||
|
||||
(defcustom semanticdb-project-roots nil
|
||||
"*List of directories, where each directory is the root of some project.
|
||||
"List of directories, where each directory is the root of some project.
|
||||
All subdirectories of a root project are considered a part of one project.
|
||||
Values in this string can be overridden by project management programs
|
||||
via the `semanticdb-project-root-functions' variable."
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@
|
|||
;;
|
||||
(defface semantic-decoration-on-includes
|
||||
nil
|
||||
"*Overlay Face used on includes that are not in some other state.
|
||||
"Overlay Face used on includes that are not in some other state.
|
||||
Used by the decoration style: `semantic-decoration-on-includes'."
|
||||
:group 'semantic-faces)
|
||||
|
||||
|
|
@ -119,7 +119,7 @@ Used by the decoration style: `semantic-decoration-on-includes'."
|
|||
(:background "#900000"))
|
||||
(((class color) (background light))
|
||||
(:background "#fff0f0")))
|
||||
"*Face used to show includes that cannot be found.
|
||||
"Face used to show includes that cannot be found.
|
||||
Used by the decoration style: `semantic-decoration-on-unknown-includes'."
|
||||
:group 'semantic-faces)
|
||||
|
||||
|
|
@ -182,7 +182,7 @@ Used by the decoration style: `semantic-decoration-on-unknown-includes'."
|
|||
(:background "#009000"))
|
||||
(((class color) (background light))
|
||||
(:background "#f0fdf0")))
|
||||
"*Face used to show includes that have no file, but do have a DB table.
|
||||
"Face used to show includes that have no file, but do have a DB table.
|
||||
Used by the decoration style: `semantic-decoration-on-fileless-includes'."
|
||||
:group 'semantic-faces)
|
||||
|
||||
|
|
@ -245,7 +245,7 @@ Used by the decoration style: `semantic-decoration-on-fileless-includes'."
|
|||
(:background "#555500"))
|
||||
(((class color) (background light))
|
||||
(:background "#ffff55")))
|
||||
"*Face used to show includes that have not yet been parsed.
|
||||
"Face used to show includes that have not yet been parsed.
|
||||
Used by the decoration style: `semantic-decoration-on-unparsed-includes'."
|
||||
:group 'semantic-faces)
|
||||
|
||||
|
|
|
|||
|
|
@ -455,7 +455,7 @@ Does not provide overlines for prototypes.")
|
|||
(:overline "cyan"))
|
||||
(((class color) (background light))
|
||||
(:overline "blue")))
|
||||
"*Face used to show long tags in.
|
||||
"Face used to show long tags in.
|
||||
Used by decoration style: `semantic-tag-boundary'."
|
||||
:group 'semantic-faces)
|
||||
|
||||
|
|
@ -504,7 +504,7 @@ Used by decoration style: `semantic-tag-boundary'."
|
|||
(:background "#200000"))
|
||||
(((class color) (background light))
|
||||
(:background "#8fffff")))
|
||||
"*Face used to show privately scoped tags in.
|
||||
"Face used to show privately scoped tags in.
|
||||
Used by the decoration style: `semantic-decoration-on-private-members'."
|
||||
:group 'semantic-faces)
|
||||
|
||||
|
|
@ -526,7 +526,7 @@ Use a primary decoration."
|
|||
(:background "#000020"))
|
||||
(((class color) (background light))
|
||||
(:background "#fffff8")))
|
||||
"*Face used to show protected scoped tags in.
|
||||
"Face used to show protected scoped tags in.
|
||||
Used by the decoration style: `semantic-decoration-on-protected-members'."
|
||||
:group 'semantic-faces)
|
||||
|
||||
|
|
|
|||
|
|
@ -559,14 +559,14 @@ Optional argument COLOR means highlight the prototype with font-lock colors."
|
|||
;;; UML display styles
|
||||
;;
|
||||
(defcustom semantic-uml-colon-string " : "
|
||||
"*String used as a color separator between parts of a UML string.
|
||||
"String used as a color separator between parts of a UML string.
|
||||
In UML, a variable may appear as `varname : type'.
|
||||
Change this variable to change the output separator."
|
||||
:group 'semantic
|
||||
:type 'string)
|
||||
|
||||
(defcustom semantic-uml-no-protection-string ""
|
||||
"*String used to describe when no protection is specified.
|
||||
"String used to describe when no protection is specified.
|
||||
Used by `semantic-format-tag-uml-protection-to-string'."
|
||||
:group 'semantic
|
||||
:type 'string)
|
||||
|
|
|
|||
|
|
@ -146,7 +146,7 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
|
|||
|
||||
(defcustom semantic-ia-completion-menu-format-tag-function
|
||||
'semantic-format-tag-uml-concise-prototype
|
||||
"*Function used to convert a tag to a string during completion."
|
||||
"Function used to convert a tag to a string during completion."
|
||||
:group 'semantic
|
||||
:type semantic-format-tag-custom-list)
|
||||
|
||||
|
|
|
|||
|
|
@ -141,7 +141,7 @@ Use the command `semantic-idle-scheduler-mode' to change this variable.")
|
|||
(make-variable-buffer-local 'semantic-idle-scheduler-mode)
|
||||
|
||||
(defcustom semantic-idle-scheduler-max-buffer-size 0
|
||||
"*Maximum size in bytes of buffers where idle-scheduler is enabled.
|
||||
"Maximum size in bytes of buffers where idle-scheduler is enabled.
|
||||
If this value is less than or equal to 0, idle-scheduler is enabled in
|
||||
all buffers regardless of their size."
|
||||
:group 'semantic
|
||||
|
|
@ -303,13 +303,13 @@ call additional functions registered with the timer calls."
|
|||
;; Unlike the shorter timer, the WORK timer will kick of tasks that
|
||||
;; may take a long time to complete.
|
||||
(defcustom semantic-idle-work-parse-neighboring-files-flag nil
|
||||
"*Non-nil means to parse files in the same dir as the current buffer.
|
||||
"Non-nil means to parse files in the same dir as the current buffer.
|
||||
Disable to prevent lots of excessive parsing in idle time."
|
||||
:group 'semantic
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom semantic-idle-work-update-headers-flag nil
|
||||
"*Non-nil means to parse through header files in idle time.
|
||||
"Non-nil means to parse through header files in idle time.
|
||||
Disable to prevent idle time parsing of many files. If completion
|
||||
is called that work will be done then instead."
|
||||
:group 'semantic
|
||||
|
|
|
|||
|
|
@ -57,7 +57,7 @@
|
|||
|
||||
;;;###autoload
|
||||
(defcustom semantic-imenu-summary-function 'semantic-format-tag-abbreviate
|
||||
"*Function to use when creating items in Imenu.
|
||||
"Function to use when creating items in Imenu.
|
||||
Some useful functions are found in `semantic-format-tag-functions'."
|
||||
:group 'semantic-imenu
|
||||
:type semantic-format-tag-custom-list)
|
||||
|
|
@ -65,20 +65,20 @@ Some useful functions are found in `semantic-format-tag-functions'."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom semantic-imenu-bucketize-file t
|
||||
"*Non-nil if tags in a file are to be grouped into buckets."
|
||||
"Non-nil if tags in a file are to be grouped into buckets."
|
||||
:group 'semantic-imenu
|
||||
:type 'boolean)
|
||||
(make-variable-buffer-local 'semantic-imenu-bucketize-file)
|
||||
|
||||
(defcustom semantic-imenu-adopt-external-members t
|
||||
"*Non-nil if types in a file should adopt externally defined members.
|
||||
"Non-nil if types in a file should adopt externally defined members.
|
||||
C++ and CLOS can define methods that are not in the body of a class
|
||||
definition."
|
||||
:group 'semantic-imenu
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom semantic-imenu-buckets-to-submenu t
|
||||
"*Non-nil if buckets of tags are to be turned into submenus.
|
||||
"Non-nil if buckets of tags are to be turned into submenus.
|
||||
This option is ignored if `semantic-imenu-bucketize-file' is nil."
|
||||
:group 'semantic-imenu
|
||||
:type 'boolean)
|
||||
|
|
@ -86,7 +86,7 @@ This option is ignored if `semantic-imenu-bucketize-file' is nil."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom semantic-imenu-expand-type-members t
|
||||
"*Non-nil if types should have submenus with members in them."
|
||||
"Non-nil if types should have submenus with members in them."
|
||||
:group 'semantic-imenu
|
||||
:type 'boolean)
|
||||
(make-variable-buffer-local 'semantic-imenu-expand-type-members)
|
||||
|
|
@ -94,7 +94,7 @@ This option is ignored if `semantic-imenu-bucketize-file' is nil."
|
|||
'semantic-imenu-expand-type-members "23.2")
|
||||
|
||||
(defcustom semantic-imenu-bucketize-type-members t
|
||||
"*Non-nil if members of a type should be grouped into buckets.
|
||||
"Non-nil if members of a type should be grouped into buckets.
|
||||
A nil value means to keep them in the same order.
|
||||
Overridden to nil if `semantic-imenu-bucketize-file' is nil."
|
||||
:group 'semantic-imenu
|
||||
|
|
@ -104,7 +104,7 @@ Overridden to nil if `semantic-imenu-bucketize-file' is nil."
|
|||
'semantic-imenu-bucketize-type-members "23.2")
|
||||
|
||||
(defcustom semantic-imenu-sort-bucket-function nil
|
||||
"*Function to use when sorting tags in the buckets of functions.
|
||||
"Function to use when sorting tags in the buckets of functions.
|
||||
See `semantic-bucketize' and the FILTER argument for more details on this function."
|
||||
:group 'semantic-imenu
|
||||
:type '(radio (const :tag "No Sorting" nil)
|
||||
|
|
@ -120,7 +120,7 @@ See `semantic-bucketize' and the FILTER argument for more details on this functi
|
|||
(make-variable-buffer-local 'semantic-imenu-sort-bucket-function)
|
||||
|
||||
(defcustom semantic-imenu-index-directory nil
|
||||
"*Non nil to index the entire directory for tags.
|
||||
"Non nil to index the entire directory for tags.
|
||||
Doesn't actually parse the entire directory, but displays tags for all files
|
||||
currently listed in the current Semantic database.
|
||||
This variable has no meaning if semanticdb is not active."
|
||||
|
|
@ -128,7 +128,7 @@ This variable has no meaning if semanticdb is not active."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom semantic-imenu-auto-rebuild-directory-indexes nil
|
||||
"*If non-nil automatically rebuild directory index imenus.
|
||||
"If non-nil automatically rebuild directory index imenus.
|
||||
That is when a directory index imenu is updated, automatically rebuild
|
||||
other buffer local ones based on the same semanticdb."
|
||||
:group 'semantic-imenu
|
||||
|
|
@ -498,7 +498,7 @@ Clears all imenu menus that may be depending on the database."
|
|||
"Function to convert semantic tags into `which-function' text.")
|
||||
|
||||
(defcustom semantic-which-function-use-color nil
|
||||
"*Use color when displaying the current function with `which-function'."
|
||||
"Use color when displaying the current function with `which-function'."
|
||||
:group 'semantic-imenu
|
||||
:type 'boolean)
|
||||
|
||||
|
|
|
|||
|
|
@ -1239,7 +1239,7 @@ of type `spp-macro-undef' is to be created."
|
|||
;; written yet.
|
||||
;;
|
||||
(defcustom semantic-lex-spp-use-headers-flag nil
|
||||
"*Non-nil means to pre-parse headers as we go.
|
||||
"Non-nil means to pre-parse headers as we go.
|
||||
For languages that use the Semantic pre-processor, this can
|
||||
improve the accuracy of parsed files where include files
|
||||
can change the state of what's parsed in the current file.
|
||||
|
|
|
|||
|
|
@ -263,7 +263,7 @@ If ARG is positive or nil, enable, if it is negative, disable."
|
|||
'semantic-mru-bookmark-mode (if global-semantic-mru-bookmark-mode 1 -1)))
|
||||
|
||||
(defcustom semantic-mru-bookmark-mode-hook nil
|
||||
"*Hook run at the end of function `semantic-mru-bookmark-mode'."
|
||||
"Hook run at the end of function `semantic-mru-bookmark-mode'."
|
||||
:group 'semantic
|
||||
:type 'hook)
|
||||
|
||||
|
|
|
|||
|
|
@ -38,7 +38,7 @@
|
|||
(declare-function semanticdb-file-stream "semantic/db")
|
||||
|
||||
(defcustom semantic-sb-autoexpand-length 1
|
||||
"*Length of a semantic bucket to autoexpand in place.
|
||||
"Length of a semantic bucket to autoexpand in place.
|
||||
This will replace the named bucket that would have usually occurred here."
|
||||
:group 'speedbar
|
||||
:type 'integer)
|
||||
|
|
@ -49,12 +49,12 @@ Make this buffer local for modes that have different types of tags
|
|||
that should be ignored.")
|
||||
|
||||
(defcustom semantic-sb-button-format-tag-function 'semantic-format-tag-abbreviate
|
||||
"*Function called to create the text for a but from a token."
|
||||
"Function called to create the text for a but from a token."
|
||||
:group 'speedbar
|
||||
:type semantic-format-tag-custom-list)
|
||||
|
||||
(defcustom semantic-sb-info-format-tag-function 'semantic-format-tag-summarize
|
||||
"*Function called to create the text for info display from a token."
|
||||
"Function called to create the text for info display from a token."
|
||||
:group 'speedbar
|
||||
:type semantic-format-tag-custom-list)
|
||||
|
||||
|
|
|
|||
|
|
@ -55,7 +55,7 @@ Once an insertion set is done, these fields will be activated.")
|
|||
(:underline "green"))
|
||||
(((class color) (background light))
|
||||
(:underline "green4")))
|
||||
"*Face used to specify editable fields from a template."
|
||||
"Face used to specify editable fields from a template."
|
||||
:group 'semantic-faces)
|
||||
|
||||
(defcustom srecode-fields-exit-confirmation nil
|
||||
|
|
|
|||
|
|
@ -32,7 +32,7 @@
|
|||
:group 'mail)
|
||||
|
||||
(defcustom ecomplete-database-file "~/.ecompleterc"
|
||||
"*The name of the file to store the ecomplete data."
|
||||
"The name of the file to store the ecomplete data."
|
||||
:group 'ecomplete
|
||||
:type 'file)
|
||||
|
||||
|
|
|
|||
|
|
@ -161,7 +161,7 @@ enable expiration per categories, topics, and groups."
|
|||
(const :format "Disable " DISABLE)))
|
||||
|
||||
(defcustom gnus-agent-expire-unagentized-dirs t
|
||||
"*Whether expiration should expire in unagentized directories.
|
||||
"Whether expiration should expire in unagentized directories.
|
||||
Have gnus-agent-expire scan the directories under
|
||||
\(gnus-agent-directory) for groups that are no longer agentized.
|
||||
When found, offer to remove them."
|
||||
|
|
|
|||
|
|
@ -158,7 +158,7 @@
|
|||
"Envelope-To" "X-Spam-Score" "System-Type" "X-Injected-Via-Gmane"
|
||||
"X-Gmane-NNTP-Posting-Host" "Jabber-ID" "Archived-At"
|
||||
"Envelope-Sender" "Envelope-Recipients"))
|
||||
"*All headers that start with this regexp will be hidden.
|
||||
"All headers that start with this regexp will be hidden.
|
||||
This variable can also be a list of regexps of headers to be ignored.
|
||||
If `gnus-visible-headers' is non-nil, this variable will be ignored."
|
||||
:type '(choice regexp
|
||||
|
|
@ -167,7 +167,7 @@ If `gnus-visible-headers' is non-nil, this variable will be ignored."
|
|||
|
||||
(defcustom gnus-visible-headers
|
||||
"^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^[BGF]?Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Mail-Followup-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:"
|
||||
"*All headers that do not match this regexp will be hidden.
|
||||
"All headers that do not match this regexp will be hidden.
|
||||
This variable can also be a list of regexp of headers to remain visible.
|
||||
If this variable is non-nil, `gnus-ignored-headers' will be ignored."
|
||||
:type '(choice
|
||||
|
|
@ -184,7 +184,7 @@ If this variable is non-nil, `gnus-ignored-headers' will be ignored."
|
|||
(defcustom gnus-sorted-header-list
|
||||
'("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:"
|
||||
"^Followup-To:" "^To:" "^Cc:" "^Date:" "^Organization:")
|
||||
"*This variable is a list of regular expressions.
|
||||
"This variable is a list of regular expressions.
|
||||
If it is non-nil, headers that match the regular expressions will
|
||||
be placed first in the article buffer in the sequence specified by
|
||||
this list."
|
||||
|
|
@ -271,7 +271,7 @@ This can also be a list of the above values."
|
|||
"{ echo \
|
||||
'/* Format_version=1, Width=48, Height=48, Depth=1, Valid_bits_per_item=16 */'\
|
||||
; uncompface; } | icontopbm | display -")
|
||||
"*String or function to be executed to display an X-Face header.
|
||||
"String or function to be executed to display an X-Face header.
|
||||
If it is a string, the command will be executed in a sub-shell
|
||||
asynchronously. The compressed face will be piped to this command."
|
||||
:type `(choice string
|
||||
|
|
@ -389,7 +389,7 @@ advertisements. For example:
|
|||
;; 2 3 gnus-emphasis-strikethru)
|
||||
("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)"
|
||||
2 3 gnus-emphasis-underline))))
|
||||
"*Alist that says how to fontify certain phrases.
|
||||
"Alist that says how to fontify certain phrases.
|
||||
Each item looks like this:
|
||||
|
||||
(\"_\\\\(\\\\w+\\\\)_\" 0 1 \\='underline)
|
||||
|
|
@ -498,7 +498,7 @@ be fed to `format-time-string'."
|
|||
:group 'gnus-article-washing)
|
||||
|
||||
(defcustom gnus-save-all-headers t
|
||||
"*If non-nil, don't remove any headers before saving.
|
||||
"If non-nil, don't remove any headers before saving.
|
||||
This will be overridden by the `:headers' property that the symbol of
|
||||
the saver function, which is specified by `gnus-default-article-saver',
|
||||
might have."
|
||||
|
|
@ -506,7 +506,7 @@ might have."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-prompt-before-saving 'always
|
||||
"*This variable says how much prompting is to be done when saving articles.
|
||||
"This variable says how much prompting is to be done when saving articles.
|
||||
If it is nil, no prompting will be done, and the articles will be
|
||||
saved to the default files. If this variable is `always', each and
|
||||
every article that is saved will be preceded by a prompt, even when
|
||||
|
|
@ -653,7 +653,7 @@ LAST-FILE."
|
|||
(defcustom gnus-split-methods
|
||||
'((gnus-article-archive-name)
|
||||
(gnus-article-nndoc-name))
|
||||
"*Variable used to suggest where articles are to be saved.
|
||||
"Variable used to suggest where articles are to be saved.
|
||||
For instance, if you would like to save articles related to Gnus in
|
||||
the file \"gnus-stuff\", and articles related to VM in \"vm-stuff\",
|
||||
you could set this variable to something like:
|
||||
|
|
@ -679,14 +679,14 @@ used as possible file names."
|
|||
(sexp :value nil))))
|
||||
|
||||
(defcustom gnus-page-delimiter "^\^L"
|
||||
"*Regexp describing what to use as article page delimiters.
|
||||
"Regexp describing what to use as article page delimiters.
|
||||
The default value is \"^\^L\", which is a form linefeed at the
|
||||
beginning of a line."
|
||||
:type 'regexp
|
||||
:group 'gnus-article-various)
|
||||
|
||||
(defcustom gnus-article-mode-line-format "Gnus: %g %S%m"
|
||||
"*The format specification for the article mode line.
|
||||
"The format specification for the article mode line.
|
||||
See `gnus-summary-mode-line-format' for a closer description.
|
||||
|
||||
The following additional specs are available:
|
||||
|
|
@ -698,17 +698,17 @@ The following additional specs are available:
|
|||
:group 'gnus-article-various)
|
||||
|
||||
(defcustom gnus-article-mode-hook nil
|
||||
"*A hook for Gnus article mode."
|
||||
"A hook for Gnus article mode."
|
||||
:type 'hook
|
||||
:group 'gnus-article-various)
|
||||
|
||||
(defcustom gnus-article-menu-hook nil
|
||||
"*Hook run after the creation of the article mode menu."
|
||||
"Hook run after the creation of the article mode menu."
|
||||
:type 'hook
|
||||
:group 'gnus-article-various)
|
||||
|
||||
(defcustom gnus-article-prepare-hook nil
|
||||
"*A hook called after an article has been prepared in the article buffer."
|
||||
"A hook called after an article has been prepared in the article buffer."
|
||||
:type 'hook
|
||||
:group 'gnus-article-various)
|
||||
|
||||
|
|
@ -846,7 +846,7 @@ articles."
|
|||
("Subject" nil gnus-header-subject)
|
||||
("Newsgroups:.*," nil gnus-header-newsgroups)
|
||||
("" gnus-header-name gnus-header-content))
|
||||
"*Controls highlighting of article headers.
|
||||
"Controls highlighting of article headers.
|
||||
|
||||
An alist of the form (HEADER NAME CONTENT).
|
||||
|
||||
|
|
@ -892,7 +892,7 @@ images in Emacs."
|
|||
(defcustom gnus-article-decode-hook
|
||||
'(article-decode-charset article-decode-encoded-words
|
||||
article-decode-group-name article-decode-idna-rhs)
|
||||
"*Hook run to decode charsets in articles."
|
||||
"Hook run to decode charsets in articles."
|
||||
:group 'gnus-article-headers
|
||||
:type 'hook)
|
||||
|
||||
|
|
@ -7643,7 +7643,7 @@ Calls `describe-variable' or `describe-function'."
|
|||
(find-file-read-only file))))
|
||||
|
||||
(defcustom gnus-button-man-level 5
|
||||
"*Integer that says how many man-related buttons Gnus will show.
|
||||
"Integer that says how many man-related buttons Gnus will show.
|
||||
The higher the number, the more buttons will appear and the more false
|
||||
positives are possible. Note that you can set this variable local to
|
||||
specific groups. Setting it higher in Unix groups is probably a good idea.
|
||||
|
|
@ -7655,7 +7655,7 @@ how to set variables in specific groups."
|
|||
:type 'integer)
|
||||
|
||||
(defcustom gnus-button-emacs-level 5
|
||||
"*Integer that says how many emacs-related buttons Gnus will show.
|
||||
"Integer that says how many emacs-related buttons Gnus will show.
|
||||
The higher the number, the more buttons will appear and the more false
|
||||
positives are possible. Note that you can set this variable local to
|
||||
specific groups. Setting it higher in Emacs or Gnus related groups is
|
||||
|
|
@ -7667,7 +7667,7 @@ probably a good idea. See Info node `(gnus)Group Parameters' and the variable
|
|||
:type 'integer)
|
||||
|
||||
(defcustom gnus-button-message-level 5
|
||||
"*Integer that says how many buttons for news or mail messages will appear.
|
||||
"Integer that says how many buttons for news or mail messages will appear.
|
||||
The higher the number, the more buttons will appear and the more false
|
||||
positives are possible."
|
||||
;; mail addresses, MIDs, URLs for news, ...
|
||||
|
|
@ -7676,7 +7676,7 @@ positives are possible."
|
|||
:type 'integer)
|
||||
|
||||
(defcustom gnus-button-browse-level 5
|
||||
"*Integer that says how many buttons for browsing will appear.
|
||||
"Integer that says how many buttons for browsing will appear.
|
||||
The higher the number, the more buttons will appear and the more false
|
||||
positives are possible."
|
||||
;; stuff handled by `browse-url' or `gnus-button-embedded-url'
|
||||
|
|
@ -7797,7 +7797,7 @@ positives are possible."
|
|||
;; so that non-ambiguous entries (see above) match first.
|
||||
(gnus-button-mid-or-mail-regexp
|
||||
0 (>= gnus-button-message-level 5) gnus-button-handle-mid-or-mail 1))
|
||||
"*Alist of regexps matching buttons in article bodies.
|
||||
"Alist of regexps matching buttons in article bodies.
|
||||
|
||||
Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where
|
||||
REGEXP: is the string (case insensitive) matching text around the button (can
|
||||
|
|
@ -7839,7 +7839,7 @@ variable it the real callback function."
|
|||
0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
|
||||
("^[^:]+:" "\\(<\\(url: \\)?\\(nntp\\|news\\):\\([^>\n ]*\\)>\\)"
|
||||
1 (>= gnus-button-message-level 0) gnus-button-message-id 4))
|
||||
"*Alist of headers and regexps to match buttons in article heads.
|
||||
"Alist of headers and regexps to match buttons in article heads.
|
||||
|
||||
This alist is very similar to `gnus-button-alist', except that each
|
||||
alist has an additional HEADER element first in each entry:
|
||||
|
|
|
|||
|
|
@ -35,7 +35,7 @@
|
|||
:group 'gnus)
|
||||
|
||||
(defcustom gnus-use-article-prefetch 30
|
||||
"*If non-nil, prefetch articles in groups that allow this.
|
||||
"If non-nil, prefetch articles in groups that allow this.
|
||||
If a number, prefetch only that many articles forward;
|
||||
if t, prefetch as many articles as possible."
|
||||
:group 'gnus-asynchronous
|
||||
|
|
@ -44,7 +44,7 @@ if t, prefetch as many articles as possible."
|
|||
(integer :tag "some" 0)))
|
||||
|
||||
(defcustom gnus-asynchronous nil
|
||||
"*If nil, inhibit all Gnus asynchronicity.
|
||||
"If nil, inhibit all Gnus asynchronicity.
|
||||
If non-nil, let the other asynch variables be heeded."
|
||||
:group 'gnus-asynchronous
|
||||
:type 'boolean)
|
||||
|
|
@ -59,7 +59,7 @@ from that group."
|
|||
:type '(set (const read) (const exit)))
|
||||
|
||||
(defcustom gnus-use-header-prefetch nil
|
||||
"*If non-nil, prefetch the headers to the next group."
|
||||
"If non-nil, prefetch the headers to the next group."
|
||||
:group 'gnus-asynchronous
|
||||
:type 'boolean)
|
||||
|
||||
|
|
|
|||
|
|
@ -35,7 +35,7 @@
|
|||
|
||||
(defcustom gnus-cache-active-file
|
||||
(expand-file-name "active" gnus-cache-directory)
|
||||
"*The cache active file."
|
||||
"The cache active file."
|
||||
:group 'gnus-cache
|
||||
:type 'file)
|
||||
|
||||
|
|
@ -50,7 +50,7 @@
|
|||
:type '(set (const ticked) (const dormant) (const unread) (const read)))
|
||||
|
||||
(defcustom gnus-cacheable-groups nil
|
||||
"*Groups that match this regexp will be cached.
|
||||
"Groups that match this regexp will be cached.
|
||||
|
||||
If you only want to cache your nntp groups, you could set this
|
||||
variable to \"^nntp\".
|
||||
|
|
@ -62,7 +62,7 @@ it's not cached."
|
|||
regexp))
|
||||
|
||||
(defcustom gnus-uncacheable-groups nil
|
||||
"*Groups that match this regexp will not be cached.
|
||||
"Groups that match this regexp will not be cached.
|
||||
|
||||
If you want to avoid caching your nnml groups, you could set this
|
||||
variable to \"^nnml\".
|
||||
|
|
|
|||
|
|
@ -72,7 +72,7 @@ Set it to nil to parse all articles."
|
|||
(defcustom gnus-supercite-regexp
|
||||
(concat "^\\(" message-cite-prefix-regexp "\\)? *"
|
||||
">>>>> +\"\\([^\"\n]+\\)\" +==")
|
||||
"*Regexp matching normal Supercite attribution lines.
|
||||
"Regexp matching normal Supercite attribution lines.
|
||||
The first grouping must match prefixes added by other packages."
|
||||
:group 'gnus-cite
|
||||
:type 'regexp)
|
||||
|
|
@ -107,13 +107,13 @@ 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."
|
||||
"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.
|
||||
"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)
|
||||
|
|
@ -304,7 +304,7 @@ It is merged with the face for the cited text belonging to the attribution."
|
|||
(defcustom gnus-cite-face-list
|
||||
'(gnus-cite-1 gnus-cite-2 gnus-cite-3 gnus-cite-4 gnus-cite-5 gnus-cite-6
|
||||
gnus-cite-7 gnus-cite-8 gnus-cite-9 gnus-cite-10 gnus-cite-11)
|
||||
"*List of faces used for highlighting citations.
|
||||
"List of faces used for highlighting citations.
|
||||
|
||||
When there are citations from multiple articles in the same message,
|
||||
Gnus will try to give each citation from each article its own face.
|
||||
|
|
|
|||
|
|
@ -53,12 +53,12 @@
|
|||
:group 'gnus-delay)
|
||||
|
||||
(defcustom gnus-delay-default-delay "3d"
|
||||
"*Default length of delay."
|
||||
"Default length of delay."
|
||||
:type 'string
|
||||
:group 'gnus-delay)
|
||||
|
||||
(defcustom gnus-delay-default-hour 8
|
||||
"*If deadline is given as date, then assume this time of day."
|
||||
"If deadline is given as date, then assume this time of day."
|
||||
:version "22.1"
|
||||
:type 'integer
|
||||
:group 'gnus-delay)
|
||||
|
|
|
|||
|
|
@ -50,19 +50,19 @@
|
|||
:group 'gnus)
|
||||
|
||||
(defcustom gnus-diary-summary-line-format "%U%R%z %uD: %(%s%) (%ud)\n"
|
||||
"*Summary line format for nndiary groups."
|
||||
"Summary line format for nndiary groups."
|
||||
:type 'string
|
||||
:group 'gnus-diary
|
||||
:group 'gnus-summary-format)
|
||||
|
||||
(defcustom gnus-diary-time-format "%a, %b %e %y, %H:%M"
|
||||
"*Time format to display appointments in nndiary summary buffers.
|
||||
"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)
|
||||
|
||||
(defcustom gnus-diary-delay-format-function 'gnus-diary-delay-format-english
|
||||
"*Function called to format a diary delay string.
|
||||
"Function called to format a diary delay string.
|
||||
It is passed two arguments. The first one is non-nil if the delay is in
|
||||
the past. The second one is of the form ((NUM . UNIT) ...) where NUM is
|
||||
an integer and UNIT is one of 'year 'month 'week 'day 'hour or 'minute.
|
||||
|
|
|
|||
|
|
@ -39,19 +39,19 @@
|
|||
:group 'gnus)
|
||||
|
||||
(defcustom gnus-save-duplicate-list nil
|
||||
"*If non-nil, save the duplicate list when shutting down Gnus.
|
||||
"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 number of Message-IDs to keep in the duplicate suppression list."
|
||||
"The number of Message-IDs to keep in the duplicate suppression list."
|
||||
: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."
|
||||
"The name of the file to store the duplicate suppression list."
|
||||
:group 'gnus-duplicate
|
||||
:type 'file)
|
||||
|
||||
|
|
|
|||
|
|
@ -34,7 +34,7 @@
|
|||
(defvar gnus-face-properties-alist)
|
||||
|
||||
(defcustom gnus-x-face-directory (expand-file-name "x-faces" gnus-directory)
|
||||
"*Directory where X-Face PBM files are stored."
|
||||
"Directory where X-Face PBM files are stored."
|
||||
:version "22.1"
|
||||
:group 'gnus-fun
|
||||
:type 'directory)
|
||||
|
|
@ -46,7 +46,7 @@
|
|||
:type '(choice (const nil) string))
|
||||
|
||||
(defcustom gnus-face-directory (expand-file-name "faces" gnus-directory)
|
||||
"*Directory where Face PNG files are stored."
|
||||
"Directory where Face PNG files are stored."
|
||||
:version "25.1"
|
||||
:group 'gnus-fun
|
||||
:type 'directory)
|
||||
|
|
|
|||
|
|
@ -52,12 +52,12 @@
|
|||
(autoload 'gnus-group-make-nnir-group "nnir")
|
||||
|
||||
(defcustom gnus-no-groups-message "No news is good news"
|
||||
"*Message displayed by Gnus when no groups are available."
|
||||
"Message displayed by Gnus when no groups are available."
|
||||
:group 'gnus-start
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-keep-same-level nil
|
||||
"*Non-nil means that the next newsgroup after the current will be on the same level.
|
||||
"Non-nil means that the next newsgroup after the current will be on the same level.
|
||||
When you type, for instance, `n' after reading the last article in the
|
||||
current newsgroup, you will go to the next newsgroup. If this variable
|
||||
is nil, the next newsgroup will be the next from the group
|
||||
|
|
@ -74,19 +74,19 @@ with the best level."
|
|||
(sexp :tag "other" t)))
|
||||
|
||||
(defcustom gnus-group-goto-unread t
|
||||
"*If non-nil, movement commands will go to the next unread and subscribed group."
|
||||
"If non-nil, movement commands will go to the next unread and subscribed group."
|
||||
:link '(custom-manual "(gnus)Group Maneuvering")
|
||||
:group 'gnus-group-various
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-goto-next-group-when-activating t
|
||||
"*If non-nil, the \\<gnus-group-mode-map>\\[gnus-group-get-new-news-this-group] command will advance point to the next group."
|
||||
"If non-nil, the \\<gnus-group-mode-map>\\[gnus-group-get-new-news-this-group] command will advance point to the next group."
|
||||
:link '(custom-manual "(gnus)Scanning New Messages")
|
||||
:group 'gnus-group-various
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-permanently-visible-groups nil
|
||||
"*Regexp to match groups that should always be listed in the group buffer.
|
||||
"Regexp to match groups that should always be listed in the group buffer.
|
||||
This means that they will still be listed even when there are no
|
||||
unread articles in the groups.
|
||||
|
||||
|
|
@ -107,7 +107,7 @@ effective only when emacs-w3m renders html articles, i.e., in the case
|
|||
(const nil)))
|
||||
|
||||
(defcustom gnus-list-groups-with-ticked-articles t
|
||||
"*If non-nil, list groups that have only ticked articles.
|
||||
"If non-nil, list groups that have only ticked articles.
|
||||
If nil, only list groups that have unread articles."
|
||||
:group 'gnus-group-listing
|
||||
:type 'boolean)
|
||||
|
|
@ -120,13 +120,13 @@ Ignored if `gnus-group-use-permanent-levels' is non-nil."
|
|||
(function :tag "Function returning level")))
|
||||
|
||||
(defcustom gnus-group-list-inactive-groups t
|
||||
"*If non-nil, inactive groups will be listed."
|
||||
"If non-nil, inactive groups will be listed."
|
||||
:group 'gnus-group-listing
|
||||
:group 'gnus-group-levels
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-group-sort-function 'gnus-group-sort-by-alphabet
|
||||
"*Function used for sorting the group buffer.
|
||||
"Function used for sorting the group buffer.
|
||||
This function will be called with group info entries as the arguments
|
||||
for the groups to be sorted. Pre-made functions include
|
||||
`gnus-group-sort-by-alphabet', `gnus-group-sort-by-real-name',
|
||||
|
|
@ -155,7 +155,7 @@ list."
|
|||
(function :tag "other" nil))))
|
||||
|
||||
(defcustom gnus-group-line-format "%M\ %S\ %p\ %P\ %5y:%B%(%g%)\n"
|
||||
"*Format of group lines.
|
||||
"Format of group lines.
|
||||
It works along the same lines as a normal formatting string,
|
||||
with some simple extensions.
|
||||
|
||||
|
|
@ -213,7 +213,7 @@ See Info node `(gnus)Formatting Variables'."
|
|||
:type 'string)
|
||||
|
||||
(defcustom gnus-group-mode-line-format "Gnus: %%b {%M\ %:%S}"
|
||||
"*The format specification for the group mode line.
|
||||
"The format specification for the group mode line.
|
||||
It works along the same lines as a normal formatting string,
|
||||
with some simple extensions:
|
||||
|
||||
|
|
@ -240,7 +240,7 @@ with some simple extensions:
|
|||
:type 'hook)
|
||||
|
||||
(defcustom gnus-group-prepare-function 'gnus-group-prepare-flat
|
||||
"*A function that is called to generate the group buffer.
|
||||
"A function that is called to generate the group buffer.
|
||||
The function is called with three arguments: The first is a number;
|
||||
all group with a level less or equal to that number should be listed,
|
||||
if the second is non-nil, empty groups should also be displayed. If
|
||||
|
|
@ -297,7 +297,7 @@ If you want to modify the group buffer, you can use this hook."
|
|||
(unless file
|
||||
(error "Couldn't find doc group"))
|
||||
file))))))
|
||||
"*Alist of useful group-server pairs."
|
||||
"Alist of useful group-server pairs."
|
||||
:group 'gnus-group-listing
|
||||
:type '(repeat (list (string :tag "Description")
|
||||
(string :tag "Name")
|
||||
|
|
@ -350,7 +350,7 @@ If you want to modify the group buffer, you can use this hook."
|
|||
gnus-group-news-low-empty)
|
||||
(t .
|
||||
gnus-group-news-low))
|
||||
"*Controls the highlighting of group buffer lines.
|
||||
"Controls the highlighting of group buffer lines.
|
||||
|
||||
Below is a list of `Form'/`Face' pairs. When deciding how a
|
||||
particular group line should be displayed, each form is
|
||||
|
|
@ -385,7 +385,7 @@ ticked: The number of ticked articles."
|
|||
|
||||
(defcustom gnus-group-icon-list
|
||||
nil
|
||||
"*Controls the insertion of icons into group buffer lines.
|
||||
"Controls the insertion of icons into group buffer lines.
|
||||
|
||||
Below is a list of `Form'/`File' pairs. When deciding how a
|
||||
particular group line should be displayed, each form is evaluated.
|
||||
|
|
|
|||
|
|
@ -37,13 +37,13 @@
|
|||
:type 'hook)
|
||||
|
||||
(defcustom gnus-kill-expiry-days 7
|
||||
"*Number of days before expiring unused kill file entries."
|
||||
"Number of days before expiring unused kill file entries."
|
||||
:group 'gnus-score-kill
|
||||
:group 'gnus-score-expire
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-kill-save-kill-file nil
|
||||
"*If non-nil, will save kill files after processing them."
|
||||
"If non-nil, will save kill files after processing them."
|
||||
:group 'gnus-score-kill
|
||||
:type 'boolean)
|
||||
|
||||
|
|
@ -52,7 +52,7 @@
|
|||
I don't know, Per.")
|
||||
|
||||
(defcustom gnus-kill-killed t
|
||||
"*If non-nil, Gnus will apply kill files to already killed articles.
|
||||
"If non-nil, Gnus will apply kill files to already killed articles.
|
||||
If it is nil, Gnus will never apply kill files to articles that have
|
||||
already been through the scoring process, which might very well save lots
|
||||
of time."
|
||||
|
|
|
|||
|
|
@ -33,7 +33,7 @@
|
|||
(require 'gnus-util)
|
||||
|
||||
(defcustom gnus-post-method 'current
|
||||
"*Preferred method for posting USENET news.
|
||||
"Preferred method for posting USENET news.
|
||||
|
||||
If this variable is `current' (which is the default), Gnus will use
|
||||
the \"current\" select method when posting. If it is `native', Gnus
|
||||
|
|
@ -71,7 +71,7 @@ of names)."
|
|||
(make-obsolete-variable 'gnus-outgoing-message-group 'gnus-message-archive-group "24.1")
|
||||
|
||||
(defcustom gnus-mailing-list-groups nil
|
||||
"*If non-nil a regexp matching groups that are really mailing lists.
|
||||
"If non-nil a regexp matching groups that are really mailing lists.
|
||||
This is useful when you're reading a mailing list that has been
|
||||
gatewayed to a newsgroup, and you want to followup to an article in
|
||||
the group."
|
||||
|
|
@ -80,7 +80,7 @@ the group."
|
|||
(const nil)))
|
||||
|
||||
(defcustom gnus-add-to-list nil
|
||||
"*If non-nil, add a `to-list' parameter automatically."
|
||||
"If non-nil, add a `to-list' parameter automatically."
|
||||
:group 'gnus-message
|
||||
:type 'boolean)
|
||||
|
||||
|
|
@ -111,12 +111,12 @@ the second with the current group name."
|
|||
:type 'hook)
|
||||
|
||||
(defcustom gnus-bug-create-help-buffer t
|
||||
"*Should we create the *Gnus Help Bug* buffer?"
|
||||
"Should we create the *Gnus Help Bug* buffer?"
|
||||
:group 'gnus-message
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-posting-styles nil
|
||||
"*Alist of styles to use when posting.
|
||||
"Alist of styles to use when posting.
|
||||
See Info node `(gnus)Posting Styles'."
|
||||
:group 'gnus-message
|
||||
:link '(custom-manual "(gnus)Posting Styles")
|
||||
|
|
|
|||
|
|
@ -45,17 +45,17 @@
|
|||
;;; User variables:
|
||||
|
||||
(defcustom gnus-picon-news-directories '("news")
|
||||
"*List of directories to search for newsgroups faces."
|
||||
"List of directories to search for newsgroups faces."
|
||||
:type '(repeat string)
|
||||
:group 'gnus-picon)
|
||||
|
||||
(defcustom gnus-picon-user-directories '("users" "usenix" "local" "misc")
|
||||
"*List of directories to search for user faces."
|
||||
"List of directories to search for user faces."
|
||||
:type '(repeat string)
|
||||
:group 'gnus-picon)
|
||||
|
||||
(defcustom gnus-picon-domain-directories '("domains")
|
||||
"*List of directories to search for domain faces.
|
||||
"List of directories to search for domain faces.
|
||||
Some people may want to add \"unknown\" to this list."
|
||||
:type '(repeat string)
|
||||
:group 'gnus-picon)
|
||||
|
|
@ -67,7 +67,7 @@ Some people may want to add \"unknown\" to this list."
|
|||
(when (gnus-image-type-available-p 'xpm)
|
||||
(push "xpm" types))
|
||||
types)
|
||||
"*List of suffixes on picon file names to try."
|
||||
"List of suffixes on picon file names to try."
|
||||
:type '(repeat string)
|
||||
:group 'gnus-picon)
|
||||
|
||||
|
|
|
|||
|
|
@ -35,7 +35,7 @@
|
|||
;;;
|
||||
|
||||
(defcustom gnus-pick-display-summary nil
|
||||
"*Display summary while reading."
|
||||
"Display summary while reading."
|
||||
:type 'boolean
|
||||
:group 'gnus-summary-pick)
|
||||
|
||||
|
|
@ -45,7 +45,7 @@
|
|||
:group 'gnus-summary-pick)
|
||||
|
||||
(defcustom gnus-mark-unpicked-articles-as-read nil
|
||||
"*If non-nil, mark all unpicked articles as read."
|
||||
"If non-nil, mark all unpicked articles as read."
|
||||
:type 'boolean
|
||||
:group 'gnus-summary-pick)
|
||||
|
||||
|
|
@ -57,7 +57,7 @@
|
|||
|
||||
(defcustom gnus-summary-pick-line-format
|
||||
"%-5P %U\ %R\ %z\ %I\ %(%[%4L: %-23,23n%]%) %s\n"
|
||||
"*The format specification of the lines in pick buffers.
|
||||
"The format specification of the lines in pick buffers.
|
||||
It accepts the same format specs that `gnus-summary-line-format' does."
|
||||
:type 'string
|
||||
:group 'gnus-summary-pick)
|
||||
|
|
@ -373,7 +373,7 @@ lines."
|
|||
:group 'gnus-summary-tree)
|
||||
|
||||
(defcustom gnus-selected-tree-face 'mode-line
|
||||
"*Face used for highlighting selected articles in the thread tree."
|
||||
"Face used for highlighting selected articles in the thread tree."
|
||||
:type 'face
|
||||
:group 'gnus-summary-tree)
|
||||
|
||||
|
|
@ -385,12 +385,12 @@ lines."
|
|||
"Characters used to connect parents with children.")
|
||||
|
||||
(defcustom gnus-tree-mode-line-format "Gnus: %%b %S %Z"
|
||||
"*The format specification for the tree mode line."
|
||||
"The format specification for the tree mode line."
|
||||
:type 'string
|
||||
:group 'gnus-summary-tree)
|
||||
|
||||
(defcustom gnus-generate-tree-function 'gnus-generate-vertical-tree
|
||||
"*Function for generating a thread tree.
|
||||
"Function for generating a thread tree.
|
||||
Two predefined functions are available:
|
||||
`gnus-generate-horizontal-tree' and `gnus-generate-vertical-tree'."
|
||||
:type '(radio (function-item gnus-generate-vertical-tree)
|
||||
|
|
@ -399,7 +399,7 @@ Two predefined functions are available:
|
|||
:group 'gnus-summary-tree)
|
||||
|
||||
(defcustom gnus-tree-mode-hook nil
|
||||
"*Hook run in tree mode buffers."
|
||||
"Hook run in tree mode buffers."
|
||||
:type 'hook
|
||||
:group 'gnus-summary-tree)
|
||||
|
||||
|
|
|
|||
|
|
@ -127,26 +127,26 @@ the `a' symbolic prefix to the score commands will always use
|
|||
(function :tag "Other" :value 'ignore)))
|
||||
|
||||
(defcustom gnus-score-interactive-default-score 1000
|
||||
"*Scoring commands will raise/lower the score with this number as the default."
|
||||
"Scoring commands will raise/lower the score with this number as the default."
|
||||
:group 'gnus-score-default
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-score-expiry-days 7
|
||||
"*Number of days before unused score file entries are expired.
|
||||
"Number of days before unused score file entries are expired.
|
||||
If this variable is nil, no score file entries will be expired."
|
||||
:group 'gnus-score-expire
|
||||
:type '(choice (const :tag "never" nil)
|
||||
number))
|
||||
|
||||
(defcustom gnus-update-score-entry-dates t
|
||||
"*If non-nil, update matching score entry dates.
|
||||
"If non-nil, update matching score entry dates.
|
||||
If this variable is nil, then score entries that provide matches
|
||||
will be expired along with non-matching score entries."
|
||||
:group 'gnus-score-expire
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-decay-scores nil
|
||||
"*If non-nil, decay non-permanent scores.
|
||||
"If non-nil, decay non-permanent scores.
|
||||
|
||||
If it is a regexp, only decay score files matching regexp."
|
||||
:group 'gnus-score-decay
|
||||
|
|
@ -157,19 +157,19 @@ If it is a regexp, only decay score files matching regexp."
|
|||
(regexp)))
|
||||
|
||||
(defcustom gnus-decay-score-function 'gnus-decay-score
|
||||
"*Function called to decay a score.
|
||||
"Function called to decay a score.
|
||||
It is called with one parameter -- the score to be decayed."
|
||||
:group 'gnus-score-decay
|
||||
:type '(radio (function-item gnus-decay-score)
|
||||
(function :tag "Other")))
|
||||
|
||||
(defcustom gnus-score-decay-constant 3
|
||||
"*Decay all \"small\" scores with this amount."
|
||||
"Decay all \"small\" scores with this amount."
|
||||
:group 'gnus-score-decay
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-score-decay-scale .05
|
||||
"*Decay all \"big\" scores with this factor."
|
||||
"Decay all \"big\" scores with this factor."
|
||||
:group 'gnus-score-decay
|
||||
:type 'number)
|
||||
|
||||
|
|
@ -249,7 +249,7 @@ If you use score decays, you might want to set values higher than
|
|||
(integer :tag "Score"))))))
|
||||
|
||||
(defcustom gnus-adaptive-word-length-limit nil
|
||||
"*Words of a length lesser than this limit will be ignored when doing adaptive scoring."
|
||||
"Words of a length lesser than this limit will be ignored when doing adaptive scoring."
|
||||
:version "22.1"
|
||||
:group 'gnus-score-adapt
|
||||
:type '(radio (const :format "Unlimited " nil)
|
||||
|
|
@ -275,7 +275,7 @@ If you use score decays, you might want to set values higher than
|
|||
"being" "current" "back" "still" "go" "point" "value" "each" "did"
|
||||
"both" "true" "off" "say" "another" "state" "might" "under" "start"
|
||||
"try" "re")
|
||||
"*Default list of words to be ignored when doing adaptive word scoring."
|
||||
"Default list of words to be ignored when doing adaptive word scoring."
|
||||
:group 'gnus-score-adapt
|
||||
:type '(repeat string))
|
||||
|
||||
|
|
@ -284,7 +284,7 @@ If you use score decays, you might want to set values higher than
|
|||
(,gnus-catchup-mark . -10)
|
||||
(,gnus-killed-mark . -20)
|
||||
(,gnus-del-mark . -15))
|
||||
"*Alist of marks and scores."
|
||||
"Alist of marks and scores."
|
||||
:group 'gnus-score-adapt
|
||||
:type '(repeat (cons (character :tag "Mark")
|
||||
(integer :tag "Score"))))
|
||||
|
|
@ -300,12 +300,12 @@ If you use score decays, you might want to set values higher than
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-score-mimic-keymap nil
|
||||
"*Have the score entry functions pretend that they are a keymap."
|
||||
"Have the score entry functions pretend that they are a keymap."
|
||||
:group 'gnus-score-default
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-score-exact-adapt-limit 10
|
||||
"*Number that says how long a match has to be before using substring matching.
|
||||
"Number that says how long a match has to be before using substring matching.
|
||||
When doing adaptive scoring, one normally uses fuzzy or substring
|
||||
matching. However, if the header one matches is short, the possibility
|
||||
for false positives is great, so if the length of the match is less
|
||||
|
|
|
|||
|
|
@ -87,21 +87,21 @@ If a file with the `.el' or `.elc' suffixes exists, it will be read instead."
|
|||
:type '(choice file (const nil)))
|
||||
|
||||
(defcustom gnus-use-dribble-file t
|
||||
"*Non-nil means that Gnus will use a dribble file to store user updates.
|
||||
"Non-nil means that Gnus will use a dribble file to store user updates.
|
||||
If Emacs should crash without saving the .newsrc files, complete
|
||||
information can be restored from the dribble file."
|
||||
:group 'gnus-dribble-file
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-dribble-directory nil
|
||||
"*The directory where dribble files will be saved.
|
||||
"The directory where dribble files will be saved.
|
||||
If this variable is nil, the directory where the .newsrc files are
|
||||
saved will be used."
|
||||
:group 'gnus-dribble-file
|
||||
:type '(choice directory (const nil)))
|
||||
|
||||
(defcustom gnus-check-new-newsgroups 'ask-server
|
||||
"*Non-nil means that Gnus will run `gnus-find-new-newsgroups' at startup.
|
||||
"Non-nil means that Gnus will run `gnus-find-new-newsgroups' at startup.
|
||||
This normally finds new newsgroups by comparing the active groups the
|
||||
servers have already reported with those Gnus already knows, either alive
|
||||
or killed.
|
||||
|
|
@ -138,14 +138,14 @@ check for new newsgroups with \\<gnus-group-mode-map>\\[gnus-find-new-newsgroups
|
|||
(sexp :format "%v"))))
|
||||
|
||||
(defcustom gnus-check-bogus-newsgroups nil
|
||||
"*Non-nil means that Gnus will check and remove bogus newsgroup at startup.
|
||||
"Non-nil means that Gnus will check and remove bogus newsgroup at startup.
|
||||
If this variable is nil, then you have to tell Gnus explicitly to
|
||||
check for bogus newsgroups with \\<gnus-group-mode-map>\\[gnus-group-check-bogus-groups]."
|
||||
:group 'gnus-start-server
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-read-active-file 'some
|
||||
"*Non-nil means that Gnus will read the entire active file at startup.
|
||||
"Non-nil means that Gnus will read the entire active file at startup.
|
||||
If this variable is nil, Gnus will only know about the groups in your
|
||||
`.newsrc' file.
|
||||
|
||||
|
|
@ -183,24 +183,24 @@ Levels' for details.")
|
|||
"Groups with this level are killed.")
|
||||
|
||||
(defcustom gnus-level-default-subscribed 3
|
||||
"*New subscribed groups will be subscribed at this level."
|
||||
"New subscribed groups will be subscribed at this level."
|
||||
:group 'gnus-group-levels
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-level-default-unsubscribed 6
|
||||
"*New unsubscribed groups will be unsubscribed at this level."
|
||||
"New unsubscribed groups will be unsubscribed at this level."
|
||||
:group 'gnus-group-levels
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-activate-level (1+ gnus-level-subscribed)
|
||||
"*Groups higher than this level won't be activated on startup.
|
||||
"Groups higher than this level won't be activated on startup.
|
||||
Setting this variable to something low might save lots of time when
|
||||
you have many groups that you aren't interested in."
|
||||
:group 'gnus-group-levels
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-activate-foreign-newsgroups 4
|
||||
"*If nil, Gnus will not check foreign newsgroups at startup.
|
||||
"If nil, Gnus will not check foreign newsgroups at startup.
|
||||
If it is non-nil, it should be a number between one and nine. Foreign
|
||||
newsgroups that have a level lower or equal to this number will be
|
||||
activated on startup. For instance, if you want to active all
|
||||
|
|
@ -216,7 +216,7 @@ groups."
|
|||
(const :tag "none" nil)))
|
||||
|
||||
(defcustom gnus-read-newsrc-file t
|
||||
"*Non-nil means that Gnus will read the `.newsrc' file.
|
||||
"Non-nil means that Gnus will read the `.newsrc' file.
|
||||
Gnus always reads its own startup file, which is called
|
||||
\".newsrc.eld\". The file called \".newsrc\" is in a format that can
|
||||
be readily understood by other newsreaders. If you don't plan on
|
||||
|
|
@ -227,7 +227,7 @@ entry."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-save-newsrc-file t
|
||||
"*Non-nil means that Gnus will save the `.newsrc' file.
|
||||
"Non-nil means that Gnus will save the `.newsrc' file.
|
||||
Gnus always saves its own startup file, which is called
|
||||
\".newsrc.eld\". The file called \".newsrc\" is in a format that can
|
||||
be readily understood by other newsreaders. If you don't plan on
|
||||
|
|
@ -237,7 +237,7 @@ exit."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-save-killed-list t
|
||||
"*If non-nil, save the list of killed groups to the startup file.
|
||||
"If non-nil, save the list of killed groups to the startup file.
|
||||
If you set this variable to nil, you'll save both time (when starting
|
||||
and quitting) and space (both memory and disk), but it will also mean
|
||||
that Gnus has no record of which groups are new and which are old, so
|
||||
|
|
@ -263,7 +263,7 @@ not match this regexp will be removed before saving the list."
|
|||
"^[\"][\"#'()]" ; bogus characters
|
||||
)
|
||||
"\\|")
|
||||
"*A regexp to match uninteresting newsgroups in the active file.
|
||||
"A regexp to match uninteresting newsgroups in the active file.
|
||||
Any lines in the active file matching this regular expression are
|
||||
removed from the newsgroup list before anything else is done to it,
|
||||
thus making them effectively non-existent."
|
||||
|
|
@ -271,7 +271,7 @@ thus making them effectively non-existent."
|
|||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-subscribe-newsgroup-method 'gnus-subscribe-zombies
|
||||
"*Function(s) called with a group name when new group is detected.
|
||||
"Function(s) called with a group name when new group is detected.
|
||||
A few pre-made functions are supplied: `gnus-subscribe-randomly'
|
||||
inserts new groups at the beginning of the list of groups;
|
||||
`gnus-subscribe-alphabetically' inserts new groups in strict
|
||||
|
|
@ -295,7 +295,7 @@ claim them."
|
|||
(define-obsolete-variable-alias 'gnus-subscribe-newsgroup-hooks
|
||||
'gnus-subscribe-newsgroup-functions "24.3")
|
||||
(defcustom gnus-subscribe-newsgroup-functions nil
|
||||
"*Hooks run after you subscribe to a new group.
|
||||
"Hooks run after you subscribe to a new group.
|
||||
The hooks will be called with new group's name as argument."
|
||||
:version "22.1"
|
||||
:group 'gnus-group-new
|
||||
|
|
@ -303,7 +303,7 @@ The hooks will be called with new group's name as argument."
|
|||
|
||||
(defcustom gnus-subscribe-options-newsgroup-method
|
||||
'gnus-subscribe-alphabetically
|
||||
"*Function(s) called to subscribe newsgroups mentioned on \"options -n\" lines.
|
||||
"Function(s) called to subscribe newsgroups mentioned on \"options -n\" lines.
|
||||
If, for instance, you want to subscribe to all newsgroups in the
|
||||
\"no\" and \"alt\" hierarchies, you'd put the following in your
|
||||
.newsrc file:
|
||||
|
|
@ -324,7 +324,7 @@ with the subscription method in this variable."
|
|||
(repeat function)))
|
||||
|
||||
(defcustom gnus-subscribe-hierarchical-interactive nil
|
||||
"*If non-nil, Gnus will offer to subscribe hierarchically.
|
||||
"If non-nil, Gnus will offer to subscribe hierarchically.
|
||||
When a new hierarchy appears, Gnus will ask the user:
|
||||
|
||||
'alt.binaries': Do you want to subscribe to this hierarchy? ([d]ys):
|
||||
|
|
@ -336,7 +336,7 @@ hierarchy in its entirety."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-auto-subscribed-categories '(mail post-mail)
|
||||
"*New groups from methods of these categories will be subscribed automatically.
|
||||
"New groups from methods of these categories will be subscribed automatically.
|
||||
Note that this variable only deals with new groups. It has no
|
||||
effect whatsoever on old groups. The default is to automatically
|
||||
subscribe all groups from mail-like backends."
|
||||
|
|
@ -346,7 +346,7 @@ subscribe all groups from mail-like backends."
|
|||
|
||||
(defcustom gnus-auto-subscribed-groups
|
||||
"^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl\\|^nnmaildir\\|^nnimap"
|
||||
"*All new groups that match this regexp will be subscribed automatically.
|
||||
"All new groups that match this regexp will be subscribed automatically.
|
||||
Note that this variable only deals with new groups. It has no effect
|
||||
whatsoever on old groups.
|
||||
|
||||
|
|
@ -357,7 +357,7 @@ be subscribed using `gnus-subscribe-options-newsgroup-method'."
|
|||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-options-subscribe nil
|
||||
"*All new groups matching this regexp will be subscribed unconditionally.
|
||||
"All new groups matching this regexp will be subscribed unconditionally.
|
||||
Note that this variable deals only with new newsgroups. This variable
|
||||
does not affect old newsgroups.
|
||||
|
||||
|
|
@ -369,7 +369,7 @@ be subscribed using `gnus-subscribe-options-newsgroup-method'."
|
|||
(const :tag "none" nil)))
|
||||
|
||||
(defcustom gnus-options-not-subscribe nil
|
||||
"*All new groups matching this regexp will be ignored.
|
||||
"All new groups matching this regexp will be ignored.
|
||||
Note that this variable deals only with new newsgroups. This variable
|
||||
does not affect old (already subscribed) newsgroups."
|
||||
:group 'gnus-group-new
|
||||
|
|
@ -377,7 +377,7 @@ does not affect old (already subscribed) newsgroups."
|
|||
(const :tag "none" nil)))
|
||||
|
||||
(defcustom gnus-modtime-botch nil
|
||||
"*Non-nil means .newsrc should be deleted prior to save.
|
||||
"Non-nil means .newsrc should be deleted prior to save.
|
||||
Its use is due to the bogus appearance that .newsrc was modified on
|
||||
disc."
|
||||
:group 'gnus-newsrc
|
||||
|
|
@ -432,7 +432,7 @@ See also `gnus-before-startup-hook'."
|
|||
|
||||
(defcustom gnus-after-getting-new-news-hook
|
||||
'(gnus-display-time-event-handler)
|
||||
"*A hook run after Gnus checks for new news when Gnus is already running."
|
||||
"A hook run after Gnus checks for new news when Gnus is already running."
|
||||
:version "24.1"
|
||||
:group 'gnus-group-new
|
||||
:type 'hook)
|
||||
|
|
|
|||
|
|
@ -56,7 +56,7 @@
|
|||
(autoload 'nnir-article-group "nnir" nil nil 'macro)
|
||||
|
||||
(defcustom gnus-kill-summary-on-exit t
|
||||
"*If non-nil, kill the summary buffer when you exit from it.
|
||||
"If non-nil, kill the summary buffer when you exit from it.
|
||||
If nil, the summary will become a \"*Dead Summary*\" buffer, and
|
||||
it will be killed sometime later."
|
||||
:group 'gnus-summary-exit
|
||||
|
|
@ -78,7 +78,7 @@ See `gnus-group-goto-unread'."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-fetch-old-headers nil
|
||||
"*Non-nil means that Gnus will try to build threads by grabbing old headers.
|
||||
"Non-nil means that Gnus will try to build threads by grabbing old headers.
|
||||
If an unread article in the group refers to an older, already
|
||||
read (or just marked as read) article, the old article will not
|
||||
normally be displayed in the Summary buffer. If this variable is
|
||||
|
|
@ -105,14 +105,14 @@ leads to very slow summary generation."
|
|||
(sexp :menu-tag "other" t)))
|
||||
|
||||
(defcustom gnus-refer-thread-limit 500
|
||||
"*The number of old headers to fetch when doing \\<gnus-summary-mode-map>\\[gnus-summary-refer-thread].
|
||||
"The number of old headers to fetch when doing \\<gnus-summary-mode-map>\\[gnus-summary-refer-thread].
|
||||
If t, fetch all the available old headers."
|
||||
:group 'gnus-thread
|
||||
:type '(choice number
|
||||
(sexp :menu-tag "other" t)))
|
||||
|
||||
(defcustom gnus-refer-thread-use-nnir nil
|
||||
"*Use nnir to search an entire server when referring threads. A
|
||||
"Use nnir to search an entire server when referring threads. A
|
||||
nil value will only search for thread-related articles in the
|
||||
current group."
|
||||
:version "24.1"
|
||||
|
|
@ -120,7 +120,7 @@ current group."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-summary-make-false-root 'adopt
|
||||
"*nil means that Gnus won't gather loose threads.
|
||||
"nil means that Gnus won't gather loose threads.
|
||||
If the root of a thread has expired or been read in a previous
|
||||
session, the information necessary to build a complete thread has been
|
||||
lost. Instead of having many small sub-threads from this original thread
|
||||
|
|
@ -155,7 +155,7 @@ given by the `gnus-summary-same-subject' variable.)"
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-summary-gather-exclude-subject "^ *$\\|^(none)$"
|
||||
"*A regexp to match subjects to be excluded from loose thread gathering.
|
||||
"A regexp to match subjects to be excluded from loose thread gathering.
|
||||
As loose thread gathering is done on subjects only, that means that
|
||||
there can be many false gatherings performed. By rooting out certain
|
||||
common subjects, gathering might become saner."
|
||||
|
|
@ -163,7 +163,7 @@ common subjects, gathering might become saner."
|
|||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-summary-gather-subject-limit nil
|
||||
"*Maximum length of subject comparisons when gathering loose threads.
|
||||
"Maximum length of subject comparisons when gathering loose threads.
|
||||
Use nil to compare full subjects. Setting this variable to a low
|
||||
number will help gather threads that have been corrupted by
|
||||
newsreaders chopping off subject lines, but it might also mean that
|
||||
|
|
@ -188,13 +188,13 @@ Useful functions to put in this list include:
|
|||
:type '(repeat function))
|
||||
|
||||
(defcustom gnus-simplify-ignored-prefixes nil
|
||||
"*Remove matches for this regexp from subject lines when simplifying fuzzily."
|
||||
"Remove matches for this regexp from subject lines when simplifying fuzzily."
|
||||
:group 'gnus-thread
|
||||
:type '(choice (const :tag "off" nil)
|
||||
regexp))
|
||||
|
||||
(defcustom gnus-build-sparse-threads nil
|
||||
"*If non-nil, fill in the gaps in threads.
|
||||
"If non-nil, fill in the gaps in threads.
|
||||
If `some', only fill in the gaps that are needed to tie loose threads
|
||||
together. If `more', fill in all leaf nodes that Gnus can find. If
|
||||
non-nil and non-`some', fill in all gaps that Gnus manages to guess."
|
||||
|
|
@ -206,7 +206,7 @@ non-nil and non-`some', fill in all gaps that Gnus manages to guess."
|
|||
|
||||
(defcustom gnus-summary-thread-gathering-function
|
||||
'gnus-gather-threads-by-subject
|
||||
"*Function used for gathering loose threads.
|
||||
"Function used for gathering loose threads.
|
||||
There are two pre-defined functions: `gnus-gather-threads-by-subject',
|
||||
which only takes Subjects into consideration; and
|
||||
`gnus-gather-threads-by-references', which compared the References
|
||||
|
|
@ -217,14 +217,14 @@ headers of the articles to find matches."
|
|||
(function :tag "other")))
|
||||
|
||||
(defcustom gnus-summary-same-subject ""
|
||||
"*String indicating that the current article has the same subject as the previous.
|
||||
"String indicating that the current article has the same subject as the previous.
|
||||
This variable will only be used if the value of
|
||||
`gnus-summary-make-false-root' is `empty'."
|
||||
:group 'gnus-summary-format
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-summary-goto-unread nil
|
||||
"*If t, many commands will go to the next unread article.
|
||||
"If t, many commands will go to the next unread article.
|
||||
This applies to marking commands as well as other commands that
|
||||
\"naturally\" select the next article, like, for instance, `SPC' at
|
||||
the end of an article.
|
||||
|
|
@ -241,7 +241,7 @@ whether it is read or not."
|
|||
(sexp :menu-tag "on" t)))
|
||||
|
||||
(defcustom gnus-summary-default-score 0
|
||||
"*Default article score level.
|
||||
"Default article score level.
|
||||
All scores generated by the score files will be added to this score.
|
||||
If this variable is nil, scoring will be disabled."
|
||||
:group 'gnus-score-default
|
||||
|
|
@ -249,7 +249,7 @@ If this variable is nil, scoring will be disabled."
|
|||
integer))
|
||||
|
||||
(defcustom gnus-summary-default-high-score 0
|
||||
"*Default threshold for a high scored article.
|
||||
"Default threshold for a high scored article.
|
||||
An article will be highlighted as high scored if its score is greater
|
||||
than this score."
|
||||
:version "22.1"
|
||||
|
|
@ -257,7 +257,7 @@ than this score."
|
|||
:type 'integer)
|
||||
|
||||
(defcustom gnus-summary-default-low-score 0
|
||||
"*Default threshold for a low scored article.
|
||||
"Default threshold for a low scored article.
|
||||
An article will be highlighted as low scored if its score is smaller
|
||||
than this score."
|
||||
:version "22.1"
|
||||
|
|
@ -265,14 +265,14 @@ than this score."
|
|||
:type 'integer)
|
||||
|
||||
(defcustom gnus-summary-zcore-fuzz 0
|
||||
"*Fuzziness factor for the zcore in the summary buffer.
|
||||
"Fuzziness factor for the zcore in the summary buffer.
|
||||
Articles with scores closer than this to `gnus-summary-default-score'
|
||||
will not be marked."
|
||||
:group 'gnus-summary-format
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-simplify-subject-fuzzy-regexp nil
|
||||
"*Strings to be removed when doing fuzzy matches.
|
||||
"Strings to be removed when doing fuzzy matches.
|
||||
This can either be a regular expression or list of regular expressions
|
||||
that will be removed from subject strings if fuzzy subject
|
||||
simplification is selected."
|
||||
|
|
@ -280,12 +280,12 @@ simplification is selected."
|
|||
:type '(repeat regexp))
|
||||
|
||||
(defcustom gnus-show-threads t
|
||||
"*If non-nil, display threads in summary mode."
|
||||
"If non-nil, display threads in summary mode."
|
||||
:group 'gnus-thread
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-thread-hide-subtree nil
|
||||
"*If non-nil, hide all threads initially.
|
||||
"If non-nil, hide all threads initially.
|
||||
This can be a predicate specifier which says which threads to hide.
|
||||
If threads are hidden, you have to run the command
|
||||
`gnus-summary-show-thread' by hand or select an article."
|
||||
|
|
@ -298,19 +298,19 @@ If threads are hidden, you have to run the command
|
|||
(sexp :tag "Predicate specifier")))
|
||||
|
||||
(defcustom gnus-thread-hide-killed t
|
||||
"*If non-nil, hide killed threads automatically."
|
||||
"If non-nil, hide killed threads automatically."
|
||||
:group 'gnus-thread
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-thread-ignore-subject t
|
||||
"*If non-nil, which is the default, ignore subjects and do all threading based on the Reference header.
|
||||
"If non-nil, which is the default, ignore subjects and do all threading based on the Reference header.
|
||||
If nil, articles that have different subjects from their parents will
|
||||
start separate threads."
|
||||
:group 'gnus-thread
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-thread-operation-ignore-subject t
|
||||
"*If non-nil, subjects will be ignored when doing thread commands.
|
||||
"If non-nil, subjects will be ignored when doing thread commands.
|
||||
This affects commands like `gnus-summary-kill-thread' and
|
||||
`gnus-summary-lower-thread'.
|
||||
|
||||
|
|
@ -324,12 +324,12 @@ equal will be included."
|
|||
(sexp :tag "on" t)))
|
||||
|
||||
(defcustom gnus-thread-indent-level 4
|
||||
"*Number that says how much each sub-thread should be indented."
|
||||
"Number that says how much each sub-thread should be indented."
|
||||
:group 'gnus-thread
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-auto-extend-newsgroup t
|
||||
"*If non-nil, extend newsgroup forward and backward when requested."
|
||||
"If non-nil, extend newsgroup forward and backward when requested."
|
||||
:group 'gnus-summary-choose
|
||||
:type 'boolean)
|
||||
|
||||
|
|
@ -353,7 +353,7 @@ newsgroups, set the variable to nil in `gnus-select-group-hook'."
|
|||
(sexp :menu-tag "first" t)))
|
||||
|
||||
(defcustom gnus-auto-select-subject 'unseen-or-unread
|
||||
"*Says what subject to place under point when entering a group.
|
||||
"Says what subject to place under point when entering a group.
|
||||
|
||||
This variable can either be the symbols `first' (place point on the
|
||||
first subject), `unread' (place point on the subject line of the first
|
||||
|
|
@ -373,7 +373,7 @@ place point on some subject line."
|
|||
(function :tag "Function to call")))
|
||||
|
||||
(defcustom gnus-auto-select-next t
|
||||
"*If non-nil, offer to go to the next group from the end of the previous.
|
||||
"If non-nil, offer to go to the next group from the end of the previous.
|
||||
If the value is t and the next newsgroup is empty, Gnus will exit
|
||||
summary mode and go back to group mode. If the value is neither nil
|
||||
nor t, Gnus will select the following unread newsgroup. In
|
||||
|
|
@ -391,7 +391,7 @@ will go to the next group without confirmation."
|
|||
(sexp :menu-tag "on" t)))
|
||||
|
||||
(defcustom gnus-auto-select-same nil
|
||||
"*If non-nil, select the next article with the same subject.
|
||||
"If non-nil, select the next article with the same subject.
|
||||
If there are no more articles with the same subject, go to
|
||||
the first unread article."
|
||||
:group 'gnus-summary-maneuvering
|
||||
|
|
@ -420,7 +420,7 @@ article selected before entering to the ephemeral group will appear."
|
|||
(sexp :tag "other" :value nil)))
|
||||
|
||||
(defcustom gnus-auto-goto-ignores 'unfetched
|
||||
"*Says how to handle unfetched articles when maneuvering.
|
||||
"Says how to handle unfetched articles when maneuvering.
|
||||
|
||||
This variable can either be the symbols nil (maneuver to any
|
||||
article), `undownloaded' (maneuvering while unplugged ignores articles
|
||||
|
|
@ -438,7 +438,7 @@ and, when unplugged, a subset of the undownloaded article list."
|
|||
(const :tag "Unfetched" unfetched)))
|
||||
|
||||
(defcustom gnus-summary-check-current nil
|
||||
"*If non-nil, consider the current article when moving.
|
||||
"If non-nil, consider the current article when moving.
|
||||
The \"unread\" movement commands will stay on the same line if the
|
||||
current article is unread."
|
||||
:group 'gnus-summary-maneuvering
|
||||
|
|
@ -446,7 +446,7 @@ current article is unread."
|
|||
|
||||
(defcustom gnus-auto-center-summary
|
||||
(max (or (bound-and-true-p scroll-margin) 0) 2)
|
||||
"*If non-nil, always center the current summary buffer.
|
||||
"If non-nil, always center the current summary buffer.
|
||||
In particular, if `vertical' do only vertical recentering. If non-nil
|
||||
and non-`vertical', do both horizontal and vertical recentering."
|
||||
:group 'gnus-summary-maneuvering
|
||||
|
|
@ -461,18 +461,18 @@ and non-`vertical', do both horizontal and vertical recentering."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-show-all-headers nil
|
||||
"*If non-nil, don't hide any headers."
|
||||
"If non-nil, don't hide any headers."
|
||||
:group 'gnus-article-hiding
|
||||
:group 'gnus-article-headers
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-summary-ignore-duplicates nil
|
||||
"*If non-nil, ignore articles with identical Message-ID headers."
|
||||
"If non-nil, ignore articles with identical Message-ID headers."
|
||||
:group 'gnus-summary
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-single-article-buffer nil
|
||||
"*If non-nil, display all articles in the same buffer.
|
||||
"If non-nil, display all articles in the same buffer.
|
||||
If nil, each group will get its own article buffer."
|
||||
:version "24.1"
|
||||
:group 'gnus-article-various
|
||||
|
|
@ -485,14 +485,14 @@ If nil, each group will get its own article buffer."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-break-pages t
|
||||
"*If non-nil, do page breaking on articles.
|
||||
"If non-nil, do page breaking on articles.
|
||||
The page delimiter is specified by the `gnus-page-delimiter'
|
||||
variable."
|
||||
:group 'gnus-article-various
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-move-split-methods nil
|
||||
"*Variable used to suggest where articles are to be moved to.
|
||||
"Variable used to suggest where articles are to be moved to.
|
||||
It uses the same syntax as the `gnus-split-methods' variable.
|
||||
However, whereas `gnus-split-methods' specifies file names as targets,
|
||||
this variable specifies group names."
|
||||
|
|
@ -512,163 +512,163 @@ string with the suggested prefix."
|
|||
;; using multibyte characters (Latin-1, UTF-8) doesn't work. -- rs
|
||||
|
||||
(defcustom gnus-unread-mark ? ;Whitespace
|
||||
"*Mark used for unread articles."
|
||||
"Mark used for unread articles."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-ticked-mark ?!
|
||||
"*Mark used for ticked articles."
|
||||
"Mark used for ticked articles."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-dormant-mark ??
|
||||
"*Mark used for dormant articles."
|
||||
"Mark used for dormant articles."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-del-mark ?r
|
||||
"*Mark used for del'd articles."
|
||||
"Mark used for del'd articles."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-read-mark ?R
|
||||
"*Mark used for read articles."
|
||||
"Mark used for read articles."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-expirable-mark ?E
|
||||
"*Mark used for expirable articles."
|
||||
"Mark used for expirable articles."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-killed-mark ?K
|
||||
"*Mark used for killed articles."
|
||||
"Mark used for killed articles."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-spam-mark ?$
|
||||
"*Mark used for spam articles."
|
||||
"Mark used for spam articles."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-kill-file-mark ?X
|
||||
"*Mark used for articles killed by kill files."
|
||||
"Mark used for articles killed by kill files."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-low-score-mark ?Y
|
||||
"*Mark used for articles with a low score."
|
||||
"Mark used for articles with a low score."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-catchup-mark ?C
|
||||
"*Mark used for articles that are caught up."
|
||||
"Mark used for articles that are caught up."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-replied-mark ?A
|
||||
"*Mark used for articles that have been replied to."
|
||||
"Mark used for articles that have been replied to."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-forwarded-mark ?F
|
||||
"*Mark used for articles that have been forwarded."
|
||||
"Mark used for articles that have been forwarded."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-recent-mark ?N
|
||||
"*Mark used for articles that are recent."
|
||||
"Mark used for articles that are recent."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-cached-mark ?*
|
||||
"*Mark used for articles that are in the cache."
|
||||
"Mark used for articles that are in the cache."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-saved-mark ?S
|
||||
"*Mark used for articles that have been saved."
|
||||
"Mark used for articles that have been saved."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-unseen-mark ?.
|
||||
"*Mark used for articles that haven't been seen."
|
||||
"Mark used for articles that haven't been seen."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-no-mark ? ;Whitespace
|
||||
"*Mark used for articles that have no other secondary mark."
|
||||
"Mark used for articles that have no other secondary mark."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-ancient-mark ?O
|
||||
"*Mark used for ancient articles."
|
||||
"Mark used for ancient articles."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-sparse-mark ?Q
|
||||
"*Mark used for sparsely reffed articles."
|
||||
"Mark used for sparsely reffed articles."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-canceled-mark ?G
|
||||
"*Mark used for canceled articles."
|
||||
"Mark used for canceled articles."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-duplicate-mark ?M
|
||||
"*Mark used for duplicate articles."
|
||||
"Mark used for duplicate articles."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-undownloaded-mark ?-
|
||||
"*Mark used for articles that weren't downloaded."
|
||||
"Mark used for articles that weren't downloaded."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-downloaded-mark ?+
|
||||
"*Mark used for articles that were downloaded."
|
||||
"Mark used for articles that were downloaded."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-downloadable-mark ?%
|
||||
"*Mark used for articles that are to be downloaded."
|
||||
"Mark used for articles that are to be downloaded."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-unsendable-mark ?=
|
||||
"*Mark used for articles that won't be sent."
|
||||
"Mark used for articles that won't be sent."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-score-over-mark ?+
|
||||
"*Score mark used for articles with high scores."
|
||||
"Score mark used for articles with high scores."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-score-below-mark ?-
|
||||
"*Score mark used for articles with low scores."
|
||||
"Score mark used for articles with low scores."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-empty-thread-mark ? ;Whitespace
|
||||
"*There is no thread under the article."
|
||||
"There is no thread under the article."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-not-empty-thread-mark ?=
|
||||
"*There is a thread under the article."
|
||||
"There is a thread under the article."
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-view-pseudo-asynchronously nil
|
||||
"*If non-nil, Gnus will view pseudo-articles asynchronously."
|
||||
"If non-nil, Gnus will view pseudo-articles asynchronously."
|
||||
:group 'gnus-extract-view
|
||||
:type 'boolean)
|
||||
|
||||
|
|
@ -676,13 +676,13 @@ string with the suggested prefix."
|
|||
(list gnus-killed-mark gnus-del-mark gnus-catchup-mark
|
||||
gnus-low-score-mark gnus-ancient-mark gnus-read-mark
|
||||
gnus-duplicate-mark)
|
||||
"*The list of marks converted into expiration if a group is auto-expirable."
|
||||
"The list of marks converted into expiration if a group is auto-expirable."
|
||||
:version "24.1"
|
||||
:group 'gnus-summary
|
||||
:type '(repeat character))
|
||||
|
||||
(defcustom gnus-inhibit-user-auto-expire t
|
||||
"*If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on."
|
||||
"If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on."
|
||||
:version "21.1"
|
||||
:group 'gnus-summary
|
||||
:type 'boolean)
|
||||
|
|
@ -699,7 +699,7 @@ which auto-expire is turned on."
|
|||
:group 'gnus-summary-marks)
|
||||
|
||||
(defcustom gnus-view-pseudos nil
|
||||
"*If `automatic', pseudo-articles will be viewed automatically.
|
||||
"If `automatic', pseudo-articles will be viewed automatically.
|
||||
If `not-confirm', pseudos will be viewed automatically, and the user
|
||||
will not be asked to confirm the command."
|
||||
:group 'gnus-extract-view
|
||||
|
|
@ -708,20 +708,20 @@ will not be asked to confirm the command."
|
|||
(const not-confirm)))
|
||||
|
||||
(defcustom gnus-view-pseudos-separately t
|
||||
"*If non-nil, one pseudo-article will be created for each file to be viewed.
|
||||
"If non-nil, one pseudo-article will be created for each file to be viewed.
|
||||
If nil, all files that use the same viewing command will be given as a
|
||||
list of parameters to that command."
|
||||
:group 'gnus-extract-view
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-insert-pseudo-articles t
|
||||
"*If non-nil, insert pseudo-articles when decoding articles."
|
||||
"If non-nil, insert pseudo-articles when decoding articles."
|
||||
:group 'gnus-extract-view
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-summary-dummy-line-format
|
||||
" %(: :%) %S\n"
|
||||
"*The format specification for the dummy roots in the summary buffer.
|
||||
"The format specification for the dummy roots in the summary buffer.
|
||||
It works along the same lines as a normal formatting string,
|
||||
with some simple extensions.
|
||||
|
||||
|
|
@ -734,7 +734,7 @@ See `(gnus)Formatting Variables'."
|
|||
:type 'string)
|
||||
|
||||
(defcustom gnus-summary-mode-line-format "Gnus: %g [%A] %Z"
|
||||
"*The format specification for the summary mode line.
|
||||
"The format specification for the summary mode line.
|
||||
It works along the same lines as a normal formatting string,
|
||||
with some simple extensions:
|
||||
|
||||
|
|
@ -767,7 +767,7 @@ This can also be a list of regexps."
|
|||
(repeat :value (".*") regexp)))
|
||||
|
||||
(defcustom gnus-summary-mark-below 0
|
||||
"*Mark all articles with a score below this variable as read.
|
||||
"Mark all articles with a score below this variable as read.
|
||||
This variable is local to each summary buffer and usually set by the
|
||||
score file."
|
||||
:group 'gnus-score-default
|
||||
|
|
@ -808,7 +808,7 @@ VALUE should have the form `(FOO nil)' or `(FOO t)', where FOO is an atom.
|
|||
:value-to-external 'gnus-widget-reversible-to-external)
|
||||
|
||||
(defcustom gnus-article-sort-functions '(gnus-article-sort-by-number)
|
||||
"*List of functions used for sorting articles in the summary buffer.
|
||||
"List of functions used for sorting articles in the summary buffer.
|
||||
|
||||
Each function takes two articles and returns non-nil if the first
|
||||
article should be sorted before the other. If you use more than one
|
||||
|
|
@ -841,7 +841,7 @@ controls how articles are sorted."
|
|||
(boolean :tag "Reverse order"))))
|
||||
|
||||
(defcustom gnus-thread-sort-functions '(gnus-thread-sort-by-number)
|
||||
"*List of functions used for sorting threads in the summary buffer.
|
||||
"List of functions used for sorting threads in the summary buffer.
|
||||
By default, threads are sorted by article number.
|
||||
|
||||
Each function takes two threads and returns non-nil if the first
|
||||
|
|
@ -887,7 +887,7 @@ subthreads, customize `gnus-subthread-sort-functions'."
|
|||
(boolean :tag "Reverse order"))))
|
||||
|
||||
(defcustom gnus-subthread-sort-functions 'gnus-thread-sort-functions
|
||||
"*List of functions used for sorting subthreads in the summary buffer.
|
||||
"List of functions used for sorting subthreads in the summary buffer.
|
||||
By default, subthreads are sorted the same as threads, i.e.,
|
||||
according to the value of `gnus-thread-sort-functions'."
|
||||
:version "24.4"
|
||||
|
|
@ -910,7 +910,7 @@ according to the value of `gnus-thread-sort-functions'."
|
|||
(boolean :tag "Reverse order")))))
|
||||
|
||||
(defcustom gnus-thread-score-function '+
|
||||
"*Function used for calculating the total score of a thread.
|
||||
"Function used for calculating the total score of a thread.
|
||||
|
||||
The function is called with the scores of the article and each
|
||||
subthread and should then return the score of the thread.
|
||||
|
|
@ -938,43 +938,43 @@ This variable is local to the summary buffers."
|
|||
integer))
|
||||
|
||||
(defcustom gnus-summary-mode-hook nil
|
||||
"*A hook for Gnus summary mode.
|
||||
"A hook for Gnus summary mode.
|
||||
This hook is run before any variables are set in the summary buffer."
|
||||
:options '(turn-on-gnus-mailing-list-mode gnus-pick-mode)
|
||||
:group 'gnus-summary-various
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-summary-menu-hook nil
|
||||
"*Hook run after the creation of the summary mode menu."
|
||||
"Hook run after the creation of the summary mode menu."
|
||||
:group 'gnus-summary-visual
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-summary-exit-hook nil
|
||||
"*A hook called on exit from the summary buffer.
|
||||
"A hook called on exit from the summary buffer.
|
||||
It will be called with point in the group buffer."
|
||||
:group 'gnus-summary-exit
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-summary-prepare-hook nil
|
||||
"*A hook called after the summary buffer has been generated.
|
||||
"A hook called after the summary buffer has been generated.
|
||||
If you want to modify the summary buffer, you can use this hook."
|
||||
:group 'gnus-summary-various
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-summary-prepared-hook nil
|
||||
"*A hook called as the last thing after the summary buffer has been generated."
|
||||
"A hook called as the last thing after the summary buffer has been generated."
|
||||
:group 'gnus-summary-various
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-summary-generate-hook nil
|
||||
"*A hook run just before generating the summary buffer.
|
||||
"A hook run just before generating the summary buffer.
|
||||
This hook is commonly used to customize threading variables and the
|
||||
like."
|
||||
:group 'gnus-summary-various
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-select-group-hook nil
|
||||
"*A hook called when a newsgroup is selected.
|
||||
"A hook called when a newsgroup is selected.
|
||||
|
||||
If you'd like to simplify subjects like the
|
||||
`gnus-summary-next-same-subject' command does, you can use the
|
||||
|
|
@ -992,32 +992,32 @@ following hook:
|
|||
:type 'hook)
|
||||
|
||||
(defcustom gnus-select-article-hook nil
|
||||
"*A hook called when an article is selected."
|
||||
"A hook called when an article is selected."
|
||||
:group 'gnus-summary-choose
|
||||
:options '(gnus-agent-fetch-selected-article)
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-visual-mark-article-hook
|
||||
(list 'gnus-highlight-selected-summary)
|
||||
"*Hook run after selecting an article in the summary buffer.
|
||||
"Hook run after selecting an article in the summary buffer.
|
||||
It is meant to be used for highlighting the article in some way. It
|
||||
is not run if `gnus-visual' is nil."
|
||||
:group 'gnus-summary-visual
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-parse-headers-hook nil
|
||||
"*A hook called before parsing the headers."
|
||||
"A hook called before parsing the headers."
|
||||
:group 'gnus-various
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-exit-group-hook nil
|
||||
"*A hook called when exiting summary mode.
|
||||
"A hook called when exiting summary mode.
|
||||
This hook is not called from the non-updating exit commands like `Q'."
|
||||
:group 'gnus-various
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-summary-update-hook nil
|
||||
"*A hook called when a summary line is changed.
|
||||
"A hook called when a summary line is changed.
|
||||
The hook will not be called if `gnus-visual' is nil.
|
||||
|
||||
The default function `gnus-summary-highlight-line' will
|
||||
|
|
@ -1027,42 +1027,42 @@ variable."
|
|||
:type 'hook)
|
||||
|
||||
(defcustom gnus-mark-article-hook '(gnus-summary-mark-read-and-unread-as-read)
|
||||
"*A hook called when an article is selected for the first time.
|
||||
"A hook called when an article is selected for the first time.
|
||||
The hook is intended to mark an article as read (or unread)
|
||||
automatically when it is selected."
|
||||
:group 'gnus-summary-choose
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-group-no-more-groups-hook nil
|
||||
"*A hook run when returning to group mode having no more (unread) groups."
|
||||
"A hook run when returning to group mode having no more (unread) groups."
|
||||
:group 'gnus-group-select
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-ps-print-hook nil
|
||||
"*A hook run before ps-printing something from Gnus."
|
||||
"A hook run before ps-printing something from Gnus."
|
||||
:group 'gnus-summary
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-summary-article-move-hook nil
|
||||
"*A hook called after an article is moved, copied, respooled, or crossposted."
|
||||
"A hook called after an article is moved, copied, respooled, or crossposted."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-summary-article-delete-hook nil
|
||||
"*A hook called after an article is deleted."
|
||||
"A hook called after an article is deleted."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-summary-article-expire-hook nil
|
||||
"*A hook called after an article is expired."
|
||||
"A hook called after an article is expired."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-summary-display-arrow (display-graphic-p)
|
||||
"*If non-nil, display an arrow highlighting the current article."
|
||||
"If non-nil, display an arrow highlighting the current article."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary
|
||||
:type 'boolean)
|
||||
|
|
@ -1112,7 +1112,7 @@ automatically when it is selected."
|
|||
. gnus-summary-low-read)
|
||||
(t
|
||||
. gnus-summary-normal-read))
|
||||
"*Controls the highlighting of summary buffer lines.
|
||||
"Controls the highlighting of summary buffer lines.
|
||||
|
||||
A list of (FORM . FACE) pairs. When deciding how a particular
|
||||
summary line should be displayed, each form is evaluated. The content
|
||||
|
|
@ -1148,7 +1148,7 @@ which it may alter in any way."
|
|||
"Function used to decode addresses with encoded words.")
|
||||
|
||||
(defcustom gnus-extra-headers '(To Cc Keywords Gcc Newsgroups X-GM-LABELS)
|
||||
"*Extra headers to parse."
|
||||
"Extra headers to parse."
|
||||
:version "25.1"
|
||||
:group 'gnus-summary
|
||||
:type '(repeat symbol))
|
||||
|
|
@ -1157,7 +1157,7 @@ which it may alter in any way."
|
|||
(and user-mail-address
|
||||
(not (string= user-mail-address ""))
|
||||
(regexp-quote user-mail-address))
|
||||
"*From headers that may be suppressed in favor of To headers.
|
||||
"From headers that may be suppressed in favor of To headers.
|
||||
This can be a regexp, a list of regexps or a function.
|
||||
|
||||
If a function, an email string is passed as the argument."
|
||||
|
|
@ -1173,14 +1173,14 @@ If a function, an email string is passed as the argument."
|
|||
(t (gmm-regexp-concat gnus-ignored-from-addresses))))
|
||||
|
||||
(defcustom gnus-summary-to-prefix "-> "
|
||||
"*String prefixed to the To field in the summary line when
|
||||
"String prefixed to the To field in the summary line when
|
||||
using `gnus-ignored-from-addresses'."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-summary-newsgroup-prefix "=> "
|
||||
"*String prefixed to the Newsgroup field in the summary
|
||||
"String prefixed to the Newsgroup field in the summary
|
||||
line when using the option `gnus-ignored-from-addresses'."
|
||||
:version "22.1"
|
||||
:group 'gnus-summary
|
||||
|
|
@ -1264,13 +1264,13 @@ For example: ((1 . cn-gb-2312) (2 . big5))."
|
|||
:group 'gnus-summary)
|
||||
|
||||
(defcustom gnus-orphan-score nil
|
||||
"*All orphans get this score added. Set in the score file."
|
||||
"All orphans get this score added. Set in the score file."
|
||||
:group 'gnus-score-default
|
||||
:type '(choice (const nil)
|
||||
integer))
|
||||
|
||||
(defcustom gnus-summary-save-parts-default-mime "image/.*"
|
||||
"*A regexp to match MIME parts when saving multiple parts of a
|
||||
"A regexp to match MIME parts when saving multiple parts of a
|
||||
message with `gnus-summary-save-parts' (\\<gnus-summary-mode-map>\\[gnus-summary-save-parts]).
|
||||
This regexp will be used by default when prompting the user for which
|
||||
type of files to save."
|
||||
|
|
|
|||
|
|
@ -63,12 +63,12 @@ See Info node `(gnus)Formatting Variables'."
|
|||
:group 'gnus-topic)
|
||||
|
||||
(defcustom gnus-topic-indent-level 2
|
||||
"*How much each subtopic should be indented."
|
||||
"How much each subtopic should be indented."
|
||||
:type 'integer
|
||||
:group 'gnus-topic)
|
||||
|
||||
(defcustom gnus-topic-display-empty-topics t
|
||||
"*If non-nil, display the topic lines even of topics that have no unread articles."
|
||||
"If non-nil, display the topic lines even of topics that have no unread articles."
|
||||
:type 'boolean
|
||||
:group 'gnus-topic)
|
||||
|
||||
|
|
|
|||
|
|
@ -417,7 +417,7 @@ Cache the result as a text property stored in DATE."
|
|||
i))
|
||||
|
||||
(defcustom gnus-verbose 6
|
||||
"*Integer that says how verbose Gnus should be.
|
||||
"Integer that says how verbose Gnus should be.
|
||||
The higher the number, the more messages Gnus will flash to say what
|
||||
it's doing. At zero, Gnus will be totally mute; at five, Gnus will
|
||||
display most important messages; and at ten, Gnus will keep on
|
||||
|
|
|
|||
|
|
@ -73,7 +73,7 @@
|
|||
("\\.\\(flc\\|fli\\|rle\\|iff\\|pfx\\|avi\\|sme\\|rpza\\|dl\\|qt\\|rsrc\\|mov\\)$" "xanim")
|
||||
("\\.\\(tar\\|arj\\|zip\\|zoo\\|arc\\|gz\\|Z\\|lzh\\|ar\\|lha\\)$"
|
||||
"gnus-uu-archive"))
|
||||
"*Default actions to be taken when the user asks to view a file.
|
||||
"Default actions to be taken when the user asks to view a file.
|
||||
To change the behavior, you can either edit this variable or set
|
||||
`gnus-uu-user-view-rules' to something useful.
|
||||
|
||||
|
|
@ -113,7 +113,7 @@ details."
|
|||
|
||||
(defcustom gnus-uu-user-view-rules-end
|
||||
'(("" "file"))
|
||||
"*What actions are to be taken if no rule matched the file name.
|
||||
"What actions are to be taken if no rule matched the file name.
|
||||
See the documentation on the `gnus-uu-default-view-rules' variable for
|
||||
details."
|
||||
:group 'gnus-extract-view
|
||||
|
|
@ -131,7 +131,7 @@ details."
|
|||
("\\.Z$" "uncompress")
|
||||
("\\.gz$" "gunzip")
|
||||
("\\.arc$" "arc -x"))
|
||||
"*See `gnus-uu-user-archive-rules'."
|
||||
"See `gnus-uu-user-archive-rules'."
|
||||
:group 'gnus-extract-archive
|
||||
:type '(repeat (group regexp (string :tag "Command"))))
|
||||
|
||||
|
|
@ -149,7 +149,7 @@ unpack zip files, say the following:
|
|||
:type '(repeat (group regexp (string :tag "Command"))))
|
||||
|
||||
(defcustom gnus-uu-ignore-files-by-name nil
|
||||
"*A regular expression saying what files should not be viewed based on name.
|
||||
"A regular expression saying what files should not be viewed based on name.
|
||||
If, for instance, you want gnus-uu to ignore all .au and .wav files,
|
||||
you could say something like
|
||||
|
||||
|
|
@ -162,7 +162,7 @@ Note that this variable can be used in conjunction with the
|
|||
(regexp :format "%v")))
|
||||
|
||||
(defcustom gnus-uu-ignore-files-by-type nil
|
||||
"*A regular expression saying what files that shouldn't be viewed, based on MIME file type.
|
||||
"A regular expression saying what files that shouldn't be viewed, based on MIME file type.
|
||||
If, for instance, you want gnus-uu to ignore all audio files and all mpegs,
|
||||
you could say something like
|
||||
|
||||
|
|
@ -224,13 +224,13 @@ Default is \"/tmp/\"."
|
|||
:type 'directory)
|
||||
|
||||
(defcustom gnus-uu-do-not-unpack-archives nil
|
||||
"*Non-nil means that gnus-uu won't peek inside archives looking for files to display.
|
||||
"Non-nil means that gnus-uu won't peek inside archives looking for files to display.
|
||||
Default is nil."
|
||||
:group 'gnus-extract-archive
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-uu-ignore-default-view-rules nil
|
||||
"*Non-nil means that gnus-uu will ignore the default viewing rules.
|
||||
"Non-nil means that gnus-uu will ignore the default viewing rules.
|
||||
Only the user viewing rules will be consulted. Default is nil."
|
||||
:group 'gnus-extract-view
|
||||
:type 'boolean)
|
||||
|
|
@ -245,19 +245,19 @@ and `gnus-uu-grab-move'."
|
|||
:type 'hook)
|
||||
|
||||
(defcustom gnus-uu-ignore-default-archive-rules nil
|
||||
"*Non-nil means that gnus-uu will ignore the default archive unpacking commands.
|
||||
"Non-nil means that gnus-uu will ignore the default archive unpacking commands.
|
||||
Only the user unpacking commands will be consulted. Default is nil."
|
||||
:group 'gnus-extract-archive
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-uu-kill-carriage-return t
|
||||
"*Non-nil means that gnus-uu will strip all carriage returns from articles.
|
||||
"Non-nil means that gnus-uu will strip all carriage returns from articles.
|
||||
Default is t."
|
||||
:group 'gnus-extract
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-uu-view-with-metamail nil
|
||||
"*Non-nil means that files will be viewed with metamail.
|
||||
"Non-nil means that files will be viewed with metamail.
|
||||
The gnus-uu viewing functions will be ignored and gnus-uu will try
|
||||
to guess at a content-type based on file name suffixes. Default
|
||||
it nil."
|
||||
|
|
@ -265,19 +265,19 @@ it nil."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-uu-unmark-articles-not-decoded nil
|
||||
"*Non-nil means that gnus-uu will mark articles that were unsuccessfully decoded as unread.
|
||||
"Non-nil means that gnus-uu will mark articles that were unsuccessfully decoded as unread.
|
||||
Default is nil."
|
||||
:group 'gnus-extract
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-uu-correct-stripped-uucode nil
|
||||
"*Non-nil means that gnus-uu will *try* to fix uuencoded files that have had trailing spaces deleted.
|
||||
"Non-nil means that gnus-uu will *try* to fix uuencoded files that have had trailing spaces deleted.
|
||||
Default is nil."
|
||||
:group 'gnus-extract
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-uu-save-in-digest nil
|
||||
"*Non-nil means that gnus-uu, when asked to save without decoding, will save in digests.
|
||||
"Non-nil means that gnus-uu, when asked to save without decoding, will save in digests.
|
||||
If this variable is nil, gnus-uu will just save everything in a
|
||||
file without any embellishments. The digesting almost conforms to RFC1153 -
|
||||
no easy way to specify any meaningful volume and issue numbers were found,
|
||||
|
|
@ -295,19 +295,19 @@ so I simply dropped them."
|
|||
"^Summary:" "^References:" "^Content-Type:" "^Content-Transfer-Encoding:"
|
||||
"^MIME-Version:" "^Content-Disposition:" "^Content-Description:"
|
||||
"^Content-ID:")
|
||||
"*List of regexps to match headers included in digested messages.
|
||||
"List of regexps to match headers included in digested messages.
|
||||
The headers will be included in the sequence they are matched. If nil
|
||||
include all headers."
|
||||
:group 'gnus-extract
|
||||
:type '(repeat regexp))
|
||||
|
||||
(defcustom gnus-uu-save-separate-articles nil
|
||||
"*Non-nil means that gnus-uu will save articles in separate files."
|
||||
"Non-nil means that gnus-uu will save articles in separate files."
|
||||
:group 'gnus-extract
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-uu-be-dangerous 'ask
|
||||
"*Specifies what to do if unusual situations arise during decoding.
|
||||
"Specifies what to do if unusual situations arise during decoding.
|
||||
If nil, be as conservative as possible. If t, ignore things that
|
||||
didn't work, and overwrite existing files. Otherwise, ask each time."
|
||||
:group 'gnus-extract
|
||||
|
|
|
|||
|
|
@ -34,27 +34,27 @@
|
|||
:group 'gnus)
|
||||
|
||||
(defcustom gnus-use-full-window t
|
||||
"*If non-nil, use the entire Emacs screen."
|
||||
"If non-nil, use the entire Emacs screen."
|
||||
:group 'gnus-windows
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-window-min-width 2
|
||||
"*Minimum width of Gnus buffers."
|
||||
"Minimum width of Gnus buffers."
|
||||
:group 'gnus-windows
|
||||
:type 'integer)
|
||||
|
||||
(defcustom gnus-window-min-height 1
|
||||
"*Minimum height of Gnus buffers."
|
||||
"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."
|
||||
"If non-nil, always force the Gnus window configurations."
|
||||
:group 'gnus-windows
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-use-frames-on-any-display nil
|
||||
"*If non-nil, frames on all displays will be considered usable by Gnus.
|
||||
"If non-nil, frames on all displays will be considered usable by Gnus.
|
||||
When nil, only frames on the same display as the selected frame will be
|
||||
used to display Gnus windows."
|
||||
:version "22.1"
|
||||
|
|
@ -195,7 +195,7 @@ See the Gnus manual for an explanation of the syntax used.")
|
|||
"Mapping from short symbols to buffer names or buffer variables.")
|
||||
|
||||
(defcustom gnus-configure-windows-hook nil
|
||||
"*A hook called when configuring windows."
|
||||
"A hook called when configuring windows."
|
||||
:version "22.1"
|
||||
:group 'gnus-windows
|
||||
:type 'hook)
|
||||
|
|
|
|||
|
|
@ -997,7 +997,7 @@ be set in `.emacs' instead."
|
|||
"Color alist used for the Gnus logo.")
|
||||
|
||||
(defcustom gnus-logo-color-style 'ma
|
||||
"*Color styles used for the Gnus logo."
|
||||
"Color styles used for the Gnus logo."
|
||||
:type `(choice ,@(mapcar (lambda (elem) (list 'const (car elem)))
|
||||
gnus-logo-color-alist))
|
||||
:group 'gnus-xmas)
|
||||
|
|
@ -1240,7 +1240,7 @@ in `.gnus.el'. Set this variable in `.emacs' instead."
|
|||
|
||||
(defcustom gnus-directory (or (getenv "SAVEDIR")
|
||||
(nnheader-concat gnus-home-directory "News/"))
|
||||
"*Directory variable from which all other Gnus file variables are derived.
|
||||
"Directory variable from which all other Gnus file variables are derived.
|
||||
|
||||
Note that Gnus is mostly loaded when the `.gnus.el' file is read.
|
||||
This means that other directory variables that are initialized from
|
||||
|
|
@ -1250,7 +1250,7 @@ Set this variable in `.emacs' instead."
|
|||
:type 'directory)
|
||||
|
||||
(defcustom gnus-default-directory nil
|
||||
"*Default directory for all Gnus buffers."
|
||||
"Default directory for all Gnus buffers."
|
||||
:group 'gnus-files
|
||||
:type '(choice (const :tag "current" nil)
|
||||
directory))
|
||||
|
|
@ -1321,7 +1321,7 @@ see the manual for details."
|
|||
:type 'gnus-select-method)
|
||||
|
||||
(defcustom gnus-message-archive-method "archive"
|
||||
"*Method used for archiving messages you've sent.
|
||||
"Method used for archiving messages you've sent.
|
||||
This should be a mail method.
|
||||
|
||||
See also `gnus-update-message-archive-method'."
|
||||
|
|
@ -1347,7 +1347,7 @@ saved \"archive\" method to be updated whenever you change the value of
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-message-archive-group '((format-time-string "sent.%Y-%m"))
|
||||
"*Name of the group in which to save the messages you've written.
|
||||
"Name of the group in which to save the messages you've written.
|
||||
This can either be a string; a list of strings; or an alist
|
||||
of regexps/functions/forms to be evaluated to return a string (or a list
|
||||
of strings). The functions are called with the name of the current
|
||||
|
|
@ -1433,7 +1433,7 @@ list, Gnus will try all the methods in the list until it finds a match."
|
|||
gnus-select-method))))
|
||||
|
||||
(defcustom gnus-use-cross-reference t
|
||||
"*Non-nil means that cross referenced articles will be marked as read.
|
||||
"Non-nil means that cross referenced articles will be marked as read.
|
||||
If nil, ignore cross references. If t, mark articles as read in
|
||||
subscribed newsgroups. If neither t nor nil, mark as read in all
|
||||
newsgroups."
|
||||
|
|
@ -1444,13 +1444,13 @@ newsgroups."
|
|||
:value always)))
|
||||
|
||||
(defcustom gnus-process-mark ?#
|
||||
"*Process mark."
|
||||
"Process mark."
|
||||
:group 'gnus-group-visual
|
||||
:group 'gnus-summary-marks
|
||||
:type 'character)
|
||||
|
||||
(defcustom gnus-large-newsgroup 200
|
||||
"*The number of articles which indicates a large newsgroup.
|
||||
"The number of articles which indicates a large newsgroup.
|
||||
If the number of articles in a newsgroup is greater than this value,
|
||||
confirmation is required for selecting the newsgroup.
|
||||
If it is nil, no confirmation is required.
|
||||
|
|
@ -1484,24 +1484,24 @@ on all other systems it defaults to t."
|
|||
(const not-kill))))
|
||||
|
||||
(defcustom gnus-kill-files-directory gnus-directory
|
||||
"*Name of the directory where kill files will be stored (default \"~/News\")."
|
||||
"Name of the directory where kill files will be stored (default \"~/News\")."
|
||||
:group 'gnus-score-files
|
||||
:group 'gnus-score-kill
|
||||
:type 'directory)
|
||||
|
||||
(defcustom gnus-save-score nil
|
||||
"*If non-nil, save group scoring info."
|
||||
"If non-nil, save group scoring info."
|
||||
:group 'gnus-score-various
|
||||
:group 'gnus-start
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-use-undo t
|
||||
"*If non-nil, allow undoing in Gnus group mode buffers."
|
||||
"If non-nil, allow undoing in Gnus group mode buffers."
|
||||
:group 'gnus-meta
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-use-adaptive-scoring nil
|
||||
"*If non-nil, use some adaptive scoring scheme.
|
||||
"If non-nil, use some adaptive scoring scheme.
|
||||
If a list, then the values `word' and `line' are meaningful. The
|
||||
former will perform adaption on individual words in the subject
|
||||
header while `line' will perform adaption on several headers."
|
||||
|
|
@ -1510,7 +1510,7 @@ header while `line' will perform adaption on several headers."
|
|||
:type '(set (const word) (const line)))
|
||||
|
||||
(defcustom gnus-use-cache 'passive
|
||||
"*If nil, Gnus will ignore the article cache.
|
||||
"If nil, Gnus will ignore the article cache.
|
||||
If `passive', it will allow entering (and reading) articles
|
||||
explicitly entered into the cache. If anything else, use the
|
||||
cache to the full extent of the law."
|
||||
|
|
@ -1521,12 +1521,12 @@ cache to the full extent of the law."
|
|||
(const :tag "active" t)))
|
||||
|
||||
(defcustom gnus-use-trees nil
|
||||
"*If non-nil, display a thread tree buffer."
|
||||
"If non-nil, display a thread tree buffer."
|
||||
:group 'gnus-meta
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-keep-backlog 20
|
||||
"*If non-nil, Gnus will keep read articles for later re-retrieval.
|
||||
"If non-nil, Gnus will keep read articles for later re-retrieval.
|
||||
If it is a number N, then Gnus will only keep the last N articles
|
||||
read. If it is neither nil nor a number, Gnus will keep all read
|
||||
articles. This is not a good idea."
|
||||
|
|
@ -1537,43 +1537,43 @@ articles. This is not a good idea."
|
|||
:value t)))
|
||||
|
||||
(defcustom gnus-suppress-duplicates nil
|
||||
"*If non-nil, Gnus will mark duplicate copies of the same article as read."
|
||||
"If non-nil, Gnus will mark duplicate copies of the same article as read."
|
||||
:group 'gnus-meta
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-use-scoring t
|
||||
"*If non-nil, enable scoring."
|
||||
"If non-nil, enable scoring."
|
||||
:group 'gnus-meta
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-summary-prepare-exit-hook
|
||||
'(gnus-summary-expire-articles)
|
||||
"*A hook called when preparing to exit from the summary buffer.
|
||||
"A hook called when preparing to exit from the summary buffer.
|
||||
It calls `gnus-summary-expire-articles' by default."
|
||||
:group 'gnus-summary-exit
|
||||
:type 'hook)
|
||||
|
||||
(defcustom gnus-novice-user t
|
||||
"*Non-nil means that you are a Usenet novice.
|
||||
"Non-nil means that you are a Usenet novice.
|
||||
If non-nil, verbose messages may be displayed and confirmations may be
|
||||
required."
|
||||
:group 'gnus-meta
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-expert-user nil
|
||||
"*Non-nil means that you will never be asked for confirmation about anything.
|
||||
"Non-nil means that you will never be asked for confirmation about anything.
|
||||
That doesn't mean *anything* anything; particularly destructive
|
||||
commands will still require prompting."
|
||||
:group 'gnus-meta
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-interactive-catchup t
|
||||
"*If non-nil, require your confirmation when catching up a group."
|
||||
"If non-nil, require your confirmation when catching up a group."
|
||||
:group 'gnus-group-select
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom gnus-interactive-exit t
|
||||
"*If non-nil, require your confirmation when exiting Gnus.
|
||||
"If non-nil, require your confirmation when exiting Gnus.
|
||||
If `quiet', update any active summary buffers automatically
|
||||
first before exiting."
|
||||
:group 'gnus-exit
|
||||
|
|
@ -1581,7 +1581,7 @@ first before exiting."
|
|||
(const quiet)))
|
||||
|
||||
(defcustom gnus-extract-address-components 'gnus-extract-address-components
|
||||
"*Function for extracting address components from a From header.
|
||||
"Function for extracting address components from a From header.
|
||||
Two pre-defined function exist: `gnus-extract-address-components',
|
||||
which is the default, quite fast, and too simplistic solution, and
|
||||
`mail-extract-address-components', which works much better, but is
|
||||
|
|
@ -1617,7 +1617,7 @@ slower."
|
|||
server-marks cloud)
|
||||
("nnmaildir" mail respool address server-marks)
|
||||
("nnnil" none))
|
||||
"*An alist of valid select methods.
|
||||
"An alist of valid select methods.
|
||||
The first element of each list lists should be a string with the name
|
||||
of the select method. The other elements may be the category of
|
||||
this method (i. e., `post', `mail', `none' or whatever) or other
|
||||
|
|
@ -1676,7 +1676,7 @@ If this variable is nil, screen refresh may be quicker."
|
|||
(const tree)))
|
||||
|
||||
(defcustom gnus-mode-non-string-length 30
|
||||
"*Max length of mode-line non-string contents.
|
||||
"Max length of mode-line non-string contents.
|
||||
If this is nil, Gnus will take space as is needed, leaving the rest
|
||||
of the mode line intact."
|
||||
:version "24.1"
|
||||
|
|
@ -1693,7 +1693,7 @@ of the mode line intact."
|
|||
:function-document
|
||||
"Return GROUP's to-address."
|
||||
:variable-document
|
||||
"*Alist of group regexps and correspondent to-addresses."
|
||||
"Alist of group regexps and correspondent to-addresses."
|
||||
:variable-group gnus-group-parameter
|
||||
:parameter-type '(gnus-email-address :tag "To Address")
|
||||
:parameter-document "\
|
||||
|
|
@ -1720,7 +1720,7 @@ address was listed in gnus-group-split Addresses (see below).")
|
|||
:function-document
|
||||
"Return GROUP's to-list."
|
||||
:variable-document
|
||||
"*Alist of group regexps and correspondent to-lists."
|
||||
"Alist of group regexps and correspondent to-lists."
|
||||
:variable-group gnus-group-parameter
|
||||
:parameter-type '(gnus-email-address :tag "To List")
|
||||
:parameter-document "\
|
||||
|
|
@ -1739,7 +1739,7 @@ address was listed in gnus-group-split Addresses (see below).")
|
|||
:function-document
|
||||
"Return GROUP's subscription status."
|
||||
:variable-document
|
||||
"*Groups which are automatically considered subscribed."
|
||||
"Groups which are automatically considered subscribed."
|
||||
:variable-group gnus-group-parameter
|
||||
:parameter-type '(const :tag "Subscribed" t)
|
||||
:parameter-document "\
|
||||
|
|
@ -1758,7 +1758,7 @@ above, or the list address (if the To address has not been set).")
|
|||
:variable gnus-auto-expirable-newsgroups
|
||||
:variable-default nil
|
||||
:variable-document
|
||||
"*Groups in which to automatically mark read articles as expirable.
|
||||
"Groups in which to automatically mark read articles as expirable.
|
||||
If non-nil, this should be a regexp that should match all groups in
|
||||
which to perform auto-expiry. This only makes sense for mail groups."
|
||||
:variable-group nnmail-expire
|
||||
|
|
@ -1777,7 +1777,7 @@ which to perform auto-expiry. This only makes sense for mail groups."
|
|||
:variable gnus-total-expirable-newsgroups
|
||||
:variable-default nil
|
||||
:variable-document
|
||||
"*Groups in which to perform expiry of all read articles.
|
||||
"Groups in which to perform expiry of all read articles.
|
||||
Use with extreme caution. All groups that match this regexp will be
|
||||
expiring - which means that all read articles will be deleted after
|
||||
\(say) one week. (This only goes for mail groups and the like, of
|
||||
|
|
@ -1846,7 +1846,7 @@ posting an article."
|
|||
:function-document
|
||||
"Return GROUP's initial input of the number of articles."
|
||||
:variable-document
|
||||
"*Alist of group regexps and its initial input of the number of articles."
|
||||
"Alist of group regexps and its initial input of the number of articles."
|
||||
:variable-group gnus-group-parameter
|
||||
:parameter-type '(choice :tag "Initial Input for Large Newsgroup"
|
||||
(const :tag "All" nil)
|
||||
|
|
@ -1870,7 +1870,7 @@ total number of articles in the group.")
|
|||
'("delayed$" "drafts$" "queue$" "INBOX$"
|
||||
"^nnmairix:" "^nnir:" "archive"))
|
||||
:variable-document
|
||||
"*Groups in which the registry should be turned off."
|
||||
"Groups in which the registry should be turned off."
|
||||
:variable-group gnus-registry
|
||||
:variable-type '(repeat
|
||||
(list
|
||||
|
|
@ -1883,7 +1883,7 @@ total number of articles in the group.")
|
|||
|
||||
;; group parameters for spam processing added by Ted Zlatanov <tzz@lifelogs.com>
|
||||
(defcustom gnus-install-group-spam-parameters t
|
||||
"*Disable the group parameters for spam detection.
|
||||
"Disable the group parameters for spam detection.
|
||||
Enable if `G c' in XEmacs is giving you trouble, and make sure to submit a bug report."
|
||||
:version "22.1"
|
||||
:type 'boolean
|
||||
|
|
@ -1913,7 +1913,7 @@ registry.")
|
|||
:variable gnus-spam-newsgroup-contents
|
||||
:variable-default nil
|
||||
:variable-document
|
||||
"*Group classification (spam, ham, or neither). Only
|
||||
"Group classification (spam, ham, or neither). Only
|
||||
meaningful when spam.el is loaded. If non-nil, this should be a
|
||||
list of group name regexps associated with a classification for
|
||||
each one. In spam groups, new articles are marked as spam on
|
||||
|
|
@ -2070,7 +2070,7 @@ Only applicable to non-spam (unclassified and ham) groups.")
|
|||
:variable gnus-spam-process-newsgroups
|
||||
:variable-default nil
|
||||
:variable-document
|
||||
"*Groups in which to automatically process spam or ham articles with
|
||||
"Groups in which to automatically process spam or ham articles with
|
||||
a backend on summary exit. If non-nil, this should be a list of group
|
||||
name regexps that should match all groups in which to do automatic
|
||||
spam processing, associated with the appropriate processor."
|
||||
|
|
@ -2129,7 +2129,7 @@ spam processing, associated with the appropriate processor."
|
|||
:variable gnus-spam-autodetect
|
||||
:variable-default nil
|
||||
:variable-document
|
||||
"*Groups in which spam should be autodetected when they are entered.
|
||||
"Groups in which spam should be autodetected when they are entered.
|
||||
Only unseen articles will be examined, unless
|
||||
spam-autodetect-recheck-messages is set."
|
||||
:variable-group spam
|
||||
|
|
@ -2175,7 +2175,7 @@ spam-autodetect-recheck-messages is set.")
|
|||
:variable gnus-spam-autodetect-methods
|
||||
:variable-default nil
|
||||
:variable-document
|
||||
"*Methods for autodetecting spam per group.
|
||||
"Methods for autodetecting spam per group.
|
||||
Requires the spam-autodetect parameter. Only unseen articles
|
||||
will be examined, unless spam-autodetect-recheck-messages is
|
||||
set."
|
||||
|
|
@ -2227,7 +2227,7 @@ set.")
|
|||
:variable gnus-spam-process-destinations
|
||||
:variable-default nil
|
||||
:variable-document
|
||||
"*Groups in which to explicitly send spam-processed articles to
|
||||
"Groups in which to explicitly send spam-processed articles to
|
||||
another group, or expire them (the default). If non-nil, this should
|
||||
be a list of group name regexps that should match all groups in which
|
||||
to do spam-processed article moving, associated with the destination
|
||||
|
|
@ -2264,7 +2264,7 @@ mail groups."
|
|||
:variable gnus-ham-process-destinations
|
||||
:variable-default nil
|
||||
:variable-document
|
||||
"*Groups in which to explicitly send ham articles to
|
||||
"Groups in which to explicitly send ham articles to
|
||||
another group, or do nothing (the default). If non-nil, this should
|
||||
be a list of group name regexps that should match all groups in which
|
||||
to do ham article moving, associated with the destination
|
||||
|
|
@ -2309,7 +2309,7 @@ spam-ham-marks variable takes precedence."
|
|||
gnus-low-score-mark))))
|
||||
:variable-group spam
|
||||
:variable-document
|
||||
"*Groups in which to explicitly set the ham marks to some value.")
|
||||
"Groups in which to explicitly set the ham marks to some value.")
|
||||
|
||||
(gnus-define-group-parameter
|
||||
spam-marks
|
||||
|
|
@ -2328,7 +2328,7 @@ spam-spam-marks variable takes precedence."
|
|||
:variable-default '((".*" ((gnus-spam-mark))))
|
||||
:variable-group spam
|
||||
:variable-document
|
||||
"*Groups in which to explicitly set the spam marks to some value."))
|
||||
"Groups in which to explicitly set the spam marks to some value."))
|
||||
|
||||
(defcustom gnus-group-uncollapsed-levels 1
|
||||
"Number of group name elements to leave alone when making a short group name."
|
||||
|
|
@ -2336,7 +2336,7 @@ spam-spam-marks variable takes precedence."
|
|||
:type 'integer)
|
||||
|
||||
(defcustom gnus-group-use-permanent-levels nil
|
||||
"*If non-nil, once you set a level, Gnus will use this level."
|
||||
"If non-nil, once you set a level, Gnus will use this level."
|
||||
:group 'gnus-group-levels
|
||||
:type 'boolean)
|
||||
|
||||
|
|
@ -2384,7 +2384,7 @@ It is called with three parameters -- GROUP, LEVEL and OLDLEVEL."
|
|||
tree-highlight menu highlight
|
||||
browse-menu server-menu
|
||||
page-marker tree-menu binary-menu pick-menu)
|
||||
"*Enable visual features.
|
||||
"Enable visual features.
|
||||
If `visual' is disabled, there will be no menus and few faces. Most of
|
||||
the visual customization options below will be ignored. Gnus will use
|
||||
less space and be faster as a result.
|
||||
|
|
@ -2437,14 +2437,14 @@ Valid elements include `summary-highlight', `group-highlight',
|
|||
'highlight)
|
||||
'default)
|
||||
(error 'highlight))
|
||||
"*Face used for group or summary buffer mouse highlighting.
|
||||
"Face used for group or summary buffer mouse highlighting.
|
||||
The line beneath the mouse pointer will be highlighted with this
|
||||
face."
|
||||
:group 'gnus-visual
|
||||
:type 'face)
|
||||
|
||||
(defcustom gnus-article-save-directory gnus-directory
|
||||
"*Name of the directory articles will be saved in (default \"~/News\")."
|
||||
"Name of the directory articles will be saved in (default \"~/News\")."
|
||||
:group 'gnus-article-saving
|
||||
:type 'directory)
|
||||
|
||||
|
|
@ -2596,7 +2596,7 @@ a string, be sure to use a valid format, see RFC 2616."
|
|||
|
||||
(defcustom gnus-cache-directory
|
||||
(nnheader-concat gnus-directory "cache/")
|
||||
"*The directory where cached articles will be stored."
|
||||
"The directory where cached articles will be stored."
|
||||
:group 'gnus-cache
|
||||
:type 'directory)
|
||||
|
||||
|
|
@ -2930,7 +2930,7 @@ gnus-registry.el will populate this if it's loaded.")
|
|||
|
||||
|
||||
(defcustom gnus-summary-line-format "%U%R%z%I%(%[%4L: %-23,23f%]%) %s\n"
|
||||
"*The format specification of the lines in the summary buffer.
|
||||
"The format specification of the lines in the summary buffer.
|
||||
|
||||
It works along the same lines as a normal formatting string,
|
||||
with some simple extensions.
|
||||
|
|
|
|||
|
|
@ -228,7 +228,7 @@ Leave mails for this many days" :value 14)))))
|
|||
(boolean :tag "Plugged"))))))))
|
||||
|
||||
(defcustom mail-source-ignore-errors nil
|
||||
"*Ignore errors when querying mail sources.
|
||||
"Ignore errors when querying mail sources.
|
||||
If nil, the user will be prompted when an error occurs. If non-nil,
|
||||
the error will be ignored."
|
||||
:version "22.1"
|
||||
|
|
@ -236,13 +236,13 @@ the error will be ignored."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom mail-source-primary-source nil
|
||||
"*Primary source for incoming mail.
|
||||
"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."
|
||||
"If non-nil, flash periodically when mail is available."
|
||||
:group 'mail-source
|
||||
:type 'boolean)
|
||||
|
||||
|
|
|
|||
|
|
@ -115,12 +115,12 @@
|
|||
:group 'faces)
|
||||
|
||||
(defcustom message-directory "~/Mail/"
|
||||
"*Directory from which all other mail file variables are derived."
|
||||
"Directory from which all other mail file variables are derived."
|
||||
:group 'message-various
|
||||
:type 'directory)
|
||||
|
||||
(defcustom message-max-buffers 10
|
||||
"*How many buffers to keep before starting to kill them off."
|
||||
"How many buffers to keep before starting to kill them off."
|
||||
:group 'message-buffers
|
||||
:type 'integer)
|
||||
|
||||
|
|
@ -130,7 +130,7 @@
|
|||
:type '(choice function (const nil)))
|
||||
|
||||
(defcustom message-fcc-handler-function 'message-output
|
||||
"*A function called to save outgoing articles.
|
||||
"A function called to save outgoing articles.
|
||||
This function will be called with the name of the file to store the
|
||||
article in. The default function is `message-output' which saves in Unix
|
||||
mailbox format."
|
||||
|
|
@ -146,7 +146,7 @@ mailbox format."
|
|||
|
||||
(defcustom message-courtesy-message
|
||||
"The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
|
||||
"*This is inserted at the start of a mailed copy of a posted message.
|
||||
"This is inserted at the start of a mailed copy of a posted message.
|
||||
If the string contains the format spec \"%s\", the Newsgroups
|
||||
the article has been posted to will be inserted there.
|
||||
If this variable is nil, no such courtesy message will be added."
|
||||
|
|
@ -155,7 +155,7 @@ If this variable is nil, no such courtesy message will be added."
|
|||
|
||||
(defcustom message-ignored-bounced-headers
|
||||
"^\\(Received\\|Return-Path\\|Delivered-To\\):"
|
||||
"*Regexp that matches headers to be removed in resent bounced mail."
|
||||
"Regexp that matches headers to be removed in resent bounced mail."
|
||||
:group 'message-interface
|
||||
:type 'regexp)
|
||||
|
||||
|
|
@ -187,7 +187,7 @@ Otherwise, most addresses look like `angles', but they look like
|
|||
(defcustom message-syntax-checks
|
||||
(if message-insert-canlock '((sender . disabled)) nil)
|
||||
;; Guess this one shouldn't be easy to customize...
|
||||
"*Controls what syntax checks should not be performed on outgoing posts.
|
||||
"Controls what syntax checks should not be performed on outgoing posts.
|
||||
To disable checking of long signatures, for instance, add
|
||||
`(signature . disabled)' to this list.
|
||||
|
||||
|
|
@ -205,7 +205,7 @@ and `valid-newsgroups'."
|
|||
|
||||
(defcustom message-required-headers '((optional . References)
|
||||
From)
|
||||
"*Headers to be generated or prompted for when sending a message.
|
||||
"Headers to be generated or prompted for when sending a message.
|
||||
Also see `message-required-news-headers' and
|
||||
`message-required-mail-headers'."
|
||||
:version "22.1"
|
||||
|
|
@ -215,7 +215,7 @@ Also see `message-required-news-headers' and
|
|||
:type '(repeat sexp))
|
||||
|
||||
(defcustom message-draft-headers '(References From Date)
|
||||
"*Headers to be generated when saving a draft message."
|
||||
"Headers to be generated when saving a draft message."
|
||||
:version "22.1"
|
||||
:group 'message-news
|
||||
:group 'message-headers
|
||||
|
|
@ -226,7 +226,7 @@ Also see `message-required-news-headers' and
|
|||
'(From Newsgroups Subject Date Message-ID
|
||||
(optional . Organization)
|
||||
(optional . User-Agent))
|
||||
"*Headers to be generated or prompted for when posting an article.
|
||||
"Headers to be generated or prompted for when posting an article.
|
||||
RFC977 and RFC1036 require From, Date, Newsgroups, Subject,
|
||||
Message-ID. Organization, Lines, In-Reply-To, Expires, and
|
||||
User-Agent are optional. If you don't want message to insert some
|
||||
|
|
@ -239,7 +239,7 @@ header, remove it from this list."
|
|||
(defcustom message-required-mail-headers
|
||||
'(From Subject Date (optional . In-Reply-To) Message-ID
|
||||
(optional . User-Agent))
|
||||
"*Headers to be generated or prompted for when mailing a message.
|
||||
"Headers to be generated or prompted for when mailing a message.
|
||||
It is recommended that From, Date, To, Subject and Message-ID be
|
||||
included. Organization and User-Agent are optional."
|
||||
:group 'message-mail
|
||||
|
|
@ -264,7 +264,7 @@ This is a list of regexps and regexp matches."
|
|||
|
||||
(defcustom message-ignored-news-headers
|
||||
"^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:\\|^X-Message-SMTP-Method:\\|^X-Gnus-Delayed:"
|
||||
"*Regexp of headers to be removed unconditionally before posting."
|
||||
"Regexp of headers to be removed unconditionally before posting."
|
||||
:group 'message-news
|
||||
:group 'message-headers
|
||||
:link '(custom-manual "(message)Message Headers")
|
||||
|
|
@ -277,14 +277,14 @@ This is a list of regexps and regexp matches."
|
|||
|
||||
(defcustom message-ignored-mail-headers
|
||||
"^\\([GF]cc\\|Resent-Fcc\\|Xref\\|X-Draft-From\\|X-Gnus-Agent-Meta-Information\\):"
|
||||
"*Regexp of headers to be removed unconditionally before mailing."
|
||||
"Regexp of headers to be removed unconditionally before mailing."
|
||||
:group 'message-mail
|
||||
:group 'message-headers
|
||||
:link '(custom-manual "(message)Mail Headers")
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|^X-Trace:\\|^X-ID:\\|^X-Complaints-To:\\|Return-Path:\\|^Supersedes:\\|^NNTP-Posting-Date:\\|^X-Trace:\\|^X-Complaints-To:\\|^Cancel-Lock:\\|^Cancel-Key:\\|^X-Hashcash:\\|^X-Payment:\\|^Approved:\\|^Injection-Date:\\|^Injection-Info:"
|
||||
"*Header lines matching this regexp will be deleted before posting.
|
||||
"Header lines matching this regexp will be deleted before posting.
|
||||
It's best to delete old Path and Date headers before posting to avoid
|
||||
any confusion."
|
||||
:group 'message-interface
|
||||
|
|
@ -298,7 +298,7 @@ any confusion."
|
|||
|
||||
(defcustom message-subject-re-regexp
|
||||
"^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)* ?:[ \t]*\\)*[ \t]*"
|
||||
"*Regexp matching \"Re: \" in the subject line."
|
||||
"Regexp matching \"Re: \" in the subject line."
|
||||
:group 'message-various
|
||||
:link '(custom-manual "(message)Message Headers")
|
||||
:type 'regexp)
|
||||
|
|
@ -306,7 +306,7 @@ any confusion."
|
|||
;;; Start of variables adopted from `message-utils.el'.
|
||||
|
||||
(defcustom message-subject-trailing-was-query t
|
||||
"*What to do with trailing \"(was: <old subject>)\" in subject lines.
|
||||
"What to do with trailing \"(was: <old subject>)\" in subject lines.
|
||||
If nil, leave the subject unchanged. If it is the symbol `ask', query
|
||||
the user what do do. In this case, the subject is matched against
|
||||
`message-subject-trailing-was-ask-regexp'. If
|
||||
|
|
@ -322,7 +322,7 @@ used."
|
|||
|
||||
(defcustom message-subject-trailing-was-ask-regexp
|
||||
"[ \t]*\\([[(]+[Ww][Aa][Ss]:?[ \t]*.*[])]+\\)"
|
||||
"*Regexp matching \"(was: <old subject>)\" in the subject line.
|
||||
"Regexp matching \"(was: <old subject>)\" in the subject line.
|
||||
|
||||
The function `message-strip-subject-trailing-was' uses this regexp if
|
||||
`message-subject-trailing-was-query' is set to the symbol `ask'. If
|
||||
|
|
@ -337,7 +337,7 @@ It is okay to create some false positives here, as the user is asked."
|
|||
|
||||
(defcustom message-subject-trailing-was-regexp
|
||||
"[ \t]*\\((*[Ww][Aa][Ss]:[ \t]*.*)\\)"
|
||||
"*Regexp matching \"(was: <old subject>)\" in the subject line.
|
||||
"Regexp matching \"(was: <old subject>)\" in the subject line.
|
||||
|
||||
If `message-subject-trailing-was-query' is set to t, the subject is
|
||||
matched against `message-subject-trailing-was-regexp' in
|
||||
|
|
@ -438,7 +438,7 @@ whitespace)."
|
|||
:group 'message-various)
|
||||
|
||||
(defcustom message-elide-ellipsis "\n[...]\n\n"
|
||||
"*The string which is inserted for elided text.
|
||||
"The string which is inserted for elided text.
|
||||
This is a format-spec string, and you can use %l to say how many
|
||||
lines were removed, and %c to say how many characters were
|
||||
removed."
|
||||
|
|
@ -464,7 +464,7 @@ A value of nil means let mailer mail back a message to report errors."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom message-generate-new-buffers 'unsent
|
||||
"*Say whether to create a new message buffer to compose a message.
|
||||
"Say whether to create a new message buffer to compose a message.
|
||||
Valid values include:
|
||||
|
||||
nil
|
||||
|
|
@ -497,13 +497,13 @@ function
|
|||
(function :format "\n %{%t%}: %v")))
|
||||
|
||||
(defcustom message-kill-buffer-on-exit nil
|
||||
"*Non-nil means that the message buffer will be killed after sending a message."
|
||||
"Non-nil means that the message buffer will be killed after sending a message."
|
||||
:group 'message-buffers
|
||||
:link '(custom-manual "(message)Message Buffers")
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom message-kill-buffer-query t
|
||||
"*Non-nil means that killing a modified message buffer has to be confirmed.
|
||||
"Non-nil means that killing a modified message buffer has to be confirmed.
|
||||
This is used by `message-kill-buffer'."
|
||||
:version "23.1" ;; No Gnus
|
||||
:group 'message-buffers
|
||||
|
|
@ -525,14 +525,14 @@ If t, use `message-user-organization-file'."
|
|||
(when (file-readable-p f)
|
||||
(setq orgfile f)))
|
||||
orgfile)
|
||||
"*Local news organization file."
|
||||
"Local news organization file."
|
||||
:type '(choice (const nil) file)
|
||||
:link '(custom-manual "(message)News Headers")
|
||||
:group 'message-headers)
|
||||
|
||||
(defcustom message-make-forward-subject-function
|
||||
#'message-forward-subject-name-subject
|
||||
"*List of functions called to generate subject headers for forwarded messages.
|
||||
"List of functions called to generate subject headers for forwarded messages.
|
||||
The subject generated by the previous function is passed into each
|
||||
successive function.
|
||||
|
||||
|
|
@ -552,7 +552,7 @@ The provided functions are:
|
|||
(repeat :tag "List of functions" function)))
|
||||
|
||||
(defcustom message-forward-as-mime t
|
||||
"*Non-nil means forward messages as an inline/rfc822 MIME section.
|
||||
"Non-nil means forward messages as an inline/rfc822 MIME section.
|
||||
Otherwise, directly inline the old message in the forwarded message."
|
||||
:version "21.1"
|
||||
:group 'message-forwarding
|
||||
|
|
@ -560,7 +560,7 @@ Otherwise, directly inline the old message in the forwarded message."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom message-forward-show-mml 'best
|
||||
"*Non-nil means show forwarded messages as MML (decoded from MIME).
|
||||
"Non-nil means show forwarded messages as MML (decoded from MIME).
|
||||
Otherwise, forwarded messages are unchanged.
|
||||
Can also be the symbol `best' to indicate that MML should be
|
||||
used, except when it is a bad idea to use MML. One example where
|
||||
|
|
@ -574,12 +574,12 @@ digital signature."
|
|||
(const :tag "use MML when appropriate" best)))
|
||||
|
||||
(defcustom message-forward-before-signature t
|
||||
"*Non-nil means put forwarded message before signature, else after."
|
||||
"Non-nil means put forwarded message before signature, else after."
|
||||
:group 'message-forwarding
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom message-wash-forwarded-subjects nil
|
||||
"*Non-nil means try to remove as much cruft as possible from the subject.
|
||||
"Non-nil means try to remove as much cruft as possible from the subject.
|
||||
Done before generating the new subject of a forward."
|
||||
:group 'message-forwarding
|
||||
:link '(custom-manual "(message)Forwarding")
|
||||
|
|
@ -593,7 +593,7 @@ Done before generating the new subject of a forward."
|
|||
;; bounced with a "mailing loop" error).
|
||||
"^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From \\|^Delivered-To:\
|
||||
\\|^X-Content-Length:\\|^X-UIDL:"
|
||||
"*All headers that match this regexp will be deleted when resending a message."
|
||||
"All headers that match this regexp will be deleted when resending a message."
|
||||
:version "24.4"
|
||||
:group 'message-interface
|
||||
:link '(custom-manual "(message)Resending")
|
||||
|
|
@ -605,7 +605,7 @@ Done before generating the new subject of a forward."
|
|||
regexp))
|
||||
|
||||
(defcustom message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus"
|
||||
"*All headers that match this regexp will be deleted when forwarding a message.
|
||||
"All headers that match this regexp will be deleted when forwarding a message.
|
||||
This may also be a list of regexps."
|
||||
:version "21.1"
|
||||
:group 'message-forwarding
|
||||
|
|
@ -630,13 +630,13 @@ variable should be a regexp or a list of regexps."
|
|||
regexp))
|
||||
|
||||
(defcustom message-ignored-cited-headers "."
|
||||
"*Delete these headers from the messages you yank."
|
||||
"Delete these headers from the messages you yank."
|
||||
:group 'message-insertion
|
||||
:link '(custom-manual "(message)Insertion Variables")
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom message-cite-prefix-regexp mail-citation-prefix-regexp
|
||||
"*Regexp matching the longest possible citation prefix on a line."
|
||||
"Regexp matching the longest possible citation prefix on a line."
|
||||
:version "24.1"
|
||||
:group 'message-insertion
|
||||
:link '(custom-manual "(message)Insertion Variables")
|
||||
|
|
@ -747,7 +747,7 @@ These are used when composing a wide reply."
|
|||
:type '(repeat string))
|
||||
|
||||
(defcustom message-use-followup-to 'ask
|
||||
"*Specifies what to do with Followup-To header.
|
||||
"Specifies what to do with Followup-To header.
|
||||
If nil, always ignore the header. If it is t, use its value, but
|
||||
query before using the \"poster\" value. If it is the symbol `ask',
|
||||
always query the user whether to use the value. If it is the symbol
|
||||
|
|
@ -760,7 +760,7 @@ always query the user whether to use the value. If it is the symbol
|
|||
(const ask)))
|
||||
|
||||
(defcustom message-use-mail-followup-to 'use
|
||||
"*Specifies what to do with Mail-Followup-To header.
|
||||
"Specifies what to do with Mail-Followup-To header.
|
||||
If nil, always ignore the header. If it is the symbol `ask', always
|
||||
query the user whether to use the value. If it is the symbol `use',
|
||||
always use the value."
|
||||
|
|
@ -772,7 +772,7 @@ always use the value."
|
|||
(const ask)))
|
||||
|
||||
(defcustom message-subscribed-address-functions nil
|
||||
"*Specifies functions for determining list subscription.
|
||||
"Specifies functions for determining list subscription.
|
||||
If nil, do not attempt to determine list subscription with functions.
|
||||
If non-nil, this variable contains a list of functions which return
|
||||
regular expressions to match lists. These functions can be used in
|
||||
|
|
@ -784,7 +784,7 @@ conjunction with `message-subscribed-regexps' and
|
|||
:type '(repeat sexp))
|
||||
|
||||
(defcustom message-subscribed-address-file nil
|
||||
"*A file containing addresses the user is subscribed to.
|
||||
"A file containing addresses the user is subscribed to.
|
||||
If nil, do not look at any files to determine list subscriptions. If
|
||||
non-nil, each line of this file should be a mailing list address."
|
||||
:version "22.1"
|
||||
|
|
@ -793,7 +793,7 @@ non-nil, each line of this file should be a mailing list address."
|
|||
:type '(radio file (const nil)))
|
||||
|
||||
(defcustom message-subscribed-addresses nil
|
||||
"*Specifies a list of addresses the user is subscribed to.
|
||||
"Specifies a list of addresses the user is subscribed to.
|
||||
If nil, do not use any predefined list subscriptions. This list of
|
||||
addresses can be used in conjunction with
|
||||
`message-subscribed-address-functions' and `message-subscribed-regexps'."
|
||||
|
|
@ -803,7 +803,7 @@ addresses can be used in conjunction with
|
|||
:type '(repeat string))
|
||||
|
||||
(defcustom message-subscribed-regexps nil
|
||||
"*Specifies a list of addresses the user is subscribed to.
|
||||
"Specifies a list of addresses the user is subscribed to.
|
||||
If nil, do not use any predefined list subscriptions. This list of
|
||||
regular expressions can be used in conjunction with
|
||||
`message-subscribed-address-functions' and `message-subscribed-addresses'."
|
||||
|
|
@ -825,7 +825,7 @@ symbol `never', the posting is not allowed. If it is the symbol
|
|||
(const ask)))
|
||||
|
||||
(defcustom message-sendmail-f-is-evil nil
|
||||
"*Non-nil means don't add \"-f username\" to the sendmail command line.
|
||||
"Non-nil means don't add \"-f username\" to the sendmail command line.
|
||||
Doing so would be even more evil than leaving it out."
|
||||
:group 'message-sending
|
||||
:link '(custom-manual "(message)Mail Variables")
|
||||
|
|
@ -834,7 +834,7 @@ Doing so would be even more evil than leaving it out."
|
|||
(defcustom message-sendmail-envelope-from
|
||||
;; `mail-envelope-from' is unavailable unless sendmail.el is loaded.
|
||||
(if (boundp 'mail-envelope-from) mail-envelope-from)
|
||||
"*Envelope-from when sending mail with sendmail.
|
||||
"Envelope-from when sending mail with sendmail.
|
||||
If this is nil, use `user-mail-address'. If it is the symbol
|
||||
`header', use the From: header of the message."
|
||||
:version "23.2"
|
||||
|
|
@ -882,7 +882,7 @@ might set this variable to (\"-f\" \"you@some.where\")."
|
|||
((boundp 'gnus-select-method)
|
||||
gnus-select-method)
|
||||
(t '(nnspool "")))
|
||||
"*Method used to post news.
|
||||
"Method used to post news.
|
||||
Note that when posting from inside Gnus, for instance, this
|
||||
variable isn't used."
|
||||
:group 'message-news
|
||||
|
|
@ -963,7 +963,7 @@ the signature is inserted."
|
|||
:group 'message-various)
|
||||
|
||||
(defcustom message-citation-line-function 'message-insert-citation-line
|
||||
"*Function called to insert the \"Whomever writes:\" line.
|
||||
"Function called to insert the \"Whomever writes:\" line.
|
||||
|
||||
Predefined functions include `message-insert-citation-line' and
|
||||
`message-insert-formatted-citation-line' (see the variable
|
||||
|
|
@ -1012,7 +1012,7 @@ Please also read the note in the documentation of
|
|||
:group 'message-insertion)
|
||||
|
||||
(defcustom message-yank-prefix mail-yank-prefix
|
||||
"*Prefix inserted on the lines of yanked messages.
|
||||
"Prefix inserted on the lines of yanked messages.
|
||||
Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
|
||||
See also `message-yank-cited-prefix' and `message-yank-empty-prefix'."
|
||||
:version "23.2"
|
||||
|
|
@ -1021,7 +1021,7 @@ See also `message-yank-cited-prefix' and `message-yank-empty-prefix'."
|
|||
:group 'message-insertion)
|
||||
|
||||
(defcustom message-yank-cited-prefix ">"
|
||||
"*Prefix inserted on cited lines of yanked messages.
|
||||
"Prefix inserted on cited lines of yanked messages.
|
||||
Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
|
||||
See also `message-yank-prefix' and `message-yank-empty-prefix'."
|
||||
:version "22.1"
|
||||
|
|
@ -1030,7 +1030,7 @@ See also `message-yank-prefix' and `message-yank-empty-prefix'."
|
|||
:group 'message-insertion)
|
||||
|
||||
(defcustom message-yank-empty-prefix ">"
|
||||
"*Prefix inserted on empty lines of yanked messages.
|
||||
"Prefix inserted on empty lines of yanked messages.
|
||||
See also `message-yank-prefix' and `message-yank-cited-prefix'."
|
||||
:version "22.1"
|
||||
:type 'string
|
||||
|
|
@ -1038,7 +1038,7 @@ See also `message-yank-prefix' and `message-yank-cited-prefix'."
|
|||
:group 'message-insertion)
|
||||
|
||||
(defcustom message-indentation-spaces mail-indentation-spaces
|
||||
"*Number of spaces to insert at the beginning of each cited line.
|
||||
"Number of spaces to insert at the beginning of each cited line.
|
||||
Used by `message-yank-original' via `message-yank-cite'."
|
||||
:version "23.2"
|
||||
:group 'message-insertion
|
||||
|
|
@ -1046,7 +1046,7 @@ Used by `message-yank-original' via `message-yank-cite'."
|
|||
:type 'integer)
|
||||
|
||||
(defcustom message-cite-function 'message-cite-original-without-signature
|
||||
"*Function for citing an original message.
|
||||
"Function for citing an original message.
|
||||
Predefined functions include `message-cite-original' and
|
||||
`message-cite-original-without-signature'.
|
||||
Note that these functions use `mail-citation-hook' if that is non-nil."
|
||||
|
|
@ -1059,7 +1059,7 @@ Note that these functions use `mail-citation-hook' if that is non-nil."
|
|||
:group 'message-insertion)
|
||||
|
||||
(defcustom message-indent-citation-function 'message-indent-citation
|
||||
"*Function for modifying a citation just inserted in the mail buffer.
|
||||
"Function for modifying a citation just inserted in the mail buffer.
|
||||
This can also be a list of functions. Each function can find the
|
||||
citation between (point) and (mark t). And each function should leave
|
||||
point and mark around the citation text as modified."
|
||||
|
|
@ -1068,7 +1068,7 @@ point and mark around the citation text as modified."
|
|||
:group 'message-insertion)
|
||||
|
||||
(defcustom message-signature mail-signature
|
||||
"*String to be inserted at the end of the message buffer.
|
||||
"String to be inserted at the end of the message buffer.
|
||||
If t, the `message-signature-file' file will be inserted instead.
|
||||
If a function, the result from the function will be used instead.
|
||||
If a form, the result from the form will be used instead."
|
||||
|
|
@ -1081,7 +1081,7 @@ If a form, the result from the form will be used instead."
|
|||
:group 'message-insertion)
|
||||
|
||||
(defcustom message-signature-file mail-signature-file
|
||||
"*Name of file containing the text inserted at end of message buffer.
|
||||
"Name of file containing the text inserted at end of message buffer.
|
||||
Ignored if the named file doesn't exist.
|
||||
If nil, don't insert a signature.
|
||||
If a path is specified, the value of `message-signature-directory' is ignored,
|
||||
|
|
@ -1092,7 +1092,7 @@ even if set."
|
|||
:group 'message-insertion)
|
||||
|
||||
(defcustom message-signature-directory nil
|
||||
"*Name of directory containing signature files.
|
||||
"Name of directory containing signature files.
|
||||
Comes in handy if you have many such files, handled via posting styles for
|
||||
instance.
|
||||
If nil, `message-signature-file' is expected to specify the directory if
|
||||
|
|
@ -1102,14 +1102,14 @@ needed."
|
|||
:group 'message-insertion)
|
||||
|
||||
(defcustom message-signature-insert-empty-line t
|
||||
"*If non-nil, insert an empty line before the signature separator."
|
||||
"If non-nil, insert an empty line before the signature separator."
|
||||
:version "22.1"
|
||||
:type 'boolean
|
||||
:link '(custom-manual "(message)Insertion Variables")
|
||||
:group 'message-insertion)
|
||||
|
||||
(defcustom message-cite-reply-position 'traditional
|
||||
"*Where the reply should be positioned.
|
||||
"Where the reply should be positioned.
|
||||
If `traditional', reply inline.
|
||||
If `above', reply above quoted text.
|
||||
If `below', reply below quoted text.
|
||||
|
|
@ -1126,7 +1126,7 @@ e.g. using `gnus-posting-styles':
|
|||
:group 'message-insertion)
|
||||
|
||||
(defcustom message-cite-style nil
|
||||
"*The overall style to be used when yanking cited text.
|
||||
"The overall style to be used when yanking cited text.
|
||||
Value is either nil (no variable overrides) or a let-style list
|
||||
of pairs (VARIABLE VALUE) that will be bound in
|
||||
`message-yank-original' to do the quoting.
|
||||
|
|
@ -1175,7 +1175,7 @@ use in `gnus-posting-styles', such as:
|
|||
"Message citation style used by Gmail. Use with message-cite-style.")
|
||||
|
||||
(defcustom message-distribution-function nil
|
||||
"*Function called to return a Distribution header."
|
||||
"Function called to return a Distribution header."
|
||||
:group 'message-news
|
||||
:group 'message-headers
|
||||
:link '(custom-manual "(message)News Headers")
|
||||
|
|
@ -1251,7 +1251,7 @@ called and its result is inserted."
|
|||
(stringp mail-archive-file-name))
|
||||
(format "FCC: %s\n" mail-archive-file-name))
|
||||
mail-default-headers)
|
||||
"*A string of header lines to be inserted in outgoing mails."
|
||||
"A string of header lines to be inserted in outgoing mails."
|
||||
:version "23.2"
|
||||
:group 'message-headers
|
||||
:group 'message-mail
|
||||
|
|
@ -1259,7 +1259,7 @@ called and its result is inserted."
|
|||
:type 'message-header-lines)
|
||||
|
||||
(defcustom message-default-news-headers ""
|
||||
"*A string of header lines to be inserted in outgoing news articles."
|
||||
"A string of header lines to be inserted in outgoing news articles."
|
||||
:group 'message-headers
|
||||
:group 'message-news
|
||||
:link '(custom-manual "(message)News Headers")
|
||||
|
|
@ -1281,7 +1281,7 @@ called and its result is inserted."
|
|||
;; 33 and 126, except colon)", i. e., any chars except ctl chars,
|
||||
;; space, or colon.
|
||||
'(looking-at "[ \t]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:"))
|
||||
"*Set this non-nil if the system's mailer runs the header and body together.
|
||||
"Set this non-nil if the system's mailer runs the header and body together.
|
||||
\(This problem exists on Sunos 4 when sendmail is run in remote mode.)
|
||||
The value should be an expression to test whether the problem will
|
||||
actually occur."
|
||||
|
|
@ -1313,7 +1313,7 @@ PREDICATE returns non-nil. FUNCTION is called with one parameter --
|
|||
the prefix.")
|
||||
|
||||
(defcustom message-mail-alias-type 'abbrev
|
||||
"*What alias expansion type to use in Message buffers.
|
||||
"What alias expansion type to use in Message buffers.
|
||||
The default is `abbrev', which uses mailabbrev. `ecomplete' uses
|
||||
an electric completion mode. nil switches mail aliases off.
|
||||
This can also be a list of values."
|
||||
|
|
@ -1337,7 +1337,7 @@ text and it replaces `self-insert-command' with the other command, e.g.
|
|||
(if (file-writable-p message-directory)
|
||||
(file-name-as-directory (expand-file-name "drafts" message-directory))
|
||||
"~/")
|
||||
"*Directory where Message auto-saves buffers if Gnus isn't running.
|
||||
"Directory where Message auto-saves buffers if Gnus isn't running.
|
||||
If nil, Message won't auto-save."
|
||||
:group 'message-buffers
|
||||
:link '(custom-manual "(message)Various Message Variables")
|
||||
|
|
@ -1687,7 +1687,7 @@ should be sent in several parts. If it is nil, the size is unlimited."
|
|||
(integer 1000000)))
|
||||
|
||||
(defcustom message-alternative-emails nil
|
||||
"*Regexp or predicate function matching alternative email addresses.
|
||||
"Regexp or predicate function matching alternative email addresses.
|
||||
The first address in the To, Cc or From headers of the original
|
||||
article matching this variable is used as the From field of
|
||||
outgoing messages.
|
||||
|
|
@ -1750,7 +1750,7 @@ no, only reply back to the author."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom message-user-fqdn nil
|
||||
"*Domain part of Message-Ids."
|
||||
"Domain part of Message-Ids."
|
||||
:version "22.1"
|
||||
:group 'message-headers
|
||||
:link '(custom-manual "(message)News Headers")
|
||||
|
|
@ -1767,7 +1767,7 @@ no, only reply back to the author."
|
|||
(const :tag "Always" t)))
|
||||
|
||||
(defcustom message-generate-hashcash (if (executable-find "hashcash") 'opportunistic)
|
||||
"*Whether to generate X-Hashcash: headers.
|
||||
"Whether to generate X-Hashcash: headers.
|
||||
If t, always generate hashcash headers. If `opportunistic',
|
||||
only generate hashcash headers if it can be done without the user
|
||||
waiting (i.e., only asynchronously).
|
||||
|
|
@ -7906,7 +7906,7 @@ Each element is a symbol and can be `bbdb' or `eudc'."
|
|||
:type '(set (const bbdb) (const eudc)))
|
||||
|
||||
(defcustom message-tab-body-function nil
|
||||
"*Function to execute when `message-tab' (TAB) is executed in the body.
|
||||
"Function to execute when `message-tab' (TAB) is executed in the body.
|
||||
If nil, the function bound in `text-mode-map' or `global-map' is executed."
|
||||
:version "22.1"
|
||||
:group 'message
|
||||
|
|
|
|||
|
|
@ -45,7 +45,7 @@
|
|||
(condition-case nil
|
||||
(require 'url)
|
||||
(error nil)))
|
||||
"*If non-nil, use external grab program `mm-url-program'."
|
||||
"If non-nil, use external grab program `mm-url-program'."
|
||||
:version "22.1"
|
||||
:type 'boolean
|
||||
:group 'mm-url)
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@
|
|||
(autoload 'yenc-extract-filename "yenc")
|
||||
|
||||
(defcustom mm-uu-decode-function 'uudecode-decode-region
|
||||
"*Function to uudecode.
|
||||
"Function to uudecode.
|
||||
Internal function is done in Lisp by default, therefore decoding may
|
||||
appear to be horribly slow. You can make Gnus use an external
|
||||
decoder, such as uudecode."
|
||||
|
|
@ -54,7 +54,7 @@ decoder, such as uudecode."
|
|||
:group 'gnus-article-mime)
|
||||
|
||||
(defcustom mm-uu-binhex-decode-function 'binhex-decode-region
|
||||
"*Function to binhex decode.
|
||||
"Function to binhex decode.
|
||||
Internal function is done in elisp by default, therefore decoding may
|
||||
appear to be horribly slow . You can make Gnus use the external Unix
|
||||
decoder, such as hexbin."
|
||||
|
|
@ -85,7 +85,7 @@ This can be either \"inline\" or \"attachment\".")
|
|||
:group 'gnus-article-mime)
|
||||
|
||||
(defcustom mm-uu-tex-groups-regexp "\\.tex\\>"
|
||||
"*Regexp matching TeX groups."
|
||||
"Regexp matching TeX groups."
|
||||
:version "23.1"
|
||||
:type 'regexp
|
||||
:group 'gnus-article-mime)
|
||||
|
|
|
|||
|
|
@ -58,7 +58,7 @@
|
|||
|
||||
(defcustom mml-content-type-parameters
|
||||
'(name access-type expiration size permission format)
|
||||
"*A list of acceptable parameters in MML tag.
|
||||
"A list of acceptable parameters in MML tag.
|
||||
These parameters are generated in Content-Type header if exists."
|
||||
:version "22.1"
|
||||
:type '(repeat (symbol :tag "Parameter"))
|
||||
|
|
@ -66,7 +66,7 @@ These parameters are generated in Content-Type header if exists."
|
|||
|
||||
(defcustom mml-content-disposition-parameters
|
||||
'(filename creation-date modification-date read-date)
|
||||
"*A list of acceptable parameters in MML tag.
|
||||
"A list of acceptable parameters in MML tag.
|
||||
These parameters are generated in Content-Disposition header if exists."
|
||||
:version "22.1"
|
||||
:type '(repeat (symbol :tag "Parameter"))
|
||||
|
|
|
|||
|
|
@ -97,7 +97,7 @@
|
|||
|
||||
(defcustom nndiary-mail-sources
|
||||
`((file :path ,(expand-file-name "~/.nndiary")))
|
||||
"*NNDiary specific mail sources.
|
||||
"NNDiary specific mail sources.
|
||||
This variable is used by nndiary in place of the standard `mail-sources'
|
||||
variable when `nndiary-get-new-mail' is set to non-nil. These sources
|
||||
must contain diary messages ONLY."
|
||||
|
|
@ -106,7 +106,7 @@ must contain diary messages ONLY."
|
|||
:type 'sexp)
|
||||
|
||||
(defcustom nndiary-split-methods '(("diary" ""))
|
||||
"*NNDiary specific split methods.
|
||||
"NNDiary specific split methods.
|
||||
This variable is used by nndiary in place of the standard
|
||||
`nnmail-split-methods' variable when `nndiary-get-new-mail' is set to
|
||||
non-nil."
|
||||
|
|
@ -118,7 +118,7 @@ non-nil."
|
|||
|
||||
|
||||
(defcustom nndiary-reminders '((0 . day))
|
||||
"*Different times when you want to be reminded of your appointments.
|
||||
"Different times when you want to be reminded of your appointments.
|
||||
Diary articles will appear again, as if they'd been just received.
|
||||
|
||||
Entries look like (3 . day) which means something like \"Please
|
||||
|
|
@ -164,7 +164,7 @@ In order to make this clear, here are some examples:
|
|||
(const :format "%v" year)))))
|
||||
|
||||
(defcustom nndiary-week-starts-on-monday nil
|
||||
"*Whether a week starts on monday (otherwise, sunday)."
|
||||
"Whether a week starts on monday (otherwise, sunday)."
|
||||
:type 'boolean
|
||||
:group 'nndiary)
|
||||
|
||||
|
|
@ -172,7 +172,7 @@ In order to make this clear, here are some examples:
|
|||
(define-obsolete-variable-alias 'nndiary-request-create-group-hooks
|
||||
'nndiary-request-create-group-functions "24.3")
|
||||
(defcustom nndiary-request-create-group-functions nil
|
||||
"*Hook run after `nndiary-request-create-group' is executed.
|
||||
"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)
|
||||
|
|
@ -180,7 +180,7 @@ The hook functions will be called with the full group name as argument."
|
|||
(define-obsolete-variable-alias 'nndiary-request-update-info-hooks
|
||||
'nndiary-request-update-info-functions "24.3")
|
||||
(defcustom nndiary-request-update-info-functions nil
|
||||
"*Hook run after `nndiary-request-update-info-group' is executed.
|
||||
"Hook run after `nndiary-request-update-info-group' is executed.
|
||||
The hook functions will be called with the full group name as argument."
|
||||
:group 'nndiary
|
||||
:type 'hook)
|
||||
|
|
@ -188,14 +188,14 @@ The hook functions will be called with the full group name as argument."
|
|||
(define-obsolete-variable-alias 'nndiary-request-accept-article-hooks
|
||||
'nndiary-request-accept-article-functions "24.3")
|
||||
(defcustom nndiary-request-accept-article-functions nil
|
||||
"*Hook run before accepting an article.
|
||||
"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."
|
||||
"If t, check directories twice to avoid NFS failures."
|
||||
:group 'nndiary
|
||||
:type 'boolean)
|
||||
|
||||
|
|
|
|||
|
|
@ -294,14 +294,14 @@ is `(valuefunc member)'."
|
|||
:group 'gnus)
|
||||
|
||||
(defcustom nnir-ignored-newsgroups ""
|
||||
"*A regexp to match newsgroups in the active file that should
|
||||
"A regexp to match newsgroups in the active file that should
|
||||
be skipped when searching."
|
||||
:version "24.1"
|
||||
:type '(regexp)
|
||||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-summary-line-format nil
|
||||
"*The format specification of the lines in an nnir summary buffer.
|
||||
"The format specification of the lines in an nnir summary buffer.
|
||||
|
||||
All the items from `gnus-summary-line-format' are available, along
|
||||
with three items unique to nnir summary buffers:
|
||||
|
|
@ -316,7 +316,7 @@ If nil this will use `gnus-summary-line-format'."
|
|||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-retrieve-headers-override-function nil
|
||||
"*If non-nil, a function that accepts an article list and group
|
||||
"If non-nil, a function that accepts an article list and group
|
||||
and populates the `nntp-server-buffer' with the retrieved
|
||||
headers. Must return either 'nov or 'headers indicating the
|
||||
retrieved header format.
|
||||
|
|
@ -328,7 +328,7 @@ result, `gnus-retrieve-headers' will be called instead."
|
|||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-imap-default-search-key "whole message"
|
||||
"*The default IMAP search key for an nnir search. Must be one of
|
||||
"The default IMAP search key for an nnir search. Must be one of
|
||||
the keys in `nnir-imap-search-arguments'. To use raw imap queries
|
||||
by default set this to \"imap\"."
|
||||
:version "24.1"
|
||||
|
|
@ -338,17 +338,17 @@ result, `gnus-retrieve-headers' will be called instead."
|
|||
|
||||
(defcustom nnir-swish++-configuration-file
|
||||
(expand-file-name "~/Mail/swish++.conf")
|
||||
"*Configuration file for swish++."
|
||||
"Configuration file for swish++."
|
||||
:type '(file)
|
||||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-swish++-program "search"
|
||||
"*Name of swish++ search executable."
|
||||
"Name of swish++ search executable."
|
||||
:type '(string)
|
||||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-swish++-additional-switches '()
|
||||
"*A list of strings, to be given as additional arguments to swish++.
|
||||
"A list of strings, to be given as additional arguments to swish++.
|
||||
|
||||
Note that this should be a list. I.e., do NOT use the following:
|
||||
(setq nnir-swish++-additional-switches \"-i -w\") ; wrong
|
||||
|
|
@ -358,7 +358,7 @@ Instead, use this:
|
|||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-swish++-remove-prefix (concat (getenv "HOME") "/Mail/")
|
||||
"*The prefix to remove from each file name returned by swish++
|
||||
"The prefix to remove from each file name returned by swish++
|
||||
in order to get a group name (albeit with / instead of .). This is a
|
||||
regular expression.
|
||||
|
||||
|
|
@ -376,7 +376,7 @@ that it is for swish++, not Namazu."
|
|||
'nnir-swish-e-index-files "Emacs 23.1")
|
||||
(defcustom nnir-swish-e-index-file
|
||||
(expand-file-name "~/Mail/index.swish-e")
|
||||
"*Index file for swish-e.
|
||||
"Index file for swish-e.
|
||||
This could be a server parameter.
|
||||
It is never consulted once `nnir-swish-e-index-files', which should be
|
||||
used instead, has been customized."
|
||||
|
|
@ -385,19 +385,19 @@ used instead, has been customized."
|
|||
|
||||
(defcustom nnir-swish-e-index-files
|
||||
(list nnir-swish-e-index-file)
|
||||
"*List of index files for swish-e.
|
||||
"List of index files for swish-e.
|
||||
This could be a server parameter."
|
||||
:type '(repeat (file))
|
||||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-swish-e-program "swish-e"
|
||||
"*Name of swish-e search executable.
|
||||
"Name of swish-e search executable.
|
||||
This cannot be a server parameter."
|
||||
:type '(string)
|
||||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-swish-e-additional-switches '()
|
||||
"*A list of strings, to be given as additional arguments to swish-e.
|
||||
"A list of strings, to be given as additional arguments to swish-e.
|
||||
|
||||
Note that this should be a list. I.e., do NOT use the following:
|
||||
(setq nnir-swish-e-additional-switches \"-i -w\") ; wrong
|
||||
|
|
@ -409,7 +409,7 @@ This could be a server parameter."
|
|||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-swish-e-remove-prefix (concat (getenv "HOME") "/Mail/")
|
||||
"*The prefix to remove from each file name returned by swish-e
|
||||
"The prefix to remove from each file name returned by swish-e
|
||||
in order to get a group name (albeit with / instead of .). This is a
|
||||
regular expression.
|
||||
|
||||
|
|
@ -423,12 +423,12 @@ This could be a server parameter."
|
|||
;; HyREX engine, see <URL:http://ls6-www.cs.uni-dortmund.de/>
|
||||
|
||||
(defcustom nnir-hyrex-program "nnir-search"
|
||||
"*Name of the nnir-search executable."
|
||||
"Name of the nnir-search executable."
|
||||
:type '(string)
|
||||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-hyrex-additional-switches '()
|
||||
"*A list of strings, to be given as additional arguments for nnir-search.
|
||||
"A list of strings, to be given as additional arguments for nnir-search.
|
||||
Note that this should be a list. I.e., do NOT use the following:
|
||||
(setq nnir-hyrex-additional-switches \"-ddl ddl.xml -c nnir\") ; wrong !
|
||||
Instead, use this:
|
||||
|
|
@ -437,12 +437,12 @@ Instead, use this:
|
|||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-hyrex-index-directory (getenv "HOME")
|
||||
"*Index directory for HyREX."
|
||||
"Index directory for HyREX."
|
||||
:type '(directory)
|
||||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-hyrex-remove-prefix (concat (getenv "HOME") "/Mail/")
|
||||
"*The prefix to remove from each file name returned by HyREX
|
||||
"The prefix to remove from each file name returned by HyREX
|
||||
in order to get a group name (albeit with / instead of .).
|
||||
|
||||
For example, suppose that HyREX returns file names such as
|
||||
|
|
@ -457,17 +457,17 @@ arrive at the correct group name, \"mail.misc\"."
|
|||
;; Namazu engine, see <URL:http://www.namazu.org/>
|
||||
|
||||
(defcustom nnir-namazu-program "namazu"
|
||||
"*Name of Namazu search executable."
|
||||
"Name of Namazu search executable."
|
||||
:type '(string)
|
||||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-namazu-index-directory (expand-file-name "~/Mail/namazu/")
|
||||
"*Index directory for Namazu."
|
||||
"Index directory for Namazu."
|
||||
:type '(directory)
|
||||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-namazu-additional-switches '()
|
||||
"*A list of strings, to be given as additional arguments to namazu.
|
||||
"A list of strings, to be given as additional arguments to namazu.
|
||||
The switches `-q', `-a', and `-s' are always used, very few other switches
|
||||
make any sense in this context.
|
||||
|
||||
|
|
@ -479,7 +479,7 @@ Instead, use this:
|
|||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-namazu-remove-prefix (concat (getenv "HOME") "/Mail/")
|
||||
"*The prefix to remove from each file name returned by Namazu
|
||||
"The prefix to remove from each file name returned by Namazu
|
||||
in order to get a group name (albeit with / instead of .).
|
||||
|
||||
For example, suppose that Namazu returns file names such as
|
||||
|
|
@ -492,13 +492,13 @@ arrive at the correct group name, \"mail.misc\"."
|
|||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-notmuch-program "notmuch"
|
||||
"*Name of notmuch search executable."
|
||||
"Name of notmuch search executable."
|
||||
:version "24.1"
|
||||
:type '(string)
|
||||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-notmuch-additional-switches '()
|
||||
"*A list of strings, to be given as additional arguments to notmuch.
|
||||
"A list of strings, to be given as additional arguments to notmuch.
|
||||
|
||||
Note that this should be a list. I.e., do NOT use the following:
|
||||
(setq nnir-notmuch-additional-switches \"-i -w\") ; wrong
|
||||
|
|
@ -509,7 +509,7 @@ Instead, use this:
|
|||
:group 'nnir)
|
||||
|
||||
(defcustom nnir-notmuch-remove-prefix (concat (getenv "HOME") "/Mail/")
|
||||
"*The prefix to remove from each file name returned by notmuch
|
||||
"The prefix to remove from each file name returned by notmuch
|
||||
in order to get a group name (albeit with / instead of .). This is a
|
||||
regular expression.
|
||||
|
||||
|
|
@ -563,7 +563,7 @@ needs the variables `nnir-namazu-program',
|
|||
Add an entry here when adding a new search engine.")
|
||||
|
||||
(defcustom nnir-method-default-engines '((nnimap . imap) (nntp . gmane))
|
||||
"*Alist of default search engines keyed by server method."
|
||||
"Alist of default search engines keyed by server method."
|
||||
:version "24.1"
|
||||
:group 'nnir
|
||||
:type `(repeat (cons (choice (const nnimap) (const nntp) (const nnspool)
|
||||
|
|
|
|||
|
|
@ -76,7 +76,7 @@
|
|||
:group 'nnmail)
|
||||
|
||||
(defcustom nnmail-split-methods '(("mail.misc" ""))
|
||||
"*Incoming mail will be split according to this variable.
|
||||
"Incoming mail will be split according to this variable.
|
||||
|
||||
If you'd like, for instance, one mail group for mail from the
|
||||
\"4ad-l\" mailing list, one group for junk mail and one for everything
|
||||
|
|
@ -158,7 +158,7 @@ If nil, groups like \"mail.misc\" will end up in directories like
|
|||
:type 'integer)
|
||||
|
||||
(defcustom nnmail-expiry-wait 7
|
||||
"*Expirable articles that are older than this will be expired.
|
||||
"Expirable articles that are older than this will be expired.
|
||||
This variable can either be a number (which will be interpreted as a
|
||||
number of days) -- this doesn't have to be an integer. This variable
|
||||
can also be `immediate' and `never'."
|
||||
|
|
@ -187,7 +187,7 @@ E.g.:
|
|||
(function :format "%v" nnmail-)))
|
||||
|
||||
(defcustom nnmail-expiry-target 'delete
|
||||
"*Variable that says where expired messages should end up.
|
||||
"Variable that says where expired messages should end up.
|
||||
The default value is `delete' (which says to delete the messages),
|
||||
but it can also be a string or a function. If it is a string, expired
|
||||
messages end up in that group. If it is a function, the function is
|
||||
|
|
@ -246,12 +246,12 @@ If non-nil, also update the cache when copy or move articles."
|
|||
;; Variable removed in No Gnus v0.7
|
||||
|
||||
(defcustom nnmail-resplit-incoming nil
|
||||
"*If non-nil, re-split incoming procmail sorted mail."
|
||||
"If non-nil, re-split incoming procmail sorted mail."
|
||||
:group 'nnmail-procmail
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom nnmail-scan-directory-mail-source-once nil
|
||||
"*If non-nil, scan all incoming procmail sorted mails once.
|
||||
"If non-nil, scan all incoming procmail sorted mails once.
|
||||
It scans low-level sorted spools even when not required."
|
||||
:version "21.1"
|
||||
:group 'nnmail-procmail
|
||||
|
|
@ -266,7 +266,7 @@ It scans low-level sorted spools even when not required."
|
|||
(if (string-match "windows-nt" (symbol-name system-type))
|
||||
'copy-file
|
||||
'add-name-to-file)
|
||||
"*Function called to create a copy of a file.
|
||||
"Function called to create a copy of a file.
|
||||
This is `add-name-to-file' by default, which means that crossposts
|
||||
will use hard links. If your file system doesn't allow hard
|
||||
links, you could set this variable to `copy-file' instead."
|
||||
|
|
@ -279,7 +279,7 @@ links, you could set this variable to `copy-file' instead."
|
|||
(if (eq system-type 'windows-nt)
|
||||
'(nnheader-ms-strip-cr)
|
||||
nil)
|
||||
"*Hook that will be run after the incoming mail has been transferred.
|
||||
"Hook that will be run after the incoming mail has been transferred.
|
||||
The incoming mail is moved from the specified spool file (which normally is
|
||||
something like \"/usr/spool/mail/$user\") to the user's home
|
||||
directory. This hook is called after the incoming mail box has been
|
||||
|
|
@ -355,13 +355,13 @@ discarded after running the split process."
|
|||
:type 'hook)
|
||||
|
||||
(defcustom nnmail-spool-hook nil
|
||||
"*A hook called when a new article is spooled."
|
||||
"A hook called when a new article is spooled."
|
||||
:version "22.1"
|
||||
:group 'nnmail
|
||||
:type 'hook)
|
||||
|
||||
(defcustom nnmail-large-newsgroup 50
|
||||
"*The number of articles which indicates a large newsgroup or nil.
|
||||
"The number of articles which indicates a large newsgroup or nil.
|
||||
If the number of articles is greater than the value, verbose
|
||||
messages will be shown to indicate the current status."
|
||||
:group 'nnmail-various
|
||||
|
|
@ -489,12 +489,12 @@ Example:
|
|||
(from . "from\\|sender\\|resent-from")
|
||||
(nato . "to\\|cc\\|resent-to\\|resent-cc")
|
||||
(naany . "from\\|to\\|cc\\|sender\\|resent-from\\|resent-to\\|resent-cc"))
|
||||
"*Alist of abbreviations allowed in `nnmail-split-fancy'."
|
||||
"Alist of abbreviations allowed in `nnmail-split-fancy'."
|
||||
:group 'nnmail-split
|
||||
:type '(repeat (cons :format "%v" symbol regexp)))
|
||||
|
||||
(defcustom nnmail-message-id-cache-length 1000
|
||||
"*The approximate number of Message-IDs nnmail will keep in its cache.
|
||||
"The approximate number of Message-IDs nnmail will keep in its cache.
|
||||
If this variable is nil, no checking on duplicate messages will be
|
||||
performed."
|
||||
:group 'nnmail-duplicate
|
||||
|
|
@ -509,7 +509,7 @@ performed."
|
|||
:type 'file)
|
||||
|
||||
(defcustom nnmail-treat-duplicates 'warn
|
||||
"*If non-nil, nnmail keep a cache of Message-IDs to discover mail duplicates.
|
||||
"If non-nil, nnmail keep a cache of Message-IDs to discover mail duplicates.
|
||||
Three values are valid: nil, which means that nnmail is not to keep a
|
||||
Message-ID cache; `warn', which means that nnmail should insert extra
|
||||
headers to warn the user about the duplication (this is the default);
|
||||
|
|
|
|||
|
|
@ -92,7 +92,7 @@ is nil, use `smiley-style'."
|
|||
((eq smiley-style 'grayscale) "/grayscale")))))
|
||||
|
||||
(defcustom smiley-data-directory (smiley-directory)
|
||||
"*Location of the smiley faces files."
|
||||
"Location of the smiley faces files."
|
||||
:set (lambda (symbol value)
|
||||
(set-default symbol value)
|
||||
(smiley-update-cache))
|
||||
|
|
@ -116,7 +116,7 @@ is nil, use `smiley-style'."
|
|||
("\\(:-D\\)\\W" 1 "grin")
|
||||
;; "smile" must be come after "evil"
|
||||
("\\(\\^?:-?)\\)\\W" 1 "smile"))
|
||||
"*A list of regexps to map smilies to images.
|
||||
"A list of regexps to map smilies to images.
|
||||
The elements are (REGEXP MATCH IMAGE), where MATCH is the submatch in
|
||||
regexp to replace with IMAGE. IMAGE is the name of an image file in
|
||||
`smiley-data-directory'."
|
||||
|
|
@ -137,7 +137,7 @@ regexp to replace with IMAGE. IMAGE is the name of an image file in
|
|||
(when (gnus-image-type-available-p 'gif)
|
||||
(push "gif" types))
|
||||
types)
|
||||
"*List of suffixes on smiley file names to try."
|
||||
"List of suffixes on smiley file names to try."
|
||||
:version "24.1"
|
||||
:type '(repeat string)
|
||||
:group 'smiley)
|
||||
|
|
|
|||
|
|
@ -129,7 +129,7 @@
|
|||
:group 'mime)
|
||||
|
||||
(defcustom smime-keys nil
|
||||
"*Map mail addresses to a file containing Certificate (and private key).
|
||||
"Map mail addresses to a file containing Certificate (and private key).
|
||||
The file is assumed to be in PEM format. You can also associate additional
|
||||
certificates to be sent with every message to each address."
|
||||
:type '(repeat (list (string :tag "Mail address")
|
||||
|
|
@ -139,7 +139,7 @@ certificates to be sent with every message to each address."
|
|||
:group 'smime)
|
||||
|
||||
(defcustom smime-CA-directory nil
|
||||
"*Directory containing certificates for CAs you trust.
|
||||
"Directory containing certificates for CAs you trust.
|
||||
Directory should contain files (in PEM format) named to the X.509
|
||||
hash of the certificate. This can be done using OpenSSL such as:
|
||||
|
||||
|
|
@ -152,7 +152,7 @@ certificate."
|
|||
:group 'smime)
|
||||
|
||||
(defcustom smime-CA-file nil
|
||||
"*Files containing certificates for CAs you trust.
|
||||
"Files containing certificates for CAs you trust.
|
||||
File should contain certificates in PEM format."
|
||||
:version "22.1"
|
||||
:type '(choice (const :tag "none" nil)
|
||||
|
|
@ -160,7 +160,7 @@ File should contain certificates in PEM format."
|
|||
:group 'smime)
|
||||
|
||||
(defcustom smime-certificate-directory "~/Mail/certs/"
|
||||
"*Directory containing other people's certificates.
|
||||
"Directory containing other people's certificates.
|
||||
It should contain files named to the X.509 hash of the certificate,
|
||||
and the files themselves should be in PEM format."
|
||||
;The S/MIME library provide simple functionality for fetching
|
||||
|
|
@ -174,14 +174,14 @@ and the files themselves should be in PEM format."
|
|||
(eq 0 (call-process "openssl" nil nil nil "version"))
|
||||
(error nil))
|
||||
"openssl")
|
||||
"*Name of OpenSSL binary."
|
||||
"Name of OpenSSL binary."
|
||||
:type 'string
|
||||
:group 'smime)
|
||||
|
||||
;; OpenSSL option to select the encryption cipher
|
||||
|
||||
(defcustom smime-encrypt-cipher "-des3"
|
||||
"*Cipher algorithm used for encryption."
|
||||
"Cipher algorithm used for encryption."
|
||||
:version "22.1"
|
||||
:type '(choice (const :tag "Triple DES" "-des3")
|
||||
(const :tag "DES" "-des")
|
||||
|
|
@ -191,7 +191,7 @@ and the files themselves should be in PEM format."
|
|||
:group 'smime)
|
||||
|
||||
(defcustom smime-crl-check nil
|
||||
"*Check revocation status of signers certificate using CRLs.
|
||||
"Check revocation status of signers certificate using CRLs.
|
||||
Enabling this will have OpenSSL check the signers certificate
|
||||
against a certificate revocation list (CRL).
|
||||
|
||||
|
|
@ -212,7 +212,7 @@ At least OpenSSL version 0.9.7 is required for this to work."
|
|||
:group 'smime)
|
||||
|
||||
(defcustom smime-dns-server nil
|
||||
"*DNS server to query certificates from.
|
||||
"DNS server to query certificates from.
|
||||
If nil, use system defaults."
|
||||
:version "22.1"
|
||||
:type '(choice (const :tag "System defaults")
|
||||
|
|
|
|||
|
|
@ -234,7 +234,7 @@ we will act as though we couldn't find a full name in the address."
|
|||
:group 'mail-extr)
|
||||
|
||||
(defcustom mail-extr-ignore-realname-equals-mailbox-name t
|
||||
"*Whether to ignore a name that is equal to the mailbox name.
|
||||
"Whether to ignore a name that is equal to the mailbox name.
|
||||
If true, then when the address is like \"Single <single@address.com>\"
|
||||
we will act as though we couldn't find a full name in the address."
|
||||
:type 'boolean
|
||||
|
|
|
|||
|
|
@ -719,7 +719,7 @@ keyword, introduced in Emacs 22."
|
|||
;;; Variant Support
|
||||
|
||||
(defcustom-mh mh-path nil
|
||||
"*Additional list of directories to search for MH.
|
||||
"Additional list of directories to search for MH.
|
||||
See `mh-variant'."
|
||||
:group 'mh-e
|
||||
:type '(repeat (directory))
|
||||
|
|
@ -945,7 +945,7 @@ finally GNU mailutils MH."
|
|||
(mh-variants) " or "))))))
|
||||
|
||||
(defcustom-mh mh-variant 'autodetect
|
||||
"*Specifies the variant used by MH-E.
|
||||
"Specifies the variant used by MH-E.
|
||||
|
||||
The default setting of this option is \"Auto-detect\" which means
|
||||
that MH-E will automatically choose the first of nmh, MH, or GNU
|
||||
|
|
@ -1174,7 +1174,7 @@ and GNU mailutils."
|
|||
;;; Aliases (:group 'mh-alias)
|
||||
|
||||
(defcustom-mh mh-alias-completion-ignore-case-flag t
|
||||
"*Non-nil means don't consider case significant in MH alias completion.
|
||||
"Non-nil means don't consider case significant in MH alias completion.
|
||||
|
||||
As MH ignores case in the aliases, so too does MH-E. However, you
|
||||
may turn off this option to make case significant which can be
|
||||
|
|
@ -1185,7 +1185,7 @@ lowercase for mailing lists and uppercase for people."
|
|||
:package-version '(MH-E . "7.1"))
|
||||
|
||||
(defcustom-mh mh-alias-expand-aliases-flag nil
|
||||
"*Non-nil means to expand aliases entered in the minibuffer.
|
||||
"Non-nil means to expand aliases entered in the minibuffer.
|
||||
|
||||
In other words, aliases entered in the minibuffer will be
|
||||
expanded to the full address in the message draft. By default,
|
||||
|
|
@ -1195,7 +1195,7 @@ this expansion is not performed."
|
|||
:package-version '(MH-E . "7.1"))
|
||||
|
||||
(defcustom-mh mh-alias-flash-on-comma t
|
||||
"*Specify whether to flash address or warn on translation.
|
||||
"Specify whether to flash address or warn on translation.
|
||||
|
||||
This option controls the behavior when a [comma] is pressed while
|
||||
entering aliases or addresses. The default setting flashes the
|
||||
|
|
@ -1208,7 +1208,7 @@ does not display a warning if the alias is not found."
|
|||
:package-version '(MH-E . "7.1"))
|
||||
|
||||
(defcustom-mh mh-alias-insert-file nil
|
||||
"*Filename used to store a new MH-E alias.
|
||||
"Filename used to store a new MH-E alias.
|
||||
|
||||
The default setting of this option is \"Use Aliasfile Profile
|
||||
Component\". This option can also hold the name of a file or a
|
||||
|
|
@ -1234,7 +1234,7 @@ or \"Bottom\" of your alias file might be more appropriate."
|
|||
:package-version '(MH-E . "7.1"))
|
||||
|
||||
(defcustom-mh mh-alias-local-users t
|
||||
"*Non-nil means local users are added to alias completion.
|
||||
"Non-nil means local users are added to alias completion.
|
||||
|
||||
Aliases are created from \"/etc/passwd\" entries with a user ID
|
||||
larger than a magical number, typically 200. This can be a handy
|
||||
|
|
@ -1255,7 +1255,7 @@ NIS password file."
|
|||
:package-version '(MH-E . "7.1"))
|
||||
|
||||
(defcustom-mh mh-alias-local-users-prefix "local."
|
||||
"*String prefixed to the real names of users from the password file.
|
||||
"String prefixed to the real names of users from the password file.
|
||||
This option can also be set to \"Use Login\".
|
||||
|
||||
For example, consider the following password file entry:
|
||||
|
|
@ -1277,7 +1277,7 @@ turned off."
|
|||
:package-version '(MH-E . "7.4"))
|
||||
|
||||
(defcustom-mh mh-alias-passwd-gecos-comma-separator-flag t
|
||||
"*Non-nil means the gecos field in the password file uses a comma separator.
|
||||
"Non-nil means the gecos field in the password file uses a comma separator.
|
||||
|
||||
In the example in `mh-alias-local-users-prefix', commas are used
|
||||
to separate different values within the so-called gecos field.
|
||||
|
|
@ -1333,7 +1333,7 @@ folders are treated as if they are small."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-recenter-summary-flag nil
|
||||
"*Non-nil means to recenter the summary window.
|
||||
"Non-nil means to recenter the summary window.
|
||||
|
||||
If this option is turned on, recenter the summary window when the
|
||||
show window is toggled off."
|
||||
|
|
@ -1342,13 +1342,13 @@ show window is toggled off."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-recursive-folders-flag nil
|
||||
"*Non-nil means that commands which operate on folders do so recursively."
|
||||
"Non-nil means that commands which operate on folders do so recursively."
|
||||
:type 'boolean
|
||||
:group 'mh-folder
|
||||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-sortm-args nil
|
||||
"*Additional arguments for \"sortm\"\\<mh-folder-mode-map>.
|
||||
"Additional arguments for \"sortm\"\\<mh-folder-mode-map>.
|
||||
|
||||
This option is consulted when a prefix argument is used with
|
||||
\\[mh-sort-folder]. Normally default arguments to \"sortm\" are
|
||||
|
|
@ -1374,7 +1374,7 @@ the default, or an empty string to suppress the default entirely."
|
|||
:package-version '(MH-E . "8.0"))
|
||||
|
||||
(defcustom-mh mh-default-folder-list nil
|
||||
"*List of addresses and folders.
|
||||
"List of addresses and folders.
|
||||
|
||||
The folder name associated with the first address found in this
|
||||
list is used as the default for `mh-refile-msg' and similar
|
||||
|
|
@ -1392,7 +1392,7 @@ for more information."
|
|||
:package-version '(MH-E . "7.2"))
|
||||
|
||||
(defcustom-mh mh-default-folder-must-exist-flag t
|
||||
"*Non-nil means guessed folder name must exist to be used.
|
||||
"Non-nil means guessed folder name must exist to be used.
|
||||
|
||||
If the derived folder does not exist, and this option is on, then
|
||||
the last folder name used is suggested. This is useful if you get
|
||||
|
|
@ -1406,7 +1406,7 @@ for more information."
|
|||
:package-version '(MH-E . "7.2"))
|
||||
|
||||
(defcustom-mh mh-default-folder-prefix ""
|
||||
"*Prefix used for folder names generated from aliases.
|
||||
"Prefix used for folder names generated from aliases.
|
||||
The prefix is used to prevent clutter in your mail directory.
|
||||
|
||||
See `mh-prompt-for-refile-folder' and `mh-folder-from-address'
|
||||
|
|
@ -1425,7 +1425,7 @@ Real definition will take effect when mh-identity is loaded."
|
|||
nil)))
|
||||
|
||||
(defcustom-mh mh-identity-list nil
|
||||
"*List of identities.
|
||||
"List of identities.
|
||||
|
||||
To customize this option, click on the \"INS\" button and enter a label
|
||||
such as \"Home\" or \"Work\". Then click on the \"INS\" button with the
|
||||
|
|
@ -1555,7 +1555,7 @@ as the result is undefined."
|
|||
:package-version '(MH-E . "7.3"))
|
||||
|
||||
(defcustom-mh mh-auto-fields-prompt-flag t
|
||||
"*Non-nil means to prompt before sending if fields inserted.
|
||||
"Non-nil means to prompt before sending if fields inserted.
|
||||
See `mh-auto-fields-list'."
|
||||
:type 'boolean
|
||||
:group 'mh-identity
|
||||
|
|
@ -1609,7 +1609,7 @@ containing the VALUE for the field is given."
|
|||
;;; Incorporating Your Mail (:group 'mh-inc)
|
||||
|
||||
(defcustom-mh mh-inc-prog "inc"
|
||||
"*Program to incorporate new mail into a folder.
|
||||
"Program to incorporate new mail into a folder.
|
||||
|
||||
This program generates a one-line summary for each of the new
|
||||
messages. Unless it is an absolute pathname, the file is assumed
|
||||
|
|
@ -1628,7 +1628,7 @@ Real definition will take effect when mh-inc is loaded."
|
|||
nil)))
|
||||
|
||||
(defcustom-mh mh-inc-spool-list nil
|
||||
"*Alternate spool files.
|
||||
"Alternate spool files.
|
||||
|
||||
You can use the `mh-inc-spool-list' variable to direct MH-E to
|
||||
retrieve mail from arbitrary spool files other than your system
|
||||
|
|
@ -1766,13 +1766,13 @@ MH-style directives are preferred."
|
|||
:package-version '(MH-E . "7.4"))
|
||||
|
||||
(defcustom-mh mh-compose-space-does-completion-flag nil
|
||||
"*Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header."
|
||||
"Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header."
|
||||
:type 'boolean
|
||||
:group 'mh-letter
|
||||
:package-version '(MH-E . "7.4"))
|
||||
|
||||
(defcustom-mh mh-delete-yanked-msg-window-flag nil
|
||||
"*Non-nil means delete any window displaying the message.
|
||||
"Non-nil means delete any window displaying the message.
|
||||
|
||||
This deletes the window containing the original message after
|
||||
yanking it with \\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make
|
||||
|
|
@ -1782,7 +1782,7 @@ more room on your screen for your reply."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-extract-from-attribution-verb "wrote:"
|
||||
"*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
|
||||
"Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
|
||||
|
||||
The attribution consists of the sender's name and email address
|
||||
followed by the content of this option. This option can be set to
|
||||
|
|
@ -1796,7 +1796,7 @@ followed by the content of this option. This option can be set to
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-ins-buf-prefix "> "
|
||||
"*String to put before each line of a yanked or inserted message.
|
||||
"String to put before each line of a yanked or inserted message.
|
||||
|
||||
The prefix \"> \" is the default setting of this option. I
|
||||
suggest that you not modify this option since it is used by many
|
||||
|
|
@ -1812,7 +1812,7 @@ flavors of `mh-yank-behavior' or you have added a
|
|||
:package-version '(MH-E . "6.0"))
|
||||
|
||||
(defcustom-mh mh-letter-complete-function 'ispell-complete-word
|
||||
"*Function to call when completing outside of address or folder fields.
|
||||
"Function to call when completing outside of address or folder fields.
|
||||
|
||||
In the body of the message,
|
||||
\\<mh-letter-mode-map>\\[mh-letter-complete] runs this function,
|
||||
|
|
@ -1822,7 +1822,7 @@ which is set to \"ispell-complete-word\" by default."
|
|||
:package-version '(MH-E . "7.1"))
|
||||
|
||||
(defcustom-mh mh-letter-fill-column 72
|
||||
"*Fill column to use in MH Letter mode.
|
||||
"Fill column to use in MH Letter mode.
|
||||
|
||||
By default, this option is 72 to allow others to quote your
|
||||
message without line wrapping."
|
||||
|
|
@ -1854,7 +1854,7 @@ you write!"
|
|||
:package-version '(MH-E . "8.0"))
|
||||
|
||||
(defcustom-mh mh-signature-file-name "~/.signature"
|
||||
"*Source of user's signature.
|
||||
"Source of user's signature.
|
||||
|
||||
By default, the text of your signature is taken from the file
|
||||
\"~/.signature\". You can read from other sources by changing this
|
||||
|
|
@ -1877,7 +1877,7 @@ The signature is inserted into your message with the command
|
|||
:package-version '(MH-E . "6.0"))
|
||||
|
||||
(defcustom-mh mh-signature-separator-flag t
|
||||
"*Non-nil means a signature separator should be inserted.
|
||||
"Non-nil means a signature separator should be inserted.
|
||||
|
||||
It is not recommended that you change this option since various
|
||||
mail user agents, including MH-E, use the separator to present
|
||||
|
|
@ -1888,7 +1888,7 @@ replying or yanking a letter into a draft."
|
|||
:package-version '(MH-E . "8.0"))
|
||||
|
||||
(defcustom-mh mh-x-face-file "~/.face"
|
||||
"*File containing face header field to insert in outgoing mail.
|
||||
"File containing face header field to insert in outgoing mail.
|
||||
|
||||
If the file starts with either of the strings \"X-Face:\", \"Face:\"
|
||||
or \"X-Image-URL:\" then the contents are added to the message header
|
||||
|
|
@ -1917,7 +1917,7 @@ this option doesn't exist."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-yank-behavior 'attribution
|
||||
"*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
|
||||
"Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
|
||||
|
||||
To include the entire message, including the entire header, use
|
||||
\"Body and Header\". Use \"Body\" to yank just the body without
|
||||
|
|
@ -1964,7 +1964,7 @@ inserted."
|
|||
;;; Ranges (:group 'mh-ranges)
|
||||
|
||||
(defcustom-mh mh-interpret-number-as-range-flag t
|
||||
"*Non-nil means interpret a number as a range.
|
||||
"Non-nil means interpret a number as a range.
|
||||
|
||||
Since one of the most frequent ranges used is \"last:N\", MH-E
|
||||
will interpret input such as \"200\" as \"last:200\" if this
|
||||
|
|
@ -1984,7 +1984,7 @@ Real definition, below, uses variables that aren't defined yet."
|
|||
(set-default symbol value))))
|
||||
|
||||
(defcustom-mh mh-adaptive-cmd-note-flag t
|
||||
"*Non-nil means that the message number width is determined dynamically.
|
||||
"Non-nil means that the message number width is determined dynamically.
|
||||
|
||||
If you've created your own format to handle long message numbers,
|
||||
you'll be pleased to know you no longer need it since MH-E adapts its
|
||||
|
|
@ -2052,7 +2052,7 @@ Otherwise, set SYMBOL to VALUE."
|
|||
(set-default symbol value)))
|
||||
|
||||
(defcustom-mh mh-scan-prog "scan"
|
||||
"*Program used to scan messages.
|
||||
"Program used to scan messages.
|
||||
|
||||
The name of the program that generates a listing of one line per
|
||||
message is held in this option. Unless this variable contains an
|
||||
|
|
@ -2090,7 +2090,7 @@ MH-E can be found in the documentation of `mh-search'."
|
|||
;;; Sending Mail (:group 'mh-sending-mail)
|
||||
|
||||
(defcustom-mh mh-compose-forward-as-mime-flag t
|
||||
"*Non-nil means that messages are forwarded as attachments.
|
||||
"Non-nil means that messages are forwarded as attachments.
|
||||
|
||||
By default, this option is on which means that the forwarded
|
||||
messages are included as attachments. If you would prefer to
|
||||
|
|
@ -2118,13 +2118,13 @@ fields."
|
|||
:package-version '(MH-E . "6.0"))
|
||||
|
||||
(defcustom-mh mh-compose-prompt-flag nil
|
||||
"*Non-nil means prompt for header fields when composing a new draft."
|
||||
"Non-nil means prompt for header fields when composing a new draft."
|
||||
:type 'boolean
|
||||
:group 'mh-sending-mail
|
||||
:package-version '(MH-E . "7.4"))
|
||||
|
||||
(defcustom-mh mh-forward-subject-format "%s: %s"
|
||||
"*Format string for forwarded message subject.
|
||||
"Format string for forwarded message subject.
|
||||
|
||||
This option is a string which includes two escapes (\"%s\"). The
|
||||
first \"%s\" is replaced with the sender of the original message,
|
||||
|
|
@ -2134,7 +2134,7 @@ and the second one is replaced with the original \"Subject:\"."
|
|||
:package-version '(MH-E . "6.0"))
|
||||
|
||||
(defcustom-mh mh-insert-x-mailer-flag t
|
||||
"*Non-nil means append an \"X-Mailer:\" header field to the header.
|
||||
"Non-nil means append an \"X-Mailer:\" header field to the header.
|
||||
|
||||
This header field includes the version of MH-E and Emacs that you
|
||||
are using. If you don't want to participate in our marketing, you
|
||||
|
|
@ -2144,7 +2144,7 @@ can turn this option off."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-redist-full-contents-flag nil
|
||||
"*Non-nil means the \"dist\" command needs entire letter for redistribution.
|
||||
"Non-nil means the \"dist\" command needs entire letter for redistribution.
|
||||
|
||||
This option must be turned on if \"dist\" requires the whole
|
||||
letter for redistribution, which is the case if \"send\" is
|
||||
|
|
@ -2156,7 +2156,7 @@ has been redistributed before, turn off this option."
|
|||
:package-version '(MH-E . "8.0"))
|
||||
|
||||
(defcustom-mh mh-reply-default-reply-to nil
|
||||
"*Sets the person or persons to whom a reply will be sent.
|
||||
"Sets the person or persons to whom a reply will be sent.
|
||||
|
||||
This option is set to \"Prompt\" by default so that you are
|
||||
prompted for the recipient of a reply. If you find that most of
|
||||
|
|
@ -2172,7 +2172,7 @@ this option to \"cc\". Other choices include \"from\", \"to\", or
|
|||
:package-version '(MH-E . "6.0"))
|
||||
|
||||
(defcustom-mh mh-reply-show-message-flag t
|
||||
"*Non-nil means the MH-Show buffer is displayed when replying.
|
||||
"Non-nil means the MH-Show buffer is displayed when replying.
|
||||
|
||||
If you include the message automatically, you can hide the
|
||||
MH-Show buffer by turning off this option.
|
||||
|
|
@ -2189,7 +2189,7 @@ See also `mh-reply'."
|
|||
;; specified by setting `mh-unpropagated-sequences' appropriately." XXX
|
||||
|
||||
(defcustom-mh mh-refile-preserves-sequences-flag t
|
||||
"*Non-nil means that sequences are preserved when messages are refiled.
|
||||
"Non-nil means that sequences are preserved when messages are refiled.
|
||||
|
||||
If a message is in any sequence (except \"Previous-Sequence:\"
|
||||
and \"cur\") when it is refiled, then it will still be in those
|
||||
|
|
@ -2212,7 +2212,7 @@ there isn't much advantage to that."
|
|||
:package-version '(MH-E . "7.3"))
|
||||
|
||||
(defcustom-mh mh-update-sequences-after-mh-show-flag t
|
||||
"*Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>.
|
||||
"Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>.
|
||||
|
||||
Three sequences are maintained internally by MH-E and pushed out
|
||||
to MH when a message is shown. They include the sequence
|
||||
|
|
@ -2227,7 +2227,7 @@ commands."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-whitelist-preserves-sequences-flag t
|
||||
"*Non-nil means that sequences are preserved when messages are whitelisted.
|
||||
"Non-nil means that sequences are preserved when messages are whitelisted.
|
||||
|
||||
If a message is in any sequence (except \"Previous-Sequence:\"
|
||||
and \"cur\") when it is whitelisted, then it will still be in
|
||||
|
|
@ -2240,7 +2240,7 @@ not desired, then turn off this option."
|
|||
;;; Reading Your Mail (:group 'mh-show)
|
||||
|
||||
(defcustom-mh mh-bury-show-buffer-flag t
|
||||
"*Non-nil means show buffer is buried.
|
||||
"Non-nil means show buffer is buried.
|
||||
|
||||
One advantage of not burying the show buffer is that one can
|
||||
delete the show buffer more easily in an electric buffer list
|
||||
|
|
@ -2251,7 +2251,7 @@ running \\[electric-buffer-list] to see what I mean."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-clean-message-header-flag t
|
||||
"*Non-nil means remove extraneous header fields.
|
||||
"Non-nil means remove extraneous header fields.
|
||||
|
||||
See also `mh-invisible-header-fields-default' and
|
||||
`mh-invisible-header-fields'."
|
||||
|
|
@ -2260,7 +2260,7 @@ See also `mh-invisible-header-fields-default' and
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-decode-mime-flag (not (not (locate-library "mm-decode")))
|
||||
"*Non-nil means attachments are handled\\<mh-folder-mode-map>.
|
||||
"Non-nil means attachments are handled\\<mh-folder-mode-map>.
|
||||
|
||||
MH-E can handle attachments as well if the Gnus `mm-decode'
|
||||
library is present. If so, this option will be on. Otherwise,
|
||||
|
|
@ -2278,7 +2278,7 @@ messages and other graphical widgets. See the options
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-display-buttons-for-alternatives-flag nil
|
||||
"*Non-nil means display buttons for all alternative attachments.
|
||||
"Non-nil means display buttons for all alternative attachments.
|
||||
|
||||
Sometimes, a mail program will produce multiple alternatives of
|
||||
the attachment in increasing degree of faithfulness to the
|
||||
|
|
@ -2290,7 +2290,7 @@ inline and buttons are shown for each of the other alternatives."
|
|||
:package-version '(MH-E . "7.4"))
|
||||
|
||||
(defcustom-mh mh-display-buttons-for-inline-parts-flag nil
|
||||
"*Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>.
|
||||
"Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>.
|
||||
|
||||
The sender can request that attachments should be viewed inline so
|
||||
that they do not really appear like an attachment at all to the
|
||||
|
|
@ -2313,7 +2313,7 @@ text (including HTML) and images."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-do-not-confirm-flag nil
|
||||
"*Non-nil means non-reversible commands do not prompt for confirmation.
|
||||
"Non-nil means non-reversible commands do not prompt for confirmation.
|
||||
|
||||
Commands such as `mh-pack-folder' prompt to confirm whether to
|
||||
process outstanding moves and deletes or not before continuing.
|
||||
|
|
@ -2325,7 +2325,7 @@ retracted--without question."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-fetch-x-image-url nil
|
||||
"*Control fetching of \"X-Image-URL:\" header field image.
|
||||
"Control fetching of \"X-Image-URL:\" header field image.
|
||||
|
||||
Ths option controls the fetching of the \"X-Image-URL:\" header
|
||||
field image with the following values:
|
||||
|
|
@ -2361,7 +2361,7 @@ turned on."
|
|||
:package-version '(MH-E . "7.3"))
|
||||
|
||||
(defcustom-mh mh-graphical-smileys-flag t
|
||||
"*Non-nil means graphical smileys are displayed.
|
||||
"Non-nil means graphical smileys are displayed.
|
||||
|
||||
It is a long standing custom to inject body language using a
|
||||
cornucopia of punctuation, also known as the \"smileys\". MH-E
|
||||
|
|
@ -2376,7 +2376,7 @@ turned off."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-graphical-emphasis-flag t
|
||||
"*Non-nil means graphical emphasis is displayed.
|
||||
"Non-nil means graphical emphasis is displayed.
|
||||
|
||||
A few typesetting features are indicated in ASCII text with
|
||||
certain characters. If your terminal supports it, MH-E can render
|
||||
|
|
@ -2815,7 +2815,7 @@ Because the function `mh-invisible-headers' uses both
|
|||
cannot be run until both variables have been initialized.")
|
||||
|
||||
(defcustom-mh mh-invisible-header-fields nil
|
||||
"*Additional header fields to hide.
|
||||
"Additional header fields to hide.
|
||||
|
||||
Header fields that you would like to hide that aren't listed in
|
||||
`mh-invisible-header-fields-default' can be added to this option
|
||||
|
|
@ -2838,7 +2838,7 @@ See also `mh-clean-message-header-flag'."
|
|||
:package-version '(MH-E . "7.1"))
|
||||
|
||||
(defcustom-mh mh-invisible-header-fields-default nil
|
||||
"*List of hidden header fields.
|
||||
"List of hidden header fields.
|
||||
|
||||
The header fields listed in this option are hidden, although you
|
||||
can check off any field that you would like to see.
|
||||
|
|
@ -2895,7 +2895,7 @@ removed and entries from `mh-invisible-header-fields' are added."
|
|||
(mh-invisible-headers)
|
||||
|
||||
(defcustom-mh mh-lpr-command-format "lpr -J '%s'"
|
||||
"*Command used to print\\<mh-folder-mode-map>.
|
||||
"Command used to print\\<mh-folder-mode-map>.
|
||||
|
||||
This option contains the Unix command line which performs the
|
||||
actual printing for the \\[mh-print-msg] command. The string can
|
||||
|
|
@ -2912,7 +2912,7 @@ This option is not used by the commands \\[mh-ps-print-msg] or
|
|||
:package-version '(MH-E . "6.0"))
|
||||
|
||||
(defcustom-mh mh-max-inline-image-height nil
|
||||
"*Maximum inline image height if \"Content-Disposition:\" is not present.
|
||||
"Maximum inline image height if \"Content-Disposition:\" is not present.
|
||||
|
||||
Some older mail programs do not insert this needed plumbing to
|
||||
tell MH-E whether to display the attachments inline or not. If
|
||||
|
|
@ -2928,7 +2928,7 @@ these numbers."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-max-inline-image-width nil
|
||||
"*Maximum inline image width if \"Content-Disposition:\" is not present.
|
||||
"Maximum inline image width if \"Content-Disposition:\" is not present.
|
||||
|
||||
Some older mail programs do not insert this needed plumbing to
|
||||
tell MH-E whether to display the attachments inline or not. If
|
||||
|
|
@ -2944,7 +2944,7 @@ these numbers."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-mhl-format-file nil
|
||||
"*Specifies the format file to pass to the \"mhl\" program.
|
||||
"Specifies the format file to pass to the \"mhl\" program.
|
||||
|
||||
Normally MH-E takes care of displaying messages itself (rather than
|
||||
calling an MH program to do the work). If you'd rather have \"mhl\"
|
||||
|
|
@ -2984,7 +2984,7 @@ directory's name."
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-print-background-flag nil
|
||||
"*Non-nil means messages should be printed in the background\\<mh-folder-mode-map>.
|
||||
"Non-nil means messages should be printed in the background\\<mh-folder-mode-map>.
|
||||
|
||||
Normally messages are printed in the foreground. If this is slow on
|
||||
your system, you may elect to turn off this option to print in the
|
||||
|
|
@ -3000,7 +3000,7 @@ This option is not used by the commands \\[mh-ps-print-msg] or
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-show-maximum-size 0
|
||||
"*Maximum size of message (in bytes) to display automatically.
|
||||
"Maximum size of message (in bytes) to display automatically.
|
||||
|
||||
This option provides an opportunity to skip over large messages
|
||||
which may be slow to load. The default value of 0 means that all
|
||||
|
|
@ -3010,7 +3010,7 @@ message are shown regardless of size."
|
|||
:package-version '(MH-E . "8.0"))
|
||||
|
||||
(defcustom-mh mh-show-use-xface-flag (>= emacs-major-version 21)
|
||||
"*Non-nil means display face images in MH-show buffers.
|
||||
"Non-nil means display face images in MH-show buffers.
|
||||
|
||||
MH-E can display the content of \"Face:\", \"X-Face:\", and
|
||||
\"X-Image-URL:\" header fields. If any of these fields occur in the
|
||||
|
|
@ -3050,7 +3050,7 @@ The option `mh-fetch-x-image-url' controls the fetching of the
|
|||
:package-version '(MH-E . "7.0"))
|
||||
|
||||
(defcustom-mh mh-store-default-directory nil
|
||||
"*Default directory for \\<mh-folder-mode-map>\\[mh-store-msg].
|
||||
"Default directory for \\<mh-folder-mode-map>\\[mh-store-msg].
|
||||
|
||||
If you would like to change the initial default directory,
|
||||
customize this option, change the value from \"Current\" to
|
||||
|
|
@ -3062,7 +3062,7 @@ the content of these messages."
|
|||
:package-version '(MH-E . "6.0"))
|
||||
|
||||
(defcustom-mh mh-summary-height nil
|
||||
"*Number of lines in MH-Folder buffer (including the mode line).
|
||||
"Number of lines in MH-Folder buffer (including the mode line).
|
||||
|
||||
The default value of this option is \"Automatic\" which means
|
||||
that the MH-Folder buffer will maintain the same proportional
|
||||
|
|
@ -3086,7 +3086,7 @@ Set to 0 to disable automatic update."
|
|||
;;; Threading (:group 'mh-thread)
|
||||
|
||||
(defcustom-mh mh-show-threads-flag nil
|
||||
"*Non-nil means new folders start in threaded mode.
|
||||
"Non-nil means new folders start in threaded mode.
|
||||
|
||||
Threading large number of messages can be time consuming so this
|
||||
option is turned off by default. If you turn this option on, then
|
||||
|
|
@ -3102,7 +3102,7 @@ threaded is less than `mh-large-folder'."
|
|||
;; dynamically in mh-tool-bar.el.
|
||||
|
||||
(defcustom-mh mh-tool-bar-search-function 'mh-search
|
||||
"*Function called by the tool bar search button.
|
||||
"Function called by the tool bar search button.
|
||||
|
||||
By default, this is set to `mh-search'. You can also choose
|
||||
\"Other Function\" from the \"Value Menu\" and enter a function
|
||||
|
|
@ -3115,7 +3115,7 @@ of your own choosing."
|
|||
;; XEmacs has a couple of extra customizations...
|
||||
(mh-do-in-xemacs
|
||||
(defcustom-mh mh-xemacs-use-tool-bar-flag mh-xemacs-has-tool-bar-flag
|
||||
"*If non-nil, use tool bar.
|
||||
"If non-nil, use tool bar.
|
||||
|
||||
This option controls whether to show the MH-E icons at all. By
|
||||
default, this option is turned on if the window system supports
|
||||
|
|
@ -3131,7 +3131,7 @@ won't be able to turn on this option."
|
|||
:package-version '(MH-E . "7.3"))
|
||||
|
||||
(defcustom-mh mh-xemacs-tool-bar-position nil
|
||||
"*Tool bar location.
|
||||
"Tool bar location.
|
||||
|
||||
This option controls the placement of the tool bar along the four
|
||||
edges of the frame. You can choose from one of \"Same As Default
|
||||
|
|
|
|||
|
|
@ -337,7 +337,7 @@ to return a true or false shell value for the validity.")
|
|||
(put 'mailcap-mime-data 'risky-local-variable t)
|
||||
|
||||
(defcustom mailcap-download-directory nil
|
||||
"*Directory to which `mailcap-save-binary-file' downloads files by default.
|
||||
"Directory to which `mailcap-save-binary-file' downloads files by default.
|
||||
nil means your home directory."
|
||||
:type '(choice (const :tag "Home directory" nil)
|
||||
directory)
|
||||
|
|
|
|||
|
|
@ -45,26 +45,26 @@
|
|||
(defcustom pop3-maildrop (or (user-login-name)
|
||||
(getenv "LOGNAME")
|
||||
(getenv "USER"))
|
||||
"*POP3 maildrop."
|
||||
"POP3 maildrop."
|
||||
:version "22.1" ;; Oort Gnus
|
||||
:type 'string
|
||||
:group 'pop3)
|
||||
|
||||
(defcustom pop3-mailhost (or (getenv "MAILHOST") ;; nil -> mismatch
|
||||
"pop3")
|
||||
"*POP3 mailhost."
|
||||
"POP3 mailhost."
|
||||
:version "22.1" ;; Oort Gnus
|
||||
:type 'string
|
||||
:group 'pop3)
|
||||
|
||||
(defcustom pop3-port 110
|
||||
"*POP3 port."
|
||||
"POP3 port."
|
||||
:version "22.1" ;; Oort Gnus
|
||||
:type 'number
|
||||
:group 'pop3)
|
||||
|
||||
(defcustom pop3-password-required t
|
||||
"*Non-nil if a password is required when connecting to POP server."
|
||||
"Non-nil if a password is required when connecting to POP server."
|
||||
:version "22.1" ;; Oort Gnus
|
||||
:type 'boolean
|
||||
:group 'pop3)
|
||||
|
|
@ -74,7 +74,7 @@
|
|||
"*Password to use when connecting to POP server.")
|
||||
|
||||
(defcustom pop3-authentication-scheme 'pass
|
||||
"*POP3 authentication scheme.
|
||||
"POP3 authentication scheme.
|
||||
Defaults to `pass', for the standard USER/PASS authentication. The other
|
||||
valid value is `apop'."
|
||||
:type '(choice (const :tag "Normal user/password" pass)
|
||||
|
|
@ -515,7 +515,7 @@ Return non-nil if it is necessary to update the local UIDL file."
|
|||
(insert "X-UIDL: " (nth (1- msgno) pop3-uidl) "\n"))))
|
||||
|
||||
(defcustom pop3-stream-type nil
|
||||
"*Transport security type for POP3 connections.
|
||||
"Transport security type for POP3 connections.
|
||||
This may be either nil (plain connection), `ssl' (use an
|
||||
SSL/TSL-secured stream) or `starttls' (use the starttls mechanism
|
||||
to turn on TLS security after opening the stream). However, if
|
||||
|
|
|
|||
|
|
@ -136,7 +136,7 @@ i.e. when `starttls-use-gnutls' is nil."
|
|||
:group 'starttls)
|
||||
|
||||
(defcustom starttls-use-gnutls (not (executable-find starttls-program))
|
||||
"*Whether to use GnuTLS instead of the `starttls' command."
|
||||
"Whether to use GnuTLS instead of the `starttls' command."
|
||||
:version "22.1"
|
||||
:type 'boolean
|
||||
:group 'starttls)
|
||||
|
|
@ -160,13 +160,13 @@ find out which parameters are available."
|
|||
:group 'starttls)
|
||||
|
||||
(defcustom starttls-process-connection-type nil
|
||||
"*Value for `process-connection-type' to use when starting STARTTLS process."
|
||||
"Value for `process-connection-type' to use when starting STARTTLS process."
|
||||
:version "22.1"
|
||||
:type 'boolean
|
||||
:group 'starttls)
|
||||
|
||||
(defcustom starttls-connect "- Simple Client Mode:\n\n"
|
||||
"*Regular expression indicating successful connection.
|
||||
"Regular expression indicating successful connection.
|
||||
The default is what GnuTLS's \"gnutls-cli\" outputs."
|
||||
;; GnuTLS cli.c:main() prints this string when it is starting to run
|
||||
;; in the application read/write phase. If the logic, or the string
|
||||
|
|
@ -176,7 +176,7 @@ The default is what GnuTLS's \"gnutls-cli\" outputs."
|
|||
:group 'starttls)
|
||||
|
||||
(defcustom starttls-failure "\\*\\*\\* Handshake has failed"
|
||||
"*Regular expression indicating failed TLS handshake.
|
||||
"Regular expression indicating failed TLS handshake.
|
||||
The default is what GnuTLS's \"gnutls-cli\" outputs."
|
||||
;; GnuTLS cli.c:do_handshake() prints this string on failure. If the
|
||||
;; logic, or the string itself, is modified, this must be updated.
|
||||
|
|
@ -185,7 +185,7 @@ The default is what GnuTLS's \"gnutls-cli\" outputs."
|
|||
:group 'starttls)
|
||||
|
||||
(defcustom starttls-success "- Compression: "
|
||||
"*Regular expression indicating completed TLS handshakes.
|
||||
"Regular expression indicating completed TLS handshakes.
|
||||
The default is what GnuTLS's \"gnutls-cli\" outputs."
|
||||
;; GnuTLS cli.c:do_handshake() calls, on success,
|
||||
;; common.c:print_info(), that unconditionally print this string
|
||||
|
|
|
|||
|
|
@ -247,7 +247,7 @@ See `c-offsets-alist'."
|
|||
;;; User variables
|
||||
|
||||
(defcustom c-strict-syntax-p nil
|
||||
"*If non-nil, all syntactic symbols must be found in `c-offsets-alist'.
|
||||
"If non-nil, all syntactic symbols must be found in `c-offsets-alist'.
|
||||
If the syntactic symbol for a particular line does not match a symbol
|
||||
in the offsets alist, or if no non-nil offset value can be determined
|
||||
for a symbol, an error is generated, otherwise no error is reported
|
||||
|
|
@ -260,12 +260,12 @@ syntactic symbols in `c-offsets-alist'. Please keep it set to nil."
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-echo-syntactic-information-p nil
|
||||
"*If non-nil, syntactic info is echoed when the line is indented."
|
||||
"If non-nil, syntactic info is echoed when the line is indented."
|
||||
:type 'boolean
|
||||
:group 'c)
|
||||
|
||||
(defcustom c-report-syntactic-errors nil
|
||||
"*If non-nil, certain syntactic errors are reported with a ding
|
||||
"If non-nil, certain syntactic errors are reported with a ding
|
||||
and a message, for example when an \"else\" is indented for which
|
||||
there's no corresponding \"if\".
|
||||
|
||||
|
|
@ -277,7 +277,7 @@ anchoring position to indent the line in that case."
|
|||
:group 'c)
|
||||
|
||||
(defcustom-c-stylevar c-basic-offset 4
|
||||
"*Amount of basic offset used by + and - symbols in `c-offsets-alist'.
|
||||
"Amount of basic offset used by + and - symbols in `c-offsets-alist'.
|
||||
Also used as the indentation step when `c-syntactic-indentation' is
|
||||
nil."
|
||||
:type 'integer
|
||||
|
|
@ -286,7 +286,7 @@ nil."
|
|||
|
||||
|
||||
(defcustom c-tab-always-indent t
|
||||
"*Controls the operation of the TAB key.
|
||||
"Controls the operation of the TAB key.
|
||||
If t, hitting TAB always just indents the current line. If nil, hitting
|
||||
TAB indents the current line if point is at the left margin or in the
|
||||
line's indentation, otherwise it inserts a `real' tab character \(see
|
||||
|
|
@ -308,7 +308,7 @@ by the `c-comment-only-line-offset' variable."
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-insert-tab-function 'insert-tab
|
||||
"*Function used when inserting a tab for \\[c-indent-command].
|
||||
"Function used when inserting a tab for \\[c-indent-command].
|
||||
Only used when `c-tab-always-indent' indicates a `real' tab character
|
||||
should be inserted. Value must be a function taking no arguments.
|
||||
The default, `insert-tab', inserts either a tab or the equivalent
|
||||
|
|
@ -317,7 +317,7 @@ number of spaces depending on the value of `indent-tabs-mode'."
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-syntactic-indentation t
|
||||
"*Whether the indentation should be controlled by the syntactic context.
|
||||
"Whether the indentation should be controlled by the syntactic context.
|
||||
|
||||
If t, the indentation functions indent according to the syntactic
|
||||
context, using the style settings specified by `c-offsets-alist'.
|
||||
|
|
@ -333,7 +333,7 @@ e.g. `c-special-indent-hook'."
|
|||
(put 'c-syntactic-indentation 'safe-local-variable 'booleanp)
|
||||
|
||||
(defcustom c-syntactic-indentation-in-macros t
|
||||
"*Enable syntactic analysis inside macros.
|
||||
"Enable syntactic analysis inside macros.
|
||||
If this is nil, all lines inside macro definitions are analyzed as
|
||||
`cpp-macro-cont'. Otherwise they are analyzed syntactically, just
|
||||
like normal code, and `cpp-define-intro' is used to create the
|
||||
|
|
@ -352,7 +352,7 @@ better with the \"do { ... } while \(0)\" trick)."
|
|||
(put 'c-syntactic-indentation-in-macros 'safe-local-variable 'booleanp)
|
||||
|
||||
(defcustom c-defun-tactic 'go-outward
|
||||
"*Whether functions are recognized inside, e.g., a class.
|
||||
"Whether functions are recognized inside, e.g., a class.
|
||||
This is used by `c-beginning-of-defun' and like functions.
|
||||
|
||||
Its value is one of:
|
||||
|
|
@ -367,7 +367,7 @@ Its value is one of:
|
|||
:group 'c)
|
||||
|
||||
(defcustom-c-stylevar c-comment-only-line-offset 0
|
||||
"*Extra offset for line which contains only the start of a comment.
|
||||
"Extra offset for line which contains only the start of a comment.
|
||||
Can contain an integer or a cons cell of the form:
|
||||
|
||||
(NON-ANCHORED-OFFSET . ANCHORED-OFFSET)
|
||||
|
|
@ -391,7 +391,7 @@ default)."
|
|||
'((anchored-comment . (column . 0))
|
||||
(end-block . (space . 1))
|
||||
(cpp-end-block . (space . 2)))
|
||||
"*Specifies how \\[indent-for-comment] calculates the comment start column.
|
||||
"Specifies how \\[indent-for-comment] calculates the comment start column.
|
||||
This is an association list that contains entries of the form:
|
||||
|
||||
(LINE-TYPE . INDENT-SPEC)
|
||||
|
|
@ -465,7 +465,7 @@ in that case, i.e. as if \\[c-indent-command] was used instead."
|
|||
:group 'c)
|
||||
|
||||
(defcustom-c-stylevar c-indent-comments-syntactically-p nil
|
||||
"*Specifies how \\[indent-for-comment] should handle comment-only lines.
|
||||
"Specifies how \\[indent-for-comment] should handle comment-only lines.
|
||||
When this variable is non-nil, comment-only lines are indented
|
||||
according to syntactic analysis via `c-offsets-alist'. Otherwise, the
|
||||
comment is indented as if it was preceded by code. Note that this
|
||||
|
|
@ -488,7 +488,7 @@ comment-only lines."
|
|||
(if (boundp 'c-comment-continuation-stars)
|
||||
(symbol-value 'c-comment-continuation-stars)
|
||||
"* ")
|
||||
"*Specifies the line prefix of continued C-style block comments.
|
||||
"Specifies the line prefix of continued C-style block comments.
|
||||
You should set this variable to the literal string that gets inserted
|
||||
at the front of continued block style comment lines. This should
|
||||
either be the empty string, or some characters without preceding
|
||||
|
|
@ -507,7 +507,7 @@ style comments."
|
|||
'((pike-mode . "//+!?\\|\\**")
|
||||
(awk-mode . "#+")
|
||||
(other . "//+\\|\\**"))
|
||||
"*Regexp to match the line prefix inside comments.
|
||||
"Regexp to match the line prefix inside comments.
|
||||
This regexp is used to recognize the fill prefix inside comments for
|
||||
correct paragraph filling and other things.
|
||||
|
||||
|
|
@ -564,7 +564,7 @@ variable in a mode hook."
|
|||
'((java-mode . javadoc)
|
||||
(pike-mode . autodoc)
|
||||
(c-mode . gtkdoc))
|
||||
"*Specifies documentation comment style(s) to recognize.
|
||||
"Specifies documentation comment style(s) to recognize.
|
||||
This is primarily used to fontify doc comments and the markup within
|
||||
them, e.g. Javadoc comments.
|
||||
|
||||
|
|
@ -634,7 +634,7 @@ afterwards to redo that work."
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-ignore-auto-fill '(string cpp code)
|
||||
"*List of contexts in which automatic filling never occurs.
|
||||
"List of contexts in which automatic filling never occurs.
|
||||
If Auto Fill mode is active, it will be temporarily disabled if point
|
||||
is in any context on this list. It's e.g. useful to enable Auto Fill
|
||||
in comments only, but not in strings or normal code. The valid
|
||||
|
|
@ -654,7 +654,7 @@ contexts are:
|
|||
:group 'c)
|
||||
|
||||
(defcustom-c-stylevar c-cleanup-list '(scope-operator)
|
||||
"*List of various C/C++/ObjC constructs to \"clean up\".
|
||||
"List of various C/C++/ObjC constructs to \"clean up\".
|
||||
The following clean ups only take place when the auto-newline feature
|
||||
is turned on, as evidenced by the `/la' appearing next to the mode
|
||||
name:
|
||||
|
|
@ -751,7 +751,7 @@ involve auto-newline inserted newlines:
|
|||
(inexpr-class-open after)
|
||||
(inexpr-class-close before)
|
||||
(arglist-cont-nonempty))
|
||||
"*Controls the insertion of newlines before and after braces
|
||||
"Controls the insertion of newlines before and after braces
|
||||
when the auto-newline feature is active. This variable contains an
|
||||
association list with elements of the following form:
|
||||
\(SYNTACTIC-SYMBOL . ACTION).
|
||||
|
|
@ -815,7 +815,7 @@ Zero or nil means no limit."
|
|||
:group 'c)
|
||||
|
||||
(defcustom-c-stylevar c-hanging-colons-alist nil
|
||||
"*Controls the insertion of newlines before and after certain colons.
|
||||
"Controls the insertion of newlines before and after certain colons.
|
||||
This variable contains an association list with elements of the
|
||||
following form: (SYNTACTIC-SYMBOL . ACTION).
|
||||
|
||||
|
|
@ -838,7 +838,7 @@ currently not supported for this variable."
|
|||
|
||||
(defcustom-c-stylevar c-hanging-semi&comma-criteria
|
||||
'(c-semi&comma-inside-parenlist)
|
||||
"*List of functions that decide whether to insert a newline or not.
|
||||
"List of functions that decide whether to insert a newline or not.
|
||||
The functions in this list are called, in order, whenever the
|
||||
auto-newline minor mode is activated (as evidenced by a `/a' or `/ah'
|
||||
string in the mode line), and a semicolon or comma is typed (see
|
||||
|
|
@ -855,7 +855,7 @@ then no newline is inserted."
|
|||
:group 'c)
|
||||
|
||||
(defcustom-c-stylevar c-backslash-column 48
|
||||
"*Minimum alignment column for line continuation backslashes.
|
||||
"Minimum alignment column for line continuation backslashes.
|
||||
This is used by the functions that automatically insert or align the
|
||||
line continuation backslashes in multiline macros. If any line in the
|
||||
macro exceeds this column then the next tab stop from that line is
|
||||
|
|
@ -865,7 +865,7 @@ used as alignment column instead. See also `c-backslash-max-column'."
|
|||
;;;###autoload(put 'c-backslash-column 'safe-local-variable 'integerp)
|
||||
|
||||
(defcustom-c-stylevar c-backslash-max-column 72
|
||||
"*Maximum alignment column for line continuation backslashes.
|
||||
"Maximum alignment column for line continuation backslashes.
|
||||
This is used by the functions that automatically insert or align the
|
||||
line continuation backslashes in multiline macros. If any line in the
|
||||
macro exceeds this column then the backslashes for the other lines
|
||||
|
|
@ -874,7 +874,7 @@ will be aligned at this column."
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-auto-align-backslashes t
|
||||
"*Align automatically inserted line continuation backslashes.
|
||||
"Align automatically inserted line continuation backslashes.
|
||||
When line continuation backslashes are inserted automatically for line
|
||||
breaks in multiline macros, e.g. by \\[c-context-line-break], they are
|
||||
aligned with the other backslashes in the same macro if this flag is
|
||||
|
|
@ -884,12 +884,12 @@ space."
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-backspace-function 'backward-delete-char-untabify
|
||||
"*Function called by `c-electric-backspace' when deleting backwards."
|
||||
"Function called by `c-electric-backspace' when deleting backwards."
|
||||
:type 'function
|
||||
:group 'c)
|
||||
|
||||
(defcustom c-delete-function 'delete-char
|
||||
"*Function called by `c-electric-delete-forward' when deleting forwards."
|
||||
"Function called by `c-electric-delete-forward' when deleting forwards."
|
||||
:type 'function
|
||||
:group 'c)
|
||||
|
||||
|
|
@ -901,7 +901,7 @@ space."
|
|||
'((c-mode . t)
|
||||
(c++-mode . t)
|
||||
(objc-mode . t))
|
||||
"*Controls whether a final newline is ensured when the file is saved.
|
||||
"Controls whether a final newline is ensured when the file is saved.
|
||||
The value is an association list that for each language mode specifies
|
||||
the value to give to `require-final-newline' at mode initialization;
|
||||
see that variable for details about the value. If a language isn't
|
||||
|
|
@ -931,20 +931,20 @@ present on the association list, CC Mode won't touch
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-electric-pound-behavior nil
|
||||
"*List of behaviors for electric pound insertion.
|
||||
"List of behaviors for electric pound insertion.
|
||||
Only currently supported behavior is `alignleft'."
|
||||
:type '(set (const alignleft))
|
||||
:group 'c)
|
||||
|
||||
(defcustom c-special-indent-hook nil
|
||||
"*Hook for user defined special indentation adjustments.
|
||||
"Hook for user defined special indentation adjustments.
|
||||
This hook gets called after each line is indented by the mode. It is only
|
||||
called when `c-syntactic-indentation' is non-nil."
|
||||
:type 'hook
|
||||
:group 'c)
|
||||
|
||||
(defcustom-c-stylevar c-label-minimum-indentation 1
|
||||
"*Minimum indentation for lines inside code blocks.
|
||||
"Minimum indentation for lines inside code blocks.
|
||||
This variable typically only affects code using the `gnu' style, which
|
||||
mandates a minimum of one space in front of every line inside code
|
||||
blocks. Specifically, the function `c-gnu-impose-minimum' on your
|
||||
|
|
@ -953,7 +953,7 @@ blocks. Specifically, the function `c-gnu-impose-minimum' on your
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-progress-interval 5
|
||||
"*Interval used to update progress status during long re-indentation.
|
||||
"Interval used to update progress status during long re-indentation.
|
||||
If a number, percentage complete gets updated after each interval of
|
||||
that many seconds. To inhibit all messages during indentation, set
|
||||
this variable to nil."
|
||||
|
|
@ -961,7 +961,7 @@ this variable to nil."
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-objc-method-arg-min-delta-to-bracket 2
|
||||
"*Minimum number of chars to the opening bracket.
|
||||
"Minimum number of chars to the opening bracket.
|
||||
|
||||
Consider this ObjC snippet:
|
||||
|
||||
|
|
@ -981,7 +981,7 @@ This behavior can be overridden by customizing the indentation of
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-objc-method-arg-unfinished-offset 4
|
||||
"*Offset relative to bracket if first selector is on a new line.
|
||||
"Offset relative to bracket if first selector is on a new line.
|
||||
|
||||
[aaaaaaaaa
|
||||
|<-x->|bbbbbbb: cccccc
|
||||
|
|
@ -990,7 +990,7 @@ This behavior can be overridden by customizing the indentation of
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-objc-method-parameter-offset 4
|
||||
"*Offset for selector parameter on a new line (relative to first selector.
|
||||
"Offset for selector parameter on a new line (relative to first selector.
|
||||
|
||||
[aaaaaaa bbbbbbbbbb:
|
||||
|<-x->|cccccccc
|
||||
|
|
@ -1001,7 +1001,7 @@ This behavior can be overridden by customizing the indentation of
|
|||
|
||||
(defcustom c-default-style '((java-mode . "java") (awk-mode . "awk")
|
||||
(other . "gnu"))
|
||||
"*Style which gets installed by default when a file is visited.
|
||||
"Style which gets installed by default when a file is visited.
|
||||
|
||||
The value of this variable can be any style defined in
|
||||
`c-style-alist', including styles you add. The value can also be an
|
||||
|
|
@ -1411,7 +1411,7 @@ Here is the current list of valid syntactic element symbols:
|
|||
do-while-closure else-clause catch-clause inlambda annotation-var-cont))
|
||||
|
||||
(defcustom c-style-variables-are-local-p t
|
||||
"*Whether style variables should be buffer local by default.
|
||||
"Whether style variables should be buffer local by default.
|
||||
If non-nil, then all indentation style related variables will be made
|
||||
buffer local by default. If nil, they will remain global. Variables
|
||||
are made buffer local when this file is loaded, and once buffer
|
||||
|
|
@ -1442,54 +1442,54 @@ The list of variables to buffer localize are:
|
|||
:group 'c)
|
||||
|
||||
(defcustom c-mode-hook nil
|
||||
"*Hook called by `c-mode'."
|
||||
"Hook called by `c-mode'."
|
||||
:type 'hook
|
||||
:group 'c)
|
||||
|
||||
(defcustom c++-mode-hook nil
|
||||
"*Hook called by `c++-mode'."
|
||||
"Hook called by `c++-mode'."
|
||||
:type 'hook
|
||||
:group 'c)
|
||||
|
||||
(defcustom objc-mode-hook nil
|
||||
"*Hook called by `objc-mode'."
|
||||
"Hook called by `objc-mode'."
|
||||
:type 'hook
|
||||
:group 'c)
|
||||
|
||||
(defcustom java-mode-hook nil
|
||||
"*Hook called by `java-mode'."
|
||||
"Hook called by `java-mode'."
|
||||
:type 'hook
|
||||
:group 'c)
|
||||
|
||||
(defcustom idl-mode-hook nil
|
||||
"*Hook called by `idl-mode'."
|
||||
"Hook called by `idl-mode'."
|
||||
:type 'hook
|
||||
:group 'c)
|
||||
|
||||
(defcustom pike-mode-hook nil
|
||||
"*Hook called by `pike-mode'."
|
||||
"Hook called by `pike-mode'."
|
||||
:type 'hook
|
||||
:group 'c)
|
||||
|
||||
(defcustom awk-mode-hook nil
|
||||
"*Hook called by `awk-mode'."
|
||||
"Hook called by `awk-mode'."
|
||||
:type 'hook
|
||||
:group 'c)
|
||||
|
||||
(defcustom c-mode-common-hook nil
|
||||
"*Hook called by all CC Mode modes for common initializations."
|
||||
"Hook called by all CC Mode modes for common initializations."
|
||||
:type 'hook
|
||||
:group 'c)
|
||||
|
||||
(defcustom c-initialization-hook nil
|
||||
"*Hook called when the CC Mode package gets initialized.
|
||||
"Hook called when the CC Mode package gets initialized.
|
||||
This hook is only run once per Emacs session and can be used as a
|
||||
`load-hook' or in place of using `eval-after-load'."
|
||||
:type 'hook
|
||||
:group 'c)
|
||||
|
||||
(defcustom c-enable-xemacs-performance-kludge-p nil
|
||||
"*Enables a XEmacs only hack that may improve speed for some coding styles.
|
||||
"Enables a XEmacs only hack that may improve speed for some coding styles.
|
||||
For styles that hang top-level opening braces (as is common with JDK
|
||||
Java coding styles) this can improve performance between 3 and 60
|
||||
times for core indentation functions (e.g. `c-parse-state'). For
|
||||
|
|
|
|||
|
|
@ -202,7 +202,7 @@
|
|||
|
||||
|
||||
(defcustom cperl-extra-newline-before-brace nil
|
||||
"*Non-nil means that if, elsif, while, until, else, for, foreach
|
||||
"Non-nil means that if, elsif, while, until, else, for, foreach
|
||||
and do constructs look like:
|
||||
|
||||
if ()
|
||||
|
|
@ -218,13 +218,13 @@ instead of:
|
|||
|
||||
(defcustom cperl-extra-newline-before-brace-multiline
|
||||
cperl-extra-newline-before-brace
|
||||
"*Non-nil means the same as `cperl-extra-newline-before-brace', but
|
||||
"Non-nil means the same as `cperl-extra-newline-before-brace', but
|
||||
for constructs with multiline if/unless/while/until/for/foreach condition."
|
||||
:type 'boolean
|
||||
:group 'cperl-autoinsert-details)
|
||||
|
||||
(defcustom cperl-indent-level 2
|
||||
"*Indentation of CPerl statements with respect to containing block."
|
||||
"Indentation of CPerl statements with respect to containing block."
|
||||
:type 'integer
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
|
|
@ -242,52 +242,52 @@ for constructs with multiline if/unless/while/until/for/foreach condition."
|
|||
;;;###autoload(put 'cperl-merge-trailing-else 'safe-local-variable 'booleanp)
|
||||
|
||||
(defcustom cperl-lineup-step nil
|
||||
"*`cperl-lineup' will always lineup at multiple of this number.
|
||||
"`cperl-lineup' will always lineup at multiple of this number.
|
||||
If nil, the value of `cperl-indent-level' will be used."
|
||||
:type '(choice (const nil) integer)
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-brace-imaginary-offset 0
|
||||
"*Imagined indentation of a Perl open brace that actually follows a statement.
|
||||
"Imagined indentation of a Perl open brace that actually follows a statement.
|
||||
An open brace following other text is treated as if it were this far
|
||||
to the right of the start of its line."
|
||||
:type 'integer
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-brace-offset 0
|
||||
"*Extra indentation for braces, compared with other text in same context."
|
||||
"Extra indentation for braces, compared with other text in same context."
|
||||
:type 'integer
|
||||
:group 'cperl-indentation-details)
|
||||
(defcustom cperl-label-offset -2
|
||||
"*Offset of CPerl label lines relative to usual indentation."
|
||||
"Offset of CPerl label lines relative to usual indentation."
|
||||
:type 'integer
|
||||
:group 'cperl-indentation-details)
|
||||
(defcustom cperl-min-label-indent 1
|
||||
"*Minimal offset of CPerl label lines."
|
||||
"Minimal offset of CPerl label lines."
|
||||
:type 'integer
|
||||
:group 'cperl-indentation-details)
|
||||
(defcustom cperl-continued-statement-offset 2
|
||||
"*Extra indent for lines not starting new statements."
|
||||
"Extra indent for lines not starting new statements."
|
||||
:type 'integer
|
||||
:group 'cperl-indentation-details)
|
||||
(defcustom cperl-continued-brace-offset 0
|
||||
"*Extra indent for substatements that start with open-braces.
|
||||
"Extra indent for substatements that start with open-braces.
|
||||
This is in addition to cperl-continued-statement-offset."
|
||||
:type 'integer
|
||||
:group 'cperl-indentation-details)
|
||||
(defcustom cperl-close-paren-offset -1
|
||||
"*Extra indent for substatements that start with close-parenthesis."
|
||||
"Extra indent for substatements that start with close-parenthesis."
|
||||
:type 'integer
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-indent-wrt-brace t
|
||||
"*Non-nil means indent statements in if/etc block relative brace, not if/etc.
|
||||
"Non-nil means indent statements in if/etc block relative brace, not if/etc.
|
||||
Versions 5.2 ... 5.20 behaved as if this were nil."
|
||||
:type 'boolean
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-auto-newline nil
|
||||
"*Non-nil means automatically newline before and after braces,
|
||||
"Non-nil means automatically newline before and after braces,
|
||||
and after colons and semicolons, inserted in CPerl code. The following
|
||||
\\[cperl-electric-backspace] will remove the inserted whitespace.
|
||||
Insertion after colons requires both this variable and
|
||||
|
|
@ -296,43 +296,43 @@ Insertion after colons requires both this variable and
|
|||
:group 'cperl-autoinsert-details)
|
||||
|
||||
(defcustom cperl-autoindent-on-semi nil
|
||||
"*Non-nil means automatically indent after insertion of (semi)colon.
|
||||
"Non-nil means automatically indent after insertion of (semi)colon.
|
||||
Active if `cperl-auto-newline' is false."
|
||||
:type 'boolean
|
||||
:group 'cperl-autoinsert-details)
|
||||
|
||||
(defcustom cperl-auto-newline-after-colon nil
|
||||
"*Non-nil means automatically newline even after colons.
|
||||
"Non-nil means automatically newline even after colons.
|
||||
Subject to `cperl-auto-newline' setting."
|
||||
:type 'boolean
|
||||
:group 'cperl-autoinsert-details)
|
||||
|
||||
(defcustom cperl-tab-always-indent t
|
||||
"*Non-nil means TAB in CPerl mode should always reindent the current line,
|
||||
"Non-nil means TAB in CPerl mode should always reindent the current line,
|
||||
regardless of where in the line point is when the TAB command is used."
|
||||
:type 'boolean
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-font-lock nil
|
||||
"*Non-nil (and non-null) means CPerl buffers will use `font-lock-mode'.
|
||||
"Non-nil (and non-null) means CPerl buffers will use `font-lock-mode'.
|
||||
Can be overwritten by `cperl-hairy' if nil."
|
||||
:type '(choice (const null) boolean)
|
||||
:group 'cperl-affected-by-hairy)
|
||||
|
||||
(defcustom cperl-electric-lbrace-space nil
|
||||
"*Non-nil (and non-null) means { after $ should be preceded by ` '.
|
||||
"Non-nil (and non-null) means { after $ should be preceded by ` '.
|
||||
Can be overwritten by `cperl-hairy' if nil."
|
||||
:type '(choice (const null) boolean)
|
||||
:group 'cperl-affected-by-hairy)
|
||||
|
||||
(defcustom cperl-electric-parens-string "({[]})<"
|
||||
"*String of parentheses that should be electric in CPerl.
|
||||
"String of parentheses that should be electric in CPerl.
|
||||
Closing ones are electric only if the region is highlighted."
|
||||
:type 'string
|
||||
:group 'cperl-affected-by-hairy)
|
||||
|
||||
(defcustom cperl-electric-parens nil
|
||||
"*Non-nil (and non-null) means parentheses should be electric in CPerl.
|
||||
"Non-nil (and non-null) means parentheses should be electric in CPerl.
|
||||
Can be overwritten by `cperl-hairy' if nil."
|
||||
:type '(choice (const null) boolean)
|
||||
:group 'cperl-affected-by-hairy)
|
||||
|
|
@ -345,20 +345,20 @@ Can be overwritten by `cperl-hairy' if nil."
|
|||
transient-mark-mode)
|
||||
(and (boundp 'zmacs-regions) ; For XEmacs
|
||||
zmacs-regions)))
|
||||
"*Not-nil means that electric parens look for active mark.
|
||||
"Not-nil means that electric parens look for active mark.
|
||||
Default is yes if there is visual feedback on mark."
|
||||
:type 'boolean
|
||||
:group 'cperl-autoinsert-details)
|
||||
|
||||
(defcustom cperl-electric-linefeed nil
|
||||
"*If true, LFD should be hairy in CPerl, otherwise C-c LFD is hairy.
|
||||
"If true, LFD should be hairy in CPerl, otherwise C-c LFD is hairy.
|
||||
In any case these two mean plain and hairy linefeeds together.
|
||||
Can be overwritten by `cperl-hairy' if nil."
|
||||
:type '(choice (const null) boolean)
|
||||
:group 'cperl-affected-by-hairy)
|
||||
|
||||
(defcustom cperl-electric-keywords nil
|
||||
"*Not-nil (and non-null) means keywords are electric in CPerl.
|
||||
"Not-nil (and non-null) means keywords are electric in CPerl.
|
||||
Can be overwritten by `cperl-hairy' if nil.
|
||||
|
||||
Uses `abbrev-mode' to do the expansion. If you want to use your
|
||||
|
|
@ -372,12 +372,12 @@ that begin with \"cperl-electric\".
|
|||
:group 'cperl-affected-by-hairy)
|
||||
|
||||
(defcustom cperl-electric-backspace-untabify t
|
||||
"*Not-nil means electric-backspace will untabify in CPerl."
|
||||
"Not-nil means electric-backspace will untabify in CPerl."
|
||||
:type 'boolean
|
||||
:group 'cperl-autoinsert-details)
|
||||
|
||||
(defcustom cperl-hairy nil
|
||||
"*Not-nil means most of the bells and whistles are enabled in CPerl.
|
||||
"Not-nil means most of the bells and whistles are enabled in CPerl.
|
||||
Affects: `cperl-font-lock', `cperl-electric-lbrace-space',
|
||||
`cperl-electric-parens', `cperl-electric-linefeed', `cperl-electric-keywords',
|
||||
`cperl-info-on-command-no-prompt', `cperl-clobber-lisp-bindings',
|
||||
|
|
@ -386,22 +386,22 @@ Affects: `cperl-font-lock', `cperl-electric-lbrace-space',
|
|||
:group 'cperl-affected-by-hairy)
|
||||
|
||||
(defcustom cperl-comment-column 32
|
||||
"*Column to put comments in CPerl (use \\[cperl-indent] to lineup with code)."
|
||||
"Column to put comments in CPerl (use \\[cperl-indent] to lineup with code)."
|
||||
:type 'integer
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-indent-comment-at-column-0 nil
|
||||
"*Non-nil means that comment started at column 0 should be indentable."
|
||||
"Non-nil means that comment started at column 0 should be indentable."
|
||||
:type 'boolean
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-vc-sccs-header '("($sccs) = ('%W\ %' =~ /(\\d+(\\.\\d+)+)/) ;")
|
||||
"*Special version of `vc-sccs-header' that is used in CPerl mode buffers."
|
||||
"Special version of `vc-sccs-header' that is used in CPerl mode buffers."
|
||||
:type '(repeat string)
|
||||
:group 'cperl)
|
||||
|
||||
(defcustom cperl-vc-rcs-header '("($rcs) = (' $Id\ $ ' =~ /(\\d+(\\.\\d+)+)/);")
|
||||
"*Special version of `vc-rcs-header' that is used in CPerl mode buffers."
|
||||
"Special version of `vc-rcs-header' that is used in CPerl mode buffers."
|
||||
:type '(repeat string)
|
||||
:group 'cperl)
|
||||
|
||||
|
|
@ -418,43 +418,43 @@ Affects: `cperl-font-lock', `cperl-electric-lbrace-space',
|
|||
;; (boundp 'interpreter-mode-alist)
|
||||
;; (assoc "miniperl" interpreter-mode-alist)
|
||||
;; (assoc "\\.\\([pP][Llm]\\|al\\)$" auto-mode-alist)))
|
||||
;; "*Whether to install us into `interpreter-' and `extension' mode lists."
|
||||
;; "Whether to install us into `interpreter-' and `extension' mode lists."
|
||||
;; :type 'boolean
|
||||
;; :group 'cperl)
|
||||
|
||||
(defcustom cperl-info-on-command-no-prompt nil
|
||||
"*Not-nil (and non-null) means not to prompt on C-h f.
|
||||
"Not-nil (and non-null) means not to prompt on C-h f.
|
||||
The opposite behavior is always available if prefixed with C-c.
|
||||
Can be overwritten by `cperl-hairy' if nil."
|
||||
:type '(choice (const null) boolean)
|
||||
:group 'cperl-affected-by-hairy)
|
||||
|
||||
(defcustom cperl-clobber-lisp-bindings nil
|
||||
"*Not-nil (and non-null) means not overwrite C-h f.
|
||||
"Not-nil (and non-null) means not overwrite C-h f.
|
||||
The function is available on \\[cperl-info-on-command], \\[cperl-get-help].
|
||||
Can be overwritten by `cperl-hairy' if nil."
|
||||
:type '(choice (const null) boolean)
|
||||
:group 'cperl-affected-by-hairy)
|
||||
|
||||
(defcustom cperl-lazy-help-time nil
|
||||
"*Not-nil (and non-null) means to show lazy help after given idle time.
|
||||
"Not-nil (and non-null) means to show lazy help after given idle time.
|
||||
Can be overwritten by `cperl-hairy' to be 5 sec if nil."
|
||||
:type '(choice (const null) (const nil) integer)
|
||||
:group 'cperl-affected-by-hairy)
|
||||
|
||||
(defcustom cperl-pod-face 'font-lock-comment-face
|
||||
"*Face for POD highlighting."
|
||||
"Face for POD highlighting."
|
||||
:type 'face
|
||||
:group 'cperl-faces)
|
||||
|
||||
(defcustom cperl-pod-head-face 'font-lock-variable-name-face
|
||||
"*Face for POD highlighting.
|
||||
"Face for POD highlighting.
|
||||
Font for POD headers."
|
||||
:type 'face
|
||||
:group 'cperl-faces)
|
||||
|
||||
(defcustom cperl-here-face 'font-lock-string-face
|
||||
"*Face for here-docs highlighting."
|
||||
"Face for here-docs highlighting."
|
||||
:type 'face
|
||||
:group 'cperl-faces)
|
||||
|
||||
|
|
@ -462,23 +462,23 @@ Font for POD headers."
|
|||
(defvar cperl-singly-quote-face (featurep 'xemacs))
|
||||
|
||||
(defcustom cperl-invalid-face 'underline
|
||||
"*Face for highlighting trailing whitespace."
|
||||
"Face for highlighting trailing whitespace."
|
||||
:type 'face
|
||||
:version "21.1"
|
||||
:group 'cperl-faces)
|
||||
|
||||
(defcustom cperl-pod-here-fontify '(featurep 'font-lock)
|
||||
"*Not-nil after evaluation means to highlight POD and here-docs sections."
|
||||
"Not-nil after evaluation means to highlight POD and here-docs sections."
|
||||
:type 'boolean
|
||||
:group 'cperl-faces)
|
||||
|
||||
(defcustom cperl-fontify-m-as-s t
|
||||
"*Not-nil means highlight 1arg regular expressions operators same as 2arg."
|
||||
"Not-nil means highlight 1arg regular expressions operators same as 2arg."
|
||||
:type 'boolean
|
||||
:group 'cperl-faces)
|
||||
|
||||
(defcustom cperl-highlight-variables-indiscriminately nil
|
||||
"*Non-nil means perform additional highlighting on variables.
|
||||
"Non-nil means perform additional highlighting on variables.
|
||||
Currently only changes how scalar variables are highlighted.
|
||||
Note that that variable is only read at initialization time for
|
||||
the variable `cperl-font-lock-keywords-2', so changing it after you've
|
||||
|
|
@ -487,125 +487,125 @@ entered CPerl mode the first time will have no effect."
|
|||
:group 'cperl)
|
||||
|
||||
(defcustom cperl-pod-here-scan t
|
||||
"*Not-nil means look for POD and here-docs sections during startup.
|
||||
"Not-nil means look for POD and here-docs sections during startup.
|
||||
You can always make lookup from menu or using \\[cperl-find-pods-heres]."
|
||||
:type 'boolean
|
||||
:group 'cperl-speed)
|
||||
|
||||
(defcustom cperl-regexp-scan t
|
||||
"*Not-nil means make marking of regular expression more thorough.
|
||||
"Not-nil means make marking of regular expression more thorough.
|
||||
Effective only with `cperl-pod-here-scan'."
|
||||
:type 'boolean
|
||||
:group 'cperl-speed)
|
||||
|
||||
(defcustom cperl-hook-after-change t
|
||||
"*Not-nil means install hook to know which regions of buffer are changed.
|
||||
"Not-nil means install hook to know which regions of buffer are changed.
|
||||
May significantly speed up delayed fontification. Changes take effect
|
||||
after reload."
|
||||
:type 'boolean
|
||||
:group 'cperl-speed)
|
||||
|
||||
(defcustom cperl-imenu-addback nil
|
||||
"*Not-nil means add backreferences to generated `imenu's.
|
||||
"Not-nil means add backreferences to generated `imenu's.
|
||||
May require patched `imenu' and `imenu-go'. Obsolete."
|
||||
:type 'boolean
|
||||
:group 'cperl-help-system)
|
||||
|
||||
(defcustom cperl-max-help-size 66
|
||||
"*Non-nil means shrink-wrapping of info-buffer allowed up to these percents."
|
||||
"Non-nil means shrink-wrapping of info-buffer allowed up to these percents."
|
||||
:type '(choice integer (const nil))
|
||||
:group 'cperl-help-system)
|
||||
|
||||
(defcustom cperl-shrink-wrap-info-frame t
|
||||
"*Non-nil means shrink-wrapping of info-buffer-frame allowed."
|
||||
"Non-nil means shrink-wrapping of info-buffer-frame allowed."
|
||||
:type 'boolean
|
||||
:group 'cperl-help-system)
|
||||
|
||||
(defcustom cperl-info-page "perl"
|
||||
"*Name of the info page containing perl docs.
|
||||
"Name of the info page containing perl docs.
|
||||
Older version of this page was called `perl5', newer `perl'."
|
||||
:type 'string
|
||||
:group 'cperl-help-system)
|
||||
|
||||
(defcustom cperl-use-syntax-table-text-property
|
||||
(boundp 'parse-sexp-lookup-properties)
|
||||
"*Non-nil means CPerl sets up and uses `syntax-table' text property."
|
||||
"Non-nil means CPerl sets up and uses `syntax-table' text property."
|
||||
:type 'boolean
|
||||
:group 'cperl-speed)
|
||||
|
||||
(defcustom cperl-use-syntax-table-text-property-for-tags
|
||||
cperl-use-syntax-table-text-property
|
||||
"*Non-nil means: set up and use `syntax-table' text property generating TAGS."
|
||||
"Non-nil means: set up and use `syntax-table' text property generating TAGS."
|
||||
:type 'boolean
|
||||
:group 'cperl-speed)
|
||||
|
||||
(defcustom cperl-scan-files-regexp "\\.\\([pP][Llm]\\|xs\\)$"
|
||||
"*Regexp to match files to scan when generating TAGS."
|
||||
"Regexp to match files to scan when generating TAGS."
|
||||
:type 'regexp
|
||||
:group 'cperl)
|
||||
|
||||
(defcustom cperl-noscan-files-regexp
|
||||
"/\\(\\.\\.?\\|SCCS\\|RCS\\|CVS\\|blib\\)$"
|
||||
"*Regexp to match files/dirs to skip when generating TAGS."
|
||||
"Regexp to match files/dirs to skip when generating TAGS."
|
||||
:type 'regexp
|
||||
:group 'cperl)
|
||||
|
||||
(defcustom cperl-regexp-indent-step nil
|
||||
"*Indentation used when beautifying regexps.
|
||||
"Indentation used when beautifying regexps.
|
||||
If nil, the value of `cperl-indent-level' will be used."
|
||||
:type '(choice integer (const nil))
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-indent-left-aligned-comments t
|
||||
"*Non-nil means that the comment starting in leftmost column should indent."
|
||||
"Non-nil means that the comment starting in leftmost column should indent."
|
||||
:type 'boolean
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-under-as-char nil
|
||||
"*Non-nil means that the _ (underline) should be treated as word char."
|
||||
"Non-nil means that the _ (underline) should be treated as word char."
|
||||
:type 'boolean
|
||||
:group 'cperl)
|
||||
(make-obsolete-variable 'cperl-under-as-char 'superword-mode "24.4")
|
||||
|
||||
(defcustom cperl-extra-perl-args ""
|
||||
"*Extra arguments to use when starting Perl.
|
||||
"Extra arguments to use when starting Perl.
|
||||
Currently used with `cperl-check-syntax' only."
|
||||
:type 'string
|
||||
:group 'cperl)
|
||||
|
||||
(defcustom cperl-message-electric-keyword t
|
||||
"*Non-nil means that the `cperl-electric-keyword' prints a help message."
|
||||
"Non-nil means that the `cperl-electric-keyword' prints a help message."
|
||||
:type 'boolean
|
||||
:group 'cperl-help-system)
|
||||
|
||||
(defcustom cperl-indent-region-fix-constructs 1
|
||||
"*Amount of space to insert between `}' and `else' or `elsif'
|
||||
"Amount of space to insert between `}' and `else' or `elsif'
|
||||
in `cperl-indent-region'. Set to nil to leave as is. Values other
|
||||
than 1 and nil will probably not work."
|
||||
:type '(choice (const nil) (const 1))
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-break-one-line-blocks-when-indent t
|
||||
"*Non-nil means that one-line if/unless/while/until/for/foreach BLOCKs
|
||||
"Non-nil means that one-line if/unless/while/until/for/foreach BLOCKs
|
||||
need to be reformatted into multiline ones when indenting a region."
|
||||
:type 'boolean
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-fix-hanging-brace-when-indent t
|
||||
"*Non-nil means that BLOCK-end `}' may be put on a separate line
|
||||
"Non-nil means that BLOCK-end `}' may be put on a separate line
|
||||
when indenting a region.
|
||||
Braces followed by else/elsif/while/until are excepted."
|
||||
:type 'boolean
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-merge-trailing-else t
|
||||
"*Non-nil means that BLOCK-end `}' followed by else/elsif/continue
|
||||
"Non-nil means that BLOCK-end `}' followed by else/elsif/continue
|
||||
may be merged to be on the same line when indenting a region."
|
||||
:type 'boolean
|
||||
:group 'cperl-indentation-details)
|
||||
|
||||
(defcustom cperl-indent-parens-as-block nil
|
||||
"*Non-nil means that non-block ()-, {}- and []-groups are indented as blocks,
|
||||
"Non-nil means that non-block ()-, {}- and []-groups are indented as blocks,
|
||||
but for trailing \",\" inside the group, which won't increase indentation.
|
||||
One should tune up `cperl-close-paren-offset' as well."
|
||||
:type 'boolean
|
||||
|
|
@ -614,20 +614,20 @@ One should tune up `cperl-close-paren-offset' as well."
|
|||
(defcustom cperl-syntaxify-by-font-lock
|
||||
(and cperl-can-font-lock
|
||||
(boundp 'parse-sexp-lookup-properties))
|
||||
"*Non-nil means that CPerl uses the `font-lock' routines for syntaxification."
|
||||
"Non-nil means that CPerl uses the `font-lock' routines for syntaxification."
|
||||
:type '(choice (const message) boolean)
|
||||
:group 'cperl-speed)
|
||||
|
||||
(defcustom cperl-syntaxify-unwind
|
||||
t
|
||||
"*Non-nil means that CPerl unwinds to a start of a long construction
|
||||
"Non-nil means that CPerl unwinds to a start of a long construction
|
||||
when syntaxifying a chunk of buffer."
|
||||
:type 'boolean
|
||||
:group 'cperl-speed)
|
||||
|
||||
(defcustom cperl-syntaxify-for-menu
|
||||
t
|
||||
"*Non-nil means that CPerl syntaxifies up to the point before showing menu.
|
||||
"Non-nil means that CPerl syntaxifies up to the point before showing menu.
|
||||
This way enabling/disabling of menu items is more correct."
|
||||
:type 'boolean
|
||||
:group 'cperl-speed)
|
||||
|
|
@ -8578,7 +8578,7 @@ the appropriate statement modifier."
|
|||
(cperl-perldoc (cperl-word-at-point)))
|
||||
|
||||
(defcustom pod2man-program "pod2man"
|
||||
"*File name for `pod2man'."
|
||||
"File name for `pod2man'."
|
||||
:type 'file
|
||||
:group 'cperl)
|
||||
|
||||
|
|
|
|||
|
|
@ -89,7 +89,7 @@
|
|||
(defconst a-defconst 'a "var doc const")
|
||||
|
||||
(defcustom a-defcustom nil
|
||||
"*doc custom"
|
||||
"doc custom"
|
||||
:group 'a-defgroup
|
||||
:type 'boolean)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue