Mercurial > hg > xemacs-beta

comparison lisp/gnus/mailheader.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 0d2f883870bc
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
60 start end) 60 start end)
61 (while (and (setq start (point)) 61 (while (and (setq start (point))
62 (> (skip-chars-forward "^\0- :") 0) 62 (> (skip-chars-forward "^\0- :") 0)
63 (= (following-char) ?:) 63 (= (following-char) ?:)
64 (setq end (point)) 64 (setq end (point))
65 (progn (forward-char) 65 (progn (forward-char)
66 (> (skip-chars-forward " \t") 0))) 66 (> (skip-chars-forward " \t") 0)))
67 (let ((header (intern (downcase (buffer-substring start end)))) 67 (let ((header (intern (downcase (buffer-substring start end))))
68 (value (list (buffer-substring 68 (value (list (buffer-substring
69 (point) (progn (end-of-line) (point)))))) 69 (point) (progn (end-of-line) (point))))))
70 (while (progn (forward-char) (> (skip-chars-forward " \t") 0)) 70 (while (progn (forward-char) (> (skip-chars-forward " \t") 0))