From 6f0af7fcdf80bbb7cdf4cec9e2a61041a4f70069 Mon Sep 17 00:00:00 2001 From: keiichi Date: Wed, 30 Jun 1999 02:09:55 +0000 Subject: [PATCH] (gnus-parse-simple-format): Ignore error in `gnus-user-format-function-*'. --- lisp/gnus-spec.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el index 2b06fa8..616c565 100644 --- 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)))) -- 1.7.10.4