Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmail.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 43dd3413c7c7
children 15872534500d
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
804 (save-excursion 804 (save-excursion
805 (forward-line -1) 805 (forward-line -1)
806 (= (following-char) ?\n))) 806 (= (following-char) ?\n)))
807 (save-excursion 807 (save-excursion
808 (forward-line 1) 808 (forward-line 1)
809 (while (looking-at ">From ") 809 (while (looking-at ">From \\|From ")
810 (forward-line 1)) 810 (forward-line 1))
811 (looking-at "[^ \n\t:]+[ \n\t]*:"))) 811 (looking-at "[^ \n\t:]+[ \n\t]*:")))
812 (setq found 'yes))))) 812 (setq found 'yes)))))
813 (beginning-of-line) 813 (beginning-of-line)
814 (eq found 'yes))) 814 (eq found 'yes)))
833 (save-excursion 833 (save-excursion
834 (forward-line -1) 834 (forward-line -1)
835 (= (following-char) ?\n))) 835 (= (following-char) ?\n)))
836 (save-excursion 836 (save-excursion
837 (forward-line 1) 837 (forward-line 1)
838 (while (looking-at ">From ") 838 (while (looking-at ">From \\|From ")
839 (forward-line 1)) 839 (forward-line 1))
840 (looking-at "[^ \n\t:]+[ \n\t]*:"))) 840 (looking-at "[^ \n\t:]+[ \n\t]*:")))
841 (setq found 'yes))))) 841 (setq found 'yes)))))
842 (beginning-of-line) 842 (beginning-of-line)
843 (eq found 'yes))) 843 (eq found 'yes)))