Don't quote lambda expressions with `quote'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c856e9..d36af8c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2011-05-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * gnus-cus.el (gnus-agent-customize-category):
+       * gnus-delay.el (gnus-delay-send-queue):
+       * gnus.el (gnus-other-frame):
+       Don't quote lambda expressions with `quote'.
+

 2011-05-20  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-sum.el (gnus-summary-hide-thread): Fix bug where moving to hide
 2011-05-20  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-sum.el (gnus-summary-hide-thread): Fix bug where moving to hide

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 2f99abb..98f0426 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -1034,19 +1034,19 @@ articles in the thread.
         (widget-create
          'push-button
          :notify
         (widget-create
          'push-button
          :notify

-         '(lambda (&rest ignore)
-            (let* ((info (assq gnus-agent-cat-name gnus-category-alist))
-                   (widgets category-fields))
-              (while widgets
-                (let* ((widget (pop widgets))
-                       (value (condition-case nil (widget-value widget) (error))))
-                  (eval `(setf (,(widget-get widget :accessor) ',info)
-                               ',value)))))
-            (gnus-category-write)
-            (gnus-kill-buffer (current-buffer))
-            (when (get-buffer gnus-category-buffer)
-              (switch-to-buffer (get-buffer gnus-category-buffer))
-              (gnus-category-list)))
+         (lambda (&rest ignore)
+           (let* ((info (assq gnus-agent-cat-name gnus-category-alist))
+                  (widgets category-fields))
+             (while widgets
+               (let* ((widget (pop widgets))
+                      (value (condition-case nil (widget-value widget) (error))))
+                 (eval `(setf (,(widget-get widget :accessor) ',info)
+                              ',value)))))
+           (gnus-category-write)
+           (gnus-kill-buffer (current-buffer))
+           (when (get-buffer gnus-category-buffer)
+             (switch-to-buffer (get-buffer gnus-category-buffer))
+             (gnus-category-list)))

                        "Done")
         (widget-insert
          "\n    Note: Empty fields default to the customizable global\
                        "Done")
         (widget-insert
          "\n    Note: Empty fields default to the customizable global\

diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el
index bfd1705..c632cab 100644 (file)
--- a/lisp/gnus-delay.el
+++ b/lisp/gnus-delay.el
@@ -151,8 +151,7 @@ DELAY is a string, giving the length of the time.  Possible values are:
       (when (gnus-group-entry group)
        (gnus-activate-group group)
        (add-hook 'message-send-hook
       (when (gnus-group-entry group)
        (gnus-activate-group group)
        (add-hook 'message-send-hook

-                 '(lambda ()
-                    (message-remove-header gnus-delay-header)))
+                 (lambda () (message-remove-header gnus-delay-header)))

        (setq articles (nndraft-articles))
        (while (setq article (pop articles))
          (gnus-request-head article group)
        (setq articles (nndraft-articles))
        (while (setq article (pop articles))
          (gnus-request-head article group)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 8cd2f06..ba40930 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -4356,11 +4356,11 @@ current display is used."
          (switch-to-buffer gnus-group-buffer)
        (funcall gnus-other-frame-function arg)
        (add-hook 'gnus-exit-gnus-hook
          (switch-to-buffer gnus-group-buffer)
        (funcall gnus-other-frame-function arg)
        (add-hook 'gnus-exit-gnus-hook

-                 '(lambda nil
-                    (when (and (frame-live-p gnus-other-frame-object)
-                               (cdr (frame-list)))
-                      (delete-frame gnus-other-frame-object))
-                    (setq gnus-other-frame-object nil)))))))
+                 (lambda nil
+                    (when (and (frame-live-p gnus-other-frame-object)
+                               (cdr (frame-list)))
+                      (delete-frame gnus-other-frame-object))
+                    (setq gnus-other-frame-object nil)))))))

 
 ;;;###autoload
 (defun gnus (&optional arg dont-connect slave)
 
 ;;;###autoload
 (defun gnus (&optional arg dont-connect slave)