* gnus-art.el (gnus-treat-hide-citation-maybe): Add more doc to the string.

[gnus] / lisp / spam.el

diff --git a/lisp/spam.el b/lisp/spam.el
index e0b8299..c7f993d 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -1581,31 +1581,31 @@ to find it out)."
   (when (numberp article)
     (let* ((data-header (or prepared-data-header
                             (spam-fetch-article-header article))))
-      (if (arrayp data-header)
-         (cond
-          ((equal field 'number)
-           (mail-header-number data-header))
-          ((equal field 'from)
-           (mail-header-from data-header))
-          ((equal field 'message-id)
-           (mail-header-message-id data-header))
-          ((equal field 'subject)
-           (mail-header-subject data-header))
-          ((equal field 'references)
-           (mail-header-references data-header))
-          ((equal field 'date)
-           (mail-header-date data-header))
-          ((equal field 'xref)
-           (mail-header-xref data-header))
-          ((equal field 'extra)
-           (mail-header-extra data-header))
-          (t
-           (gnus-error
-            5
-            "spam-fetch-field-fast: unknown field %s requested"
-            field)
-           nil))
-        (gnus-message 6 "Article %d has a nil data header" article)))))
+      (cond
+       ((not (arrayp data-header))
+        (gnus-message 6 "Article %d has a nil data header" article))
+       ((equal field 'number)
+       (mail-header-number data-header))
+       ((equal field 'from)
+       (mail-header-from data-header))
+       ((equal field 'message-id)
+       (mail-header-message-id data-header))
+       ((equal field 'subject)
+       (mail-header-subject data-header))
+       ((equal field 'references)
+       (mail-header-references data-header))
+       ((equal field 'date)
+       (mail-header-date data-header))
+       ((equal field 'xref)
+       (mail-header-xref data-header))
+       ((equal field 'extra)
+       (mail-header-extra data-header))
+       (t
+       (gnus-error
+        5
+        "spam-fetch-field-fast: unknown field %s requested"
+        field)
+       nil)))))
 
 (defun spam-fetch-field-from-fast (article &optional prepared-data-header)
   (spam-fetch-field-fast article 'from prepared-data-header))