Revision: miles@gnu.org--gnu-2004/gnus--devo--0--patch-99

[gnus] / lisp / gnus-msg.el

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index ae421f8..556bb40 100644 (file)
--- 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")