[Emacs-diffs] master d038d31: (nnir-notmuch-remove-prefix): Respect MAILDIR

[Lars Ingebrigtsen]

branch: master
commit d038d31c37b6d06abf09fbe676866ac829256098
Author: Andreas Schwab <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    (nnir-notmuch-remove-prefix): Respect MAILDIR
    
    * lisp/gnus/nnir.el (nnir-notmuch-remove-prefix): Respect MAILDIR
    and regexp-quote the result (bug#34940).
---
 lisp/gnus/nnir.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 9d59a4d..d66bdf4 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)