Mercurial > emacs
comparison lisp/mail/rmail.el @ 85186:20ca9ea6e1d1
Re-fill copyright header.
(rmail-list-to-menu): Use mapc rather than mapcar.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 12 Oct 2007 03:05:02 +0000 |
| parents | ad03d7b3a351 |
| children | 2cce56fd7361 d38543a1c0f9 |
comparison
equal
deleted
inserted
replaced
| 85185:264b4ccf31a8 | 85186:20ca9ea6e1d1 |
|---|---|
| 1 ;;; rmail.el --- main code of "RMAIL" mail reader for Emacs | 1 ;;; rmail.el --- main code of "RMAIL" mail reader for Emacs |
| 2 | 2 |
| 3 ;; Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, 1997, 1998, | 3 ;; Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, 1997, 1998, |
| 4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. | 4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 |
| 5 ;; Free Software Foundation, Inc. | |
| 5 | 6 |
| 6 ;; Maintainer: FSF | 7 ;; Maintainer: FSF |
| 7 ;; Keywords: mail | 8 ;; Keywords: mail |
| 8 | 9 |
| 9 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
| 1458 ;; because this list is usually much shorter. | 1459 ;; because this list is usually much shorter. |
| 1459 (sort files 'string<)))) | 1460 (sort files 'string<)))) |
| 1460 | 1461 |
| 1461 (defun rmail-list-to-menu (menu-name l action &optional full-name) | 1462 (defun rmail-list-to-menu (menu-name l action &optional full-name) |
| 1462 (let ((menu (make-sparse-keymap menu-name))) | 1463 (let ((menu (make-sparse-keymap menu-name))) |
| 1463 (mapcar | 1464 (mapc |
| 1464 (function (lambda (item) | 1465 (function (lambda (item) |
| 1465 (let (command) | 1466 (let (command) |
| 1466 (if (consp item) | 1467 (if (consp item) |
| 1467 (progn | 1468 (progn |
| 1468 (setq command | 1469 (setq command |