Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnml.el @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 25f70ba0133c
children
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
757 (goto-char (point-min)) 757 (goto-char (point-min))
758 (progn 758 (progn
759 (search-forward "\n\n" nil t) 759 (search-forward "\n\n" nil t)
760 (setq chars (- (point-max) (point))) 760 (setq chars (- (point-max) (point)))
761 (max 1 (1- (point))))) 761 (max 1 (1- (point)))))
762 (when (and (not (= 0 chars)) ; none of them empty files... 762 (unless (zerop (buffer-size))
763 (not (= (point-min) (point-max))))
764 (goto-char (point-min)) 763 (goto-char (point-min))
765 (setq headers (nnml-parse-head chars (caar files))) 764 (setq headers (nnml-parse-head chars (caar files)))
766 (save-excursion 765 (save-excursion
767 (set-buffer nov-buffer) 766 (set-buffer nov-buffer)
768 (goto-char (point-max)) 767 (goto-char (point-max))