diff options
author | Andreas Schwab <schwab@linux-m68k.org> | 2019-06-22 14:55:06 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-22 14:55:06 +0200 |
commit | d038d31c37b6d06abf09fbe676866ac829256098 (patch) | |
tree | 6ee9c04a2e3a88d0a6ed3d6bf74775c7c6084f15 | |
parent | 68d887287594c105a83abe712b1cfc2346a198bc (diff) | |
download | emacs-d038d31c37b6d06abf09fbe676866ac829256098.tar.gz |
(nnir-notmuch-remove-prefix): Respect MAILDIR
* lisp/gnus/nnir.el (nnir-notmuch-remove-prefix): Respect MAILDIR
and regexp-quote the result (bug#34940).
-rw-r--r-- | lisp/gnus/nnir.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el index 9d59a4db0da..d66bdf47066 100644 --- a/lisp/gnus/nnir.el +++ b/lisp/gnus/nnir.el @@ -507,14 +507,15 @@ Instead, use this: :type '(repeat (string)) :group 'nnir) -(defcustom nnir-notmuch-remove-prefix (concat (getenv "HOME") "/Mail/") +(defcustom nnir-notmuch-remove-prefix + (regexp-quote (or (getenv "MAILDIR") (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. This variable is very similar to `nnir-namazu-remove-prefix', except that it is for notmuch, not Namazu." - :version "24.1" + :version "27.1" :type '(regexp) :group 'nnir) |