diff options
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/mh-alias.el | 8 | ||||
| -rw-r--r-- | lisp/mh-e/mh-e.el | 2 | ||||
| -rw-r--r-- | lisp/mh-e/mh-inc.el | 12 | ||||
| -rw-r--r-- | lisp/mh-e/mh-junk.el | 6 | ||||
| -rw-r--r-- | lisp/mh-e/mh-mime.el | 4 |
5 files changed, 16 insertions, 16 deletions
diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el index c93aaeb70da..2df6025bf09 100644 --- a/lisp/mh-e/mh-alias.el +++ b/lisp/mh-e/mh-alias.el @@ -638,10 +638,10 @@ filing messages." (message "Making passwd aliases...") (setq passwd-matches (mapconcat - '(lambda (elem) - (if (or (string-match regexp (car elem)) - (string-match regexp (cadr elem))) - (format "%s: %s\n" (car elem) (cadr elem)))) + (lambda (elem) + (if (or (string-match regexp (car elem)) + (string-match regexp (cadr elem))) + (format "%s: %s\n" (car elem) (cadr elem)))) mh-alias-passwd-alist "")) (message "Making passwd aliases...done"))) (if (and (string-equal "" matches) diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index ccae063827f..90803d183d2 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -933,7 +933,7 @@ finally GNU mailutils MH." (t (message "Unknown variant %s; use %s" variant - (mapconcat '(lambda (x) (format "%s" (car x))) + (mapconcat (lambda (x) (format "%s" (car x))) (mh-variants) " or ")))))) (defcustom-mh mh-variant 'autodetect diff --git a/lisp/mh-e/mh-inc.el b/lisp/mh-e/mh-inc.el index 4f83ed70508..5248d6ab75e 100644 --- a/lisp/mh-e/mh-inc.el +++ b/lisp/mh-e/mh-inc.el @@ -39,12 +39,12 @@ "Help text for `mh-inc-spool-map'.") (define-key mh-inc-spool-map "?" - '(lambda () - (interactive) - (if mh-inc-spool-map-help - (mh-help mh-inc-spool-map-help) - (mh-ephem-message - "There are no keys defined yet; customize `mh-inc-spool-list'")))) + (lambda () + (interactive) + (if mh-inc-spool-map-help + (mh-help mh-inc-spool-map-help) + (mh-ephem-message + "There are no keys defined yet; customize `mh-inc-spool-list'")))) ;;;###mh-autoload (defun mh-inc-spool-make () diff --git a/lisp/mh-e/mh-junk.el b/lisp/mh-e/mh-junk.el index 2ffc24e26e8..897f7518b1e 100644 --- a/lisp/mh-e/mh-junk.el +++ b/lisp/mh-e/mh-junk.el @@ -312,9 +312,9 @@ information can be used so that you can replace multiple (delete-other-windows) (pop-to-buffer (get-buffer-create "*MH-E Spammer Frequencies*")) (erase-buffer) - (maphash '(lambda (key value) "" - (if (> value 2) - (insert (format "%s %s\n" key value)))) + (maphash (lambda (key value) "" + (if (> value 2) + (insert (format "%s %s\n" key value)))) domains) (sort-numeric-fields 2 (point-min) (point-max)) (reverse-region (point-min) (point-max)) diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el index ba994e73a91..48c6a3793ef 100644 --- a/lisp/mh-e/mh-mime.el +++ b/lisp/mh-e/mh-mime.el @@ -1637,8 +1637,8 @@ This action can be undone by running \\[undo]." ;; Do an alias lookup on recipients (message-options-set 'message-recipients (mapconcat - '(lambda (ali) - (mail-strip-quoted-names (mh-alias-expand ali))) + (lambda (ali) + (mail-strip-quoted-names (mh-alias-expand ali))) (split-string (message-options-get 'message-recipients) "[, ]+") ", "))) (let ((saved-text (buffer-string)) |