From 5832c0dd28ca7223c422d5a5c9ee60b5259a79f9 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 7 Jan 1998 15:45:37 +0000 Subject: [PATCH] Sync with Quassia Gnus v0.22. --- lisp/nnmail.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 1026dae..3e9cd0f 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -300,8 +300,8 @@ that) from the headers before splitting and saving the messages." This can also be a list of regexps." :group 'nnmail-prepare :type '(choice (const :tag "none" nil) - regexp - (repeat regexp))) + (regexp :value ".*") + (repeat :value (".*") regexp))) (defcustom nnmail-pre-get-new-mail-hook nil "Hook called just before starting to handle new incoming mail." @@ -1348,7 +1348,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." nnmail-use-procmail) (directory-files nnmail-procmail-directory - t (concat (if group (concat "^" group) "") + t (concat (if group (concat "^" (regexp-quote group)) "") nnmail-procmail-suffix "$")))) (p procmails) (crash (when (and (file-exists-p nnmail-crash-box) @@ -1592,6 +1592,8 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." (file-name-nondirectory (concat (file-name-as-directory temp) "Incoming"))) (concat (file-name-as-directory temp) "Incoming"))))) + (unless (file-exists-p (file-name-directory incoming)) + (make-directory (file-name-directory incoming) t)) (rename-file nnmail-crash-box incoming t) (push incoming incomings)))) ;; If we did indeed read any incoming spools, we save all info. -- 1.7.10.4