(rmail-display-labels): Use identity instead of lambda.

diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog
index 999f34a9a35308a14718d484d20a3d9ced6e84f5..410e3823dd14ff8ba3dfcd0ae7a6f0832e8c315f 100644 (file)
--- a/lisp/mail/ChangeLog
+++ b/lisp/mail/ChangeLog
@@ -1,5 +1,7 @@
 2006-01-17  Alex Schroeder  <alex@gnu.org>
 
+       * rmail.el (rmail-display-labels): Use identity instead of lambda.
+
        * rmailsum.el (rmail-summary-font-lock-keywords): Fix typo for
        labels.
        (rmail-summary-get-summary): Add labels again.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index c6f6dbe447904a8fcc66b0666d716418f1fff95e..824af50b68e2575c5572a7221e0a97f4148e184c 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1857,20 +1857,16 @@ otherwise, show it in full."
 ;; appear in the mode line.
 (defun rmail-display-labels ()
   (let (keyword-list result)
-
     ;; Update the keyword list for the current message.
     (if (> rmail-current-message 0)
         (setq keyword-list (rmail-desc-get-keywords rmail-current-message)))
-
     ;; Generate the result string.
-    (setq result (mapconcat '(lambda (arg) arg) keyword-list " "))
-
+    (setq result (mapconcat 'identity keyword-list " "))
     ;; Update the mode line to display the keywords, the current
     ;; message index and the total number of messages.
     (setq mode-line-process
          (format " %d/%d %s"
                  rmail-current-message rmail-total-messages result))
-
     ;; If rmail-enable-mime is non-nil, we may have to update
     ;; `mode-line-process' of rmail-view-buffer too.
     (if (and rmail-enable-mime