From: keiichi <keiichi>
Date: Thu, 1 Jul 1999 01:09:52 +0000 (+0000)
Subject: Sync up with nana-gnus-6_13_3.
X-Git-Tag: nana-gnus-6_12_19~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2689177695f9ffcdd881307889db12ed8d2217cf;p=elisp%2Fgnus.git-

Sync up with nana-gnus-6_13_3.
---

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