Problem in vm-su-spam-score-aux

[Michael Ernst]

vm-su-spam-score-aux errs if the message has no spam-status field.
This patch makes it return 0 in that case.

--- /homes/gws/mernst/emacs/vm-8.0.12/lisp/vm-summary.el 2008-11-05 12:04:35.000000000 -0800
+++ - 2009-07-01 12:49:03.385630020 -0700
@@ -737,7 +737,8 @@
 (defun vm-su-spam-score-aux (m)
   "Return the numeric spam level for M."
   (let ((spam-status (vm-get-header-contents m "X-Spam-Status:")))
- (if (string-match "\\(hits\\|score\\)=\\([+-]?[0-9.]+\\)" spam-status)
+ (if (and spam-status
+ (string-match "\\(hits\\|score\\)=\\([+-]?[0-9.]+\\)" spam-status))
         (string-to-number (match-string 2 spam-status))
       0)))

[Uday Reddy (reddyuday)]

It doesn't look like this patch was every applied!