procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix docstring and init of Gnus search -remove-prefix options

Browse source 
* lisp/gnus/gnus-search.el (*-remove-prefix): For all engine defaults,
remove incorrect docs stating this is a regexp (it's a string). Also,
use `expand-file-name' to get the correct default value, not `concat'
and (getenv "HOME").
This commit is contained in:
Eric Abrahamsen 2022-02-14 16:06:14 -08:00
parent d6fba624e6
commit d43ca38556
1 changed files with 10 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/gnus/gnus-search.el
View file

@ -167,10 +167,9 @@ Instead, use this:
This variable can also be set per-server."
:type '(repeat string))
(defcustom gnus-search-swish++-remove-prefix (concat (getenv "HOME") "/Mail/")
(defcustom gnus-search-swish++-remove-prefix (expand-file-name "Mail/" "~")
"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.
in order to get a group name (albeit with / instead of .).
This variable can also be set per-server."
:type 'regexp)
@ -204,10 +203,9 @@ This variable can also be set per-server."
:type '(repeat string)
:version "28.1")
(defcustom gnus-search-swish-e-remove-prefix (concat (getenv "HOME") "/Mail/")
(defcustom gnus-search-swish-e-remove-prefix (expand-file-name "Mail/" "~")
"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.
in order to get a group name (albeit with / instead of .).
This variable can also be set per-server."
:type 'regexp
@ -252,7 +250,7 @@ This variable can also be set per-server."
:type '(repeat string)
:version "28.1")
(defcustom gnus-search-namazu-remove-prefix (concat (getenv "HOME") "/Mail/")
(defcustom gnus-search-namazu-remove-prefix (expand-file-name "Mail/" "~")
"The prefix to remove from each file name returned by Namazu
in order to get a group name (albeit with / instead of .).
@ -296,10 +294,9 @@ This variable can also be set per-server."
:type '(repeat string)
:version "28.1")
(defcustom gnus-search-notmuch-remove-prefix (concat (getenv "HOME") "/Mail/")
(defcustom gnus-search-notmuch-remove-prefix (expand-file-name "Mail/" "~")
"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.
in order to get a group name (albeit with / instead of .).
This variable can also be set per-server."
:type 'regexp
@ -339,10 +336,9 @@ This variable can also be set per-server."
:version "28.1"
:type '(repeat string))
(defcustom gnus-search-mairix-remove-prefix (concat (getenv "HOME") "/Mail/")
(defcustom gnus-search-mairix-remove-prefix (expand-file-name "Mail/" "~")
"The prefix to remove from each file name returned by mairix
in order to get a group name (albeit with / instead of .). This is a
regular expression.
in order to get a group name (albeit with / instead of .).
This variable can also be set per-server."
:version "28.1"
@ -826,7 +822,7 @@ quirks.")
:documentation "Location of the config file, if any.")
(remove-prefix
:initarg :remove-prefix
:initform (concat (getenv "HOME") "/Mail/")
:initform (expand-file-name "Mail/" "~")
:type string
:documentation
"The path to the directory where the indexed mails are