From: keiichi Date: Thu, 5 Aug 1999 02:42:10 +0000 (+0000) Subject: (nnmail-get-spool-files): Fix bug in latest changes. X-Git-Tag: nana-gnus-6_13_4b3-~7 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=48f51e45cd99c0c34143adc42db20befc12f82d3;p=elisp%2Fgnus.git- (nnmail-get-spool-files): Fix bug in latest changes. (nnmail-pop3-movemail): Ditto. --- diff --git a/lisp/nnmail.el b/lisp/nnmail.el index ce912fb..e348952 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -1479,10 +1479,11 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." 'nconc (mapcar (lambda (file) - (if (and (not (string-match "^po:" file)) - (file-directory-p file)) - (nnheader-directory-regular-files file) - (list file))) + (let ((file-name (if (listp file) (car file) file))) + (if (and (not (string-match "^po:" file-name)) + (file-directory-p file-name)) + (nnheader-directory-regular-files file-name) + (list file)))) nnmail-spool-file)) procmails)) ((stringp nnmail-spool-file) @@ -1905,11 +1906,11 @@ If ARGS, PROMPT is used as an argument to `format'." (pop3-password (or nnmail-internal-password pop3-password)) (pop3-authentication-scheme - (or (car (cdr (assq :auth-scheme options))) + (or (car (cdr (memq :auth-scheme options))) pop3-authentication-scheme)) (pop3-mailhost (or (nnmail-spool-mailhost inbox-info) pop3-mailhost)) - (pop3-port (or (car (cdr (assq :port options))) + (pop3-port (or (car (cdr (memq :port options))) pop3-port))) (pop3-movemail crashbox)))