mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Juanma Barranquero 2002-05-16 12:01:57 +00:00
parent e7bdfdcf2a
commit b96fb65cd3
5 changed files with 17 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/nnmail.el
View file

@ -651,7 +651,7 @@ If SOURCE is a directory spec, try to return the group name component."
(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
;; Algorithm used to find the next article in the
;; brain-dead Unix mbox format:
;;
;; 1) Search for "^From ".
@ -680,7 +680,7 @@ If SOURCE is a directory spec, try to return the group name component."
(defun nnmail-search-unix-mail-delim-backward ()
"Put point at the beginning of the current Unix mbox message."
;; Algorithm used to find the the next article in the
;; Algorithm used to find the next article in the
;; brain-dead Unix mbox format:
;;
;; 1) Search for "^From ".
@ -1188,7 +1188,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
(let ((split-rest (cddr split))
(end (match-end 0))
;; The searched regexp is \(\(FIELD\).*\)\(VALUE\). So,
;; start-of-value is the the point just before the
;; start-of-value is the point just before the
;; beginning of the value, whereas after-header-name is
;; the point just after the field name.
(start-of-value (match-end 1))