Mercurial > hg > xemacs-beta
diff lisp/gnus/nnmail.el @ 110:fe104dbd9147 r20-1b7
Import from CVS: tag r20-1b7
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:19:45 +0200 |
parents | 360340f9fd5f |
children | 48d667d6f17f |
line wrap: on
line diff
--- a/lisp/gnus/nnmail.el Mon Aug 13 09:18:41 2007 +0200 +++ b/lisp/gnus/nnmail.el Mon Aug 13 09:19:45 2007 +0200 @@ -771,7 +771,7 @@ (setq end (point-max)))) (goto-char end)))) -(defun nnmail-search-unix-mail-delim () +(defsubst nnmail-search-unix-mail-delim () "Put point at the beginning of the next Unix mbox message." ;; Algorithm used to find the the next article in the ;; brain-dead Unix mbox format: @@ -987,7 +987,7 @@ (save-excursion (run-hooks 'nnmail-prepare-incoming-hook)) ;; Handle both babyl, MMDF and unix mail formats, since movemail will ;; use the former when fetching from a mailbox, the latter when - ;; fetches from a file. + ;; fetching from a file. (cond ((or (looking-at "\^L") (looking-at "BABYL OPTIONS:")) (nnmail-process-babyl-mail-format func artnum-func))