From: keiichi <keiichi>
Date: Wed, 30 Jun 1999 02:09:55 +0000 (+0000)
Subject: (gnus-parse-simple-format): Ignore error in `gnus-user-format-function-*'.
X-Git-Tag: nana-gnus-6_13_3~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6f0af7fcdf80bbb7cdf4cec9e2a61041a4f70069;p=elisp%2Fgnus.git-

(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
--- 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))))