From 821db8fd07e39a8b30ecc8aa9d688c86222829af Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 4 Jan 1996 23:46:02 +0000 Subject: [PATCH] (nnmail-message-id-cache-length): Doc fix. --- lisp/nnmail.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 2de0bcaad2a..a8eecb18baa 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -202,7 +202,7 @@ Example: (defvar nnmail-message-id-cache-length 1000 "*The approximate number of Message-IDs nnmail will keep in its cache. If this variable is nil, no checking on duplicate messages will be -perfomed.") +performed.") (defvar nnmail-message-id-cache-file "~/.nnmail-cache" "*The file name of the nnmail Message-ID cache.") @@ -570,7 +570,7 @@ FUNC will be called with the buffer narrowed to each mail." (current-buffer) (kill-buffer (current-buffer)))))) -;; Mail crossposts syggested by Brian Edmonds . +;; Mail crossposts suggested by Brian Edmonds . (defun nnmail-article-group (func) "Look at the headers and return an alist of groups that match. FUNC will be called with the group name to determine the article number." @@ -610,7 +610,7 @@ FUNC will be called with the group name to determine the article number." Problems with `nnmail-split-methods', using `bogus' mail group") (sit-for 1) '("bogus"))))) - ;; Go throught the split methods to find a match. + ;; Go through the split methods to find a match. (while (and methods (or nnmail-crosspost (not group-art))) (goto-char (point-max)) (if (or (cdr methods) @@ -688,7 +688,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." (nnmail-split-it nnmail-split-fancy)) (defvar nnmail-split-cache nil) -;; Alist of split expresions their equivalent regexps. +;; Alist of split expressions their equivalent regexps. (defun nnmail-split-it (split) ;; Return a list of groups matching SPLIT. @@ -742,7 +742,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." t (concat (if group group "") nnmail-procmail-suffix "$") t))) (p procmails)) - ;; Remove any directories that inadvertantly match the procmail + ;; Remove any directories that inadvertently match the procmail ;; suffix, which might happen if the suffix is "". (while p (and (or (file-directory-p (car p)) -- 2.39.2