From 784119abd1e389483418212536a5bec4ddfcadc8 Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Mon, 16 Jan 2006 23:18:57 +0000 Subject: [PATCH] (rmail-display-labels): Use identity instead of lambda. --- lisp/mail/ChangeLog | 2 ++ lisp/mail/rmail.el | 6 +----- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog index 999f34a9a35..410e3823dd1 100644 --- a/lisp/mail/ChangeLog +++ b/lisp/mail/ChangeLog @@ -1,5 +1,7 @@ 2006-01-17 Alex Schroeder + * 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 c6f6dbe4479..824af50b68e 100644 --- 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 -- 2.39.5