Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/gnus/message.el	Mon Aug 13 09:42:28 2007 +0200
+++ b/lisp/gnus/message.el	Mon Aug 13 09:43:35 2007 +0200
@@ -2298,7 +2298,8 @@
        (concat "^" (regexp-quote mail-header-separator) "$"))
       (while (not (eobp))
 	(when (not (looking-at "[ \t\n]"))
-	  (setq sum (logxor (ash sum 1) (following-char))))
+ 	  (setq sum (logxor (ash sum 1) (if (natnump sum) 0 1)
+ 			    (following-char))))
 	(forward-char 1)))
     sum))