diff options
| author | Miles Bader <miles@gnu.org> | 2007-10-13 05:53:03 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-10-13 05:53:03 +0000 |
| commit | 2b42d458a45eaf9767da327f76a40a1cf9c77c23 (patch) | |
| tree | f896828e65199d043ea7ab366fffea8bd315a986 /lisp/mail | |
| parent | 3e88ae627ef8d827b3f79e4e6f14aaad7adfe322 (diff) | |
| parent | e2cfa9afa691fb8b7a554cb685c16ff3d4e1ff2b (diff) | |
| download | emacs-2b42d458a45eaf9767da327f76a40a1cf9c77c23.tar.gz | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 880-885)
- Remove RCS keywords from doc/misc/cc-mode.texi
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-264
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/feedmail.el | 4 | ||||
| -rw-r--r-- | lisp/mail/reporter.el | 2 | ||||
| -rw-r--r-- | lisp/mail/rmail.el | 5 |
3 files changed, 6 insertions, 5 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index b8d42debe6f..e75387f48ac 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -1588,7 +1588,7 @@ backup file names and the like)." (setq list-of-possible-fqms (directory-files feedmail-queue-directory t)) (if feedmail-queue-run-orderer (setq list-of-possible-fqms (funcall feedmail-queue-run-orderer list-of-possible-fqms))) - (mapcar + (mapc '(lambda (blobby) (setq maybe-file (expand-file-name blobby feedmail-queue-directory)) (cond @@ -1835,7 +1835,7 @@ the counts." (let ((q-cnt 0) (q-oth 0) (high-water 0) (blobbet)) ;; iterate, counting things we find along the way in the directory (if (file-directory-p queue-directory) - (mapcar + (mapc '(lambda (blobby) (cond ((file-directory-p blobby) nil) ; don't care about subdirs diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el index 5c6bcb83efd..596c7ee9627 100644 --- a/lisp/mail/reporter.el +++ b/lisp/mail/reporter.el @@ -252,7 +252,7 @@ dumped." (erase-buffer) (insert "(setq\n") (lisp-indent-line) - (mapcar + (mapc (function (lambda (varsym-or-cons-cell) (let ((varsym (or (car-safe varsym-or-cons-cell) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 53c9220f14f..4a7bd12ba42 100644 --- 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) |