Don't quote lambda expressions with `quote'.

4 files changed, 19 insertions, 19 deletions

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 9aac041e8bd..a5aad7dd1b0 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -227,8 +227,8 @@ usually do not have translators to read other languages for them.\n\n")
 		system-configuration-options "'\n\n"))
     (insert "Important settings:\n")
     (mapc
-     '(lambda (var)
-	(insert (format "  value of $%s: %s\n" var (getenv var))))
+     (lambda (var)
+       (insert (format "  value of $%s: %s\n" var (getenv var))))
      '("LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES"
        "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG" "XMODIFIERS"))
     (insert (format "  locale-coding-system: %s\n" locale-coding-system))
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index b86bdb178f6..934637ecbbd 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -1437,7 +1437,7 @@ internal buffers will be reused and things will get confused."
   )
 
 (defcustom feedmail-queue-runner-mode-setter
-  '(lambda (&optional arg) (mail-mode))
+  (lambda (&optional arg) (mail-mode))
   "A function to set the proper mode of a message file.
 Called when the message is read back out of the queue directory with a single
 argument, the optional argument used in the call to
@@ -1473,7 +1473,7 @@ set `mail-header-separator' to the value of
 
 
 (defcustom feedmail-queue-runner-message-sender
-  '(lambda (&optional arg) (mail-send))
+  (lambda (&optional arg) (mail-send))
   "Function to initiate sending a message file.
 Called for each message read back out of the queue directory with a
 single argument, the optional argument used in the call to
@@ -1491,7 +1491,7 @@ you really don't need that.  Called with funcall, not call-interactively."
 
 
 (defcustom feedmail-queue-runner-cleaner-upper
-  '(lambda (fqm-file &optional arg)
+  (lambda (fqm-file &optional arg)
      (delete-file fqm-file)
      (if arg (feedmail-say-chatter "Nuked %s" fqm-file)))
   "Function that will be called after a message has been sent.
@@ -1642,7 +1642,7 @@ local gurus."
 	      ;; don't be overconfident about the name of the trace buffer
 	      (tracer (concat "trace.*smtp.*" (regexp-quote smtpmail-smtp-server))))
 	  (mapcar
-	   '(lambda (buffy)
+	   (lambda (buffy)
 	      (if (string-match tracer (buffer-name buffy))
 		  (progn
 		    (insert "SMTP Trace from " (buffer-name buffy) "\n---------------")
@@ -1667,7 +1667,7 @@ local gurus."
 			  ;; don't be overconfident about the name of the trace buffer
 			  (tracer (concat "trace.*smtp.*" (regexp-quote smtp-server))))
 		  (mapcar
-		   '(lambda (buffy)
+		   (lambda (buffy)
 			  (if (string-match tracer (buffer-name buffy))
 				  (progn
 					(insert "SMTP Trace from " (buffer-name buffy) "\n---------------")
@@ -1996,7 +1996,7 @@ backup file names and the like)."
 	(if feedmail-queue-run-orderer
 	    (setq list-of-possible-fqms (funcall feedmail-queue-run-orderer list-of-possible-fqms)))
 	(mapc
-	 '(lambda (blobby)
+	 (lambda (blobby)
 	    (setq maybe-file (expand-file-name blobby feedmail-queue-directory))
 	    (cond
 	     ((file-directory-p maybe-file) nil) ; don't care about subdirs
@@ -2238,7 +2238,7 @@ the counts."
     ;; iterate, counting things we find along the way in the directory
     (if (file-directory-p queue-directory)
 	(mapc
-	 '(lambda (blobby)
+	 (lambda (blobby)
 	    (cond
 	     ((file-directory-p blobby) nil) ; don't care about subdirs
 	     ((feedmail-fqm-p blobby)
@@ -2665,7 +2665,7 @@ fiddle-plex, as described in the documentation for the variable
   (save-excursion
     (if feedmail-enable-spray
 	(mapcar
-	 '(lambda (feedmail-spray-this-address)
+	 (lambda (feedmail-spray-this-address)
 	    (let ((spray-buffer (get-buffer-create " *FQM Outgoing Email Spray*")))
 	      (with-current-buffer spray-buffer
 		(erase-buffer)
diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el
index 862cb2a1eee..9af59672689 100644
--- a/lisp/mail/mspools.el
+++ b/lisp/mail/mspools.el
@@ -215,12 +215,12 @@ your primary spool is.  If this fails, set it to something like
 
     ;; Mailing list inboxes
     ;; must have VM already loaded to get vm-folder-directory.
-    (mapcar '(lambda (s)
-	       "make the appropriate entry for vm-spool-files"
-	       (list
-		(concat mspools-folder-directory s)
-		(concat mspools-folder-directory s "." mspools-suffix)
-		(concat mspools-folder-directory s ".crash")))
+    (mapcar (lambda (s)
+              "make the appropriate entry for vm-spool-files"
+              (list
+               (concat mspools-folder-directory s)
+               (concat mspools-folder-directory s "." mspools-suffix)
+               (concat mspools-folder-directory s ".crash")))
 	    ;; So I create a vm-spool-files entry for each of those mail drops
 	    (mapcar 'file-name-sans-extension
 		    (directory-files mspools-folder-directory nil
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index bbb02d7b978..cfacf5fad55 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -864,9 +864,9 @@ the user from the mailer."
 			  (let ((l))
 			    (mapc
 			     ;; remove duplicates
-			     '(lambda (e)
-				(unless (member e l)
-				  (push e l)))
+			     (lambda (e)
+                               (unless (member e l)
+                                 (push e l)))
 			     (split-string new-header-values
 					   ",[[:space:]]+" t))
 			    (mapconcat 'identity l ", "))