diff options
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/reporter.el | 14 | ||||
-rw-r--r-- | lisp/mail/supercite.el | 21 |
2 files changed, 16 insertions, 19 deletions
diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el index 0c8b8d47a08..805dd12d3bd 100644 --- a/lisp/mail/reporter.el +++ b/lisp/mail/reporter.el @@ -250,14 +250,12 @@ dumped." (insert "(setq\n") (lisp-indent-line) (mapc - (function - (lambda (varsym-or-cons-cell) - (let ((varsym (or (car-safe varsym-or-cons-cell) - varsym-or-cons-cell)) - (printer (or (cdr-safe varsym-or-cons-cell) - 'reporter-dump-variable))) - (funcall printer varsym mailbuf) - ))) + (lambda (varsym-or-cons-cell) + (let ((varsym (or (car-safe varsym-or-cons-cell) + varsym-or-cons-cell)) + (printer (or (cdr-safe varsym-or-cons-cell) + 'reporter-dump-variable))) + (funcall printer varsym mailbuf))) varlist) (lisp-indent-line) (insert ")\n")) diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index 986d0cf4074..b2ccd3d9934 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -1028,17 +1028,16 @@ supplied, is used instead of the line point is on in the current buffer." (setq position (1+ position)) (let ((keep-p t)) (mapc - (function - (lambda (filter) - (let ((regexp (car filter)) - (pos (cdr filter))) - (if (and (string-match regexp name) - (or (and (numberp pos) - (= pos position)) - (and (eq pos 'last) - (= position (1- elements))) - (eq pos 'any))) - (setq keep-p nil))))) + (lambda (filter) + (let ((regexp (car filter)) + (pos (cdr filter))) + (if (and (string-match regexp name) + (or (and (numberp pos) + (= pos position)) + (and (eq pos 'last) + (= position (1- elements))) + (eq pos 'any))) + (setq keep-p nil)))) sc-name-filter-alist) (if keep-p (setq keepers (cons position keepers))))) |