Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.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 85ec50267440
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
2296 (goto-char (point-min)) 2296 (goto-char (point-min))
2297 (re-search-forward 2297 (re-search-forward
2298 (concat "^" (regexp-quote mail-header-separator) "$")) 2298 (concat "^" (regexp-quote mail-header-separator) "$"))
2299 (while (not (eobp)) 2299 (while (not (eobp))
2300 (when (not (looking-at "[ \t\n]")) 2300 (when (not (looking-at "[ \t\n]"))
2301 (setq sum (logxor (ash sum 1) (following-char)))) 2301 (setq sum (logxor (ash sum 1) (if (natnump sum) 0 1)
2302 (following-char))))
2302 (forward-char 1))) 2303 (forward-char 1)))
2303 sum)) 2304 sum))
2304 2305
2305 (defun message-do-fcc () 2306 (defun message-do-fcc ()
2306 "Process Fcc headers in the current buffer." 2307 "Process Fcc headers in the current buffer."