mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Re-fill copyright header.

Browse Source 
(rmail-list-to-menu): Use mapc rather than mapcar.
This commit is contained in:
Glenn Morris 2007-10-12 03:05:02 +00:00
parent d61ca8d5cc
commit 5701a0ce21
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/mail/rmail.el
View File

@ -1,7 +1,8 @@
;;; rmail.el --- main code of "RMAIL" mail reader for Emacs
;; Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, 1997, 1998,
;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
;; Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: mail
@ -1460,7 +1461,7 @@ original copy."
(defun rmail-list-to-menu (menu-name l action &optional full-name)
(let ((menu (make-sparse-keymap menu-name)))
(mapcar
(mapc
(function (lambda (item)
(let (command)
(if (consp item)