From 62e6a0ed5879d5bb86240d0580fbfbb74e681466 Mon Sep 17 00:00:00 2001
From: keiichi <keiichi>
Date: Thu, 13 Apr 2000 05:41:59 +0000
Subject: [PATCH] (gnus-update-format): Fix a bug in last modification.
 (gnus-search-or-regist-spec): Change interface.

---
 lisp/gnus-spec.el |   85 +++++++++++++++++++++++++++--------------------------
 1 file changed, 44 insertions(+), 41 deletions(-)

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 8fbaf63..f325e9f 100644
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -158,7 +158,8 @@ Each element should be the form:
 		(intern (format "%s-spec" var))
 		(gnus-parse-format 
 		 value (symbol-value (intern (format "%s-alist" var)))
-		 (not (string-match "mode" var))))))
+		 (not (string-match "mode" var)))))
+	 (entry (assq type gnus-format-specs)))
     (if entry
 	(let ((elem (assoc value entry)))
 	  (if elem
@@ -172,36 +173,38 @@ Each element should be the form:
     (lisp-interaction-mode)
     (insert (pp-to-string spec))))
 
-(defmacro gnus-search-or-regist-spec (specs type format spec entry elem
-					    &rest body)
-  `(let* ((,entry (assq ,type ,specs))
-	  (,elem (assoc ,format (cdr ,entry))))
-     (or (cdr ,elem)
-	 (when (progn ,@body)
-	   (if ,entry
-	       (if ,elem
-		   (setcdr ,elem ,spec)
-		 (setcdr ,entry (cons (cons ,format ,spec) (cdr ,entry))))
-	     (push (list ,type (cons ,format ,spec)) ,specs))
-	   (gnus-product-variable-touch (quote ,specs)))
-	 ,spec)))
+(put 'gnus-search-or-regist-spec 'lisp-indent-function 1)
+(defmacro gnus-search-or-regist-spec (mspec &rest body)
+  (let ((specs (nth 0 mspec)) (type (nth 1 mspec)) (format (nth 2 mspec))
+	(spec (nth 3 mspec)) (entry (nth 4 mspec)) (elem (nth 5 mspec)))
+    `(let* ((,entry (assq ,type ,specs))
+	    (,elem (assoc ,format (cdr ,entry))))
+       (or (cdr ,elem)
+	   (when (progn ,@body)
+	     (if ,entry
+		 (if ,elem
+		     (setcdr ,elem ,spec)
+		   (setcdr ,entry (cons (cons ,format ,spec) (cdr ,entry))))
+	       (push (list ,type (cons ,format ,spec)) ,specs))
+	     (gnus-product-variable-touch (quote ,specs)))
+	   ,spec))))
 
 (defun gnus-update-format-specification-1 (type format val)
   (set (intern (format "gnus-%s-line-format-spec" type))
-       (gnus-search-or-regist-spec
-	gnus-format-specs-compiled type format val entry elem
-	(when (and gnus-compile-user-specs val)
-	  (setq val (prog1
-			(progn
-			  (fset 'gnus-tmp-func `(lambda () ,val))
-			  (require 'bytecomp)
-			  (let (byte-compile-warnings)
-			    (byte-compile 'gnus-tmp-func))
-			  (gnus-byte-code 'gnus-tmp-func))
-		      (when (get-buffer "*Compile-Log*")
-			(bury-buffer "*Compile-Log*"))
-		      (when (get-buffer "*Compile-Log-Show*")
-			(bury-buffer "*Compile-Log-Show*"))))))))
+       (gnus-search-or-regist-spec (gnus-format-specs-compiled
+				    type format val entry elem)
+	 (when (and gnus-compile-user-specs val)
+	   (setq val (prog1
+			 (progn
+			   (fset 'gnus-tmp-func `(lambda () ,val))
+			   (require 'bytecomp)
+			   (let (byte-compile-warnings)
+			     (byte-compile 'gnus-tmp-func))
+			   (gnus-byte-code 'gnus-tmp-func))
+		       (when (get-buffer "*Compile-Log*")
+			 (bury-buffer "*Compile-Log*"))
+		       (when (get-buffer "*Compile-Log-Show*")
+			 (bury-buffer "*Compile-Log-Show*"))))))))
 
 (defun gnus-update-format-specifications (&optional force &rest types)
   "Update all (necessary) format specifications."
@@ -232,19 +235,19 @@ Each element should be the form:
 	      ;; This is a new format.
 	      (gnus-update-format-specification-1
 		type new-format
-		(gnus-search-or-regist-spec
-		 gnus-format-specs type new-format val entry elem
-		 (setq val (if (stringp new-format)
-			       ;; This is a "real" format.
-			       (gnus-parse-format
-				new-format
-				(symbol-value
-				 (intern (format "gnus-%s-line-format-alist"
-						 type)))
-				(not (string-match "mode$"
-						   (symbol-name type))))
-			     ;; This is a function call or something.
-			     new-format))))))))))
+		(gnus-search-or-regist-spec (gnus-format-specs
+					     type new-format val entry elem)
+		  (setq val (if (stringp new-format)
+				;; This is a "real" format.
+				(gnus-parse-format
+				 new-format
+				 (symbol-value
+				  (intern (format "gnus-%s-line-format-alist"
+						  type)))
+				 (not (string-match "mode$"
+						    (symbol-name type))))
+			      ;; This is a function call or something.
+			      new-format))))))))))
 
 (defvar gnus-mouse-face-0 'highlight)
 (defvar gnus-mouse-face-1 'highlight)
-- 
1.7.10.4