From 2689177695f9ffcdd881307889db12ed8d2217cf Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 1 Jul 1999 01:09:52 +0000 Subject: [PATCH] Sync up with nana-gnus-6_13_3. --- 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