# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1192158302 0
# Node ID 20ca9ea6e1d108ecd23589666b5beb2df4c7ace5
# Parent  264b4ccf31a8744d59669516640e098c31164143
Re-fill copyright header.
(rmail-list-to-menu): Use mapc rather than mapcar.

diff -r 264b4ccf31a8 -r 20ca9ea6e1d1 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Oct 12 03:03:25 2007 +0000
+++ b/lisp/mail/rmail.el	Fri Oct 12 03:05:02 2007 +0000
@@ -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 @@
 
 (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)