Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmail.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 48d667d6f17f
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
769 (goto-char (point-min)) 769 (goto-char (point-min))
770 (nnmail-check-duplication message-id func artnum-func) 770 (nnmail-check-duplication message-id func artnum-func)
771 (setq end (point-max)))) 771 (setq end (point-max))))
772 (goto-char end)))) 772 (goto-char end))))
773 773
774 (defun nnmail-search-unix-mail-delim () 774 (defsubst nnmail-search-unix-mail-delim ()
775 "Put point at the beginning of the next Unix mbox message." 775 "Put point at the beginning of the next Unix mbox message."
776 ;; Algorithm used to find the the next article in the 776 ;; Algorithm used to find the the next article in the
777 ;; brain-dead Unix mbox format: 777 ;; brain-dead Unix mbox format:
778 ;; 778 ;;
779 ;; 1) Search for "^From ". 779 ;; 1) Search for "^From ".
985 (unless (zerop (buffer-size)) 985 (unless (zerop (buffer-size))
986 (goto-char (point-min)) 986 (goto-char (point-min))
987 (save-excursion (run-hooks 'nnmail-prepare-incoming-hook)) 987 (save-excursion (run-hooks 'nnmail-prepare-incoming-hook))
988 ;; Handle both babyl, MMDF and unix mail formats, since movemail will 988 ;; Handle both babyl, MMDF and unix mail formats, since movemail will
989 ;; use the former when fetching from a mailbox, the latter when 989 ;; use the former when fetching from a mailbox, the latter when
990 ;; fetches from a file. 990 ;; fetching from a file.
991 (cond ((or (looking-at "\^L") 991 (cond ((or (looking-at "\^L")
992 (looking-at "BABYL OPTIONS:")) 992 (looking-at "BABYL OPTIONS:"))
993 (nnmail-process-babyl-mail-format func artnum-func)) 993 (nnmail-process-babyl-mail-format func artnum-func))
994 ((looking-at "\^A\^A\^A\^A") 994 ((looking-at "\^A\^A\^A\^A")
995 (nnmail-process-mmdf-mail-format func artnum-func)) 995 (nnmail-process-mmdf-mail-format func artnum-func))