(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)
)
(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
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)
;;; 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
(: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)
;; 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)
(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
)
(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
)
;; 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."
;;
(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)
(: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)
(: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)
(: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)
(: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)
(: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)
(: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)
;;; 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)
(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)
(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
;; 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
;;;###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)
;;;###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)
;;;###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)
'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
'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)
(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."
: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
"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)
;; 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.
'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)
(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)
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)
(: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
: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)
(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."
"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
(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
(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."
"{ 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
;; 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)
: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."
: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
(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:
(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:
: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)
("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).
(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)
(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.
: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
: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, ...
: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'
;; 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
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:
: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
(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)
: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)
(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)
: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\".
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\".
(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)
(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)
(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.
: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)
: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.
: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)
(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)
: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)
(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
(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.
(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)
(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',
(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.
: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:
: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
(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")
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
(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.
: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)
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."
(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
(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."
(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)
: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")
;;; 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)
(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)
;;;
(defcustom gnus-pick-display-summary nil
- "*Display summary while reading."
+ "Display summary while reading."
:type 'boolean
:group 'gnus-summary-pick)
: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)
(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)
: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)
"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)
: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)
(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
(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)
(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)
"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))
(,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"))))
: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
: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.
(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.
"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
(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
: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
: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
"^[\"][\"#'()]" ; 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."
: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
(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
(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:
(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):
: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."
(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.
: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.
(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
(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
(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)
(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
: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
(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"
: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
: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."
: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
: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."
(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
(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.
(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
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"
: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"
: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."
: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."
(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'.
(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)
(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
(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
(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
(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
(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
(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
: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
: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."
;; 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)
(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)
: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
(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.
: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:
(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
: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
(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
(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"
(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.
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
: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
: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)
. 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
"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))
(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."
(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
: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."
: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)
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
("\\.\\(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.
(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
("\\.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"))))
: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
(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
: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)
: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."
: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,
"^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
: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"
"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)
"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)
(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
: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))
: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'."
: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
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."
: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.
(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."
: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."
(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."
: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
(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
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
(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"
: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 "\
: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 "\
: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 "\
: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
: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
: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)
'("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
;; 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
: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
: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."
: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
: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."
: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
: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
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
: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."
: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)
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.
'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)
(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)
(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.
(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"
: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)
: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)
: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."
(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."
(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)
(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.
(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"
: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
'(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
(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
(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")
(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
(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)
;;; 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
(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
(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
: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."
: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
(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
(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.
(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
: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
(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")
;; 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")
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
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")
: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
(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."
(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
: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"
: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'."
: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'."
(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")
(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"
((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
: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
: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"
: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"
: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
: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
: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."
: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."
: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."
: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,
: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
: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.
: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.
"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")
(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
: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")
;; 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."
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."
(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")
(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.
: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")
(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).
: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
(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)
(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."
: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."
: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)
(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"))
(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"))
(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."
: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."
(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
(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)
(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)
(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)
(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)
: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:
: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.
: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"
(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
: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.
'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."
(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
: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.
;; 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:
: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
;; 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.
: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
: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
: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.
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)
: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
: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'."
(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
;; 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
(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."
(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
: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
(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
: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);
((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))
("\\(:-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'."
(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)
: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")
: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:
: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)
: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
(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")
: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).
: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")
: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
;;; 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))
(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
;;; 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
: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,
: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
: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
: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
: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:
: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.
: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."
: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
: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
: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
: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'
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
: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
;;; 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
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
: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
: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
: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
: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,
: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."
: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
: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
: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
: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
;;; 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
(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
(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
;;; 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
: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,
: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
: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
: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
: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.
;; 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
: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
: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
;;; 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
: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'."
: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,
: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
: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
: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.
: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:
: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
: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
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
: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.
(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
: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
: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
: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\"
: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
: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
: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
: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
: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
;;; 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
;; 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
;; 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
: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
(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)
(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)
"*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)
(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
: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)
: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
: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.
: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
;;; 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
: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\".
: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
(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
: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
: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'.
(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
(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:
: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)
'((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)
: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
(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
'((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.
'((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.
: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
: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:
(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).
: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).
(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
: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
;;;###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
: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
: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)
'((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
: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
: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."
: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:
: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
: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
(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
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
: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
\f
(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 ()
(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)
;;;###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
: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)
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
: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',
: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)
;; (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)
(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
: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
(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)
(cperl-perldoc (cperl-word-at-point)))
(defcustom pod2man-program "pod2man"
- "*File name for `pod2man'."
+ "File name for `pod2man'."
:type 'file
:group 'cperl)
(defconst a-defconst 'a "var doc const")
(defcustom a-defcustom nil
- "*doc custom"
+ "doc custom"
:group 'a-defgroup
:type 'boolean)