Mercurial > hg > xemacs-beta

comparison lisp/gnus/mailheader.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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))