From 427eebccd5a8bf5d59b86a2151d39b9116858e00 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 9 Oct 2000 12:54:05 +0000 Subject: [PATCH] 2000-10-05 Stefan Monnier * nnfolder.el (nnfolder-ignore-active-file): Typos. * gnus-mh.el (gnus-summary-save-in-folder): Obey mh-lib-progs. * gnus-kill.el (gnus-kill): Typo. --- lisp/gnus-kill.el | 2 +- lisp/gnus-mh.el | 6 +++++- lisp/nnfolder.el | 4 ++-- 3 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/gnus-kill.el b/lisp/gnus-kill.el index 4838ba877..dfed2898c 100644 --- a/lisp/gnus-kill.el +++ b/lisp/gnus-kill.el @@ -523,7 +523,7 @@ COMMAND must be a lisp expression or a string representing a key sequence." (if (listp kill-list) ;; It is a list. (if (not (consp (cdr kill-list))) - ;; It's on the form (regexp . date). + ;; It's of the form (regexp . date). (if (zerop (gnus-execute field (car kill-list) command nil (not all))) (when (> (days-between date (cdr kill-list)) diff --git a/lisp/gnus-mh.el b/lisp/gnus-mh.el index f7377120a..a73e90b6a 100644 --- a/lisp/gnus-mh.el +++ b/lisp/gnus-mh.el @@ -67,7 +67,11 @@ Optional argument FOLDER specifies folder name." t)))) (errbuf (gnus-get-buffer-create " *Gnus rcvstore*")) ;; Find the rcvstore program. - (exec-path (if mh-lib (cons mh-lib exec-path) exec-path))) + (exec-path (cond + ((and (boundp 'mh-lib-progs) mh-lib-progs) + (cons mh-lib-progs exec-path)) + (mh-lib (cons mh-lib exec-path)) + (t exec-path)))) (with-current-buffer gnus-original-article-buffer (save-restriction (widen) diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el index d782835aa..4b474b4de 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -48,10 +48,10 @@ ;; style. -SLB (defvoo nnfolder-ignore-active-file nil - "If non-nil, the active file is ignores. + "If non-nil, the active file is ignored. This causes nnfolder to do some extra work in order to determine the true active ranges of an mbox file. Note that the active file is -still saved, but it's values are not used. This costs some extra time +still saved, but its values are not used. This costs some extra time when scanning an mbox when opening it.") (defvoo nnfolder-distrust-mbox nil -- 2.34.1