X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-msg.el;h=556bb40e3f86e087b01b29b4983a09a5cc456112;hp=ae421f80a541eb829f5885bb8cca7b1934775e0c;hb=bbaa6736e285258f29be9409b7b75751bb847e96;hpb=727fc5e7c34c43b0e6d821e7b7219e8186045833

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index ae421f80a..556bb40e3 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1521,14 +1521,14 @@ The source file has to be in the Emacs load path."
     (while olist
       (if (boundp (car olist))
 	  (ignore-errors
-	    (gnus-pp
-	     `(setq ,(car olist)
-		    ,(if (or (consp (setq sym (symbol-value (car olist))))
-			     (and (symbolp sym)
-				  (not (or (eq sym nil)
-					   (eq sym t)))))
-			 (list 'quote (symbol-value (car olist)))
-		       (symbol-value (car olist))))))
+	   (gnus-pp
+	    `(setq ,(car olist)
+		   ,(if (or (consp (setq sym (symbol-value (car olist))))
+			    (and (symbolp sym)
+				 (not (or (eq sym nil)
+					  (eq sym t)))))
+			(list 'quote (symbol-value (car olist)))
+		      (symbol-value (car olist))))))
 	(insert ";; (makeunbound '" (symbol-name (car olist)) ")\n"))
       (setq olist (cdr olist)))
     (insert "\n\n")