# HG changeset patch # User Karl Heuer # Date 820799162 0 # Node ID 844367c3fd0f78720bc50d77af50a40cf437bf9f # Parent 2f2d3995b57fd294b7febf6b4738b51d66653f19 (nnmail-message-id-cache-length): Doc fix. diff -r 2f2d3995b57f -r 844367c3fd0f lisp/nnmail.el --- a/lisp/nnmail.el Thu Jan 04 23:45:49 1996 +0000 +++ b/lisp/nnmail.el Thu Jan 04 23:46:02 1996 +0000 @@ -202,7 +202,7 @@ (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 @@ (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 @@ 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 @@ (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 @@ 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))