Mercurial > emacs

changeset 88174:edcff75892b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-display-labels): Use identity instead of lambda.
author Alex Schroeder <alex@gnu.org>
date Mon, 16 Jan 2006 23:14:49 +0000
parents 8a27a461f50a
children 1de58e16e51b
files lisp/mail/rmail.el
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Mon Jan 16 23:09:44 2006 +0000
+++ b/lisp/mail/rmail.el	Mon Jan 16 23:14:49 2006 +0000
@@ -1857,20 +1857,16 @@
 ;; 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