Re-fill copyright header.

(rmail-list-to-menu): Use mapc rather than mapcar.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 0589824d95844d2f926a44e2ecee0b6b184b7330..c999f687fbc1a1cf8d15f659ccc83bb83702f83e 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -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)