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 ". |
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 ". |
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)) |