(gnus-parse-simple-format): Ignore error in `gnus-user-format-function-*'.

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 2b06fa8..616c565 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -416,9 +416,16 @@
           (user-defined
            (setq elem
                  (list
-                  (list (intern (format "gnus-user-format-function-%c"
-                                        user-defined))
-                        'gnus-tmp-header)
+                  (list 'condition-case 'err
+                        (list (intern (format "gnus-user-format-function-%c"
+                                              user-defined))
+                              'gnus-tmp-header)
+                        (list 'error
+                              (list 'gnus-error 1
+                                    (format
+                                     "Error occured in `gnus-user-format-function-%c: %%s"
+                                     user-defined)
+                                    'err) ""))
                   ?s)))
           ;; Find the specification from `spec-alist'.
           ((setq elem (cdr (assq spec spec-alist))))