/[emacs]/emacs/lisp/gnus/nnmail.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14.4.2 by zsh, Thu Feb 7 15:44:12 2002 UTC revision 1.14.4.3 by eliz, Thu May 16 16:02:47 2002 UTC
# Line 651  If SOURCE is a directory spec, try to re Line 651  If SOURCE is a directory spec, try to re
651    
652  (defsubst nnmail-search-unix-mail-delim ()  (defsubst nnmail-search-unix-mail-delim ()
653    "Put point at the beginning of the next Unix mbox message."    "Put point at the beginning of the next Unix mbox message."
654    ;; Algorithm used to find the the next article in the    ;; Algorithm used to find the next article in the
655    ;; brain-dead Unix mbox format:    ;; brain-dead Unix mbox format:
656    ;;    ;;
657    ;; 1) Search for "^From ".    ;; 1) Search for "^From ".
# Line 680  If SOURCE is a directory spec, try to re Line 680  If SOURCE is a directory spec, try to re
680    
681  (defun nnmail-search-unix-mail-delim-backward ()  (defun nnmail-search-unix-mail-delim-backward ()
682    "Put point at the beginning of the current Unix mbox message."    "Put point at the beginning of the current Unix mbox message."
683    ;; Algorithm used to find the the next article in the    ;; Algorithm used to find the next article in the
684    ;; brain-dead Unix mbox format:    ;; brain-dead Unix mbox format:
685    ;;    ;;
686    ;; 1) Search for "^From ".    ;; 1) Search for "^From ".
# Line 1188  See the documentation for the variable ` Line 1188  See the documentation for the variable `
1188            (let ((split-rest (cddr split))            (let ((split-rest (cddr split))
1189                  (end (match-end 0))                  (end (match-end 0))
1190                  ;; The searched regexp is \(\(FIELD\).*\)\(VALUE\).  So,                  ;; The searched regexp is \(\(FIELD\).*\)\(VALUE\).  So,
1191                  ;; start-of-value is the the point just before the                  ;; start-of-value is the point just before the
1192                  ;; beginning of the value, whereas after-header-name is                  ;; beginning of the value, whereas after-header-name is
1193                  ;; the point just after the field name.                  ;; the point just after the field name.
1194                  (start-of-value (match-end 1))                  (start-of-value (match-end 1))

Legend:
Removed from v.1.14.4.2  
changed lines
  Added in v.1.14.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26