diff lisp/mail/rmail.el @ 102063:4576476829ed

(rmail-get-attr-names): Give a warning rather than an error if the header is corrupt.

--- a/lisp/mail/rmail.el	Tue Feb 17 02:36:51 2009 +0000
+++ b/lisp/mail/rmail.el	Tue Feb 17 02:37:40 2009 +0000
@@ -2054,16 +2054,16 @@
 	(nmax (length rmail-attr-array))
 	result temp)
     (when value
-      (unless (= (length value) nmax)
-	(error "Corrupt attribute header in message"))
-      (dotimes (index nmax)
-	(setq temp (and (not (= ?- (aref value index)))
-			(nth 1 (aref rmail-attr-array index)))
-	      result
-	      (cond
-	       ((and temp result) (format "%s, %s" result temp))
-	       (temp temp)
-	       (t result))))
+      (if (/= (length value) nmax)
+          (message "Warning: corrupt attribute header in message")
+        (dotimes (index nmax)
+          (setq temp (and (not (= ?- (aref value index)))
+                          (nth 1 (aref rmail-attr-array index)))
+                result
+                (cond
+                 ((and temp result) (format "%s, %s" result temp))
+                 (temp temp)
+                 (t result)))))
       result)))
 
 (defun rmail-get-keywords (&optional msg)